rekado pushed a commit to branch wip-texlive
in repository guix.
commit 8d8ce0a85fe4c44cc220f9301cc7a910f7852b1c
Author: Ricardo Wurmus <[email protected]>
Date: Mon Jul 15 19:07:40 2019 +0200
gnu: texlive-bin: Include scripts.
* gnu/packages/tex.scm (texlive-bin)[inputs]: Add texlive-scripts.
[arguments]: Let fmtutil.pl reference scripts directory.
---
gnu/packages/tex.scm | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 20f603f..5c70b84 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -271,6 +271,20 @@ copied to their outputs; otherwise the
TEXLIVE-BUILD-SYSTEM is used."
(build-system gnu-build-system)
(inputs
`(("texlive-extra-src" ,texlive-extra-src)
+ ("texlive-scripts"
+ ,(origin
+ (method svn-fetch)
+ (uri (svn-reference
+ (url (string-append "svn://www.tug.org/texlive/tags/"
+ %texlive-tag "/Master/texmf-dist/"
+ "/scripts/texlive"))
+ (revision %texlive-revision)))
+ (file-name (string-append "texlive-scripts-"
+ (number->string %texlive-revision)
+ "-checkout"))
+ (sha256
+ (base32
+ "0wrjls1y9b4k1z10l9l8w2l3yjcw7v7by2y16kchdpkiyldlkry6"))))
("cairo" ,cairo)
("fontconfig" ,fontconfig)
("fontforge" ,fontforge)
@@ -386,6 +400,13 @@ copied to their outputs; otherwise the
TEXLIVE-BUILD-SYSTEM is used."
(apply unpack (list #:source texlive-extra))
(apply patch-source-shebangs (list #:source texlive-extra))
(invoke "mv" "tlpkg" share))
+ (let ((scripts (string-append share
"/texmf-dist/scripts/texlive/")))
+ (mkdir-p scripts)
+ (copy-recursively (assoc-ref inputs "texlive-scripts") scripts)
+ ;; Make sure that fmtutil can find its Perl modules.
+ (substitute* (string-append scripts "fmtutil.pl")
+ (("\\$TEXMFROOT/") (string-append share "/"))))
+
;; texlua shebangs are not patched by the patch-source-shebangs
;; phase because the texlua executable does not exist at that
;; time.
