me
/
guix
Archived
1
0
Fork 0

gnu: texlive-fonts-latex: Use invoke.

* gnu/packages/tex.scm (texlive-fonts-latex)[arguments]: Use invoke and remove
vestigial plumbing from the build phase.
master
Mark H Weaver 2018-03-23 04:06:57 -04:00
parent 849527e531
commit 806faaabd1
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 15 additions and 14 deletions

View File

@ -694,20 +694,21 @@ fonts.")
(assoc-ref inputs "texlive-fonts-cm") (assoc-ref inputs "texlive-fonts-cm")
"/share/texmf-dist/fonts/source/public/cm"))) "/share/texmf-dist/fonts/source/public/cm")))
(mkdir "build") (mkdir "build")
(every (lambda (font) (for-each (lambda (font)
(format #t "building font ~a\n" font) (format #t "building font ~a\n" font)
(zero? (system* "mf" "-progname=mf" (invoke "mf" "-progname=mf"
"-output-directory=build" "-output-directory=build"
(string-append "\\" (string-append "\\"
"mode:=ljfour; " "mode:=ljfour; "
"mag:=1; " "mag:=1; "
"batchmode; " "batchmode; "
"input " font)))) "input " font)))
'("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8" '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
"ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8" "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
"lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10" "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
"lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8" "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
"line10" "linew10")))) "line10" "linew10"))
#t))
(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"))