me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-latex-base: Use 'invoke'.

Browse source 
* gnu/packages/tex.scm (texlive-latex-base)[arguments]: Replace
'system*' with 'invoke'.
This commit is contained in:
Efraim Flashner 2018-03-13 22:52:05 +02:00
parent 8d514ae753
commit 8d32139df0
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 14 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/tex.scm
View file

@ -946,12 +946,10 @@ book).")
(mkdir "build") (mkdir "build")
(mkdir "web2c") (mkdir "web2c")
(and (zero? (system* "luatex" "-ini" "-interaction=batchmode" (and (invoke "luatex" "-ini" "-interaction=batchmode"
"-output-directory=build" "-output-directory=build" "unpack.ins")
"unpack.ins")) (invoke "tex" "-ini" "-interaction=batchmode"
(zero? (system* "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,
@ -959,25 +957,25 @@ book).")
;; incompatible with any other TeX engine. ;; incompatible with any other TeX engine.
(every (every
(lambda (format) (lambda (format)
(zero? (system* "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"))
(every (every
(lambda (format) (lambda (format)
(zero? (system* format "-ini" "-interaction=batchmode" (invoke format "-ini" "-interaction=batchmode"
"-output-directory=web2c" "-output-directory=web2c"
(string-append "*" format ".ini")))) (string-append "*" format ".ini")))
'("xetex" '("xetex"
"xelatex")) "xelatex"))
(every (every
(lambda (format) (lambda (format)
(zero? (system* "luatex" "-ini" "-interaction=batchmode" (invoke "luatex" "-ini" "-interaction=batchmode"
"-output-directory=web2c" "-output-directory=web2c"
(string-append format ".ini")))) (string-append format ".ini")))
'("dviluatex" "dvilualatex" "luatex" "lualatex"))))) '("dviluatex" "dvilualatex" "luatex" "lualatex")))))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)