25/34: gnu: hwinfo: Factorise 'install-man-pages.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 84779e6271bdcde6033ad4339502e421b2efd1a4
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 16 02:00:00 2023 +0200

    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.
---
 gnu/packages/hardware.scm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

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