diff options
| -rw-r--r-- | gnu/packages/tex.scm | 45 |
1 files changed, 1 insertions, 44 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index b777c935b3..175c5e1b84 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -7271,50 +7271,7 @@ package options.") "1cyi0vv9dnp45s0ilsrbkyznj9ji62s5bhkqgh49461mv2f8qj6p"))) (outputs '("out" "doc")) (build-system texlive-build-system) - (arguments - (list - #:modules - '((guix build texlive-build-system) - (guix build utils) - (srfi srfi-1) - (srfi srfi-26)) - #:phases - #~(modify-phases %standard-phases - (add-before 'install 're-generate-fonts-metrics - (lambda _ - (let ((mf #$(this-package-native-input "texlive-metafont")) - (cm #$(this-package-native-input "texlive-cm")) - (root (getcwd))) - (mkdir-p "build") - (with-directory-excursion "fonts/source/jknappen/ec" - ;; Tell mf where to find mf.base. - (setenv "MFBASES" - (string-append mf "/share/texmf-dist/web2c")) - ;; Tell mf where to look for source files. - (setenv "MFINPUTS" - (string-append - (getcwd) ":" - mf "/share/texmf-dist/metafont/base:" - cm "/share/texmf-dist/fonts/source/public/cm")) - ;; Build font metrics (tfm). - (for-each (lambda (font) - (format #t "building font ~a\n" font) - (invoke "mf" "-progname=mf" - (string-append "-output-directory=" - root "/build") - (string-append "\\" - "mode:=ljfour; " - "mag:=1; " - "batchmode; " - "input " - (basename font ".mf")))) - (find-files "." "[0-9]+\\.mf$"))) - ;; Install font metrics at the appropriate location. - (for-each - (cut install-file <> "fonts/tfm/jknappen/ec") - (find-files "build/" "\\.tfm$")))))))) - (native-inputs - (list texlive-bin texlive-cm texlive-metafont)) + (native-inputs (list texlive-cm texlive-metafont)) (home-page "https://ctan.org/pkg/ec") (synopsis "Computer modern fonts in T1 and TS1 encodings") (description |