[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