[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#61294] [PATCH 2/3] gnu: imv: Use new package style.
From: |
Timotej Lazar |
Subject: |
[bug#61294] [PATCH 2/3] gnu: imv: Use new package style. |
Date: |
Sun, 5 Feb 2023 13:23:49 +0100 |
* gnu/packages/image-viewers.scm (imv)[arguments]: Use G-expressions.
---
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 @@ (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))
--
2.39.1