diff options
Diffstat (limited to 'sigils')
| -rw-r--r-- | sigils/home/services/wayland.scm | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/sigils/home/services/wayland.scm b/sigils/home/services/wayland.scm index 379e2e3..070c0c7 100644 --- a/sigils/home/services/wayland.scm +++ b/sigils/home/services/wayland.scm @@ -153,16 +153,19 @@ The example configuration: (shepherd-service (provision '(kanshi)) (requirement '(wayland-display)) - (start #~(make-forkexec-constructor - (list #$(file-append kanshi "/bin/kanshi")) - #:log-file (string-append - (getenv "XDG_STATE_HOME") "/log" - "/kanshi.log") - #:environment-variables - (cons (string-append "WAYLAND_DISPLAY=" - (getenv "WAYLAND_DISPLAY")) - (remove (cut string-prefix? "WAYLAND_DISPLAY=" <>) - (default-environment-variables))))) + (modules '((srfi srfi-1) + (srfi srfi-26))) + (start #~(lambda _ + ;; This is not optimal. + (fork+exec-command + (list #$(file-append kanshi "/bin/kanshi")) + #:log-file (string-append + (getenv "XDG_STATE_HOME") "/log" + "/kanshi.log") + #:environment-variables + (cons (string-append "WAYLAND_DISPLAY=" (getenv "WAYLAND_DISPLAY")) + (remove (cut string-prefix? "WAYLAND_DISPLAY=" <>) + (default-environment-variables)))))) (stop #~(make-kill-destructor)) (documentation "Run Kanshi"))))) |