04/07: home: shepherd: Default to version 0.9.

[guix-commits]

civodul pushed a commit to branch wip-shepherd-upgrade
in repository guix.

commit 9de22c17eb6d77dfdad4b34aed4a3df926217473
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Mar 28 14:02:37 2022 +0200

    home: shepherd: Default to version 0.9.
    
    * gnu/home/services/shepherd.scm (<home-shepherd-configuration>)[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(-)

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 @@
   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 @@ as shepherd package."
             '#$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)))