me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-auctex: Improve package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-auctex)[arguments]: Use G-expressions.
<#:include>: Use %DEFAULT-INCLUDE.
<#:exclude>: Use %DEFAULT-EXCLUDE.
This commit is contained in:
Nicolas Goaziou 2023-07-07 23:38:26 +02:00
parent 3729c3adf7
commit f34a654206
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 26 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3952,11 +3952,12 @@ as a library for other Emacs packages.")
;; We use 'emacs' because AUCTeX requires dbus at compile time
;; ('emacs-minimal' does not provide dbus).
(arguments
`(#:emacs ,emacs
#:include '("\\.el$" "^images/" "^latex/" "\\.info$")
#:exclude '("^tests/" "^latex/README")
(list
#:emacs emacs
#:include #~(cons* "^images/" "^latex/" %default-include)
#:exclude #~(cons "^latex/README" %default-exclude)
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'unpack 'configure
(lambda* (#:key inputs #:allow-other-keys)
(emacs-substitute-variables "preview.el"
@ -3970,9 +3971,9 @@ as a library for other Emacs packages.")
(let ((pdf2dsc (search-input-file inputs "/bin/pdf2dsc")))
(string-append "\"" pdf2dsc " "))))))
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc-dir (string-append out "/share/doc/" ,name "-" ,version)))
(lambda _
(let ((doc-dir (string-append #$output "/share/doc/"
#$name "-" #$version)))
(with-directory-excursion "doc"
(setenv "HOME" (getenv "TMPDIR")) ; for mktextfm
(invoke "pdftex" "tex-ref")