From 2b1eb3c1cf45cf916e30c3b32b3526d90a636cd9 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Fri, 15 Sep 2023 11:18:25 +0800 Subject: 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. --- gnu/packages/admin.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index f9fffcec2b..4ddd03fecf 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -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 _ -- cgit v1.2.3