diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-23 04:01:37 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-23 04:44:03 -0400 |
| commit | ff440d62dc67e6483c65aac470a8fe28bbd54917 (patch) | |
| tree | 1d568ab805e006a506e5a9cd5956b115648b7189 | |
| parent | 2762023aad7c1e3d032810302d4c96b7070ba4be (diff) | |
| download | guix-ff440d62dc67e6483c65aac470a8fe28bbd54917.tar.gz guix-ff440d62dc67e6483c65aac470a8fe28bbd54917.zip | |
gnu: texlive-fonts-cm: Use invoke.
* gnu/packages/tex.scm (texlive-fonts-cm)[arguments]: Use invoke and remove
vestigial plumbing.
| -rw-r--r-- | gnu/packages/tex.scm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index c8a293b4de..6d3ec93a16 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -558,17 +558,18 @@ documents.") (string-append (getcwd) ":" mf "/share/texmf-dist/metafont/base"))) (mkdir "build") - (every (lambda (font) - (format #t "building font ~a\n" font) - (zero? (system* "mf" "-progname=mf" - "-output-directory=build" - (string-append "\\" - "mode:=ljfour; " - "mag:=1; " - "batchmode; " - "input " - (basename font ".mf"))))) - (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")))) + (for-each (lambda (font) + (format #t "building font ~a\n" font) + (invoke "mf" "-progname=mf" + "-output-directory=build" + (string-append "\\" + "mode:=ljfour; " + "mag:=1; " + "batchmode; " + "input " + (basename font ".mf")))) + (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")) + #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) |