mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 23:36:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-djvu: Use new package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-djvu)[arguments]<#:phases>: Use
G-expressions. Use SEARCH-INPUT-FILE instead of ASSOC-REF.  Remove trailing #T.
This commit is contained in:
Nicolas Goaziou 2022-02-09 15:49:04 +01:00
parent 1ef73d5bea
commit 634d95be22
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 24 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
gnu/packages/emacs-xyz.scm
View file

@ -3392,22 +3392,30 @@ (define-public emacs-djvu
(build-system emacs-build-system) (build-system emacs-build-system)
(inputs (list djview djvulibre)) (inputs (list djview djvulibre))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'unpack 'configure #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'unpack 'configure
(let ((file "djvu.el") (lambda* (#:key inputs #:allow-other-keys)
(djview (assoc-ref inputs "djview")) (let ((file "djvu.el"))
(djvulibre (assoc-ref inputs "djvulibre"))) ;; Specify the absolute executable locations.
;; Specify the absolute executable locations. (make-file-writable file)
(chmod file #o644) (substitute* file
(substitute* file (("\"djvused\"")
(("\"djvused\"") (string-append "\"" djvulibre "/bin/djvused\"")) (string-append "\""
(("\"djvm\"") (string-append "\"" djvulibre "/bin/djvm\"")) (search-input-file inputs "/bin/djvused")
(("\"ddjvu\"") (string-append "\"" djvulibre "/bin/ddjvu\""))) "\""))
(emacs-substitute-variables file (("\"djvm\"")
("djvu-djview-command" (string-append djview "/bin/djview")))) (string-append "\""
#t))))) (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") (home-page "http://elpa.gnu.org/packages/djvu.html")
(synopsis "Edit and view Djvu files via djvused") (synopsis "Edit and view Djvu files via djvused")
(description (description