From a432ae0c0b3e3237c82a84f03ef022ddadafedcd Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 17 Jul 2022 02:00:01 +0200
Subject: [PATCH] gnu: feh: Use G-expressions.

* gnu/packages/image-viewers.scm (feh)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/image-viewers.scm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 53c895ec21..8d4d2351c3 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -173,14 +173,16 @@ (define-public feh
                 "185wwqd60r2rk6lzcvd6sl58589qfqrfnf7lqd6friyj84n9cjc6"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases (modify-phases %standard-phases (delete 'configure))
-       #:test-target "test"
-       #:make-flags
-       (list ,(string-append "CC=" (cc-for-target))
-             (string-append "PREFIX=" (assoc-ref %outputs "out"))
-             "exif=1"
-             "inotify=1"
-             "magic=1")))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (delete 'configure))     ; no configure script
+           #:test-target "test"
+           #:make-flags
+           #~(list (string-append "CC=" #$(cc-for-target))
+                   (string-append "PREFIX=" #$output)
+                   "exif=1"
+                   "inotify=1"
+                   "magic=1")))
     (native-inputs
      (list perl perl-test-command))
     (inputs (list curl