gnu: texlive-fonts-amsfonts: Use invoke.
* gnu/packages/tex.scm (texlive-fonts-amsfonts)[arguments]: Use invoke and remove vestigial plumbing in the custom build phase.
This commit is contained in:
parent
24fe4b596d
commit
2762023aad
|
@ -773,10 +773,10 @@ symbol fonts.")
|
|||
(assoc-ref inputs "texlive-fonts-cm")
|
||||
"/share/texmf-dist/fonts/source/public/cm")))
|
||||
(mkdir "build")
|
||||
(every (lambda (font)
|
||||
(for-each (lambda (font)
|
||||
(format #t "building font ~a\n" (basename font ".mf"))
|
||||
(with-directory-excursion (dirname font)
|
||||
(zero? (system* "mf" "-progname=mf"
|
||||
(invoke "mf" "-progname=mf"
|
||||
"-output-directory=../build"
|
||||
(string-append "\\"
|
||||
"mode:=ljfour; "
|
||||
|
@ -784,8 +784,9 @@ symbol fonts.")
|
|||
"nonstopmode; "
|
||||
"input "
|
||||
(getcwd) "/"
|
||||
(basename font ".mf"))))))
|
||||
(find-files "." "[0-9]+\\.mf$"))))
|
||||
(basename font ".mf")))))
|
||||
(find-files "." "[0-9]+\\.mf$"))
|
||||
#t))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
|
|
Loading…
Reference in New Issue