07/20: gnu: scanbd: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 2ea9a977fe108079ca401a322b285c4c7f971c47
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jan 16 01:00:01 2022 +0100

    gnu: scanbd: Use G-expressions.
    
    * gnu/packages/scanner.scm (scanbd)[arguments]:
    Rewrite as G-expressions.
---
 gnu/packages/scanner.scm | 45 ++++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm
index 1f862d5a54..55b0288076 100644
--- a/gnu/packages/scanner.scm
+++ b/gnu/packages/scanner.scm
@@ -263,29 +263,28 @@ package contains the library and drivers.")))
         (base32 "0pvy4qirfjdfm8aj6x5rkbgl7hk3jfa2s21qkk8ic5dqfjjab75n"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:configure-flags
-       (list "--disable-debug"
-             "--sysconfdir=/etc")
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'install
-           (lambda* (#:key make-flags outputs #:allow-other-keys)
-             (let* ((out  (assoc-ref outputs "out"))
-                    (conf (string-append out "/etc/scanbd")))
-               (apply invoke "make" "install"
-                      ;; Install example configuration to the store, not /etc.
-                      ;; These don't inherit from each other, so we need both.
-                      (string-append "scanbdconfdir="  conf)
-                      (string-append "scannerconfdir=" conf "/scanner.d")
-                      make-flags))))
-         (add-after 'install 'install-extra-documentation
-           ;; The README provides more detailed set-up instructions than the
-           ;; man page.
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (doc (string-append out "/share/doc/"
-                                        ,name "-" ,version)))
-               (install-file "doc/README.txt" doc)))))))
+     (list #:configure-flags
+           #~(list "--disable-debug"
+                   "--sysconfdir=/etc")
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'install
+                 (lambda* (#:key make-flags #:allow-other-keys)
+                   (let ((conf (string-append #$output "/etc/scanbd")))
+                     (apply invoke "make" "install"
+                            ;; Install example configuration to the store, not
+                            ;; /etc.  These don't inherit from each other, so
+                            ;; we need both.
+                            (string-append "scanbdconfdir="  conf)
+                            (string-append "scannerconfdir=" conf "/scanner.d")
+                            make-flags))))
+               (add-after 'install 'install-extra-documentation
+                 ;; The README provides more detailed set-up instructions than
+                 ;; the man page.
+                 (lambda _
+                   (let ((doc (string-append #$output "/share/doc/"
+                                             #$name "-" #$version)))
+                     (install-file "doc/README.txt" doc)))))))
     (native-inputs
      (list pkg-config))
     (inputs