mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-09-18 20:54:37 +00:00
34 lines
1.2 KiB
Scheme
34 lines
1.2 KiB
Scheme
;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
|
|
;;;
|
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
(define-module (rosenthal services base)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix records)
|
|
#:use-module (rosenthal utils packages)
|
|
|
|
#:use-module (gnu services base)
|
|
|
|
#:use-module (gnu packages bash)
|
|
#:use-module (rosenthal packages admin)
|
|
#:export (greetd-tuigreet-session))
|
|
|
|
(define-record-type* <greetd-tuigreet-session>
|
|
greetd-tuigreet-session make-greetd-tuigreet-session
|
|
greetd-tuigreet-session?
|
|
this-greetd-tuigreet-session
|
|
(tuigreet greetd-tuigreet-session-tuigreet
|
|
(default 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")))
|
|
(lower-object
|
|
(program-file "tuigreet-wrapper"
|
|
#~(execl #$tuigreet #$tuigreet
|
|
"--issue" "--time" "--user-menu" "--asterisks"
|
|
"--power-shutdown" "loginctl poweroff"
|
|
"--power-reboot" "loginctl reboot"))))))
|