diff options
author | Mark H Weaver <mhw@netris.org> | 2018-03-23 03:59:55 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2018-03-23 04:43:58 -0400 |
commit | 2762023aad7c1e3d032810302d4c96b7070ba4be (patch) | |
tree | bb8db124a15301bdc9e983213ef5af789c5431f7 | |
parent | 24fe4b596d004bca179b2e55bc3071e5f8e7891f (diff) | |
download | guix-patches-2762023aad7c1e3d032810302d4c96b7070ba4be.tar guix-patches-2762023aad7c1e3d032810302d4c96b7070ba4be.tar.gz |
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.
-rw-r--r-- | gnu/packages/tex.scm | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 9fcf31752d..c8a293b4de 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")) |