seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-06-25 20:05:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Add greetd-tuigreet-session.

Browse Source 
* modules/rosenthal/services/base.scm: New file.
This commit is contained in:
Hilton Chain 2025-06-20 15:21:42 +08:00
parent 4ce201dc6d
commit afe32807aa
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
modules/rosenthal/services/base.scm Normal file
View File

@ -0,0 +1,29 @@
;;; 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)
#: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 (spec->pkg "tuigreet"))))
(define-gexp-compiler (greetd-tuigreet-session-compiler
(session <greetd-tuigreet-session>)
system target)
(match-record session <greetd-tuigreet-session> (tuigreet)
(lower-object
(program-file "tuigreet-wrapper"
#~(execl #$tuigreet #$tuigreet
"--issue" "--time" "--user-menu" "--asterisks"
"--power-shutdown" "loginctl power-off"
"--power-reboot" "loginctl reboot")))))