From 1ec22406b2f773e6c901b4afbc1a7723855a66f8 Mon Sep 17 00:00:00 2001 From: Timotej Lazar Date: Sun, 5 Feb 2023 13:23:49 +0100 Subject: gnu: imv: Use new package style. * gnu/packages/image-viewers.scm (imv)[arguments]: Use G-expressions. Signed-off-by: Leo Famulari --- gnu/packages/image-viewers.scm | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) (limited to 'gnu/packages/image-viewers.scm') diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm index 0701f7bd4f..02e25aee5f 100644 --- a/gnu/packages/image-viewers.scm +++ b/gnu/packages/image-viewers.scm @@ -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)) -- cgit 1.4.1