me/guix
Archived
1
0
Fork 0
Code Activity

gnu: imv: Use new package style.

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

Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
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)))) (file-name (git-file-name name version))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'record-absolute-file-names (add-after 'install 'record-absolute-file-names
(lambda* (#:key outputs #:allow-other-keys) (lambda _
;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'. ;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
;; Record their absolute file name. ;; Record their absolute file name.
(let* ((out (assoc-ref outputs "out")) (let ((bin (string-append #$output "/bin")))
(bin (string-append out "/bin"))) (substitute* (string-append bin "/imv")
(substitute* (string-append bin "/imv") (("imv-") (string-append bin "/imv-")))))))))
(("imv-")
(string-append bin "/imv-")))))))))
(native-inputs (native-inputs
(list asciidoc (list asciidoc
pkg-config)) pkg-config))