02/02: gnu: Add pfetch.

[guix-commits]

bavier pushed a commit to branch master
in repository guix.

commit 67d621c56eb3be0e9a5409e70bc5953d5ebf7865
Author: Eric Bavier <bavier@member.fsf.org>
AuthorDate: Thu Jul 2 22:45:02 2020 -0500

    gnu: Add pfetch.
    
    * gnu/packages/admin.scm (pfetch): New variable.
---
 gnu/packages/admin.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index a4a7f40..6d8d665 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -3302,6 +3302,45 @@ everyone's screenshots nowadays.")
       (description "This package provides a tiny system info utility.")
       (license license:isc))))
 
+(define-public pfetch
+  (let ((commit "e18a0959ab98b963744755ec4687e59dc11db3c5")
+        (revision "0"))
+    (package
+      (name "pfetch")
+      (version (git-version "0.7.0" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/dylanaraps/pfetch";)
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "1md40av6i3xvvwig5jzhy4kf3s5sgxxk35r0vcyrjd8qyndk927l"))))
+      (build-system trivial-build-system)
+      (inputs `(("bash" ,bash)))
+      (arguments
+       `(#:modules ((guix build utils))
+         #:builder
+         (begin
+           (use-modules (guix build utils))
+           (let* ((source (lambda (f)
+                            (string-append (assoc-ref %build-inputs "source") 
"/" f)))
+                  (output (assoc-ref %outputs "out"))
+                  (docdir (string-append output "/share/doc/pfetch-" 
,version)))
+             (install-file (source "LICENSE.md") docdir)
+             (install-file (source "README.md") docdir)
+             (install-file (source "pfetch") (string-append output "/bin"))
+             (patch-shebang
+              (string-append output "/bin/pfetch")
+              (list (string-append (assoc-ref %build-inputs "bash") "/bin")))
+             #t))))
+      (home-page "https://github.com/dylanaraps/pfetch";)
+      (synopsis "System information tool")
+      (description "This package provides a simple, configurable system
+information tool.")
+      (license license:expat))))
+
 (define-public nnn
   (package
     (name "nnn")