me
/
guix
Archived
1
0
Fork 0
Code

gnu: wpa-supplicant: install documentation. 

* gnu/packages/admin.scm (wpa-supplicant)[arguments]: Rename
'install-man-pages' phase to 'install-documentation'; install READMEs
and the example config file.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Timotej Lazar 2019-08-16 18:36:50 +02:00 committed by Ludovic Courtès
parent c85ccf60bf
commit 3b165f2a40
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/admin.scm
View File

@ -1240,9 +1240,10 @@ commands and their arguments.")
CONFIG_READLINE=y\n" port) CONFIG_READLINE=y\n" port)
(close-port port)) (close-port port))
#t)) #t))
(add-after 'install 'install-man-pages (add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/wpa-supplicant"))
(man (string-append out "/share/man")) (man (string-append out "/share/man"))
(man5 (string-append man "/man5")) (man5 (string-append man "/man5"))
(man8 (string-append man "/man8"))) (man8 (string-append man "/man8")))
@ -1255,6 +1256,15 @@ commands and their arguments.")
(find-files "doc/docbook" "\\.5")) (find-files "doc/docbook" "\\.5"))
(for-each (copy-man-page man8) (for-each (copy-man-page man8)
(find-files "doc/docbook" "\\.8")) (find-files "doc/docbook" "\\.8"))
;; wpa_supplicant.conf(5) does not explain all configuration
;; options but refers to the example config file, so install it
;; along with READMEs.
(for-each (lambda (file)
(install-file file doc))
'("README" "README-DPP" "README-HS20"
"README-P2P" "README-WPS"
"wpa_supplicant.conf"))
#t)))) #t))))
#:make-flags (list "CC=gcc" #:make-flags (list "CC=gcc"
@ -1303,7 +1313,7 @@ command.")
CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port) CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port)
(close-port port)) (close-port port))
#t)) #t))
(add-after 'install-man-pages 'install-dbus-conf (add-after 'install-documentation 'install-dbus-conf
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(dir (string-append out "/etc/dbus-1/system.d"))) (dir (string-append out "/etc/dbus-1/system.d")))