tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

guix: texlive build system: Relax Metafont requirement.

Browse Source 
* guix/build/texlive-build-system.scm (generate-font-metrics): Cater for
texlive-metafont both as a native input and as an argument from texlive-local-tree.

Change-Id: I32dd86d49ebcb49efd2a253c0491926e0333d3f4
This commit is contained in:
Nicolas Goaziou
2026-04-01 22:00:21 +02:00
parent cb9c31d423
commit 4a903eab33
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
guix/build/texlive-build-system.scm
View File

@@ -139,11 +139,11 @@ generation also needs to be wrapped within a `faketime' call in the
(local-sources (font-sources "fonts/source" local-metrics))
((not (null? local-sources))) ;nothing to generate: bail out
(root (getcwd))
;; "texlive-metafont" may be a native input, or included in
;; `texlive-local-tree'. Handle both cases.
(metafont
(cond ((assoc-ref (or native-inputs inputs) "texlive-metafont") =>
(cut string-append <> "/share/texmf-dist"))
(else
(error "Missing 'texlive-metafont' native input"))))
(search-input-directory (or native-inputs inputs)
"share/texmf-dist/metafont"))
;; Collect all font source files from texlive (native-)inputs so
;; "mf" can know where to look for them.
(font-inputs
@@ -151,21 +151,21 @@ generation also needs to be wrapped within a `faketime' call in the
(append-map (match-lambda
((? (negate texlive-input?)) '())
(("texlive-bin" . _) '())
(("texlive-metafont" . _)
(list (string-append metafont "/metafont/base")))
(("texlive-metafont" . _) '())
((_ . input)
(font-sources input #f)))
(or native-inputs inputs)))))
;; Tell mf where to find "mf.base".
(setenv "MFBASES" (string-append metafont "/web2c/"))
(setenv "MFBASES" (in-vicinity metafont "../web2c"))
(mkdir-p "build")
(for-each
(lambda (source)
;; Tell "mf" where are the font source files. In case current package
;; provides multiple sources, treat them separately.
(setenv "MFINPUTS"
(string-join (cons (string-append root "/" source)
font-inputs)
(string-join (cons* (string-append root "/" source)
(in-vicinity metafont "base")
font-inputs)
":"))
;; Build font metrics (tfm).
(with-directory-excursion source