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")
"/share/texmf-dist/fonts/source/public/cm")))
(mkdir "build")
(every (lambda (font)
(format #t "building font ~a\n" (basename font ".mf"))
(with-directory-excursion (dirname font)
(zero? (system* "mf" "-progname=mf"
"-output-directory=../build"
(string-append "\\"
"mode:=ljfour; "
"mag:=1; "
"nonstopmode; "
"input "
(getcwd) "/"
(basename font ".mf"))))))
(find-files "." "[0-9]+\\.mf$"))))
(for-each (lambda (font)
(format #t "building font ~a\n" (basename font ".mf"))
(with-directory-excursion (dirname font)
(invoke "mf" "-progname=mf"
"-output-directory=../build"
(string-append "\\"
"mode:=ljfour; "
"mag:=1; "
"nonstopmode; "
"input "
(getcwd) "/"
(basename font ".mf")))))
(find-files "." "[0-9]+\\.mf$"))
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))