mhw pushed a commit to branch core-updates
in repository guix.
commit 2762023aad7c1e3d032810302d4c96b7070ba4be
Author: Mark H Weaver <[email protected]>
Date: Fri Mar 23 03:59:55 2018 -0400
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.
---
gnu/packages/tex.scm | 27 ++++++++++++++-------------
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 9fcf317..c8a293b 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -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"))
