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? greetd-tuigreet-session?
this-greetd-tuigreet-session this-greetd-tuigreet-session
(tuigreet greetd-tuigreet-session-tuigreet (tuigreet greetd-tuigreet-session-tuigreet
(default tuigreet))) (default (spec->pkg "tuigreet"))))
(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)
(let ((tuigreet (file-append tuigreet "/bin/tuigreet"))) (let ((tuigreet (file-append (spec->pkg "tuigreet") "/bin/tuigreet")))
(lower-object (lower-object
(program-file "tuigreet-wrapper" (program-file "tuigreet-wrapper"
#~(execl #$tuigreet #$tuigreet #~(execl #$tuigreet #$tuigreet