06/78: gnu: texlive-luatex: Set proper default values for "texmfcnf.lua".

[guix-commits]

ngz pushed a commit to branch tex-team
in repository guix.

commit ffbf16efcae3ddcd6b28612fa4561eac94b6fe30
Author: Nicolas Goaziou <m...@nicolasgoaziou.fr>
AuthorDate: Tue May 28 18:48:42 2024 +0200

    gnu: texlive-luatex: Set proper default values for "texmfcnf.lua".
    
    * gnu/packages/tex.scm (texlive-luatex)[arguments]<#:phases>: Make TeX
    specific environment variables match those in "texmf.cnf".
    
    Change-Id: Idb80dbe849c1dcdeea234dbedba6d8f3668e2b3f
---
 gnu/packages/tex.scm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index c34005222a..753b887a5c 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -48032,8 +48032,22 @@ in the same way as BSD/GNU @code{getopt_long(3)} 
functions do.")
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
     (arguments
-     (list #:texlive-latex-bin? #f
-           #:create-formats #~(list "dviluatex" "luatex")))
+     (list
+      #:texlive-latex-bin? #f
+      #:create-formats #~(list "dviluatex" "luatex")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'customize-texmfcnf.lua
+            (lambda _
+              (substitute* "web2c/texmfcnf.lua"
+                (("TEXMFDIST *=.*") "TEXMFDIST = os.getenv(\"GUIX_TEXMF\"),\n")
+                (("TEXMFSYSVAR *=.*")
+                 "TEXMFSYSVAR = \"$TEXMFDIST/../texmf-var\",\n")
+                (("TEXMFSYSCONFIG *=.*")
+                 "TEXMFSYSCONFIG = \"$TEXMFDIST/../texmf-config\",\n")
+                (("TEXMF *=.*")
+                 "TEXMF = 
\"{$TEXMFCONFIG,$TEXMFVAR,$TEXMFHOME,$TEXMFSYSCONFIG,$TEXMFSYSVAR,$TEXMFDIST}\",\n")))))))
+    (native-inputs (list texlive-kpathsea))
     (propagated-inputs
      (list texlive-cm
            texlive-etex