seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-11-03 19:24:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: greetd-tuigreet-session: Allow arguments customization.

Browse Source 
* modules/rosenthal/services/base.scm (<greetd-tuigreet-session>) [args]: New
field.
* modules/rosenthal/services/base.scm (greetd-tuigreet-session-compiler): Use
it.
This commit is contained in:
MinkieYume 2025-08-31 13:52:36 +08:00 committed by Hilton Chain
parent 442edefa43
commit f669389a0b
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,16 +18,22 @@
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"
"--remember"
"--remember-session"
"--power-shutdown" "loginctl poweroff"
"--power-reboot" "loginctl reboot"))))
(define-gexp-compiler (greetd-tuigreet-session-compiler
(session <greetd-tuigreet-session>)
system target)
(match-record session <greetd-tuigreet-session> (tuigreet)
(let ((tuigreet (file-append (spec->pkg "tuigreet") "/bin/tuigreet")))
(match-record session <greetd-tuigreet-session> (tuigreet args)
(let ((tuigreet (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"))))))
#~(execl #$tuigreet #$tuigreet #$@args))))))