summary refs log tree commit diff
path: root/gnu/services/base.scm
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-04-09 00:21:15 +0300
committerAlex Kost <alezost@gmail.com>2016-04-17 10:33:08 +0300
commitb3d05f487014b1c34c45b8c693a974500e689603 (patch)
treebad72fb6628a8122eb772ff230ff609ca6acbebb /gnu/services/base.scm
parenta78daf5e2bdd8e0b958d679c442d0f122a7d68cd (diff)
downloadguix-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.scm10
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