futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: ytfzf: Use patches inside source block, instead of inputs.

Browse Source 
* gnu/packages/image-viewers.scm (ytfzf)[patches]: Add ytfzf-programs.patch
and ytfzf-updates.patch.
[phases](apply-patches): Remove phase.
[native-inputs]: Remove ytfzf-programs and ytfzf-updates.
This commit is contained in:
Raghav Gururajan 2021-07-06 09:08:29 -04:00
parent aa6e6fb2e9
commit ffc04f5cc6
No known key found for this signature in database
GPG Key ID: 5F5816647F8BE551
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/image-viewers.scm
View File

@ -100,7 +100,13 @@
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "00d416qb4109pm77ikhnmds8qng90ni2jan9kdnxz7b6sh5f61nz"))))
(base32 "00d416qb4109pm77ikhnmds8qng90ni2jan9kdnxz7b6sh5f61nz"))
(patches
(search-patches
;; Pre-requisite for 'patch-script' phase.
"ytfzf-programs.patch"
;; Disables self-update.
"ytfzf-updates.patch"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no test suite
@ -110,15 +116,7 @@
(srfi srfi-26))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'apply-patches
(lambda* (#:key inputs #:allow-other-keys)
;; Pre-requisite for 'patch-script' phase.
(invoke "patch" "--input"
(assoc-ref inputs "ytfzf-programs"))
;; Disables self-update.
(invoke "patch" "--input"
(assoc-ref inputs "ytfzf-updates"))))
(add-after 'apply-patches 'patch-script
(add-after 'unpack 'patch-script
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bash (assoc-ref inputs "bash"))
@ -224,11 +222,6 @@
(("report at: https://github.com/pystardust/ytfzf")
"report at: https://issues.guix.gnu.org"))))
(delete 'configure)))) ;no configure script
(native-inputs
`(("ytfzf-programs"
,(search-patch "ytfzf-programs.patch"))
("ytfzf-updates"
,(search-patch "ytfzf-updates.patch"))))
(inputs
`(("bash" ,bash)
("catimg" ,catimg)