diff options
author | Alex Kost <alezost@gmail.com> | 2016-04-09 00:21:15 +0300 |
---|---|---|
committer | Alex Kost <alezost@gmail.com> | 2016-04-17 10:33:08 +0300 |
commit | b3d05f487014b1c34c45b8c693a974500e689603 (patch) | |
tree | bad72fb6628a8122eb772ff230ff609ca6acbebb /gnu/services/base.scm | |
parent | a78daf5e2bdd8e0b958d679c442d0f122a7d68cd (diff) | |
download | guix-b3d05f487014b1c34c45b8c693a974500e689603.tar.gz |
services: 'console-keymap-service' takes multiple files.
* gnu/services/base.scm (console-keymap-service-type): Type procedure takes a list of files instead of a single file. (console-keymap-service): Take 'files' as rest arguments. * doc/guix.texi (Base Services): Improve documentation of 'console-keymap-service'.
Diffstat (limited to 'gnu/services/base.scm')
-rw-r--r-- | gnu/services/base.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index b168543a65..a3585cc5a3 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -494,18 +494,18 @@ strings or string-valued gexps." (define console-keymap-service-type (shepherd-service-type 'console-keymap - (lambda (file) + (lambda (files) (shepherd-service (documentation (string-append "Load console keymap (loadkeys).")) (provision '(console-keymap)) (start #~(lambda _ (zero? (system* (string-append #$kbd "/bin/loadkeys") - #$file)))) + #$@files)))) (respawn? #f))))) -(define (console-keymap-service file) - "Return a service to load console keymap from @var{file}." - (service console-keymap-service-type file)) +(define (console-keymap-service . files) + "Return a service to load console keymaps from @var{files}." + (service console-keymap-service-type files)) (define console-font-service-type (shepherd-service-type |