[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

03/03: services: 'console-keymap-service' takes multiple files.

From: Alex Kost
Subject: 03/03: services: 'console-keymap-service' takes multiple files.
Date: Sun, 17 Apr 2016 07:37:09 +0000

alezost pushed a commit to branch master
in repository guix.

commit b3d05f487014b1c34c45b8c693a974500e689603
Author: Alex Kost <address@hidden>
Date:   Sat Apr 9 00:21:15 2016 +0300

    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
 doc/guix.texi         |   21 ++++++++++++++++++---
 gnu/services/base.scm |   10 +++++-----
 2 files changed, 23 insertions(+), 8 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 34683d2..d5f7dcb 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -7262,10 +7262,25 @@ Return a service that runs the Guix build daemon 
according to
 Run @var{udev}, which populates the @file{/dev} directory dynamically.
 @end deffn
address@hidden {Scheme Procedure} console-keymap-service @var{file}
address@hidden {Scheme Procedure} console-keymap-service @var{files} ...
 @cindex keyboard layout
-Return a service to load console keymap from @var{file} using
address@hidden command.
+Return a service to load console keymaps from @var{files} using
address@hidden command.  Most likely, you want to load some default
+keymap, which can be done like this:
+(console-keymap-service "dvorak")
address@hidden example
+Or, for example, for a Swedish keyboard, you may need to combine
+the following keymaps:
+(console-keymap-service "se-lat6" "se-fi-lat6")
address@hidden example
+Also you can specify a full file name (or file names) of your keymap(s).
+See @code{man loadkeys} for details.
 @end deffn
 @deffn {Scheme Procedure} gpm-service-type [#:gpm @var{gpm}] @
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index b168543..a3585cc 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
-   (lambda (file)
+   (lambda (files)
       (documentation (string-append "Load console keymap (loadkeys)."))
       (provision '(console-keymap))
       (start #~(lambda _
                  (zero? (system* (string-append #$kbd "/bin/loadkeys")
-                                 #$file))))
+                                 address@hidden))))
       (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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]