diff --git a/modules/rosenthal/services/base.scm b/modules/rosenthal/services/base.scm index da3f1d9..22a5ff3 100644 --- a/modules/rosenthal/services/base.scm +++ b/modules/rosenthal/services/base.scm @@ -18,16 +18,17 @@ greetd-tuigreet-session? this-greetd-tuigreet-session (tuigreet greetd-tuigreet-session-tuigreet - (default (spec->pkg "tuigreet")))) + (default (spec->pkg "tuigreet"))) + (args greetd-tuigreet-session-args + (default '("--issue" "--time" "--user-menu" "--asterisks" + "--power-shutdown" "loginctl poweroff" + "--power-reboot" "loginctl reboot")))) (define-gexp-compiler (greetd-tuigreet-session-compiler (session ) system target) - (match-record session (tuigreet) - (let ((tuigreet (file-append (spec->pkg "tuigreet") "/bin/tuigreet"))) + (match-record session (tuigreet args) + (let ((tuigreet-bin (file-append tuigreet "/bin/tuigreet"))) (lower-object (program-file "tuigreet-wrapper" - #~(execl #$tuigreet #$tuigreet - "--issue" "--time" "--user-menu" "--asterisks" - "--power-shutdown" "loginctl poweroff" - "--power-reboot" "loginctl reboot")))))) + #~(execv #$tuigreet-bin (cons #$tuigreet-bin #$args)))))))