~ruther/guix-local: gnu: uwufetch: Avoid top-level package references.

2b1eb3c1cf45cf916e30c3b32b3526d90a636cd9 — Marius Bakke 2 years ago 397a686

gnu: uwufetch: Avoid top-level package references.

* gnu/packages/admin.scm (uwufetch)[arguments]: Use the grep and gawk provided
by INPUTS, instead of the top-level variables.

patch browse .tar.gz

1 files changed, 9 insertions(+), 9 deletions(-)

M gnu/packages/admin.scm

M gnu/packages/admin.scm => gnu/packages/admin.scm +9 -9

@@ 4074,15 4074,15 @@ you are running, what theme or icon set you are using, etc.")
       #~(modify-phases %standard-phases
           (delete 'configure)
           (add-before 'build 'patch-source-paths
-            (lambda _
-              (substitute* "fetch.c"
-                (("grep")
-                 #$(file-append grep "/bin/grep"))
-                (("awk")
-                 #$(file-append gawk "/bin/awk")))
-              (substitute* "uwufetch.c"
-                (("(/usr(/local)?)(.*;)" all _ _ rest)
-                 (string-append #$output rest)))))
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((grep (search-input-file inputs "/bin/grep"))
+                    (awk (search-input-file inputs "/bin/awk")))
+                (substitute* "fetch.c"
+                  (("grep") grep)
+                  (("awk") awk))
+                (substitute* "uwufetch.c"
+                  (("(/usr(/local)?)(.*;)" all _ _ rest)
+                   (string-append #$output rest))))))
           ;; TODO this will be fixed in the next release of uwufetch
           (add-before 'install 'make-include-dir
             (lambda _