amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00: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
Download patch file Download diff file Expand all files Collapse all files

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

@ -3392,22 +3392,30 @@ filters, new key bindings and faces. It can be enabled by
(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
#~(modify-phases %standard-phases
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((file "djvu.el") (let ((file "djvu.el"))
(djview (assoc-ref inputs "djview"))
(djvulibre (assoc-ref inputs "djvulibre")))
;; Specify the absolute executable locations. ;; Specify the absolute executable locations.
(chmod file #o644) (make-file-writable file)
(substitute* file (substitute* file
(("\"djvused\"") (string-append "\"" djvulibre "/bin/djvused\"")) (("\"djvused\"")
(("\"djvm\"") (string-append "\"" djvulibre "/bin/djvm\"")) (string-append "\""
(("\"ddjvu\"") (string-append "\"" djvulibre "/bin/ddjvu\""))) (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 (emacs-substitute-variables file
("djvu-djview-command" (string-append djview "/bin/djview")))) ("djvu-djview-command"
#t))))) (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