05/06: gnu: imv: Use new package style.

[guix-commits]

lfam pushed a commit to branch master
in repository guix.

commit 1ec22406b2f773e6c901b4afbc1a7723855a66f8
Author: Timotej Lazar <timotej.lazar@araneo.si>
AuthorDate: Sun Feb 5 13:23:49 2023 +0100

    gnu: imv: Use new package style.
    
    * gnu/packages/image-viewers.scm (imv)[arguments]: Use G-expressions.
    
    Signed-off-by: Leo Famulari <leo@famulari.name>
---
 gnu/packages/image-viewers.scm | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

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))