me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-knuth-lib: Fix build.

Browse source 
* gnu/packages/tex.scm (texlive-knuth-lib)[arguments]<#:modules>: Remove them.
<#:phases>: Remove them.
This commit is contained in:
Nicolas Goaziou 2023-05-19 16:31:20 +02:00
parent dc87a11f9e
commit c6d117f867
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 1 additions and 57 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/tex.scm
View file

@ -1446,63 +1446,7 @@ conversion software and word processors.")
(base32 (base32
"0dl8z340n6m6xn7wari4hir0syxqi0kl2fhnf0bvnmkqhqwyzpca"))) "0dl8z340n6m6xn7wari4hir0syxqi0kl2fhnf0bvnmkqhqwyzpca")))
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (arguments (list #:texlive-latex-base #f))
(list
#:texlive-latex-base #f
#:modules
'((guix build texlive-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-26))
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'generate-fonts-metrics
(lambda _
(let ((cm #$(this-package-native-input "texlive-cm"))
(metafont #$(this-package-native-input "texlive-metafont"))
(fonts-directories
(delete-duplicates
(map (lambda (f)
(string-drop (dirname f) (string-length "./")))
(find-files "." "[0-9]+\\.mf$"))))
(root (getcwd)))
(mkdir-p "build")
;; Tell mf where to find mf.base.
(setenv "MFBASES"
(string-append metafont "/share/texmf-dist/web2c/"))
(for-each
(lambda (directory)
;; Tell mf where to look for source files.
(setenv "MFINPUTS"
(string-append
(getcwd) "/" directory ":"
metafont "/share/texmf-dist/metafont/base/:"
cm "/share/texmf-dist/fonts/source/public/cm/"))
;; Build font metrics (tfm).
(with-directory-excursion directory
(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.
(let ((destination
;; fonts/source/xxx/yyy/... -> fonts/tfm/xxx/yyy/...
(string-append "fonts/tfm"
(string-drop
directory
(string-length "fonts/source")))))
(format #t "moving font metrics in ~a\n" destination)
(for-each (cut install-file <> destination)
(find-files "build/" "\\.tfm$"))))
fonts-directories)))))))
(native-inputs (list texlive-cm texlive-metafont)) (native-inputs (list texlive-cm texlive-metafont))
(home-page "https://ctan.org/pkg/knuth-lib") (home-page "https://ctan.org/pkg/knuth-lib")
(synopsis "Small library of METAFONT sources") (synopsis "Small library of METAFONT sources")