Browse Source

services: Add 'auto-start?' field to <service>.

* gnu/services.scm (<service>)[auto-start?]: New field.
* gnu/services/dmd.scm (dmd-configuration-file): Honor it.
* gnu/system/install.scm (cow-store-service): Add 'auto-start?' field.
version-0.8.3
Ludovic Courtès 8 years ago
parent
commit
fdaacbad85
  1. 3
      gnu/services.scm
  2. 4
      gnu/services/dmd.scm
  3. 4
      gnu/system/install.scm

3
gnu/services.scm

@ -27,6 +27,7 @@
service-respawn?
service-start
service-stop
service-auto-start?
service-activate
service-user-accounts
service-user-groups
@ -51,6 +52,8 @@
(start service-start) ; g-expression (procedure)
(stop service-stop ; g-expression (procedure)
(default #~(const #f)))
(auto-start? service-auto-start? ; Boolean
(default #t))
(user-accounts service-user-accounts ; list of <user-account>
(default '()))
(user-groups service-user-groups ; list of <user-groups>

4
gnu/services/dmd.scm

@ -68,7 +68,9 @@
(setenv "PATH" "/run/current-system/profile/bin")
(format #t "starting services...~%")
(for-each start '#$(append-map service-provision services))))
(for-each start
'#$(append-map service-provision
(filter service-auto-start? services)))))
(gexp->file "dmd.conf" config)))

4
gnu/system/install.scm

@ -102,6 +102,10 @@ the user's target storage device rather than on the RAM disk."
(documentation
"Make the store copy-on-write, with writes going to \
the given target.")
;; This is meant to be explicitly started by the user.
(auto-start? #f)
(start #~(case-lambda
((target)
#$(make-cow-store #~target)

Loading…
Cancel
Save