From d28afb72dbcee5298b493d75ec65705f6f551fd1 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sat, 2 Apr 2022 01:35:20 -0700 Subject: [PATCH] Support symbols with special characters in configuration group keys --- oni/home/services/xdisorg.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 "