mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-02-07 03:20:04 +01:00
gnu: emacs-org-inline-pdf: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-org-inline-pdf)[arguments]: Use G-expressions. Use SEARCH-INPUT-FILE.
This commit is contained in:
parent
03de9b587a
commit
ea34c09bc2
1 changed files with 8 additions and 7 deletions
|
@ -6884,13 +6884,14 @@ allrecipes.com.")
|
|||
(inputs
|
||||
(list pdf2svg))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-exec-paths
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((pdf2svg (assoc-ref inputs "pdf2svg")))
|
||||
(substitute* "org-inline-pdf.el"
|
||||
(("\"pdf2svg\"") (string-append "\"" pdf2svg "/bin/pdf2svg\"")))))))))
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-exec-paths
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((pdf2svg (search-input-file inputs "/bin/pdf2svg")))
|
||||
(substitute* "org-inline-pdf.el"
|
||||
(("\"pdf2svg\"") (string-append "\"" pdf2svg "\"")))))))))
|
||||
(home-page "https://github.com/shg/org-inline-pdf.el")
|
||||
(synopsis "Inline PDF previewing for Org")
|
||||
(description "This package provides a minor mode that enables
|
||||
|
|
Loading…
Add table
Reference in a new issue