03/06: gnu: wpa-supplicant: Install man pages.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit ffd74de0c6de7435fcdc8e340efade032c365081
Author: Ludovic Courtès <address@hidden>
Date:   Wed Feb 4 10:07:53 2015 +0100

    gnu: wpa-supplicant: Install man pages.
    
    * gnu/packages/admin.scm (wpa-supplicant)[arguments]: Add
      'install-man-pages' phase.
---
 gnu/packages/admin.scm |   22 +++++++++++++++++++++-
 1 files changed, 21 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index aa1f8d1..b6f8e19 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")