me/guix
Archived
1
0
Fork 0
Code Activity

gnu: uwufetch: Avoid top-level package references.

Browse source 
* gnu/packages/admin.scm (uwufetch)[arguments]: Use the grep and gawk provided
by INPUTS, instead of the top-level variables.
This commit is contained in:
Marius Bakke 2023-09-15 11:18:25 +08:00
parent 397a6860f6
commit 2b1eb3c1cf
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/admin.scm
View file

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