wigust: inxi: Update.origin/wip-inxi-perlwip-inxi-perl

* wigust/packages/inxi.scm (wigust, inxi-minimal):

1 files changed, 57 insertions, 56 deletions

diff --git a/wigust/packages/inxi.scm b/wigust/packages/inxi.scm
index af1e437..1939bc4 100644
--- a/wigust/packages/inxi.scm
+++ b/wigust/packages/inxi.scm
@@ -33,65 +33,66 @@
   #:use-module (gnu packages gl)
   #:use-module (gnu packages file)
   #:use-module (gnu packages admin)
+  #:use-module (gnu packages perl)
   #:use-module (ice-9 match))
 
 (define-public inxi-minimal
-  (let ((commit "c934578ffb4f920cb04c91305a54dbdc4aa99d80"))
-    (package
-      (name "inxi-minimal")
-      (version (git-version "2.3.56" "1" commit))
-      (source
-       (origin
-         (method url-fetch)
-         (uri (string-append "https://github.com/smxi/inxi"
-                             "/raw/" commit "/inxi.tar.gz"))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "0cmb95fw4jf5fqxmivwxy63sqyl7jnb3v7sbqqhafx0iwxgxi77h"))))
-      (build-system trivial-build-system)
-      (inputs
-       `(("bash" ,bash)))
-      (native-inputs
-       `(("coreutils" ,coreutils)
-         ("gawk" ,gawk)
-         ("grep" ,grep)
-         ("pciutils" ,pciutils)
-         ("procps" ,procps)
-         ("sed" ,sed)
-         ("tar" ,tar)
-         ("gzip" ,gzip)))
-      (arguments
-       `(#:modules
-         ((guix build utils)
-          (ice-9 match))
-         #:builder
-         (begin
-           (use-modules (guix build utils)
-                        (ice-9 match))
-           (setenv "PATH" (string-append
-                           (assoc-ref %build-inputs "tar") "/bin" ":"
-                           (assoc-ref %build-inputs "gzip") "/bin" ":"
-                           (assoc-ref %build-inputs "bash") "/bin"))
-           (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
-           (substitute* "inxi" (("/usr/bin/env bash") (which "bash")))
-           (let ((bin (string-append %output "/bin")))
-             (install-file "inxi" bin)
-             (wrap-program (string-append bin "/inxi")
-               `("PATH" ":" = ("$PATH"
-                               ,@(map (lambda (input)
-                                        (string-append
-                                         (match input ((name . store) store))
-                                         "/bin"))
-                                      %build-inputs)))))
-           (install-file "inxi.1.gz"
-                         (string-append %output "/share/doc/man/man1"))
-           #t)))
-      (home-page "http://inxi.org")
-      (synopsis "Script to get system information")
-      (description
-       "This package provides a script to get system information.")
-      (license license:gpl3+))))
+  (package
+    (name "inxi-minimal")
+    (version "3.0.04-1")
+    (source
+     (origin (method url-fetch)
+             (uri (string-append "https://github.com/smxi/inxi/archive/"
+                                 version ".tar.gz"))
+             (file-name (string-append name "-" version ".tar.gz"))
+             (sha256
+              (base32
+               "14zxdsjgh9dbijmpp0hhvg2yiqqfwnqgcc6x8dpl1v15z1h1r7pc"))))
+    (build-system trivial-build-system)
+    (inputs
+     `(("bash" ,bash)))
+    (native-inputs
+     `(("coreutils" ,coreutils)
+       ("gawk" ,gawk)
+       ("grep" ,grep)
+       ("gzip" ,gzip)
+       ("perl" ,perl)
+       ("pciutils" ,pciutils)
+       ("procps" ,procps)
+       ("sed" ,sed)
+       ("tar" ,tar)))
+    (arguments
+     `(#:modules
+       ((guix build utils)
+        (ice-9 match))
+       #:builder
+       (begin
+         (use-modules (guix build utils)
+                      (ice-9 match))
+         (setenv "PATH" (string-append
+                         (assoc-ref %build-inputs "tar") "/bin" ":"
+                         (assoc-ref %build-inputs "gzip") "/bin" ":"
+                         (assoc-ref %build-inputs "bash") "/bin" ":"
+                         (assoc-ref %build-inputs "perl") "/bin"))
+         (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
+         (chdir (string-append "inxi-" ,version))
+         (substitute* "inxi" (("/usr/bin/env perl") (which "perl")))
+         (let ((bin (string-append %output "/bin")))
+           (install-file "inxi" bin)
+           (wrap-program (string-append bin "/inxi")
+             `("PATH" ":" = ("$PATH"
+                             ,@(map (lambda (input)
+                                      (string-append
+                                       (match input ((name . store) store))
+                                       "/bin"))
+                                    %build-inputs)))))
+         (install-file "inxi.1" (string-append %output "/share/doc/man/man1"))
+         #t)))
+    (home-page "http://inxi.org")
+    (synopsis "Script to get system information")
+    (description
+     "This package provides a script to get system information.")
+    (license license:gpl3+)))
 
 (define-public inxi
   (package