ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-18 20:57:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

45
gnu/packages/scanner.scm
View file

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