herbstluftwm: Add configuration and automatic reload

Now when the reconfigure happens the herbstluftwm configuration can be
automatically reloaded.

1 files changed, 16 insertions, 2 deletions

diff --git a/oni/home/services/herbstluftwm.scm b/oni/home/services/herbstluftwm.scm
index 8dfc77c..96127f4 100644
--- a/oni/home/services/herbstluftwm.scm
+++ b/oni/home/services/herbstluftwm.scm
@@ -115,7 +115,15 @@
     (list
      (mixed-text-file
       "xinitrc"
-      "exec " herbstluftwm "/bin/herbstluftwm --autostart " (home-herbstluftwm-autostart-file config))))))
+      "exec " herbstluftwm "/bin/herbstluftwm")))))
+
+(define (home-herbstluftwm-config-files config)
+  `(("herbstluftwm/autostart"
+     ,(home-herbstluftwm-autostart-file config))))
+
+(define (reload-herbstluftwm-config-gexp config)
+  `(("files/.config/herbstluftwm/autostart"
+     ,#~(system* #$(file-append (home-herbstluftwm-configuration-package config) "/bin/herbstclient") "reload"))))
 
 (define home-herbstluftwm-service-type
   (service-type
@@ -126,7 +134,13 @@
            add-herbstluftwm-packages)
           (service-extension
            home-xinit-service-type
-           add-herbstluftwm-executable)))
+           add-herbstluftwm-executable)
+          (service-extension
+           home-xdg-configuration-files-service-type
+           home-herbstluftwm-config-files)
+          (service-extension
+           home-run-on-change-service-type
+           reload-herbstluftwm-config-gexp)))
    (compose identity)
    (default-value (home-herbstluftwm-configuration))
    (description "Install and configure herbstluftwm.")))