diff mbox series

[bug#61294,2/3] gnu: imv: Use new package style.

Message ID 20230205122350.2759-2-timotej.lazar@araneo.si
State New
Headers show
Series Update imv | expand

Commit Message

Timotej Lazar Feb. 5, 2023, 12:23 p.m. UTC 
* gnu/packages/image-viewers.scm (imv)[arguments]: Use G-expressions.
---
 gnu/packages/image-viewers.scm | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)
diff mbox series

Patch

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 @@  (define-public imv
               (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))