diff options
| author |  Tom Willemse | 2022-04-02 01:35:20 -0700 |
|---|---|---|
| committer | Tom Willemse | 2022-04-02 01:35:20 -0700 |
| commit | d28afb72dbcee5298b493d75ec65705f6f551fd1 (patch) | |
| tree | 2d13a0771a6294b1f0d58623b1f303414d53b96a | |
| parent | 670d4c73cad491159e69f7f934e9147941973a24 (diff) | |
| download | new-dotfiles-d28afb72dbcee5298b493d75ec65705f6f551fd1.tar.gz new-dotfiles-d28afb72dbcee5298b493d75ec65705f6f551fd1.zip | |
Support symbols with special characters in configuration group keys
| -rw-r--r-- | oni/home/services/xdisorg.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/oni/home/services/xdisorg.scm b/oni/home/services/xdisorg.scm index d684bfd..26ed246 100644 --- a/oni/home/services/xdisorg.scm +++ b/oni/home/services/xdisorg.scm @@ -90,7 +90,11 @@ "\n}\n"))) (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))))) (string-append (string-join keys ", ") " {\n " |