From 22ab90146665ad4e624421f297dd284f00ebe6ce Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 28 Mar 2022 14:02:37 +0200 Subject: home: shepherd: Default to version 0.9. * gnu/home/services/shepherd.scm ()[shepherd]: Default to SHEPHERD-0.9. (home-shepherd-configuration-file): Use 'start-in-the-background' when it is defined. --- gnu/home/services/shepherd.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'gnu/home/services/shepherd.scm') diff --git a/gnu/home/services/shepherd.scm b/gnu/home/services/shepherd.scm index feff130259..012585fea4 100644 --- a/gnu/home/services/shepherd.scm +++ b/gnu/home/services/shepherd.scm @@ -51,7 +51,7 @@ (define-record-type* home-shepherd-configuration make-home-shepherd-configuration home-shepherd-configuration? (shepherd home-shepherd-configuration-shepherd - (default shepherd)) ; package + (default shepherd-0.9)) ; package (auto-start? home-shepherd-configuration-auto-start? (default #t)) (services home-shepherd-configuration-services @@ -78,12 +78,13 @@ (define config '#$files)) (action 'root 'daemonize) (format #t "Starting services...~%") - (for-each - (lambda (service) (start service)) - '#$(append-map shepherd-service-provision - (filter shepherd-service-auto-start? - services))) - (newline))) + (let ((services-to-start + '#$(append-map shepherd-service-provision + (filter shepherd-service-auto-start? + services)))) + (if (defined? 'start-in-the-background) + (start-in-the-background services-to-start) + (for-each start services-to-start))))) (scheme-file "shepherd.conf" config))) -- cgit v1.2.3