branch master updated: gnu: texlive-texdoc: Fix script.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new ea88bef3e0 gnu: texlive-texdoc: Fix script.
ea88bef3e0 is described below

commit ea88bef3e0579264b20fa8edbf059c02d9cbe104
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon Aug 28 19:50:17 2023 +0200

    gnu: texlive-texdoc: Fix script.
    
    * gnu/packages/tex.scm (texlive-texdoc)[arguments]<#phases>: Prevent
    a warning, and, more importantly, an error when using `texdoc' command.
    
    Reported-by: Emmanuel Beffara <manu@beffara.org>
---
 gnu/packages/tex.scm | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 2f557120bb..02ad0c290c 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -42838,7 +42838,31 @@ document's directory tree).")
               "19mvh7pm2332f6c8nzgcbscm9vcz0apwfgm0m55ycibssc2fb3ww")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:link-scripts #~(list "texdoc.tlu")))
+    (arguments
+     (list
+      #:link-scripts #~(list "texdoc.tlu")
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; The following phase prevents the following warning: "Info:
+          ;; Running Texdoc not installed in the current TEXMFMAIN".
+          (add-after 'unpack 'eschew-warning
+            (lambda _
+              (substitute* "scripts/texdoc/texdoc.tlu"
+                (("if texmf ~= nil") "if false"))))
+          ;; `kpse.find_file' is not able to locate "texlive.tlpdb", resulting
+          ;; in the following error: "texdoc error: No texlive.tlpdb nor
+          ;; shipped tlpdb data found".  This phase explicitly points `texdoc'
+          ;; into the right direction.
+          (add-after 'unpack 'set-tlpdb-location
+            (lambda* (#:key native-inputs inputs #:allow-other-keys)
+              (let ((tlpdb (search-input-file (or native-inputs inputs)
+                                              "/share/tlpkg/texlive.tlpdb")))
+                (substitute* "scripts/texdoc/texdoclib-const.tlu"
+                  (("(local tlpdb=\").*" _ prefix)
+                   (string-append prefix tlpdb "\"\n")))
+                (substitute* "scripts/texdoc/texdoclib-search.tlu"
+                  (("(local texlive_tlpdb = ).*" _ prefix)
+                   (string-append prefix "'" tlpdb "'\n")))))))))
     (propagated-inputs (list texlive-kpathsea))
     (home-page "https://ctan.org/pkg/texdoc";)
     (synopsis "Documentation access for TeX Live")