aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-02-04 10:07:53 +0100
committerLudovic Courtès <ludo@gnu.org>2015-02-04 22:49:35 +0100
commitffd74de0c6de7435fcdc8e340efade032c365081 (patch)
tree6c17d4e661a50be08f34bfeb3d1c3b82e506bc4a
parent61bdd0d89f1e8851df890ce1f09c6969e2ee16fd (diff)
downloadguix-ffd74de0c6de7435fcdc8e340efade032c365081.tar
guix-ffd74de0c6de7435fcdc8e340efade032c365081.tar.gz
gnu: wpa-supplicant: Install man pages.
* gnu/packages/admin.scm (wpa-supplicant)[arguments]: Add 'install-man-pages' phase.
-rw-r--r--gnu/packages/admin.scm22
1 files changed, 21 insertions, 1 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index aa1f8d1b9a..b6f8e199b8 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -714,7 +714,27 @@ commands and their arguments.")
CONFIG_LIBNL32=y
CONFIG_READLINE=y\n" port)
(close-port port)))
- %standard-phases)
+
+ (alist-cons-after
+ 'install 'install-man-pages
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (man (string-append out "/share/man"))
+ (man5 (string-append man "/man5"))
+ (man8 (string-append man "/man8")))
+ (define (copy-man-page target)
+ (lambda (file)
+ (copy-file file
+ (string-append target "/"
+ (basename file)))))
+
+ (mkdir-p man5) (mkdir man8)
+ (for-each (copy-man-page man5)
+ (find-files "doc/docbook" "\\.5"))
+ (for-each (copy-man-page man8)
+ (find-files "doc/docbook" "\\.8"))
+ #t))
+ %standard-phases))
#:make-flags (list "CC=gcc"
(string-append "BINDIR=" (assoc-ref %outputs "out")