ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

18
gnu/packages/admin.scm
View file

@ -4074,15 +4074,15 @@ (define-public uwufetch
#~(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 _