TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

home: shepherd: Default to version 0.9.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2022-03-28 14:02:37 +02:00
parent 400c9ed3d7
commit 22ab901466
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/home/services/shepherd.scm
View file

@ -51,7 +51,7 @@ (define-record-type* <home-shepherd-configuration>
home-shepherd-configuration make-home-shepherd-configuration home-shepherd-configuration make-home-shepherd-configuration
home-shepherd-configuration? home-shepherd-configuration?
(shepherd home-shepherd-configuration-shepherd (shepherd home-shepherd-configuration-shepherd
(default shepherd)) ; package (default shepherd-0.9)) ; package
(auto-start? home-shepherd-configuration-auto-start? (auto-start? home-shepherd-configuration-auto-start?
(default #t)) (default #t))
(services home-shepherd-configuration-services (services home-shepherd-configuration-services
@ -78,12 +78,13 @@ (define config
'#$files)) '#$files))
(action 'root 'daemonize) (action 'root 'daemonize)
(format #t "Starting services...~%") (format #t "Starting services...~%")
(for-each (let ((services-to-start
(lambda (service) (start service)) '#$(append-map shepherd-service-provision
'#$(append-map shepherd-service-provision (filter shepherd-service-auto-start?
(filter shepherd-service-auto-start? services))))
services))) (if (defined? 'start-in-the-background)
(newline))) (start-in-the-background services-to-start)
(for-each start services-to-start)))))
(scheme-file "shepherd.conf" config))) (scheme-file "shepherd.conf" config)))