gnu: texlive-texmf: Use invoke instead of system*.

* gnu/packages/tex.scm (texlive-texmf)[arguments]: Use invoke instead of
system*, and return #t from all phases.
This commit is contained in:
Mark H Weaver 2018-04-12 03:40:24 -04:00
parent d582d925e5
commit 286eedeca0
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 5 additions and 4 deletions

View File

@ -3936,7 +3936,7 @@ directly generate PDF documents instead of DVI.")
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((share (string-append (assoc-ref outputs "out") "/share"))) (let ((share (string-append (assoc-ref outputs "out") "/share")))
(mkdir-p share) (mkdir-p share)
(system* "mv" "texmf-dist" share)))) (invoke "mv" "texmf-dist" share))))
(add-after 'install 'texmf-config (add-after 'install 'texmf-config
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -3964,9 +3964,10 @@ directly generate PDF documents instead of DVI.")
;; http://slackbuilds.org/repository/13.37/office/texlive/ ;; http://slackbuilds.org/repository/13.37/office/texlive/
(setenv "PATH" (string-append (getenv "PATH") ":" texbin)) (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
(setenv "TEXMFCNF" texmfroot) (setenv "TEXMFCNF" texmfroot)
(system* "updmap-sys" "--nohash" "--syncwithtrees") (invoke "updmap-sys" "--nohash" "--syncwithtrees")
(system* "mktexlsr") (invoke "mktexlsr")
(system* "fmtutil-sys" "--all"))))))) (invoke "fmtutil-sys" "--all")
#t))))))
(properties `((max-silent-time . 9600))) ; don't time out while grafting (properties `((max-silent-time . 9600))) ; don't time out while grafting
(synopsis "TeX Live, a package of the TeX typesetting system") (synopsis "TeX Live, a package of the TeX typesetting system")
(description (description