From 6d1e862383030338df601864623f2cf55d7f6493 Mon Sep 17 00:00:00 2001 From: MinkieYume Date: Sun, 31 Aug 2025 13:52:36 +0800 Subject: [PATCH] wwwbase-test --- modules/rosenthal/services/base.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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)))))))