diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-03-28 14:02:37 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-04-07 00:08:56 +0200 |
| commit | 22ab90146665ad4e624421f297dd284f00ebe6ce (patch) | |
| tree | 2f5a2b6d4e9432698397efa7aa13031d0ba48be0 | |
| parent | 400c9ed3d779308e56038305d40cd93acb496180 (diff) | |
| download | guix-22ab90146665ad4e624421f297dd284f00ebe6ce.tar.gz | |
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.
| -rw-r--r-- | gnu/home/services/shepherd.scm | 15 |
1 files 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))) |