nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: texlive-latex-base: Use invoke. 

* gnu/packages/tex.scm (texlive-latex-base)[arguments]: Use invoke and remove
vestigial plumbing.
This commit is contained in:
Mark H Weaver 2018-03-23 04:10:00 -04:00
parent d8ac82c209
commit 4f2f53f939
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 29 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/tex.scm
View File

@ -949,37 +949,35 @@ book).")
(mkdir "build") (mkdir "build")
(mkdir "web2c") (mkdir "web2c")
(and (invoke "luatex" "-ini" "-interaction=batchmode" (invoke "luatex" "-ini" "-interaction=batchmode"
"-output-directory=build" "unpack.ins") "-output-directory=build" "unpack.ins")
(invoke "tex" "-ini" "-interaction=batchmode" (invoke "tex" "-ini" "-interaction=batchmode"
"-output-directory=web2c" "tex.ini") "-output-directory=web2c" "tex.ini")
;; LaTeX, pdfetex/pdftex, and XeTeX require e-TeX, which ;; LaTeX, pdfetex/pdftex, and XeTeX require e-TeX, which
;; is enabled only in extended mode (activated with a ;; is enabled only in extended mode (activated with a
;; 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.
(every (for-each (lambda (format)
(lambda (format) (invoke "latex" "-ini" "-interaction=batchmode"
(invoke "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"
'("latex" "pdflatex"
"pdflatex" "pdfetex"))
"pdfetex")) (for-each (lambda (format)
(every (invoke format "-ini" "-interaction=batchmode"
(lambda (format) "-output-directory=web2c"
(invoke format "-ini" "-interaction=batchmode" (string-append "*" format ".ini")))
"-output-directory=web2c" '("xetex"
(string-append "*" format ".ini"))) "xelatex"))
'("xetex" (for-each (lambda (format)
"xelatex")) (invoke "luatex" "-ini" "-interaction=batchmode"
(every "-output-directory=web2c"
(lambda (format) (string-append format ".ini")))
(invoke "luatex" "-ini" "-interaction=batchmode" '("dviluatex" "dvilualatex" "luatex" "lualatex"))
"-output-directory=web2c" #t))
(string-append format ".ini")))
'("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"))