futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: emacs-calibredb: Update package style.

Browse Source 
* gnu/packages/emacs-xyz.scm (emacs-calibredb)[arguments]: Use G-expressions
and SEARCH-INPUT-FILE.
This commit is contained in:
Nicolas Goaziou 2022-07-11 10:52:22 +02:00
parent a3fa82ddea
commit 3d363715fa
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/emacs-xyz.scm
View File

@ -26630,17 +26630,18 @@ all of your projects, then override or add variables on a per-project basis.")
(base32 "1l30s3wv21mpybbxni5fziq2awai9k60i87s6fid56hg262r7jp0"))))
(build-system emacs-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((calibre (assoc-ref inputs "calibre")))
(make-file-writable "calibredb-core.el")
(emacs-substitute-variables "calibredb-core.el"
("calibredb-program"
(string-append calibre "/bin/calibredb"))
("calibredb-fetch-metadata-program"
(string-append calibre "/bin/fetch-ebook-metadata")))))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(make-file-writable "calibredb-core.el")
(let ((calibredb (search-input-file inputs "/bin/calibredb"))
(fetch-ebook-metadata
(search-input-file inputs "/bin/fetch-ebook-metadata")))
(emacs-substitute-variables "calibredb-core.el"
("calibredb-fetch-metadata-program" fetch-ebook-metadata)
("calibredb-program" calibredb))))))))
(inputs
(list calibre))
(propagated-inputs