mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-22 02:07:56 +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)
(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