ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Support symbols with special characters in configuration group keys

Browse source
This commit is contained in:
Tom Willemse 2022-04-02 01:35:20 -07:00
parent 670d4c73ca
commit d28afb72db
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
oni/home/services/xdisorg.scm
View file

@ -90,7 +90,11 @@
"\n}\n"))) "\n}\n")))
(define (format-rofi-theme theme) (define (format-rofi-theme theme)
(let ((keys (map object->string (butlast theme 1))) (let ((keys (map (lambda (s)
(if (symbol? s)
(symbol->string s)
(object->string s)))
(butlast theme 1)))
(values (car (list-tail theme (- (length theme) 1))))) (values (car (list-tail theme (- (length theme) 1)))))
(string-append (string-join keys ", ") (string-append (string-join keys ", ")
" {\n " " {\n "