diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-24 18:03:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-24 18:10:05 +0200 |
| commit | 55ccc388b73312c9636857bb083f63a968b4255b (patch) | |
| tree | 228705852da4d05e31095d54b3aea8be7294b207 /gnu/services.scm | |
| parent | 517830cc0154dbe4a77741e7ee61703c194086a4 (diff) | |
| download | patches-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.scm | 5 |
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. |