gnu: texlive-latex-base: Fix xetex and xelatex formats.
* gnu/packages/tex.scm (texlive-latex-base)[arguments]: Build xetex and xelatex formats with matching interpreters.
This commit is contained in:
parent
bb3b35975c
commit
702f23b3b8
|
@ -743,25 +743,28 @@ (define-public texlive-latex-base
|
||||||
;; leading asterisk). We should not use luatex here,
|
;; leading asterisk). We should not use luatex here,
|
||||||
;; because that would make the generated format files
|
;; because that would make the generated format files
|
||||||
;; incompatible with any other TeX engine.
|
;; incompatible with any other TeX engine.
|
||||||
|
|
||||||
;; FIXME: XeTeX fails to build because neither
|
|
||||||
;; \XeTeXuseglyphmetrics nor \XeTeXdashbreakstate are
|
|
||||||
;; defined.
|
|
||||||
(every
|
(every
|
||||||
(lambda (format)
|
(lambda (format)
|
||||||
(zero? (system* "latex" "-ini" "-interaction=batchmode"
|
(zero? (system* "latex" "-ini" "-interaction=batchmode"
|
||||||
"-output-directory=web2c"
|
"-output-directory=web2c"
|
||||||
"-translate-file=cp227.tcx"
|
"-translate-file=cp227.tcx"
|
||||||
(string-append "*" format ".ini"))))
|
(string-append "*" format ".ini"))))
|
||||||
'("latex" ;"xetex"
|
'("latex"
|
||||||
"pdflatex"
|
"pdflatex"
|
||||||
"pdfetex"))
|
"pdfetex"))
|
||||||
|
(every
|
||||||
|
(lambda (format)
|
||||||
|
(zero? (system* format "-ini" "-interaction=batchmode"
|
||||||
|
"-output-directory=web2c"
|
||||||
|
(string-append "*" format ".ini"))))
|
||||||
|
'("xetex"
|
||||||
|
"xelatex"))
|
||||||
(every
|
(every
|
||||||
(lambda (format)
|
(lambda (format)
|
||||||
(zero? (system* "luatex" "-ini" "-interaction=batchmode"
|
(zero? (system* "luatex" "-ini" "-interaction=batchmode"
|
||||||
"-output-directory=web2c"
|
"-output-directory=web2c"
|
||||||
(string-append format ".ini"))))
|
(string-append format ".ini"))))
|
||||||
'("dviluatex" "dvilualatex" "luatex" "lualatex" "xelatex")))))
|
'("dviluatex" "dvilualatex" "luatex" "lualatex")))))
|
||||||
(replace 'install
|
(replace 'install
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
|
Loading…
Reference in a new issue