07/07: services: console-keymap: Deprecate.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3a665637afc32a142dc24a77ce7ce9235eb6a3af
Author: Ludovic Courtès <address@hidden>
Date:   Wed Apr 3 14:32:41 2019 +0200

    services: console-keymap: Deprecate.
    
    * gnu/services/base.scm (console-keymap-service): Mark as deprecated.
    * doc/guix.texi (Base Services): Remove its documentation.
---
 doc/guix.texi         | 23 -----------------------
 gnu/services/base.scm |  3 ++-
 2 files changed, 2 insertions(+), 24 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 1b0bd1d..1c82579 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -12023,29 +12023,6 @@ This is the name of the file where some random bytes 
are saved by
 It defaults to @file{/var/lib/random-seed}.
 @end defvr
 
address@hidden keymap
address@hidden keyboard
address@hidden {Scheme Procedure} console-keymap-service @var{files} ...
address@hidden keyboard layout
-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:
-
address@hidden
-(console-keymap-service "dvorak")
address@hidden example
-
-Or, for example, for a Swedish keyboard, you may need to combine
-the following keymaps:
address@hidden
-(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.
-
address@hidden deffn
-
 @cindex mouse
 @cindex gpm
 @defvr {Scheme Variable} gpm-service-type
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 246932e..65f7ff2 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -719,7 +719,8 @@ to add @var{device} to the kernel's entropy pool.  The 
service will fail if
                                  address@hidden))))
       (respawn? #f)))))
 
-(define (console-keymap-service . files)
+(define-deprecated (console-keymap-service #:rest files)
+  #f
   "Return a service to load console keymaps from @var{files}."
   (service console-keymap-service-type files))