services/xdisorg: Add option for sxhkd extensions

1 files changed, 13 insertions, 0 deletions

diff --git a/oni/home/services/xdisorg.scm b/oni/home/services/xdisorg.scm
index b4e7bd3..1c013a3 100644
--- a/oni/home/services/xdisorg.scm
+++ b/oni/home/services/xdisorg.scm
@@ -73,6 +73,11 @@
    (text-config '())
    "Extra configuration."))
 
+(define-configuration home-sxhkd-extension
+  (configurations
+   (text-config '())
+   "Extra configuration."))
+
 (define (add-sxhkd-packages config)
   (list (home-sxhkd-configuration-package config)))
 
@@ -82,6 +87,13 @@
        "sxhkdrc"
        (serialize-text-config config (home-sxhkd-configuration-configurations config))))))
 
+(define (home-sxhkd-extensions original-config extension-configs)
+  (home-sxhkd-configuration
+   (inherit original-config)
+   (configurations
+    (apply append (home-sxhkd-configuration-configurations original-config)
+           (map home-sxhkd-extension-configurations extension-configs)))))
+
 (define (home-sxhkd-shepherd-service config)
   (list
    (shepherd-service
@@ -115,5 +127,6 @@
            home-run-on-change-service-type
            reload-sxhkd-config-gexp)))
    (compose identity)
+   (extend home-sxhkd-extensions)
    (default-value (home-sxhkd-configuration))
    (description "Install and configure sxhkd.")))