diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-09 15:49:04 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-09 15:49:04 +0100 |
| commit | 634d95be2208397882f9c74b01f09dc52ffde498 (patch) | |
| tree | 45df5a185e9694ffb4771587984b6254d7b9f464 /gnu | |
| parent | 1ef73d5bea6215b1172c296063b9c5b94a4d849d (diff) | |
| download | guix-634d95be2208397882f9c74b01f09dc52ffde498.tar.gz | |
gnu: emacs-djvu: Use new package style.
* gnu/packages/emacs-xyz.scm (emacs-djvu)[arguments]<#:phases>: Use G-expressions. Use SEARCH-INPUT-FILE instead of ASSOC-REF. Remove trailing #T.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 40 |
1 files changed, 24 insertions, 16 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 92aebf2089..92c247ca38 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -3392,22 +3392,30 @@ filters, new key bindings and faces. It can be enabled by (build-system emacs-build-system) (inputs (list djview djvulibre)) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((file "djvu.el") - (djview (assoc-ref inputs "djview")) - (djvulibre (assoc-ref inputs "djvulibre"))) - ;; Specify the absolute executable locations. - (chmod file #o644) - (substitute* file - (("\"djvused\"") (string-append "\"" djvulibre "/bin/djvused\"")) - (("\"djvm\"") (string-append "\"" djvulibre "/bin/djvm\"")) - (("\"ddjvu\"") (string-append "\"" djvulibre "/bin/ddjvu\""))) - (emacs-substitute-variables file - ("djvu-djview-command" (string-append djview "/bin/djview")))) - #t))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let ((file "djvu.el")) + ;; Specify the absolute executable locations. + (make-file-writable file) + (substitute* file + (("\"djvused\"") + (string-append "\"" + (search-input-file inputs "/bin/djvused") + "\"")) + (("\"djvm\"") + (string-append "\"" + (search-input-file inputs "/bin/djvm") + "\"")) + (("\"ddjvu\"") + (string-append "\"" + (search-input-file inputs "/bin/ddjvu") + "\""))) + (emacs-substitute-variables file + ("djvu-djview-command" + (search-input-file inputs "/bin/djview"))))))))) (home-page "http://elpa.gnu.org/packages/djvu.html") (synopsis "Edit and view Djvu files via djvused") (description |