aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2024-06-21 08:31:23 +0200
committerLudovic Courtès <ludo@gnu.org>2024-08-31 10:45:32 +0200
commit0f4dc1a9638a537cc484a1c2a9530ac0c0e428e2 (patch)
tree34b28ed815ef8548b3a5f04d6cdf3feb52956682
parent416b196d74bb0b284189ed3c213eef167769d060 (diff)
downloadguix-0f4dc1a9638a537cc484a1c2a9530ac0c0e428e2.tar.gz
guix-0f4dc1a9638a537cc484a1c2a9530ac0c0e428e2.zip
gnu: texlive-scripts: Allow auto-updates.
* guix/import/texlive.scm (tlpdb-guix-packages): Add meta-data for TEXLIVE-SCRIPTS. (texlive->svn-multi-reference): (package-from-texlive-repository?): Special case TEXLIVE-SCRIPTS. Change-Id: Ide47d25430a39f620aae115fa4891c85d1d0c151
-rw-r--r--guix/import/texlive.scm94
1 files changed, 82 insertions, 12 deletions
diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm
index 0fba171f46..411e345f2d 100644
--- a/guix/import/texlive.scm
+++ b/guix/import/texlive.scm
@@ -137,7 +137,65 @@ older systems.
This Guix-specific package provides hyphenation patterns for all languages
supported in TeX Live. It is a strict super-set of code{hyphen-base} package
and should be preferred to it whenever a package would otherwise depend on
-@code{hyph-utf8}."))))
+@code{hyph-utf8}."))
+ ("scripts"
+ (shortdesc . "TeX Live infrastructure programs")
+ (longdesc . "This package provides core TeX Live scripts such as updmap,
+fmtutil, and tlmgr. It is automatically installed alongside texlive-bin.")
+ (docfiles "texmf-dist/doc/man/man1/fmtutil-sys.1"
+ "texmf-dist/doc/man/man1/fmtutil-sys.man1.pdf"
+ "texmf-dist/doc/man/man1/fmtutil-user.1"
+ "texmf-dist/doc/man/man1/fmtutil-user.man1.pdf"
+ "texmf-dist/doc/man/man1/fmtutil.1"
+ "texmf-dist/doc/man/man1/fmtutil.man1.pdf"
+ "texmf-dist/doc/man/man1/install-tl.1"
+ "texmf-dist/doc/man/man1/install-tl.man1.pdf"
+ "texmf-dist/doc/man/man1/mktexfmt.1"
+ "texmf-dist/doc/man/man1/mktexfmt.man1.pdf"
+ "texmf-dist/doc/man/man1/mktexlsr.1"
+ "texmf-dist/doc/man/man1/mktexlsr.man1.pdf"
+ "texmf-dist/doc/man/man1/mktexmf.1"
+ "texmf-dist/doc/man/man1/mktexmf.man1.pdf"
+ "texmf-dist/doc/man/man1/mktexpk.1"
+ "texmf-dist/doc/man/man1/mktexpk.man1.pdf"
+ "texmf-dist/doc/man/man1/mktextfm.1"
+ "texmf-dist/doc/man/man1/mktextfm.man1.pdf"
+ "texmf-dist/doc/man/man1/texhash.1"
+ "texmf-dist/doc/man/man1/texhash.man1.pdf"
+ "texmf-dist/doc/man/man1/tlmgr.1"
+ "texmf-dist/doc/man/man1/tlmgr.man1.pdf"
+ "texmf-dist/doc/man/man1/updmap-sys.1"
+ "texmf-dist/doc/man/man1/updmap-sys.man1.pdf"
+ "texmf-dist/doc/man/man1/updmap-user.1"
+ "texmf-dist/doc/man/man1/updmap-user.man1.pdf"
+ "texmf-dist/doc/man/man1/updmap.1"
+ "texmf-dist/doc/man/man1/updmap.man1.pdf"
+ "texmf-dist/doc/man/man5/fmtutil.cnf.5"
+ "texmf-dist/doc/man/man5/fmtutil.cnf.man5.pdf"
+ "texmf-dist/doc/man/man5/updmap.cfg.5"
+ "texmf-dist/doc/man/man5/updmap.cfg.man5.pdf")
+ (runfiles "texmf-dist/dvips/tetex/"
+ "texmf-dist/fonts/enc/dvips/tetex/"
+ "texmf-dist/fonts/map/dvips/tetex/"
+ "texmf-dist/scripts/texlive/fmtutil-sys.sh"
+ "texmf-dist/scripts/texlive/fmtutil-user.sh"
+ "texmf-dist/scripts/texlive/fmtutil.pl"
+ "texmf-dist/scripts/texlive/mktexlsr.pl"
+ "texmf-dist/scripts/texlive/mktexmf"
+ "texmf-dist/scripts/texlive/mktexpk"
+ "texmf-dist/scripts/texlive/mktextfm"
+ "texmf-dist/scripts/texlive/tlmgr.pl"
+ "texmf-dist/scripts/texlive/updmap-sys.sh"
+ "texmf-dist/scripts/texlive/updmap-user.sh"
+ "texmf-dist/scripts/texlive/updmap.pl"
+ "texmf-dist/web2c/fmtutil-hdr.cnf"
+ "texmf-dist/web2c/updmap-hdr.cfg"
+ "texmf-dist/web2c/updmap.cfg"
+ "tlpkg/gpg/"
+ "tlpkg/installer/config.guess"
+ "tlpkg/installer/curl/curl-ca-bundle.crt"
+ "tlpkg/TeXLive/"
+ "tlpkg/texlive.tlpdb"))))
(define (svn-command . args)
"Execute \"svn\" command with arguments ARGS, provided as strings, and
@@ -537,16 +595,23 @@ of package with UPSTREAM-NAME in VERSION."
"Return <svn-multi-reference> object for TeX Live package with UPSTREAM-NAME
at VERSION."
(let* ((data (assoc-ref database upstream-name))
+ (files (append (or (assoc-ref data 'docfiles) (list))
+ (or (assoc-ref data 'runfiles) (list))
+ (or (assoc-ref data 'srcfiles) (list))))
(locations
- (files->locations
- (filter-map (lambda (file)
- ;; Ignore any file not starting with the expected
- ;; prefix. Nothing good can come from this.
- (and (string-prefix? "texmf-dist/" file)
- (string-drop file (string-length "texmf-dist/"))))
- (append (or (assoc-ref data 'docfiles) (list))
- (or (assoc-ref data 'runfiles) (list))
- (or (assoc-ref data 'srcfiles) (list)))))))
+ ;; Drop "texmf-dist/" prefix from files. Special case
+ ;; TEXLIVE-SCRIPTS, where files are split across "tlpkg/" and
+ ;; "texmf-dist/".
+ (if (equal? upstream-name "scripts")
+ files
+ (files->locations
+ ;; Ignore any file not starting with the expected prefix, such
+ ;; as tlpkg/tlpostcode/... Nothing good can come from this.
+ (filter-map
+ (lambda (file)
+ (and (string-prefix? "texmf-dist/" file)
+ (string-drop file (string-length "texmf-dist/"))))
+ files)))))
(svn-multi-reference
(url (texlive-repository-location version "Master/texmf-dist"))
(locations (sort locations string<))
@@ -660,8 +725,13 @@ VERSION."
;;;
(define (package-from-texlive-repository? package)
- (and (string-prefix? "texlive-" (package-name package))
- (eq? 'texlive (build-system-name (package-build-system package)))))
+ (let ((name (package-name package)))
+ ;; TEXLIVE-SCRIPTS does use TEXLIVE-BUILD-SYSTEM, but package's structure
+ ;; is sufficiently regular to permit auto-updates.
+ (or (equal? name "texlive-scripts")
+ (and (string-prefix? "texlive-" (package-name package))
+ (eq? 'texlive
+ (build-system-name (package-build-system package)))))))
(define* (latest-release package #:key version)
"Return an <upstream-source> for the latest release of PACKAGE. Optionally