diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-08-06 18:25:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-08-20 22:48:47 +0200 |
| commit | 161d010d40aa31f59b2ad3ecca12efda7c70366d (patch) | |
| tree | c929f3d01df335fe500b4fcf8c8f4e1d9cce4bbf /gnu/home/services | |
| parent | dff7d2468ffe9d01b25662544af380e1794ac55a (diff) | |
home: services: Support mapping of System services to Home services.
* gnu/home/services.scm (service-type-mapping)
(system->home-service-type): New procedures.
(define-service-type-mapping, define-service-type-mappings): New macros.
(%system/home-service-type-mapping): New variable.
<top level>: Use 'define-service-type-mappings'.
* gnu/home/services/shepherd.scm <top level>: Likewise.
Diffstat (limited to 'gnu/home/services')
| -rw-r--r-- | gnu/home/services/shepherd.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/home/services/shepherd.scm b/gnu/home/services/shepherd.scm index 5585ef61b2..bd068c37fc 100644 --- a/gnu/home/services/shepherd.scm +++ b/gnu/home/services/shepherd.scm @@ -141,7 +141,7 @@ as shepherd package." (define (shepherd-xdg-configuration-files config) `(("shepherd/init.scm" ,(home-shepherd-configuration-file config)))) -(define-public home-shepherd-service-type +(define home-shepherd-service-type (service-type (name 'home-shepherd) (extensions (list (service-extension @@ -168,4 +168,6 @@ as shepherd package." (default-value (home-shepherd-configuration)) (description "Configure and install userland Shepherd."))) +(define-service-type-mapping + shepherd-root-service-type => home-shepherd-service-type) |