me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Mark H Weaver 2018-03-23 03:59:55 -04:00
parent 24fe4b596d
commit 2762023aad
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gnu/packages/tex.scm
View File

@ -773,19 +773,20 @@ symbol 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" (basename font ".mf")) (format #t "building font ~a\n" (basename font ".mf"))
(with-directory-excursion (dirname font) (with-directory-excursion (dirname 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; "
"nonstopmode; " "nonstopmode; "
"input " "input "
(getcwd) "/" (getcwd) "/"
(basename font ".mf")))))) (basename font ".mf")))))
(find-files "." "[0-9]+\\.mf$")))) (find-files "." "[0-9]+\\.mf$"))
#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"))