From d28afb72dbcee5298b493d75ec65705f6f551fd1 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 2 Apr 2022 01:35:20 -0700
Subject: 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  "
-- 
cgit v1.2.3-54-g00ecf