summaryrefslogtreecommitdiff
path: root/gnu/packages/scanner.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2022-01-16 01:00:01 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2022-01-16 01:00:01 +0100
commit2ea9a977fe108079ca401a322b285c4c7f971c47 (patch)
tree8bf23330c07e0de975a26727136dbf8301c9ca14 /gnu/packages/scanner.scm
parent06bf24dcb9843c1885f892624b8a19046b9d2ca2 (diff)
gnu: scanbd: Use G-expressions.
* gnu/packages/scanner.scm (scanbd)[arguments]: Rewrite as G-expressions.
Diffstat (limited to 'gnu/packages/scanner.scm')
-rw-r--r--gnu/packages/scanner.scm45
1 files 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