me
/
guix
Archived
1
0
Fork 0
Code

gnu: hwinfo: Factorise 'install-man-pages. 

* gnu/packages/hardware.scm (hwinfo)[arguments]: Get section numbers
from the man page file names rather than hard-coding 2.
master
Tobias Geerinckx-Rice 2023-07-16 02:00:00 +02:00
parent f93605b32b
commit 84779e6271
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/hardware.scm
View File

@ -405,15 +405,11 @@ operability and find drivers.")
(invoke "make" "doc"))) (invoke "make" "doc")))
(add-after 'install 'install-man-pages (add-after 'install 'install-man-pages
(lambda _ (lambda _
(let* ((man (string-append #$output "/share/man")) (for-each
(man1 (string-append man "/man1")) (lambda (file)
(man8 (string-append man "/man8"))) (install-file file (string-append #$output "/share/man/man"
(for-each (string-take-right file 1))))
(lambda (x) (install-file x man1)) (find-files "doc" "\\.[0-9]$")))))))
(find-files "doc" "\\.1$"))
(for-each
(lambda (y) (install-file y man8))
(find-files "doc" "\\.8$"))))))))
(native-inputs (native-inputs
(list doxygen flex perl pkg-config)) (list doxygen flex perl pkg-config))
(inputs (inputs