services: greetd-tuigreet-session: Fix tuigreet reference.

* modules/rosenthal/services/base.scm (<greetd-tuigreet-session>)
(greetd-tuigreet-session-compiler): Fix tuigreet reference.
This commit is contained in:
Hilton Chain 2025-08-21 20:09:40 +08:00
parent 859be3792b
commit 4baff4a832
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292

View File

@ -18,13 +18,13 @@
greetd-tuigreet-session?
this-greetd-tuigreet-session
(tuigreet greetd-tuigreet-session-tuigreet
(default tuigreet)))
(default (spec->pkg "tuigreet"))))
(define-gexp-compiler (greetd-tuigreet-session-compiler
(session <greetd-tuigreet-session>)
system target)
(match-record session <greetd-tuigreet-session> (tuigreet)
(let ((tuigreet (file-append tuigreet "/bin/tuigreet")))
(let ((tuigreet (file-append (spec->pkg "tuigreet") "/bin/tuigreet")))
(lower-object
(program-file "tuigreet-wrapper"
#~(execl #$tuigreet #$tuigreet