summaryrefslogtreecommitdiff
path: root/gnu/services.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-24 18:03:27 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-24 18:10:05 +0200
commit55ccc388b73312c9636857bb083f63a968b4255b (patch)
tree228705852da4d05e31095d54b3aea8be7294b207 /gnu/services.scm
parent517830cc0154dbe4a77741e7ee61703c194086a4 (diff)
downloadpatches-55ccc388b73312c9636857bb083f63a968b4255b.tar
patches-55ccc388b73312c9636857bb083f63a968b4255b.tar.gz
services: Support per-service activation scripts.
* gnu/services.scm (<service>)[activate]: New field. * gnu/system.scm (operating-system-activation-script)[service-activations]: New procedure. Use it, and primitive-load each activation.
Diffstat (limited to 'gnu/services.scm')
-rw-r--r--gnu/services.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/services.scm b/gnu/services.scm
index 8b89b11b8f..6bb21722b6 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -26,6 +26,7 @@
service-respawn?
service-start
service-stop
+ service-activate
service-user-accounts
service-user-groups
service-pam-services))
@@ -54,6 +55,8 @@
(user-groups service-user-groups ; list of <user-groups>
(default '()))
(pam-services service-pam-services ; list of <pam-service>
- (default '())))
+ (default '()))
+ (activate service-activate ; gexp
+ (default #f)))
;;; services.scm ends here.