me/guix
Archived
1
0
Fork 0
Code Activity

gnu: scanbd: Use G-expressions.

Browse source 
* gnu/packages/scanner.scm (scanbd)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-16 01:00:01 +01:00
parent 06bf24dcb9
commit 2ea9a977fe
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 22 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/scanner.scm
View file

@ -263,28 +263,27 @@ package contains the library and drivers.")))
(base32 "0pvy4qirfjdfm8aj6x5rkbgl7hk3jfa2s21qkk8ic5dqfjjab75n"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "--disable-debug"
(list #:configure-flags
#~(list "--disable-debug"
"--sysconfdir=/etc")
#:phases
(modify-phases %standard-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")))
(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.
;; 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)))
;; 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))