TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: texlive-fonts-cm: Use invoke.

Browse source 
* gnu/packages/tex.scm (texlive-fonts-cm)[arguments]: Use invoke and remove
vestigial plumbing.
This commit is contained in:
Mark H Weaver 2018-03-23 04:01:37 -04:00
parent 2762023aad
commit ff440d62dc
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/tex.scm
View file

@ -558,17 +558,18 @@ (define-public texlive-fonts-cm
(string-append (getcwd) ":"
mf "/share/texmf-dist/metafont/base")))
(mkdir "build")
(every (lambda (font)
(format #t "building font ~a\n" font)
(zero? (system* "mf" "-progname=mf"
"-output-directory=build"
(string-append "\\"
"mode:=ljfour; "
"mag:=1; "
"batchmode; "
"input "
(basename font ".mf")))))
(find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
(for-each (lambda (font)
(format #t "building font ~a\n" font)
(invoke "mf" "-progname=mf"
"-output-directory=build"
(string-append "\\"
"mode:=ljfour; "
"mag:=1; "
"batchmode; "
"input "
(basename font ".mf"))))
(find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))