me
/
guix
Archived
1
0
Fork 0
Code

gnu: imv: Use new package style. 

* gnu/packages/image-viewers.scm (imv)[arguments]: Use G-expressions.

Signed-off-by: Leo Famulari <leo@famulari.name>
master
Timotej Lazar 2023-02-05 13:23:49 +01:00 committed by Leo Famulari
parent 19e4bb8da2
commit 1ec22406b2
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -762,17 +762,15 @@ displayed in a terminal.")
(file-name (git-file-name name version))))
(build-system meson-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'record-absolute-file-names
(lambda* (#:key outputs #:allow-other-keys)
;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
;; Record their absolute file name.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(substitute* (string-append bin "/imv")
(("imv-")
(string-append bin "/imv-")))))))))
(list #:phases
#~(modify-phases %standard-phases
(add-after 'install 'record-absolute-file-names
(lambda _
;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
;; Record their absolute file name.
(let ((bin (string-append #$output "/bin")))
(substitute* (string-append bin "/imv")
(("imv-") (string-append bin "/imv-")))))))))
(native-inputs
(list asciidoc
pkg-config))