me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-auctex: Fix build. 

* gnu/packages/emacs-xyz.scm (emacs-auctex)[arguments]<#phases>: Use "dvipng"
and "dvips" from cache.  Fix destination for refcard.
[native-inputs]: Add TEXLIVE-UPDMAP.CFG.
Nicolas Goaziou 2023-07-07 23:32:56 +02:00
parent e7b08e13fa
commit 3729c3adf7
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/emacs-xyz.scm
View File

@ -3962,28 +3962,23 @@ as a library for other Emacs packages.")
(emacs-substitute-variables "preview.el" (emacs-substitute-variables "preview.el"
("preview-gs-command" ("preview-gs-command"
(search-input-file inputs "/bin/gs"))) (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" (substitute* "preview.el"
(("\"dvipng ")
(let ((dvipng (search-input-file inputs "/bin/dvipng")))
(string-append "\"" dvipng " ")))
(("\"dvips ")
(let ((dvips (search-input-file inputs "/bin/dvips")))
(string-append "\"" dvips " ")))
(("\"pdf2dsc ") (("\"pdf2dsc ")
(let ((pdf2dsc (search-input-file inputs "/bin/pdf2dsc"))) (let ((pdf2dsc (search-input-file inputs "/bin/pdf2dsc")))
(string-append "\"" pdf2dsc " ")))))) (string-append "\"" pdf2dsc " "))))))
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(etc-dir (string-append out "/share/" ,name "/" (doc-dir (string-append out "/share/doc/" ,name "-" ,version)))
,version "/etc")))
(with-directory-excursion "doc" (with-directory-excursion "doc"
(setenv "HOME" (getenv "TMPDIR")) ; for mktextfm (setenv "HOME" (getenv "TMPDIR")) ; for mktextfm
(invoke "pdftex" "tex-ref") (invoke "pdftex" "tex-ref")
(install-file "tex-ref.pdf" (install-file "tex-ref.pdf" doc-dir))))))))
(string-append etc-dir "/refcards")))))))))
(native-inputs (native-inputs
(list perl)) (list perl (texlive-updmap.cfg)))
(inputs (inputs
(list ghostscript)) (list ghostscript))
(home-page "https://www.gnu.org/software/auctex/") (home-page "https://www.gnu.org/software/auctex/")