diff --git a/doc/guix.texi b/doc/guix.texi index e23f785470..bdaadba652 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -55310,27 +55310,9 @@ related typesetting systems, taken from the Because @TeX{} Live is so huge and because finding one's way in this maze is tricky, this section provides some guidance on how to deploy the relevant packages to compile @TeX{} and @LaTeX{} documents. - -@TeX{} Live currently comes in two mutually exclusive flavors in Guix: - -@itemize -@item -The ``monolithic'' @code{texlive} package: it comes with @emph{every -single @TeX{} Live package} (roughly 4,200), but it is huge---more than -4@tie{}GiB for a single package! - -@item -A ``modular'' @TeX{} Live distribution, in which you only install the +Guix contains the full @TeX{} Live distribution in a modular setup, +in which you only install the packages you need, whose name is always prefixed with @samp{texlive-}. -@end itemize - -To insist, these two flavors cannot be combined@footnote{No rule -without exception! As the monolithic @TeX{} Live does not contain the -@command{biber} executable, it is okay to combine it with -@code{texlive-biber}, which does.}. If in the modular setting your -document does not compile, the solution is not to add the monolithic -@code{texlive} package, but to add the set of missing packages from the -modular distribution. Building a coherent system that provides all the essential tools and, at the same time, satisfies all of its internal dependencies can be diff --git a/gnu/packages/books.scm b/gnu/packages/books.scm index edd463d48a..0ebe09a178 100644 --- a/gnu/packages/books.scm +++ b/gnu/packages/books.scm @@ -64,7 +64,6 @@ #:use-module (gnu packages python-xyz) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) - #:use-module (gnu packages texlive) #:use-module (gnu packages version-control) #:use-module (gnu packages webkit) #:use-module (gnu packages xml)) diff --git a/gnu/packages/texlive.scm b/gnu/packages/texlive.scm index 45ab5e9c14..ec6533fa11 100644 --- a/gnu/packages/texlive.scm +++ b/gnu/packages/texlive.scm @@ -1,25 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2023, 2024, 2025 Andreas Enge -;;; Copyright © 2014 Eric Bavier -;;; Copyright © 2015 Mark H Weaver -;;; Copyright © 2016 Roel Janssen -;;; Copyright © 2016, 2018-2021, 2023 Efraim Flashner -;;; Copyright © 2016 Federico Beffa -;;; Copyright © 2016 Thomas Danckaert -;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus -;;; Copyright © 2017 Leo Famulari -;;; Copyright © 2017, 2020, 2021 Marius Bakke -;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice -;;; Copyright © 2018 Danny Milosavljevic -;;; Copyright © 2018, 2020 Arun Isaac -;;; Copyright © 2020 Vincent Legoll -;;; Copyright © 2020, 2021 Paul Garlick -;;; Copyright © 2021 Maxim Cournoyer -;;; Copyright © 2021 Leo Le Bouter -;;; Copyright © 2021 Xinglu Chen -;;; Copyright © 2021 Ivan Gankevich -;;; Copyright © 2021 Julien Lepiller -;;; Copyright © 2021 Thiago Jung Bauermann +;;; Copyright © 2026 Andreas Enge ;;; ;;; This file is part of GNU Guix. ;;; @@ -37,384 +17,9 @@ ;;; along with GNU Guix. If not, see . (define-module (gnu packages texlive) - #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix build-system gnu) - #:use-module (guix build-system trivial) - #:use-module (guix utils) - #:use-module (gnu packages autotools) - #:use-module (gnu packages bash) - #:use-module (gnu packages compression) - #:use-module (gnu packages fontutils) - #:use-module (gnu packages gd) - #:use-module (gnu packages ghostscript) - #:use-module (gnu packages gtk) - #:use-module (gnu packages icu4c) - #:use-module (gnu packages image) - #:use-module (gnu packages lua) - #:use-module (gnu packages multiprecision) - #:use-module (gnu packages perl) - #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) - #:use-module (gnu packages ruby) - #:use-module (gnu packages shells) - #:use-module (gnu packages xdisorg) - #:use-module (gnu packages xorg)) + #:use-module (gnu packages tex)) -(define %texlive-date "20250308") -(define %texlive-year (string-take %texlive-date 4)) - -(define texlive-extra-src - (origin - (method url-fetch) - (uri (string-append "ftp://tug.org/historic/systems/texlive/" - %texlive-year "/texlive-" - %texlive-date "-extra.tar.xz")) - (sha256 (base32 - "1lk9fsyvxayfz4xjplazwkjgamwk9p5yhxjlqk5ql4wvpkncysga")))) - -(define texlive-texmf-src - (origin - (method url-fetch) - (uri (string-append "ftp://tug.org/historic/systems/texlive/" - %texlive-year "/texlive-" - %texlive-date "-texmf.tar.xz")) - (sha256 (base32 - "1ky72r9z8v93nyns5109rkvx6wqlgqciwvrjpdp2y3dz61sdmp08")))) - -(define texlivebin - (package - (name "texlivebin") - (version %texlive-date) - (source - (origin - (method url-fetch) - (uri (string-append "ftp://tug.org/historic/systems/texlive/" - %texlive-year "/texlive-" - %texlive-date "-source.tar.xz")) - (sha256 - (base32 - "03s92wj9z334azyxrxp5k20g323a1nj2j8la76j7gha3s6iv3zgz")) - (modules '((guix build utils) - (ice-9 ftw))) - (snippet - ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too. - '(with-directory-excursion "libs" - (let ((preserved-directories - '("." ".." "lua53" "luajit" "pplib" "xpdf"))) - ;; Delete bundled software, except Lua which cannot easily be - ;; used as an external dependency, pplib and xpdf which aren't - ;; supported as system libraries (see m4/kpse-xpdf-flags.m4). - (for-each - delete-file-recursively - (scandir "." - (lambda (file) - (and (not (member file preserved-directories)) - (eq? 'directory (stat:type (stat file)))))))))))) - (build-system gnu-build-system) - (inputs - `(("texlive-extra-src" ,texlive-extra-src) - ("config" ,config) - ("cairo" ,cairo) - ("fontconfig" ,fontconfig) - ("fontforge" ,fontforge) - ("freetype" ,freetype) - ("gd" ,gd) - ("gmp" ,gmp) - ("ghostscript" ,ghostscript) - ("graphite2" ,graphite2) - ("harfbuzz" ,harfbuzz) - ("icu4c" ,icu4c) - ("libpaper" ,libpaper) - ("libpng" ,libpng) - ("libxaw" ,libxaw) - ("libxt" ,libxt) - ("mpfi" ,mpfi) - ("mpfr" ,mpfr) - ("perl" ,perl) - ("pixman" ,pixman) - ("potrace" ,potrace) - ("python" ,python) - ;; TODO Move to ruby@3 on the next rebuild cycle. - ("ruby" ,ruby-2.7) - ("tcsh" ,tcsh) - ("teckit" ,teckit) - ("zlib" ,zlib) - ("zziplib" ,zziplib))) - (native-inputs - (list pkg-config)) - (arguments - `(#:modules ((guix build gnu-build-system) - (guix build utils) - (ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26)) - #:out-of-source? #t - #:configure-flags - '("--disable-static" - "--disable-native-texlive-build" - "--enable-shared" - "--with-banner-add=/GNU Guix" - "--with-system-cairo" - "--with-system-freetype2" - "--with-system-gd" - "--with-system-gmp" - "--with-system-graphite2" - "--with-system-harfbuzz" - "--with-system-icu" - "--with-system-libpaper" - "--with-system-libpng" - "--with-system-mpfr" - "--with-system-pixman" - "--with-system-potrace" - "--with-system-teckit" - "--with-system-zlib" - "--with-system-zziplib" - ;; LuaJIT is not ported to some architectures yet. - ,@(if (or (target-ppc64le?) - (target-riscv64?)) - '("--disable-luajittex" - "--disable-luajithbtex" - "--disable-mfluajit") - '())) - - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-psutils-test - (lambda _ - ;; This test fails due to a rounding difference with libpaper 1.2: - ;; https://github.com/rrthomas/libpaper/issues/23 - ;; Adjust the expected outcome to account for the minute difference. - (substitute* "texk/psutils/tests/playres.ps" - (("844\\.647799") - "844.647797")))) - (add-after 'unpack 'configure-ghostscript-executable - ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows, - ;; and the "gs" ghostscript executable on Unix. It detects Unix by - ;; checking for the existence of the /usr/bin directory. Since - ;; Guix System does not have /usr/bin, it is also detected as Windows. - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl" - (("gswin32c") "gs")) - (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl" - (("\"gs\"") - (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\""))))) - (add-after 'unpack 'unpack-texlive-extra - (lambda* (#:key inputs #:allow-other-keys) - (mkdir "texlive-extra") - (with-directory-excursion "texlive-extra" - (apply (assoc-ref %standard-phases 'unpack) - (list #:source (assoc-ref inputs "texlive-extra-src")))))) - (add-after 'install 'post-install - (lambda* (#:key inputs outputs #:allow-other-keys #:rest args) - (let* ((out (assoc-ref outputs "out")) - (patch-source-shebangs (assoc-ref %standard-phases - 'patch-source-shebangs)) - (share (string-append out "/share")) - (source (string-append - "../" (first (scandir ".." (cut string-suffix? - "source" <>))))) - (tl-extra-root (string-append source "/texlive-extra")) - (tl-extra-dir (first - (scandir tl-extra-root - (negate - (cut member <> '("." "..")))))) - (tlpkg-src (string-append tl-extra-root "/" tl-extra-dir - "/tlpkg")) - (config.guess (search-input-file inputs - "/bin/config.guess"))) - - ;; Create symbolic links for the latex variants and their man - ;; pages. We link lualatex to luahbtex; see issue #51252 for - ;; details. - (with-directory-excursion (string-append out "/bin/") - (for-each - symlink - '("pdftex" "pdftex" "xetex" "luahbtex" "luatex") - '("latex" "pdflatex" "xelatex" "lualatex" "dvilualatex"))) - (with-directory-excursion (string-append share "/man/man1/") - (symlink "luatex.1" "lualatex.1")) - - ;; Install tlpkg. - (copy-recursively tlpkg-src (string-append share "/tlpkg")) - (with-directory-excursion share - ;; Make sure tlmgr finds its Perl modules. - ;; tlmgr is a script in bin/ that runs tlmgr.pl in - ;; texmf-dist/; so although texmf-dist/ will be discarded in - ;; the texlive package in favour of the one from texlivetexmf, - ;; through the absolute path our modifications will be used - ;; by the script. - (substitute* "texmf-dist/scripts/texlive/tlmgr.pl" - ((".*\\$::installerdir = \\$Master.*" all) - (format #f " $Master = ~s;~%~a" share all))) - ;; Install the config.guess script, required by tlmgr. - (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. - (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin")) - (with-directory-excursion out - (patch-source-shebangs)))))))) - - (synopsis "TeX Live, a package of the TeX typesetting system") - (description - "TeX Live provides a comprehensive TeX document production system. -It includes all the major TeX-related programs, macro packages, and fonts -that are free software, including support for many languages around the -world. - -This package contains the binaries.") - (license (license:fsf-free "https://www.tug.org/texlive/copying.html")) - (home-page "https://www.tug.org/texlive/"))) - - -(define texlivetexmf - (package - (name "texlivetexmf") - (version %texlive-date) - (source texlive-texmf-src) - (build-system gnu-build-system) - (inputs - `(("texlive-bin" ,texlivebin) - ("lua" ,lua) - ("perl" ,perl) - ("python" ,python) - ("ruby" ,ruby) - ("tcsh" ,tcsh))) - (arguments - `(#:modules ((guix build gnu-build-system) - (guix build utils) - (srfi srfi-26)) - - ;; This package takes 4 GiB, which we can't afford to distribute from - ;; our servers. - #:substitutable? #f - - #:phases - (modify-phases (map (cut assq <> %standard-phases) - '(set-paths unpack patch-source-shebangs)) - (add-after 'unpack 'unset-environment-variables - (lambda _ - (unsetenv "TEXMF") - (unsetenv "TEXMFCNF") - #t)) - (add-after 'patch-source-shebangs 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((share (string-append (assoc-ref outputs "out") "/share"))) - (mkdir-p share) - (invoke "mv" "texmf-dist" share)))) - (add-after 'install 'texmf-config - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (share (string-append out "/share")) - (texmfroot (string-append share "/texmf-dist/web2c")) - (texmfcnf (string-append texmfroot "/texmf.cnf")) - (fmtutilcnf (string-append texmfroot "/fmtutil.cnf")) - (texlive-bin (assoc-ref inputs "texlive-bin")) - (texbin (string-append texlive-bin "/bin")) - (tlpkg (string-append texlive-bin "/share/tlpkg"))) - ;; LuaJIT is not ported to some systems yet. - (if ,(or (target-ppc64le?) - (target-riscv64?)) - (substitute* fmtutilcnf - (("^(luajittex|luajithbtex|mfluajit)" m) - (string-append "#! " m)))) - ;; Register SHARE as TEXMFROOT in texmf.cnf. - (substitute* texmfcnf - (("TEXMFROOT = \\$SELFAUTOPARENT") - (string-append "TEXMFROOT = " share)) - (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local") - "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local") - (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL")) - ;; Register paths in texmfcnf.lua, needed for context. - (substitute* (string-append texmfroot "/texmfcnf.lua") - (("selfautodir:") out) - (("selfautoparent:") (string-append share "/"))) - ;; Set path to TeXLive Perl modules - (setenv "PERL5LIB" - (string-append (getenv "PERL5LIB") ":" tlpkg)) - ;; Configure the texmf-dist tree; inspired from - ;; http://slackbuilds.org/repository/13.37/office/texlive/ - (setenv "PATH" (string-append (getenv "PATH") ":" texbin)) - (setenv "TEXMFCNF" texmfroot) - (invoke "updmap-sys" "--nohash" "--syncwithtrees") - (invoke "mktexlsr") - (invoke "fmtutil-sys" "--all"))))))) - (properties `((max-silent-time . 9600))) ; don't time out while grafting - (synopsis "TeX Live, a package of the TeX typesetting system") - (description - "TeX Live provides a comprehensive TeX document production system. -It includes all the major TeX-related programs, macro packages, and fonts -that are free software, including support for many languages around the -world. - -This package contains the complete tree of texmf-dist data.") - (license (license:fsf-free "https://www.tug.org/texlive/copying.html")) - (home-page "https://www.tug.org/texlive/"))) - -(define-public texlive - (package - (name "texlive") - (version %texlive-date) - (source #f) - (build-system trivial-build-system) - (inputs `(("bash" ,bash-minimal) ;for wrap-program - ("texlive-bin" ,texlivebin) - ("texlive-texmf" ,texlivetexmf))) - (native-search-paths - (list (search-path-specification - (variable "TEXMFLOCAL") - (files '("share/texmf-local"))))) - (arguments - `(#:modules ((guix build utils)) - #:builder - ;; Build the union of texlive-bin and texlive-texmf, but take the - ;; conflicting subdirectory share/texmf-dist from texlive-texmf. - (begin - (use-modules (guix build utils)) - (let ((out (assoc-ref %outputs "out")) - (bin (assoc-ref %build-inputs "texlive-bin")) - (texmf (assoc-ref %build-inputs "texlive-texmf")) - (bash (assoc-ref %build-inputs "bash"))) - (mkdir out) - (with-directory-excursion out - (for-each - (lambda (name) - (symlink (string-append bin "/" name) name)) - '("include" "lib")) - (mkdir "bin") - (with-directory-excursion "bin" - (setenv "PATH" (string-append bash "/bin")) - (for-each - (lambda (name) - (symlink name (basename name)) - (wrap-program - (basename name) - `("TEXMFCNF" = - (,(string-append texmf "/share/texmf-dist/web2c"))))) - (find-files (string-append bin "/bin/") ""))) - (mkdir "share") - (with-directory-excursion "share" - (for-each - (lambda (name) - (symlink (string-append bin "/share/" name) name)) - '("info" "man" "tlpkg")) - (for-each - (lambda (name) - (symlink (string-append texmf "/share/" name) name)) - '("texmf-dist" "texmf-var")))) - #t)))) - (synopsis "TeX Live, a package of the TeX typesetting system") - (description - "TeX Live provides a comprehensive TeX document production system. -It includes all the major TeX-related programs, macro packages, and fonts -that are free software, including support for many languages around the -world. - -This package contains the complete TeX Live distribution.") - (license (license:fsf-free "https://www.tug.org/texlive/copying.html")) - (home-page "https://www.tug.org/texlive/"))) +;; 2026-01-06 +(define-deprecated-package texlive texlive-scheme-full)