seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-09-18 12:44:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

wwwbase-test

Browse Source
This commit is contained in:
MinkieYume 2025-08-31 13:52:36 +08:00
parent 84b2141d38
commit 6d1e862383
No known key found for this signature in database
GPG Key ID: 5DBCD44118182F31
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
modules/rosenthal/services/base.scm
View File

@ -18,16 +18,17 @@
greetd-tuigreet-session? greetd-tuigreet-session?
this-greetd-tuigreet-session this-greetd-tuigreet-session
(tuigreet greetd-tuigreet-session-tuigreet (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 (define-gexp-compiler (greetd-tuigreet-session-compiler
(session <greetd-tuigreet-session>) (session <greetd-tuigreet-session>)
system target) system target)
(match-record session <greetd-tuigreet-session> (tuigreet) (match-record session <greetd-tuigreet-session> (tuigreet args)
(let ((tuigreet (file-append (spec->pkg "tuigreet") "/bin/tuigreet"))) (let ((tuigreet-bin (file-append tuigreet "/bin/tuigreet")))
(lower-object (lower-object
(program-file "tuigreet-wrapper" (program-file "tuigreet-wrapper"
#~(execl #$tuigreet #$tuigreet #~(execv #$tuigreet-bin (cons #$tuigreet-bin #$args)))))))
"--issue" "--time" "--user-menu" "--asterisks"
"--power-shutdown" "loginctl poweroff"
"--power-reboot" "loginctl reboot"))))))