diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-08-28 19:50:17 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-08-28 19:50:17 +0200 |
| commit | ea88bef3e0579264b20fa8edbf059c02d9cbe104 (patch) | |
| tree | 28c880440ca28a41466ef94505d7e3d3cf80c743 | |
| parent | c8a642de9a7b6c0e21c8327232245ab721822842 (diff) | |
| download | guix-ea88bef3e0579264b20fa8edbf059c02d9cbe104.tar guix-ea88bef3e0579264b20fa8edbf059c02d9cbe104.tar.gz | |
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>
| -rw-r--r-- | gnu/packages/tex.scm | 26 |
1 files changed, 25 insertions, 1 deletions
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") |