diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-07-07 23:38:26 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-07-18 18:16:51 +0200 |
| commit | f34a65420635d7c776157e56fc65e1b408b1c9e4 (patch) | |
| tree | e160b7860ec3e0dad0a788d9bf002d7e83a8a7df /gnu/packages | |
| parent | 3729c3adf7f63f9b54e75dab8ec6f56fb7eabc82 (diff) | |
| download | guix-f34a65420635d7c776157e56fc65e1b408b1c9e4.tar.gz guix-f34a65420635d7c776157e56fc65e1b408b1c9e4.zip | |
gnu: emacs-auctex: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-auctex)[arguments]: Use G-expressions.
<#:include>: Use %DEFAULT-INCLUDE.
<#:exclude>: Use %DEFAULT-EXCLUDE.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 51 |
1 files changed, 26 insertions, 25 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 06ba293365..550e5d2a65 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -3952,31 +3952,32 @@ 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") - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs #:allow-other-keys) - (emacs-substitute-variables "preview.el" - ("preview-gs-command" - (search-input-file inputs "/bin/gs"))) - ;; Leave "dvipng" and "dvips" executables as-is. Otherwise, this - ;; would require to add a TeX Live system to inputs, which is - ;; much for an Emacs package. - (substitute* "preview.el" - (("\"pdf2dsc ") - (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))) - (with-directory-excursion "doc" - (setenv "HOME" (getenv "TMPDIR")) ; for mktextfm - (invoke "pdftex" "tex-ref") - (install-file "tex-ref.pdf" doc-dir)))))))) + (list + #:emacs emacs + #:include #~(cons* "^images/" "^latex/" %default-include) + #:exclude #~(cons "^latex/README" %default-exclude) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs #:allow-other-keys) + (emacs-substitute-variables "preview.el" + ("preview-gs-command" + (search-input-file inputs "/bin/gs"))) + ;; Leave "dvipng" and "dvips" executables as-is. Otherwise, this + ;; would require to add a TeX Live system to inputs, which is + ;; much for an Emacs package. + (substitute* "preview.el" + (("\"pdf2dsc ") + (let ((pdf2dsc (search-input-file inputs "/bin/pdf2dsc"))) + (string-append "\"" pdf2dsc " ")))))) + (add-after 'install 'install-doc + (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") + (install-file "tex-ref.pdf" doc-dir)))))))) (native-inputs (list perl (texlive-updmap.cfg))) (inputs |