30/31: gnu: texlive-bin: Fix the tlmgr utility.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 9e78ea79f81d9eec0fab9cbe204899e384973649
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sat Jan 2 23:04:57 2021 -0500

    gnu: texlive-bin: Fix the tlmgr utility.
    
    Previously, it would error out, not finding its Perl modules, and later not
    finding config.guess.  This utility is useful to query the local TeX Live
    package database (texlive.tlpdb).
    
    (texlive-bin)[inputs]{config}: New input.
    [phases]{postint}: Add a symlink to the 'config.guess' script.  Patch the
    tlmgr.pl script so that it can find its Perl modules and other resources.
---
 gnu/packages/tex.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 3f17bf4..4a4184c 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -279,6 +279,7 @@ files from LOCATIONS with expected checksum HASH.  CODE is 
not currently in use.
     (build-system gnu-build-system)
     (inputs
      `(("texlive-extra-src" ,texlive-extra-src)
+       ("config" ,config)
        ("texlive-scripts"
         ,(origin
            (method svn-fetch)
@@ -452,6 +453,16 @@ files from LOCATIONS with expected checksum HASH.  CODE is 
not currently in use.
                  (("\\$TEXMFROOT/")
                   (string-append share "/")))
 
+               ;; Likewise for the tlmgr.
+               (substitute* (string-append scripts "/tlmgr.pl")
+                 ((".*\\$::installerdir = \\$Master.*" all)
+                  (format #f "  $Master = ~s;~%~a" share all)))
+
+               ;; Install the config.guess script, required by tlmgr.
+               (with-directory-excursion share
+                 (mkdir-p "tlpkg/installer/")
+                 (symlink config.guess "tlpkg/installer/config.guess"))
+
                ;; texlua shebangs are not patched by the patch-source-shebangs
                ;; phase because the texlua executable does not exist at that
                ;; time.