From 9e78ea79f81d9eec0fab9cbe204899e384973649 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sat, 2 Jan 2021 23:04:57 -0500
Subject: [PATCH] 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 3f17bf4458..4a4184c338 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -279,6 +279,7 @@ (define-public texlive-bin
     (build-system gnu-build-system)
     (inputs
      `(("texlive-extra-src" ,texlive-extra-src)
+       ("config" ,config)
        ("texlive-scripts"
         ,(origin
            (method svn-fetch)
@@ -452,6 +453,16 @@ (define-public texlive-bin
                  (("\\$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.