diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-02-04 10:07:53 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-02-04 22:49:35 +0100 |
| commit | ffd74de0c6de7435fcdc8e340efade032c365081 (patch) | |
| tree | 6c17d4e661a50be08f34bfeb3d1c3b82e506bc4a | |
| parent | 61bdd0d89f1e8851df890ce1f09c6969e2ee16fd (diff) | |
| download | 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.scm | 22 |
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") |