diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-23 04:06:57 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-23 04:44:21 -0400 |
| commit | 806faaabd12c5d68f2a37e13ab53fdd69cfa7850 (patch) | |
| tree | de862ae39ccca814be7f9cb7f4273e8fdce23193 /gnu/packages/tex.scm | |
| parent | 849527e5316172524aa85db4f55174819aaf6caf (diff) | |
| download | guix-806faaabd12c5d68f2a37e13ab53fdd69cfa7850.tar guix-806faaabd12c5d68f2a37e13ab53fdd69cfa7850.tar.gz | |
gnu: texlive-fonts-latex: Use invoke.
* gnu/packages/tex.scm (texlive-fonts-latex)[arguments]: Use invoke and remove
vestigial plumbing from the build phase.
Diffstat (limited to 'gnu/packages/tex.scm')
| -rw-r--r-- | gnu/packages/tex.scm | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 056039b661..143ea2d263 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -694,20 +694,21 @@ fonts.") (assoc-ref inputs "texlive-fonts-cm") "/share/texmf-dist/fonts/source/public/cm"))) (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 " font)))) - '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8" - "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8" - "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10" - "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8" - "line10" "linew10")))) + (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 " font))) + '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8" + "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8" + "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10" + "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8" + "line10" "linew10")) + #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) |