ngz pushed a commit to branch tex-team in repository guix. commit 11891842a875fe32378dcba37c615b5495149502 Author: Nicolas Goaziou <m...@nicolasgoaziou.fr> AuthorDate: Wed Jun 12 21:15:44 2024 +0200
gnu: texlive-updmap.cfg: Fix font file creation in $HOME. * gnu/packages/tex.scm (texlive-updmap.cfg): Clarify usage. Prevent mktex scripts from creating files in TEXMFVAR by including a "mktex.cnf" that overrides the one from TEXLIVE-KPATHSEA. Change-Id: I8025582e8ecdd4f57fb8f266d987e6bc1e755e93 --- gnu/packages/tex.scm | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index e2b8a1abb2..a48ca3966d 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -1210,8 +1210,12 @@ teTeX distribution that was maintained by Thomas Esser.") ;; inputs. (define-public texlive-updmap.cfg (lambda* (#:optional (packages '())) - "Return a 'texlive-updmap.cfg' package which contains the fonts map -configuration of a base set of packages plus PACKAGES." + "Return a 'texlive-updmap.cfg' package which contains the fonts map and +mktex scripts configuration, along with a base set of packages plus additional +PACKAGES. + +This function is meant to be used in packages as a native input, to build +documentation in the TeX format." (let ((default-packages (list texlive-scheme-basic))) (package (version (number->string %texlive-revision)) @@ -1226,9 +1230,18 @@ configuration of a base set of packages plus PACKAGES." (ice-9 textual-ports)) #:install-plan #~'(("texmf-dist/web2c/updmap.cfg" "share/texmf-config/web2c/") - ("texmf-dist/web2c/map" "share/texmf-dist/fonts/map")) + ("texmf-dist/web2c/mktex.cnf" "share/texmf-config/web2c/") + ("texmf-dist/web2c/map" "share/texmf-dist/fonts/map")) #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'generate-mktex.cnf + ;; When building a package, mktex programs try to create files + ;; in TEXMFVAR, which is unavailable. Force creating those + ;; files in the working directory instead. + (lambda _ + (with-directory-excursion "texmf-dist/web2c" + (with-output-to-file "mktex.cnf" + (lambda _ (display ": ${MT_DESTROOT=''}")))))) (add-before 'install 'regenerate-updmap.cfg (lambda _ (with-directory-excursion "texmf-dist/web2c" @@ -1243,8 +1256,8 @@ configuration of a base set of packages plus PACKAGES." (when (not (zero? (status:exit-val (close-pipe port)))) (error "failed to filter updmap.cfg"))) - ;; Set TEXMFSYSVAR to a sane and writable value; updmap fails - ;; if it cannot create its log file there. + ;; Set TEXMFSYSVAR to a sane and writable value; updmap + ;; fails if it cannot create its log file. (setenv "TEXMFSYSVAR" (getcwd)) ;; Generate maps.