diff options
| author | Sisiutl <sisiutl@egregore.fun> | 2024-11-23 18:52:26 +0100 |
|---|---|---|
| committer | Sisiutl <sisiutl@egregore.fun> | 2024-11-23 21:40:31 +0100 |
| commit | 35fa88b84558d4c3c0d26d8640d81a30f052b046 (patch) | |
| tree | 33ed76fd95dd94a2430d09dfaabd03a7ca910d43 | |
| parent | c7e48788206ec10d44d397ef85dd84b4e4e6f80b (diff) | |
fix forkexec
| -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"))))) |