amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: greetd: Accept gexps in initial-session.

Browse source 
Recently initial-session-user and initial-session-command has been
added, but they accept only strings, not gexps.

* gnu/services/base.scm (make-greetd-terminal-configuration-file):
Ungexp initial-session-user and initial-session-command.

Change-Id: I2b247464528b6147eab8acea08c6942ac7bfd0ab
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Rutherther 2025-09-10 21:30:08 +02:00 • committed by Ludovic Courtès
parent aec2a05e35
commit 7562b50c02
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gnu/services/base.scm
View file

@ -3986,10 +3986,10 @@ to handle."
"user = " default-session-user "\n" "user = " default-session-user "\n"
"command = " default-session-command "\n" "command = " default-session-command "\n"
(if (and initial-session-user initial-session-command) (if (and initial-session-user initial-session-command)
(string-append #~(string-append
"[initial_session]\n" "[initial_session]\n"
"user = " initial-session-user "\n" "user = " #$initial-session-user "\n"
"command = " initial-session-command "\n") "command = " #$initial-session-command "\n")
"")))) ""))))
(define %greetd-file-systems (define %greetd-file-systems