From 7562b50c02eae16ae917999a4988aa0ab15f1354 Mon Sep 17 00:00:00 2001 From: Rutherther Date: Wed, 10 Sep 2025 21:30:08 +0200 Subject: [PATCH] services: greetd: Accept gexps in initial-session. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- gnu/services/base.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index cfe7099dae40896e945e4f6538702555fd370aa1..628141e7ed0608a8528987ebba2c769b320f73a2 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -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