nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: texlive: Patch texmfcnf.lua. 

* gnu/packages/texlive.scm (texlive): Patch texmfcnf.lua to point to the
  absolute texlive-texmf tree.
This commit is contained in:
Andreas Enge 2015-12-30 11:24:26 +01:00
parent 826244f01a
commit f95dad899b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/packages/texlive.scm
View File

@ -191,7 +191,8 @@ This package contains the binaries.")
(alist-cons-after (alist-cons-after
'patch-source-shebangs 'texmf-config 'patch-source-shebangs 'texmf-config
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((share (string-append (assoc-ref outputs "out") "/share")) (let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
(texmfroot (string-append share "/texmf-dist/web2c")) (texmfroot (string-append share "/texmf-dist/web2c"))
(texmfcnf (string-append texmfroot "/texmf.cnf")) (texmfcnf (string-append texmfroot "/texmf.cnf"))
(texlive-bin (assoc-ref inputs "texlive-bin")) (texlive-bin (assoc-ref inputs "texlive-bin"))
@ -201,6 +202,10 @@ This package contains the binaries.")
(substitute* texmfcnf (substitute* texmfcnf
(("TEXMFROOT = \\$SELFAUTOPARENT") (("TEXMFROOT = \\$SELFAUTOPARENT")
(string-append "TEXMFROOT = " share))) (string-append "TEXMFROOT = " share)))
;; Register paths in texmfcnf.lua, needed for context.
(substitute* (string-append texmfroot "/texmfcnf.lua")
(("selfautodir:") out)
(("selfautoparent:") (string-append share "/")))
;; Set path to TeXLive Perl modules ;; Set path to TeXLive Perl modules
(setenv "PERL5LIB" (setenv "PERL5LIB"
(string-append (getenv "PERL5LIB") ":" tlpkg)) (string-append (getenv "PERL5LIB") ":" tlpkg))