guix-devel
[Top][All Lists]
Advanced

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

[PATCH 2/2] gnu: kbd: Add neo layout.


From: ng0
Subject: [PATCH 2/2] gnu: kbd: Add neo layout.
Date: Sun, 1 Jan 2017 17:22:25 +0000

* gnu/packages/linux.scm (kbd): Add neo layout.
[arguments]: Add new 'install-neo-layout' phase.
---
 gnu/packages/linux.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 196ae8c49..231ba5765 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -1640,10 +1640,19 @@ system.")
                (for-each (lambda (prog)
                            (wrap-program (string-append bin "/" prog)
                              `("PATH" ":" prefix (,bin))))
-                         '("unicode_start" "unicode_stop"))))))))
+                         '("unicode_start" "unicode_stop")))))
+         (add-after 'build 'install-neo-layout
+                    (lambda* (#:key inputs outputs #:allow-other-keys)
+                      (let ((neo (assoc-ref inputs "kbd-neo"))
+                            (out (assoc-ref outputs "out"))
+                            (neomap (string-append neo "/console/neo.map"))
+                            (keymaps (string-append out 
"/share/keymaps/i386/neo")))
+                        (mkdir-p keymaps)
+                        (install-file neomap keymaps)))))))
     (inputs `(("check" ,check)
               ("gzip" ,gzip)
               ("bzip2" ,bzip2)
+              ("kbd-neo" ,kbd-neo)
               ("pam" ,linux-pam)))
     (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "ftp://ftp.kernel.org/pub/linux/utils/kbd/";)
-- 
2.11.0




reply via email to

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