nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: texlive-amsfonts: Build .ins file instead of installing fonts twice. 

* gnu/packages/tex.scm (texlive-amsfonts)[arguments]: Override build targets;
rename font build directory to avoid installing it a second time.
This commit is contained in:
Ricardo Wurmus 2019-07-24 18:25:12 +02:00
parent a6405e0333
commit d350d5e714
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/tex.scm
View File

@ -1045,6 +1045,8 @@ Taco Hoekwater.")
(inherit template)
(arguments
(substitute-keyword-arguments (package-arguments template)
((#:build-targets _ #t)
'(list "amsfonts.ins"))
((#:tex-directory _ #t)
"latex/amsfonts")
((#:modules modules '())
@ -1073,7 +1075,7 @@ Taco Hoekwater.")
mf "/share/texmf-dist/metafont/base:"
(assoc-ref inputs "texlive-cm")
"/share/texmf-dist/fonts/source/public/cm")))
(let ((build (string-append (getcwd) "/build")))
(let ((build (string-append (getcwd) "/build-fonts")))
(mkdir-p build)
(with-directory-excursion "fonts/source/public/amsfonts"
(for-each (lambda (font)
@ -1092,7 +1094,7 @@ Taco Hoekwater.")
;; There are no metafont sources for the Euler fonts, so we
;; convert the afm files instead.
(let ((build (string-append (getcwd) "/build/euler")))
(let ((build (string-append (getcwd) "/build-fonts/euler")))
(mkdir build)
(with-directory-excursion "fonts/afm/public/amsfonts/"
(for-each (lambda (font)
@ -1107,9 +1109,10 @@ Taco Hoekwater.")
;; eufm10.afm to eufm8.pl, and then generate the tfm file from
;; the pl file.
(setenv "TEXINPUTS"
(string-append build "//:"
(getcwd) "/fonts/afm/public/amsfonts//:"
(assoc-ref inputs "texlive-union") "//"))
(string-append build "//:"
(getcwd) "/fonts/afm/public/amsfonts//:"
(getcwd) "/source/latex/amsfonts//:"
(assoc-ref inputs "texlive-union") "//"))
(with-directory-excursion build
(for-each (match-lambda
(((target-base target-size)
@ -1148,7 +1151,7 @@ Taco Hoekwater.")
#t))
(add-after 'install 'install-generated-fonts
(lambda* (#:key inputs outputs #:allow-other-keys)
(copy-recursively "build"
(copy-recursively "build-fonts"
(string-append
(assoc-ref outputs "out")
"/share/texmf-dist/fonts/tfm/public/amsfonts"))