mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
services: greetd: Accept gexps in initial-session.
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:
committed by
Ludovic Courtès
parent
aec2a05e35
commit
7562b50c02
@@ -3986,10 +3986,10 @@ to handle."
|
||||
"user = " default-session-user "\n"
|
||||
"command = " default-session-command "\n"
|
||||
(if (and initial-session-user initial-session-command)
|
||||
(string-append
|
||||
"[initial_session]\n"
|
||||
"user = " initial-session-user "\n"
|
||||
"command = " initial-session-command "\n")
|
||||
#~(string-append
|
||||
"[initial_session]\n"
|
||||
"user = " #$initial-session-user "\n"
|
||||
"command = " #$initial-session-command "\n")
|
||||
""))))
|
||||
|
||||
(define %greetd-file-systems
|
||||
|
||||
Reference in New Issue
Block a user