gnu/packages/tex.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
   4 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
   6 ;;; Copyright © 2016, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
   8 ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
   9 ;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
  10 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
  11 ;;; Copyright © 2017, 2020 Marius Bakke <mbakke@fastmail.com>
  12 ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
  13 ;;; Copyright © 2018 Danny Milosavljevic <dannym+a@scratchpost.org>
  14 ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
  15 ;;;
  16 ;;; This file is part of GNU Guix.
  17 ;;;
  18 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  19 ;;; under the terms of the GNU General Public License as published by
  20 ;;; the Free Software Foundation; either version 3 of the License, or (at
  21 ;;; your option) any later version.
  22 ;;;
  23 ;;; GNU Guix is distributed in the hope that it will be useful, but
  24 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  25 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26 ;;; GNU General Public License for more details.
  27 ;;;
  28 ;;; You should have received a copy of the GNU General Public License
  29 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  30
  31 (define-module (gnu packages tex)
  32   #:use-module ((guix licenses) #:prefix license:)
  33   #:use-module (guix packages)
  34   #:use-module (guix download)
  35   #:use-module (guix build-system cmake)
  36   #:use-module (guix build-system gnu)
  37   #:use-module (guix build-system perl)
  38   #:use-module (guix build-system trivial)
  39   #:use-module (guix build-system texlive)
  40   #:use-module (guix utils)
  41   #:use-module (guix git-download)
  42   #:use-module (guix svn-download)
  43   #:use-module (gnu packages)
  44   #:use-module (gnu packages algebra)
  45   #:use-module (gnu packages autotools)
  46   #:use-module (gnu packages bash)
  47   #:use-module (gnu packages boost)
  48   #:use-module (gnu packages compression)
  49   #:use-module (gnu packages fontutils)
  50   #:use-module (gnu packages gd)
  51   #:use-module (gnu packages ghostscript)
  52   #:use-module (gnu packages graphviz)
  53   #:use-module (gnu packages gtk)
  54   #:use-module (gnu packages icu4c)
  55   #:use-module (gnu packages image)
  56   #:use-module (gnu packages libreoffice)
  57   #:use-module (gnu packages lua)
  58   #:use-module (gnu packages multiprecision)
  59   #:use-module (gnu packages pdf)
  60   #:use-module (gnu packages perl)
  61   #:use-module (gnu packages perl-check)
  62   #:use-module (gnu packages pkg-config)
  63   #:use-module (gnu packages python)
  64   #:use-module (gnu packages python-xyz)
  65   #:use-module (gnu packages qt)
  66   #:use-module (gnu packages ruby)
  67   #:use-module (gnu packages shells)
  68   #:use-module (gnu packages base)
  69   #:use-module (gnu packages gawk)
  70   #:use-module (gnu packages web)
  71   #:use-module (gnu packages xml)
  72   #:use-module (gnu packages xorg)
  73   #:use-module (gnu packages xdisorg)
  74   #:use-module (gnu packages texinfo)
  75   #:use-module (ice-9 ftw)
  76   #:use-module (ice-9 match)
  77   #:use-module ((srfi srfi-1) #:hide (zip)))
  78
  79 (define* (simple-texlive-package name locations hash
  80                                  #:key trivial?)
  81   "Return a template for a simple TeX Live package with the given NAME,
  82 downloading from a list of LOCATIONS in the TeX Live repository, and expecting
  83 the provided output HASH.  If TRIVIAL? is provided, all files will simply be
  84 copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
  85   (define with-documentation?
  86     (and trivial?
  87          (any (lambda (location)
  88                 (string-prefix? "/doc" location))
  89               locations)))
  90   (package
  91     (name name)
  92     (version (number->string %texlive-revision))
  93     (source (texlive-origin name version
  94                             locations hash))
  95     (outputs (if with-documentation?
  96                  '("out" "doc")
  97                  '("out")))
  98     (build-system (if trivial?
  99                       gnu-build-system
 100                       texlive-build-system))
 101     (arguments
 102      (let ((copy-files
 103             `(lambda* (#:key outputs inputs #:allow-other-keys)
 104                (let (,@(if with-documentation?
 105                            `((doc (string-append (assoc-ref outputs "doc")
 106                                                  "/share/texmf-dist/")))
 107                            '())
 108                      (out (string-append (assoc-ref outputs "out")
 109                                          "/share/texmf-dist/")))
 110                  ,@(if with-documentation?
 111                        '((mkdir-p doc)
 112                          (copy-recursively
 113                           (string-append (assoc-ref inputs "source") "/doc")
 114                           (string-append doc "/doc")))
 115                        '())
 116                  (mkdir-p out)
 117                  (copy-recursively (assoc-ref inputs "source") out)
 118                  ,@(if with-documentation?
 119                        '((delete-file-recursively (string-append out "/doc")))
 120                        '())
 121                  #t))))
 122        (if trivial?
 123            `(#:tests? #f
 124              #:phases
 125              (modify-phases %standard-phases
 126                (delete 'configure)
 127                (replace 'build (const #t))
 128                (replace 'install ,copy-files)))
 129            `(#:phases
 130              (modify-phases %standard-phases
 131                (add-after 'install 'copy-files ,copy-files))))))
 132     (home-page #f)
 133     (synopsis #f)
 134     (description #f)
 135     (license #f)))
 136
 137 (define hyph-utf8-scripts
 138   (origin
 139     (method svn-fetch)
 140     (uri (texlive-ref "generic" "hyph-utf8"))
 141     (file-name (string-append "hyph-utf8-scripts-"
 142                               (number->string %texlive-revision)
 143                               "-checkout"))
 144     (sha256
 145      (base32
 146       "0lk7shx768sxvgr85y8bnmmnj8x4bbkgpxrz3z8jp8avi33prw83"))))
 147
 148 (define (texlive-hyphen-package name code locations hash)
 149   "Return a TeX Live hyphenation package with the given NAME, using source
 150 files from LOCATIONS with expected checksum HASH.  CODE is not currently in use."
 151   (let ((parent (simple-texlive-package
 152                  name locations hash #:trivial? #t)))
 153     (package
 154       (inherit parent)
 155       (arguments
 156        (substitute-keyword-arguments (package-arguments parent)
 157          ((#:phases phases)
 158           `(modify-phases ,phases
 159              (replace 'build
 160                (lambda* (#:key inputs outputs #:allow-other-keys)
 161                  (let* ((out (assoc-ref outputs "out"))
 162                         (root (string-append out "/share/texmf-dist"))
 163                         (patterns
 164                          (string-append root "/tex/generic/hyph-utf8/patterns/txt/"))
 165                         (loaders
 166                          (string-append root "/tex/generic/hyph-utf8/loadhyph"))
 167                         (ptex
 168                          (string-append root "/tex/generic/hyph-utf8/patterns/ptex"))
 169                         (quote
 170                          (string-append root "/tex/generic/hyph-utf8/patterns/quote")))
 171                    (mkdir "scripts")
 172                    (copy-recursively
 173                     (assoc-ref inputs "hyph-utf8-scripts") "scripts")
 174
 175                    ;; Prepare target directories
 176                    (mkdir-p patterns)
 177                    (mkdir-p loaders)
 178                    (mkdir-p ptex)
 179                    (mkdir-p quote)
 180
 181                    ;; Generate plain patterns
 182                    (with-directory-excursion "scripts"
 183                      (substitute* "lib/tex/hyphen/path.rb"
 184                        (("^([[:blank:]]+)TeXROOT = .*" _ indent)
 185                         (string-append indent "TeXROOT = \""
 186                                        (getcwd) "/..\"\n")))
 187
 188                      (substitute* "generate-plain-patterns.rb"
 189                        ;; Ruby 2 does not need this.
 190                        (("require 'unicode'") "")
 191                        ;; Write directly to the output directory
 192                        (("File\\.join\\(PATH::TXT")
 193                         (string-append "File.join(\"" patterns "\""))
 194                        (("File\\.join\\(PATH::QUOTE")
 195                         (string-append "File.join(\"" quote "\"")))
 196                      (invoke "ruby" "generate-plain-patterns.rb")
 197
 198                      ;; Build pattern loaders
 199                      (substitute* "generate-pattern-loaders.rb"
 200                        (("File\\.join\\(PATH::LOADER")
 201                         (string-append "File.join(\"" loaders "\"")))
 202
 203                      (invoke "ruby" "generate-pattern-loaders.rb")
 204
 205                      ;; Build ptex patterns
 206                      (substitute* "generate-ptex-patterns.rb"
 207                        (("File\\.join\\(PATH::PTEX")
 208                         (string-append "File.join(\"" ptex "\"")))
 209                      (invoke "ruby" "generate-ptex-patterns.rb")))))))))
 210       (native-inputs
 211        `(("ruby" ,ruby)
 212          ("ruby-hydra" ,ruby-hydra)
 213          ("hyph-utf8-scripts" ,hyph-utf8-scripts)))
 214       (home-page "https://ctan.org/pkg/hyph-utf8"))))
 215
 216 (define texlive-extra-src
 217   (origin
 218     (method url-fetch)
 219     (uri "ftp://tug.org/historic/systems/texlive/2019/texlive-20190410-extra.tar.xz")
 220     (sha256 (base32
 221              "13ncf2an4nlqv18lki6y2p6pcsgs1i54zqkhfwprax5j53bk70j8"))))
 222
 223 (define texlive-texmf-src
 224   (origin
 225     (method url-fetch)
 226     (uri "ftp://tug.org/historic/systems/texlive/2019/texlive-20190410-texmf.tar.xz")
 227     (sha256 (base32
 228              "00n4qh9fj8v9zzy3y488hpfq1g3dnnh72y4yjsaikfcqpi59gv62"))))
 229
 230 (define-public texlive-bin
 231   (package
 232    (name "texlive-bin")
 233    (version "20190410")
 234    (source
 235     (origin
 236       (method url-fetch)
 237       (uri (string-append "ftp://tug.org/historic/systems/texlive/2019/"
 238                           "texlive-" version "-source.tar.xz"))
 239       (sha256
 240        (base32
 241         "1dfps39q6bdr1zsbp9p74mvalmy3bycihv19sb9c6kg30kprz8nj"))
 242       (patches
 243        (let ((arch-patch
 244               (lambda (name revision hash)
 245                 (origin
 246                   (method url-fetch)
 247                   (uri (string-append "https://git.archlinux.org/svntogit/packages.git"
 248                                       "/plain/trunk/" name "?h=packages/texlive-bin"
 249                                       "&id=" revision))
 250                   (file-name (string-append "texlive-bin-" name))
 251                   (sha256 (base32 hash)))))
 252              (arch-revision "49d7fe25e5ea63f136ebc20270c1d8fc9b00041c"))
 253          (list
 254           (arch-patch "pdftex-poppler0.76.patch" arch-revision
 255                       "03vc88dz37mjjyaspzv0fik2fp5gp8qv82114869akd1dhszbaax")
 256           (search-patch "texlive-bin-poppler-0.83.patch")
 257           (arch-patch "texlive-poppler-0.84.patch" arch-revision
 258                       "1ia6cr99krk4ipx4hdi2qdb98bh2h26mckjlpxdzrjnfhlnghksa")
 259           (search-patch "texlive-bin-poppler-0.86.patch"))))
 260       (modules '((guix build utils)
 261                  (ice-9 ftw)))
 262       (snippet
 263        '(begin
 264           (with-directory-excursion "libs"
 265             (let ((preserved-directories '("." ".." "lua53" "luajit")))
 266               ;; Delete bundled software, except Lua which cannot easily be
 267               ;; used as an external dependency.
 268               (for-each delete-file-recursively
 269                         (scandir "."
 270                                  (lambda (file)
 271                                    (and (not (member file preserved-directories))
 272                                         (eq? 'directory (stat:type (stat file)))))))))
 273           ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
 274           #t))))
 275    (build-system gnu-build-system)
 276    (inputs
 277     `(("texlive-extra-src" ,texlive-extra-src)
 278       ("texlive-scripts"
 279        ,(origin
 280           (method svn-fetch)
 281           (uri (svn-reference
 282                 (url (string-append "svn://www.tug.org/texlive/tags/"
 283                                     %texlive-tag "/Master/texmf-dist/"
 284                                     "/scripts/texlive"))
 285                 (revision %texlive-revision)))
 286           (file-name (string-append "texlive-scripts-"
 287                                     (number->string %texlive-revision)
 288                                     "-checkout"))
 289           (sha256
 290            (base32
 291             "1cj04svl8bpfwjr4gqfcc04rmklz3aggrxvgj7q5bxrh7c7g18xh"))))
 292       ("cairo" ,cairo)
 293       ("fontconfig" ,fontconfig)
 294       ("fontforge" ,fontforge)
 295       ("freetype" ,freetype)
 296       ("gd" ,gd)
 297       ("gmp" ,gmp)
 298       ("ghostscript" ,ghostscript)
 299       ("graphite2" ,graphite2)
 300       ("harfbuzz" ,harfbuzz)
 301       ("icu4c" ,icu4c)
 302       ("libpaper" ,libpaper)
 303       ("libpng" ,libpng)
 304       ("libxaw" ,libxaw)
 305       ("libxt" ,libxt)
 306       ("mpfr" ,mpfr)
 307       ("perl" ,perl)
 308       ("pixman" ,pixman)
 309       ("poppler" ,poppler)
 310       ("potrace" ,potrace)
 311       ("python" ,python-2) ; incompatible with Python 3 (print syntax)
 312       ("ruby" ,ruby)
 313       ("tcsh" ,tcsh)
 314       ("teckit" ,teckit)
 315       ("zlib" ,zlib)
 316       ("zziplib" ,zziplib)))
 317    (native-inputs
 318     `(("pkg-config" ,pkg-config)))
 319    (arguments
 320     `(#:out-of-source? #t
 321       #:configure-flags
 322        '("--disable-static"
 323          "--disable-native-texlive-build"
 324          "--with-system-cairo"
 325          "--with-system-freetype2"
 326          "--with-system-gd"
 327          "--with-system-gmp"
 328          "--with-system-graphite2"
 329          "--with-system-harfbuzz"
 330          "--with-system-icu"
 331          "--with-system-libgs"
 332          "--with-system-libpaper"
 333          "--with-system-libpng"
 334          "--with-system-mpfr"
 335          "--with-system-pixman"
 336          "--with-system-poppler"
 337          "--with-system-potrace"
 338          "--with-system-teckit"
 339          "--with-system-xpdf"
 340          "--with-system-zlib"
 341          "--with-system-zziplib")
 342
 343       ;; Disable tests on mips64/aarch64 to cope with a failure of luajiterr.test.
 344       ;; XXX FIXME fix luajit properly on mips64 and aarch64.
 345       #:tests? ,(let ((s (or (%current-target-system)
 346                              (%current-system))))
 347                   (not (or (string-prefix? "aarch64" s)
 348                            (string-prefix? "mips64" s))))
 349       #:phases
 350       (modify-phases %standard-phases
 351         (add-after 'unpack 'configure-ghostscript-executable
 352           ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows,
 353           ;; and the "gs" ghostscript executable on Unix. It detects Unix by
 354           ;; checking for the existence of the /usr/bin directory. Since
 355           ;; Guix System does not have /usr/bin, it is also detected as Windows.
 356           (lambda* (#:key inputs #:allow-other-keys)
 357             (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl"
 358               (("gswin32c") "gs"))
 359             (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
 360               (("\"gs\"")
 361                (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))
 362             #t))
 363         (add-after 'unpack 'use-code-for-new-poppler
 364           (lambda _
 365             (copy-file "texk/web2c/pdftexdir/pdftoepdf-poppler0.76.0.cc"
 366                        "texk/web2c/pdftexdir/pdftoepdf.cc")
 367             (copy-file "texk/web2c/pdftexdir/pdftosrc-poppler0.76.0.cc"
 368                        "texk/web2c/pdftexdir/pdftosrc.cc")
 369             #t))
 370         (add-after 'unpack 'patch-dvisvgm-build-files
 371           (lambda _
 372             ;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so
 373             ;; the appropriate linker flags are not added.
 374             (substitute* "texk/dvisvgm/configure"
 375               (("^have_libgs=yes" all)
 376                (string-append all "\nHAVE_LIBGS=1")))
 377             #t))
 378         (add-after 'unpack 'disable-failing-test
 379           (lambda _
 380             ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
 381             ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
 382             (substitute* "texk/web2c/omegafonts/check.test"
 383               (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
 384                "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))
 385             #t))
 386         (add-after 'install 'postint
 387           (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
 388             (let* ((out (assoc-ref outputs "out"))
 389                    (share (string-append out "/share"))
 390                    (texlive-extra (assoc-ref inputs "texlive-extra-src"))
 391                    (unpack (assoc-ref %standard-phases 'unpack))
 392                    (patch-source-shebangs
 393                     (assoc-ref %standard-phases 'patch-source-shebangs)))
 394               (substitute* (string-append share "/texmf-dist/web2c/texmf.cnf")
 395                 ;; Don't truncate lines.
 396                 (("^error_line = .*$") "error_line = 254\n")
 397                 (("^half_error_line = .*$") "half_error_line = 238\n")
 398                 (("^max_print_line = .*$") "max_print_line = 1000\n"))
 399               ;; Create symbolic links for the latex variants and their
 400               ;; man pages.
 401               (with-directory-excursion (string-append out "/bin/")
 402                 (for-each symlink
 403                           '("pdftex" "pdftex"   "xetex"   "luatex")
 404                           '("latex"  "pdflatex" "xelatex" "lualatex")))
 405               (with-directory-excursion (string-append share "/man/man1/")
 406                 (symlink "luatex.1" "lualatex.1"))
 407               ;; Unpack texlive-extra and install tlpkg.
 408               (mkdir "texlive-extra")
 409               (with-directory-excursion "texlive-extra"
 410                 (apply unpack (list #:source texlive-extra))
 411                 (apply patch-source-shebangs (list #:source texlive-extra))
 412                 (invoke "mv" "tlpkg" share))
 413               (let ((scripts (string-append share "/texmf-dist/scripts/texlive/")))
 414                 (mkdir-p scripts)
 415                 (copy-recursively (assoc-ref inputs "texlive-scripts") scripts)
 416                 ;; Make sure that fmtutil can find its Perl modules.
 417                 (substitute* (string-append scripts "fmtutil.pl")
 418                   (("\\$TEXMFROOT/") (string-append share "/"))))
 419
 420               ;; texlua shebangs are not patched by the patch-source-shebangs
 421               ;; phase because the texlua executable does not exist at that
 422               ;; time.
 423               (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
 424               (with-directory-excursion out
 425                 (patch-source-shebangs))))))))
 426    (native-search-paths
 427     (list (search-path-specification
 428            (variable "TEXMF")
 429            (files '("share/texmf-dist"))
 430            (separator #f))
 431           (search-path-specification
 432            (variable "TEXMFCNF")
 433            (files '("share/texmf-dist/web2c"))
 434            (separator #f))))
 435    (synopsis "TeX Live, a package of the TeX typesetting system")
 436    (description
 437     "TeX Live provides a comprehensive TeX document production system.
 438 It includes all the major TeX-related programs, macro packages, and fonts
 439 that are free software, including support for many languages around the
 440 world.
 441
 442 This package contains the binaries.")
 443    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
 444    (home-page "https://www.tug.org/texlive/")))
 445
 446 \f
 447 (define texlive-docstrip
 448   (package
 449     (inherit (simple-texlive-package
 450               "texlive-docstrip"
 451               (list "/tex/latex/base/docstrip.tex")
 452               (base32
 453                "1f9sx1lp7v34zwm186msf03q2h28rrg0lh65z59zc0cvqffs6dvb")
 454               #:trivial? #t))
 455     (home-page "https://www.ctan.org/texlive")
 456     (synopsis "Utility to strip documentation from TeX files.")
 457     (description "This package provides the docstrip utility to strip
 458 documentation from TeX files.  It is part of the LaTeX base.")
 459     (license license:lppl1.3+)))
 460
 461 (define-public texlive-unicode-data
 462   (package
 463     (inherit (simple-texlive-package
 464               "texlive-unicode-data"
 465               (list "/tex/generic/unicode-data/"
 466                     "/doc/generic/unicode-data/")
 467               (base32
 468                "0zy4v9y667cka5fi4dnc6x500907812y7pcaf63s5qxi8l7khxxy")
 469               #:trivial? #t))
 470     (home-page "https://www.ctan.org/pkg/unicode-data")
 471     (synopsis "Unicode data and loaders for TeX")
 472     (description "This bundle provides generic access to Unicode Consortium
 473 data for TeX use.  It contains a set of text files provided by the Unicode
 474 Consortium which are currently all from Unicode 8.0.0, with the exception of
 475 @code{MathClass.txt} which is not currently part of the Unicode Character
 476 Database.  Accompanying these source data are generic TeX loader files
 477 allowing this data to be used as part of TeX runs, in particular in building
 478 format files.  Currently there are two loader files: one for general character
 479 set up and one for initializing XeTeX character classes as has been carried
 480 out to date by @code{unicode-letters.tex}. ")
 481     (license license:lppl1.3c+)))
 482
 483 (define-public texlive-generic-unicode-data
 484   (deprecated-package "texlive-generic-unicode-data" texlive-unicode-data))
 485
 486 (define-public texlive-hyphen-base
 487   (package
 488     (inherit (simple-texlive-package
 489               "texlive-hyphen-base"
 490               (list "/tex/generic/config/language.dat"
 491                     "/tex/generic/config/language.dat.lua"
 492                     "/tex/generic/config/language.def"
 493                     "/tex/generic/config/language.us"
 494                     "/tex/generic/config/language.us.def"
 495                     "/tex/generic/config/language.us.lua"
 496                     "/tex/generic/hyphen/dumyhyph.tex"
 497                     "/tex/generic/hyphen/hyphen.tex"
 498                     "/tex/generic/hyphen/hypht1.tex"
 499                     "/tex/generic/hyphen/zerohyph.tex")
 500               (base32
 501                "0f19nml4hdx9lh7accqdk1b9ismwfm2523l5zsc4kb4arysgcakz")
 502               #:trivial? #t))
 503     (home-page "https://tug.org/texlive/")
 504     (synopsis "Core hyphenation support files")
 505     (description "This package includes Knuth's original @file{hyphen.tex},
 506 @file{zerohyph.tex} to disable hyphenation, @file{language.us} which starts
 507 the autogenerated files @file{language.dat} and @file{language.def} (and
 508 default versions of those), etc.")
 509     (license license:knuth)))
 510
 511 (define-public texlive-dvips
 512   (package
 513     (inherit (simple-texlive-package
 514               "texlive-dvips"
 515               (list "/doc/man/man1/afm2tfm.1"
 516                     "/doc/man/man1/dvips.1"
 517                     "/dvips/base/"
 518                     "/dvips/config/"
 519                     "/fonts/enc/dvips/base/"
 520                     "/tex/generic/dvips/")
 521               (base32
 522                "1qr7h0ahycmz5wmpv54glfss9jqdmmyymj6kim626d1c8v9bmg86")
 523               #:trivial? #t))
 524     (home-page "https://www.ctan.org/pkg/dvips")
 525     (synopsis "DVI to PostScript drivers")
 526     (description "This package provides files needed for converting DVI files
 527 to PostScript.")
 528     (license license:lppl)))
 529
 530 (define-public texlive-tex-ini-files
 531   (package
 532     (inherit (simple-texlive-package
 533               "texlive-tex-ini-files"
 534               (list "/tex/generic/tex-ini-files/")
 535               (base32
 536                "0q1g62jg0qiqslm93ycvm30bw8ydmssjdshzsnzl7n2vpd62qfi2")
 537               #:trivial? #t))
 538     (home-page "https://www.ctan.org/pkg/tex-ini-files")
 539     (synopsis "Files for creating TeX formats")
 540     (description "This bundle provides a collection of model \".ini\" files
 541 for creating TeX formats.  These files are commonly used to introduced
 542 distribution-dependent variations in formats.  They are also used to
 543 allow existing format source files to be used with newer engines, for example
 544 to adapt the plain e-TeX source file to work with XeTeX and LuaTeX.")
 545     (license license:public-domain)))
 546
 547 (define-public texlive-generic-tex-ini-files
 548   (deprecated-package "texlive-generic-tex-ini-files" texlive-tex-ini-files))
 549
 550 (define-public texlive-metafont-base
 551   (package
 552     (name "texlive-metafont-base")
 553     (version (number->string %texlive-revision))
 554     (source (origin
 555               (method svn-fetch)
 556               (uri (svn-reference
 557                     (url (string-append "svn://www.tug.org/texlive/tags/"
 558                                         %texlive-tag "/Master/texmf-dist/"
 559                                         "/metafont"))
 560                     (revision %texlive-revision)))
 561               (file-name (string-append name "-" version "-checkout"))
 562               (sha256
 563                (base32
 564                 "1yl4n8cn5xqk2nc22zgzq6ymd7bhm6xx1mz3azip7i3ki4bhb5q5"))))
 565     (build-system gnu-build-system)
 566     (arguments
 567      `(#:tests? #f ; no test target
 568        #:phases
 569        (modify-phases %standard-phases
 570          (delete 'configure)
 571          (replace 'build
 572            (lambda* (#:key inputs #:allow-other-keys)
 573              (let ((cwd (getcwd)))
 574                (setenv "MFINPUTS"
 575                        (string-append cwd "/base:"
 576                                       cwd "/misc:"
 577                                       cwd "/roex:"
 578                                       cwd "/feynmf:"
 579                                       cwd "/mfpic:"
 580                                       cwd "/config")))
 581              (mkdir "build")
 582              (with-directory-excursion "build"
 583                (invoke "inimf" "mf.mf"))))
 584          (replace 'install
 585            (lambda* (#:key outputs #:allow-other-keys)
 586              (let* ((out  (assoc-ref outputs "out"))
 587                     (base (string-append out "/share/texmf-dist/web2c"))
 588                     (mf   (string-append out "/share/texmf-dist/metafont/base")))
 589                (mkdir-p base)
 590                (mkdir-p mf)
 591                (install-file "build/mf.base" base)
 592                (copy-recursively "base" mf)
 593                #t))))))
 594     (native-inputs
 595      `(("texlive-bin" ,texlive-bin)))
 596     (home-page "https://www.ctan.org/pkg/metafont")
 597     (synopsis "Metafont base files")
 598     (description "This package provides the Metafont base files needed to
 599 build fonts using the Metafont system.")
 600     (license license:knuth)))
 601
 602 (define-public texlive-fontinst
 603   (let ((template (simple-texlive-package
 604                    "texlive-fontinst"
 605                    (list "/doc/fonts/fontinst/"
 606                          "/doc/man/man1/fontinst.1"
 607                          "/doc/man/man1/fontinst.man1.pdf"
 608
 609                          ;; This is used to build parts of
 610                          ;; /tex/fontinst/{base,misc}/ and
 611                          ;; /tex/latex/fontinst/fontdoc.sty.
 612                          "/source/fontinst/base/"
 613
 614                          ;; These are not generated.
 615                          "/tex/fontinst/base/bbox.sty"
 616                          "/tex/fontinst/base/multislot.sty"
 617                          "/tex/fontinst/misc/glyphbox.mtx"
 618                          "/tex/fontinst/misc/glyphoff.mtx"
 619                          "/tex/fontinst/misc/glyphon.mtx"
 620                          "/tex/fontinst/misc/kernoff.mtx"
 621                          "/tex/fontinst/misc/kernon.mtx"
 622
 623                          "/tex/fontinst/latinetx/"
 624                          "/tex/fontinst/latinmtx/"
 625                          "/tex/fontinst/mathmtx/"
 626                          "/tex/fontinst/smblmtx/"
 627
 628                          "/scripts/texlive/fontinst.sh")
 629                    (base32
 630                     "0lprwib7n2ygfxvrw675vhif7ghyip2x6k70kqs9syp8lqxiizf8")
 631                    #:trivial? #t)))
 632     (package
 633       (inherit template)
 634       (arguments
 635        (substitute-keyword-arguments (package-arguments template)
 636          ((#:modules _ '())
 637           '((guix build gnu-build-system)
 638             (guix build utils)
 639             (ice-9 match)))
 640          ((#:phases phases)
 641           `(modify-phases ,phases
 642              (replace 'build
 643                (lambda* (#:key inputs #:allow-other-keys)
 644                  (setenv "TEXINPUTS"
 645                          (string-append (getcwd) "//:"
 646                                         (getcwd) "/source/fontinst/base//:"
 647                                         (assoc-ref inputs "texlive-docstrip") "//"))
 648                  (mkdir "build")
 649                  (invoke "tex" "-ini" "-interaction=scrollmode"
 650                          "-output-directory=build"
 651                          "fontinst.ins")))
 652              ;; Since we're using docstrip without LaTeX we can't set \UseTDS
 653              ;; or \BaseDirectory, so the generated files are just dumped in
 654              ;; the "build" directory.
 655              (add-after 'install 'install-generated-files
 656                (lambda* (#:key outputs #:allow-other-keys)
 657                  (let* ((out (assoc-ref outputs "out"))
 658                         (root (string-append out "/share/texmf-dist")))
 659                    (for-each (match-lambda
 660                                ((dir files ...)
 661                                 (for-each (lambda (file)
 662                                             (install-file
 663                                              (string-append "build/" file)
 664                                              (string-append root dir)))
 665                                           files)))
 666                              '(("/tex/fontinst/base"
 667                                 "fontinst.sty"
 668                                 "cfntinst.sty"
 669                                 "xfntinst.sty"
 670                                 "finstmsc.sty"
 671                                 "fontinst.ini")
 672                                ("/tex/fontinst/misc"
 673                                 "csc2x.tex"
 674                                 "csckrn2x.tex"
 675                                 "osf2x.tex")
 676                                ("/tex/latex/fontinst"
 677                                 "fontdoc.sty")))
 678                    #t)))))))
 679       (native-inputs
 680        `(("texlive-bin" ,texlive-bin)
 681          ("texlive-docstrip" ,texlive-docstrip)))
 682       (home-page "https://www.ctan.org/pkg/fontinst")
 683       (synopsis "Tools for converting and installing fonts for TeX and LaTeX")
 684       (description "This package provides TeX macros for converting Adobe Font
 685 Metric files to TeX metric and virtual font format.  Fontinst helps mainly
 686 with the number crunching and shovelling parts of font installation.  This
 687 means in practice that it creates a number of files which give the TeX
 688 metrics (and related information) for a font family that TeX needs to do any
 689 typesetting in these fonts.")
 690       (license license:lppl1.1+))))
 691
 692 (define-public texlive-tex-fontinst-base
 693   (deprecated-package "texlive-tex-fontinst-base" texlive-fontinst))
 694
 695 (define-public texlive-fontname
 696   (package
 697     (inherit (simple-texlive-package
 698               "texlive-fontname"
 699               (list "/doc/fonts/fontname/fontname.texi"
 700                     "/fonts/map/fontname/")
 701               (base32
 702                "0h5im5rnhycrrkd6z10f17m2caa8lv594wf482b68qjmnxfrqnxj")
 703               #:trivial? #t))
 704     (home-page "https://www.ctan.org/pkg/fontname")
 705     (synopsis "Scheme for naming fonts in TeX")
 706     (description "This is Fontname, a naming scheme for (the base part of)
 707 external TeX font filenames.  This makes at most eight-character names
 708 from (almost) arbitrarily complex font names, thus helping portability of TeX
 709 documents.")
 710     (license license:public-domain)))
 711
 712 (define-public texlive-cm
 713   (let ((template (simple-texlive-package
 714                    "texlive-cm"
 715                    (list "/fonts/source/public/cm/"
 716                          "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
 717                          "/doc/fonts/cm/")
 718                    (base32
 719                     "09mvl94qrwlb9b4pkigi151l256v3djhwl4m5lgvk6yhn5y75zrp")
 720                    #:trivial? #t)))
 721     (package
 722       (inherit template)
 723       (arguments
 724        (substitute-keyword-arguments (package-arguments template)
 725          ((#:modules modules '())
 726           '((guix build gnu-build-system)
 727             (guix build utils)
 728             (srfi srfi-26)))
 729          ((#:phases phases)
 730           `(modify-phases ,phases
 731              (replace 'build
 732                (lambda* (#:key inputs #:allow-other-keys)
 733                  (let ((mf (assoc-ref inputs "texlive-metafont-base")))
 734                    ;; Tell mf where to find mf.base
 735                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 736                    ;; Tell mf where to look for source files
 737                    (setenv "MFINPUTS"
 738                            (string-append (getcwd) "/fonts/source/public/cm/:"
 739                                           mf "/share/texmf-dist/metafont/base")))
 740                  (for-each make-file-writable
 741                            (cons "fonts/source/public/cm/"
 742                                  (find-files "fonts/source/public/cm/" ".*")))
 743                  (let ((build (string-append (getcwd) "/build"))
 744                        (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
 745                    (mkdir-p pkdir)
 746                    (mkdir-p build)
 747                    (with-directory-excursion "fonts/source/public/cm/"
 748                      (for-each (lambda (font)
 749                                  (format #t "building font ~a\n" font)
 750                                  (invoke "mf" "-progname=mf"
 751                                          (string-append "-output-directory=" build)
 752                                          (string-append "\\"
 753                                                         "mode:=ljfour; "
 754                                                         "mag:=1+0/600; "
 755                                                         "scrollmode; "
 756                                                         "input "
 757                                                         (basename font ".mf")))
 758                                  (invoke "gftopk"
 759                                          (string-append build "/"
 760                                                         (basename font ".mf") ".600gf")
 761                                          (string-append pkdir "/"
 762                                                         (basename font ".mf") ".pk")))
 763                                (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
 764                  #t))
 765              (add-after 'install 'install-generated-fonts
 766                (lambda* (#:key inputs outputs #:allow-other-keys)
 767                  (let* ((out    (assoc-ref outputs "out"))
 768                         (fonts  (string-append out "/share/texmf-dist/fonts/"))
 769                         (pk     (string-append fonts "pk"))
 770                         (tfm    (string-append fonts "tfm/public/cm")))
 771                    (for-each (cut install-file <> tfm)
 772                              (find-files "build" "\\.*"))
 773                    (copy-recursively "pk" pk)
 774                    #t)))))))
 775       (native-inputs
 776        `(("texlive-bin" ,texlive-bin)
 777          ("texlive-metafont-base" ,texlive-metafont-base)))
 778       (home-page "https://www.ctan.org/pkg/cm")
 779       (synopsis "Computer Modern fonts for TeX")
 780       (description "This package provides the Computer Modern fonts by Donald
 781 Knuth.  The Computer Modern font family is a large collection of text,
 782 display, and mathematical fonts in a range of styles, based on Monotype Modern
 783 8A.")
 784       (license license:knuth))))
 785
 786 (define-public texlive-fonts-cm
 787   (deprecated-package "texlive-fonts-cm" texlive-cm))
 788
 789 (define-public texlive-cm-super
 790   (let ((template (simple-texlive-package
 791                    "texlive-cm-super"
 792                    (list "/doc/fonts/cm-super/"
 793                          "/dvips/cm-super/"
 794                          "/fonts/afm/public/cm-super/"
 795                          "/fonts/enc/dvips/cm-super/"
 796                          "/fonts/map/dvips/cm-super/"
 797                          "/fonts/map/vtex/cm-super/"
 798                          "/fonts/type1/public/cm-super/"
 799                          "/tex/latex/cm-super/")
 800                    (base32
 801                     "1k3afl0x0bqbr5mnawbnp7rr2126dwn0vwnxzibm9ggvzqilnkm6")
 802                    #:trivial? #t)))
 803     (package
 804       (inherit template)
 805       (arguments
 806        (substitute-keyword-arguments (package-arguments template)
 807          ((#:phases phases)
 808           `(modify-phases ,phases
 809              (delete 'reset-gzip-timestamps)))))
 810       (home-page "https://www.ctan.org/pkg/cm-super")
 811       (synopsis "Computer Modern Super family of fonts")
 812       (description "The CM-Super family provides Adobe Type 1 fonts that replace
 813 the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete,
 814 T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European
 815 languages except Greek), and bringing many ameliorations in typesetting
 816 quality.  The fonts exhibit the same metrics as the METAFONT-encoded
 817 originals.")
 818       ;; With font exception
 819       (license license:gpl2+))))
 820
 821 (define-public texlive-fonts-cm-super
 822   (deprecated-package "texlive-fonts-cm-super" texlive-cm-super))
 823
 824 (define-public texlive-lm
 825   (package
 826     (inherit (simple-texlive-package
 827               "texlive-lm"
 828               (list "/doc/fonts/lm/"
 829                     "/fonts/afm/public/lm/"
 830                     "/fonts/enc/dvips/lm/"
 831                     "/fonts/map/dvipdfm/lm/"
 832                     "/fonts/map/dvips/lm/"
 833                     "/fonts/opentype/public/lm/"
 834                     "/fonts/tfm/public/lm/"
 835                     "/fonts/type1/public/lm/"
 836                     "/tex/latex/lm/")
 837               (base32
 838                "0i1hwr8rp0jqyvs4qyplrirscd4w7lsgwsncyv3yzy80bsa56jq5")
 839               #:trivial? #t))
 840     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
 841     (synopsis "Latin Modern family of fonts")
 842     (description "The Latin Modern fonts are derived from the famous Computer
 843 Modern fonts designed by Donald E. Knuth and described in Volume E of his
 844 Computers & Typesetting series.")
 845     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
 846     ;; Public License (LPPL), version 1.3c or later, but comes with an
 847     ;; additional but not legally binding clause.
 848     (license license:lppl1.3c+)))
 849
 850 (define-public texlive-fonts-lm
 851   (deprecated-package "texlive-fonts-lm" texlive-lm))
 852
 853 (define-public texlive-fonts-knuth-lib
 854   (package
 855     (name "texlive-fonts-knuth-lib")
 856     (version (number->string %texlive-revision))
 857     (source (origin
 858               (method svn-fetch)
 859               (uri (svn-reference
 860                     (url (string-append "svn://www.tug.org/texlive/tags/"
 861                                         %texlive-tag "/Master/texmf-dist/"
 862                                         "/fonts/source/public/knuth-lib"))
 863                     (revision %texlive-revision)))
 864               (file-name (string-append name "-" version "-checkout"))
 865               (sha256
 866                (base32
 867                 "0in9aqyi8jkyf9d16z0li50z5fpwj1iwgwm83gmvwqcf7chfs04y"))))
 868     (build-system gnu-build-system)
 869     (arguments
 870      `(#:modules ((guix build gnu-build-system)
 871                   (guix build utils)
 872                   (srfi srfi-26))
 873        #:tests? #f ; no tests
 874        #:phases
 875        (modify-phases %standard-phases
 876          (delete 'configure)
 877          (replace 'build
 878            (lambda* (#:key inputs #:allow-other-keys)
 879              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
 880                ;; Tell mf where to find mf.base
 881                (setenv "MFBASES"
 882                        (string-append mf "/share/texmf-dist/web2c"))
 883                ;; Tell mf where to look for source files
 884                (setenv "MFINPUTS"
 885                        (string-append (getcwd) ":"
 886                                       mf "/share/texmf-dist/metafont/base")))
 887              (mkdir "build")
 888              (for-each (lambda (font)
 889                          (format #t "building font ~a\n" font)
 890                          (invoke "mf" "-progname=mf"
 891                                  "-output-directory=build"
 892                                  (string-append "\\"
 893                                                 "mode:=ljfour; "
 894                                                 "mag:=1; "
 895                                                 "batchmode; "
 896                                                 "input " font)))
 897                        (find-files "." "(manfnt|logo.+)\\.mf$"))
 898              #t))
 899          (replace 'install
 900            (lambda* (#:key outputs #:allow-other-keys)
 901              (let* ((out (assoc-ref outputs "out"))
 902                     (tfm (string-append
 903                           out "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
 904                     (mf  (string-append
 905                           out "/share/texmf-dist/fonts/source/public/knuth-lib")))
 906                (for-each (cut install-file <> tfm)
 907                          (find-files "build" "\\.*"))
 908                (for-each (cut install-file <> mf)
 909                          (find-files "." "\\.mf"))
 910                #t))))))
 911     (native-inputs
 912      `(("texlive-bin" ,texlive-bin)
 913        ("texlive-metafont-base" ,texlive-metafont-base)))
 914     (home-page "https://www.ctan.org/pkg/knuth-lib")
 915     (synopsis "Small library of METAFONT sources")
 916     (description "This is a collection of core TeX and METAFONT macro files
 917 from Donald Knuth, including the plain format, plain base, and the MF logo
 918 fonts.")
 919     (license license:knuth)))
 920
 921 (define-public texlive-fonts-latex
 922   (package
 923     (name "texlive-fonts-latex")
 924     (version (number->string %texlive-revision))
 925     (source (origin
 926               (method svn-fetch)
 927               (uri (svn-reference
 928                     (url (string-append "svn://www.tug.org/texlive/tags/"
 929                                         %texlive-tag "/Master/texmf-dist/"
 930                                         "/fonts/source/public/latex-fonts"))
 931                     (revision %texlive-revision)))
 932               (file-name (string-append name "-" version "-checkout"))
 933               (sha256
 934                (base32
 935                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
 936     (build-system gnu-build-system)
 937     (arguments
 938      `(#:modules ((guix build gnu-build-system)
 939                   (guix build utils)
 940                   (srfi srfi-1)
 941                   (srfi srfi-26))
 942        #:tests? #f                      ; no tests
 943        #:phases
 944        (modify-phases %standard-phases
 945          (delete 'configure)
 946          (replace 'build
 947            (lambda* (#:key inputs #:allow-other-keys)
 948              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
 949                ;; Tell mf where to find mf.base
 950                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 951                ;; Tell mf where to look for source files
 952                (setenv "MFINPUTS"
 953                        (string-append (getcwd) ":"
 954                                       mf "/share/texmf-dist/metafont/base:"
 955                                       (assoc-ref inputs "texlive-cm")
 956                                       "/share/texmf-dist/fonts/source/public/cm")))
 957              (mkdir "build")
 958              (for-each (lambda (font)
 959                          (format #t "building font ~a\n" font)
 960                          (invoke "mf" "-progname=mf"
 961                                  "-output-directory=build"
 962                                  (string-append "\\"
 963                                                 "mode:=ljfour; "
 964                                                 "mag:=1; "
 965                                                 "batchmode; "
 966                                                 "input " font)))
 967                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
 968                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
 969                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
 970                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
 971                          "line10" "linew10"))
 972              #t))
 973          (replace 'install
 974            (lambda* (#:key outputs #:allow-other-keys)
 975              (let* ((out (assoc-ref outputs "out"))
 976                     (tfm (string-append
 977                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
 978                     (mf  (string-append
 979                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
 980                (for-each (cut install-file <> tfm)
 981                          (find-files "build" "\\.*"))
 982                (for-each (cut install-file <> mf)
 983                          (find-files "." "\\.mf"))
 984                #t))))))
 985     (native-inputs
 986      `(("texlive-bin" ,texlive-bin)
 987        ("texlive-metafont-base" ,texlive-metafont-base)
 988        ("texlive-cm" ,texlive-cm)))
 989     (home-page "https://www.ctan.org/pkg/latex-fonts")
 990     (synopsis "Collection of fonts used in LaTeX distributions")
 991     (description "This is a collection of fonts for use with standard LaTeX
 992 packages and classes. It includes invisible fonts (for use with the slides
 993 class), line and circle fonts (for use in the picture environment) and LaTeX
 994 symbol fonts.")
 995     (license license:lppl1.2+)))
 996
 997 (define-public texlive-latex-mflogo
 998   (package
 999     (name "texlive-latex-mflogo")
1000     (version (number->string %texlive-revision))
1001     (source
1002      (origin
1003        (method svn-fetch)
1004        (uri (texlive-ref "latex" "mflogo"))
1005        (file-name (string-append name "-" version "-checkout"))
1006        (sha256
1007         (base32
1008          "15i2ib6nvhf31g1b92c6njf7n0g29znlq7hbfp9ii7qabhcwwvrj"))))
1009     (build-system texlive-build-system)
1010     (arguments '(#:tex-directory "latex/mflogo"))
1011     (home-page "http://www.ctan.org/pkg/mflogo")
1012     (synopsis "LaTeX support for Metafont logo fonts")
1013     (description
1014      "This package provides LaTeX and font definition files to access the
1015 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1016 logos in LaTeX documents.")
1017     (license license:lppl)))
1018
1019 (define-public texlive-mflogo-font
1020   (package
1021     (inherit (simple-texlive-package
1022               "texlive-mflogo-font"
1023               (list "/doc/fonts/mflogo-font/README"
1024                     "/fonts/afm/hoekwater/mflogo-font/"
1025                     "/fonts/map/dvips/mflogo-font/"
1026                     "/fonts/type1/hoekwater/mflogo-font/")
1027               (base32
1028                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1029               #:trivial? #t))
1030     (home-page "https://www.ctan.org/pkg/mflogo-font")
1031     (synopsis "Metafont logo font")
1032     (description
1033      "These fonts were created in METAFONT by Knuth, for his own publications.
1034 At some stage, the letters P and S were added, so that the METAPOST logo could
1035 also be expressed.  The fonts were originally issued (of course) as METAFONT
1036 source; they have since been autotraced and reissued in Adobe Type 1 format by
1037 Taco Hoekwater.")
1038     (license license:knuth)))
1039
1040 (define-public texlive-fonts-mflogo-font
1041   (deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
1042
1043 (define-public texlive-amsfonts
1044   (let ((template (simple-texlive-package
1045                    "texlive-amsfonts"
1046                    (list "/source/latex/amsfonts/"
1047                          "/fonts/source/public/amsfonts/"
1048                          "/fonts/type1/public/amsfonts/"
1049                          "/fonts/afm/public/amsfonts/"
1050                          "/fonts/map/dvips/amsfonts/"
1051                          "/tex/plain/amsfonts/"
1052                          "/doc/fonts/amsfonts/")
1053                    (base32
1054                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1055     (package
1056       (inherit template)
1057       (arguments
1058        (substitute-keyword-arguments (package-arguments template)
1059          ((#:build-targets _ #t)
1060           '(list "amsfonts.ins"))
1061          ((#:tex-directory _ #t)
1062           "latex/amsfonts")
1063          ((#:modules modules '())
1064           `((guix build texlive-build-system)
1065             (guix build utils)
1066             (ice-9 match)
1067             (srfi srfi-1)
1068             (srfi srfi-26)))
1069          ((#:phases phases)
1070           `(modify-phases ,phases
1071              (add-before 'build 'build-fonts
1072                (lambda* (#:key inputs #:allow-other-keys)
1073                  (let ((mf  (assoc-ref inputs "texlive-union"))
1074                        (src (string-append (getcwd) "/fonts/source/public/amsfonts/")))
1075                    ;; Make METAFONT reproducible
1076                    (setenv "SOURCE_DATE_EPOCH" "1")
1077                    ;; Tell mf where to find mf.base
1078                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1079                    ;; Tell mf where to look for source files
1080                    (setenv "MFINPUTS"
1081                            (string-append src ":"
1082                                           src "/cmextra:"
1083                                           src "/cyrillic:"
1084                                           src "/dummy:"
1085                                           src "/symbols:"
1086                                           mf "/share/texmf-dist/metafont/base:"
1087                                           (assoc-ref inputs "texlive-cm")
1088                                           "/share/texmf-dist/fonts/source/public/cm")))
1089                  (let ((build (string-append (getcwd) "/build-fonts")))
1090                    (mkdir-p build)
1091                    (with-directory-excursion "fonts/source/public/amsfonts"
1092                      (for-each (lambda (font)
1093                                  (format #t "building font ~a\n" (basename font ".mf"))
1094                                  (with-directory-excursion (dirname font)
1095                                    (invoke "mf" "-progname=mf"
1096                                            (string-append "-output-directory=" build)
1097                                            (string-append "\\"
1098                                                           "mode:=ljfour; "
1099                                                           "mag:=1; "
1100                                                           "nonstopmode; "
1101                                                           "input "
1102                                                           (getcwd) "/"
1103                                                           (basename font ".mf")))))
1104                                (find-files "." "[0-9]+\\.mf$"))))
1105
1106                  ;; There are no metafont sources for the Euler fonts, so we
1107                  ;; convert the afm files instead.
1108                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1109                    (mkdir build)
1110                    (with-directory-excursion "fonts/afm/public/amsfonts/"
1111                      (for-each (lambda (font)
1112                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1113                                  (invoke "afm2tfm" font
1114                                          (string-append build "/"
1115                                                         (basename font ".tfm"))))
1116                                (find-files "." "\\.afm$")))
1117
1118                    ;; Frustratingly, not all fonts can be created this way.  To
1119                    ;; generate eufm8.tfm, for example, we first scale down
1120                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1121                    ;; the pl file.
1122                    (setenv "TEXINPUTS"
1123                            (string-append build "//:"
1124                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1125                                           (getcwd) "/source/latex/amsfonts//:"
1126                                           (assoc-ref inputs "texlive-union") "//"))
1127                    (with-directory-excursion build
1128                      (for-each (match-lambda
1129                                  (((target-base target-size)
1130                                    (source-base source-size))
1131                                   (let ((factor (number->string
1132                                                  (truncate/ (* 1000 target-size)
1133                                                             source-size))))
1134                                     (invoke "tex"
1135                                             "-interaction=scrollmode"
1136                                             (string-append "\\input fontinst.sty "
1137                                                            "\\transformfont{" target-base "}"
1138                                                            "{\\scalefont{" factor "}"
1139                                                            "{\\fromafm{" source-base "}}} "
1140                                                            "\\bye")))
1141                                   (invoke "pltotf"
1142                                           (string-append target-base ".pl")
1143                                           (string-append target-base ".tfm"))
1144                                   (delete-file (string-append target-base ".pl"))))
1145
1146                                '((("eufm8" 8) ("eufm10" 10))
1147
1148                                  (("eufb6" 6) ("eufb7" 7))
1149                                  (("eufb8" 8) ("eufb10" 10))
1150                                  (("eufb9" 9) ("eufb10" 10))
1151
1152                                  (("eufm6" 6) ("eufb7" 7))
1153                                  (("eufm9" 9) ("eufb10" 10))
1154
1155                                  (("eurb6" 6) ("eurb7" 7))
1156                                  (("eurb8" 8) ("eurb10" 10))
1157                                  (("eurb9" 9) ("eurb10" 10))
1158
1159                                  (("eurm6" 6) ("eurm7" 7))
1160                                  (("eurm8" 8) ("eurm10" 10))
1161                                  (("eurm9" 9) ("eurm10" 10))))))
1162                  #t))
1163              (add-after 'install 'install-generated-fonts
1164                (lambda* (#:key inputs outputs #:allow-other-keys)
1165                  (copy-recursively "build-fonts"
1166                                    (string-append
1167                                     (assoc-ref outputs "out")
1168                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))
1169                  #t))))))
1170       (native-inputs
1171        `(("texlive-union" ,(texlive-union (list texlive-tex-fontinst-base
1172                                                 texlive-cm
1173                                                 texlive-metafont-base)))))
1174       (home-page "https://www.ctan.org/pkg/amsfonts")
1175       (synopsis "TeX fonts from the American Mathematical Society")
1176       (description
1177        "This package provides an extended set of fonts for use in mathematics,
1178 including: extra mathematical symbols; blackboard bold letters (uppercase
1179 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1180 letters; subscript sizes of large symbols such as sum and product; added sizes
1181 of the Computer Modern small caps font; cyrillic fonts (from the University of
1182 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1183 files, and all except the Euler fonts are provided as Metafont source.  The
1184 distribution also includes the canonical Type 1 versions of the Computer
1185 Modern family of fonts.  The Euler fonts are supported by separate packages;
1186 details can be found in the documentation.")
1187       (license license:silofl1.1))))
1188
1189 (define-public texlive-fonts-amsfonts
1190   (deprecated-package "texlive-fonts-amsfonts" texlive-amsfonts))
1191
1192 (define-public texlive-latex-amsfonts
1193   (deprecated-package "texlive-latex-amsfonts" texlive-amsfonts))
1194
1195 (define-public texlive-mkpattern
1196   (package
1197     (inherit (simple-texlive-package
1198               "texlive-mkpattern"
1199               (list "/doc/plain/mkpattern/README"
1200                     "/doc/plain/mkpattern/mkpatdoc.tex"
1201                     "/doc/plain/mkpattern/mkpatter.pdf"
1202                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1203                     "/tex/plain/mkpattern/mkpatter.tex")
1204               (base32
1205                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1206               #:trivial? #t))
1207     (home-page "https://ctan.org/pkg/mkpattern")
1208     (synopsis "Utility for making hyphenation patterns")
1209     (description "Mkpattern is a general purpose program for the generation of
1210 hyphenation patterns, with definition of letter sets and template-like
1211 constructions.  It also provides an easy way to handle different input and
1212 output encodings, and features generation of clean UTF-8 patterns.")
1213     (license license:lppl)))
1214
1215 ;; This provides etex.src which is needed to build various formats, including
1216 ;; luatex.fmt and pdflatex.fmt
1217 (define-public texlive-etex
1218   (let ((template (simple-texlive-package
1219                    "texlive-etex"
1220                    (list "/doc/etex/base/"
1221                          "/doc/man/man1/etex.1"
1222                          "/doc/man/man1/etex.man1.pdf"
1223                          "/tex/plain/etex/"
1224                          "/fonts/source/public/etex/")
1225                    (base32
1226                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1227                    #:trivial? #t)))
1228     (package
1229       (inherit template)
1230       (arguments
1231        (substitute-keyword-arguments (package-arguments template)
1232          ((#:phases phases)
1233           `(modify-phases ,phases
1234              ;; Build tfm font.
1235              (replace 'build
1236                (lambda* (#:key inputs #:allow-other-keys)
1237                  (let ((mf (assoc-ref inputs "texlive-metafont-base")))
1238                    ;; Tell mf where to find mf.base
1239                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1240                    ;; Tell mf where to look for source files
1241                    (setenv "MFINPUTS"
1242                            (string-append (getcwd)
1243                                           "/fonts/source/public/etex/:"
1244                                           mf "/share/texmf-dist/metafont/base:"
1245                                           (assoc-ref inputs "texlive-cm")
1246                                           "/share/texmf-dist/fonts/source/public/cm")))
1247                  (invoke "mf" "-progname=mf"
1248                          (string-append "\\"
1249                                         "mode:=ljfour; "
1250                                         "mag:=1; "
1251                                         "scrollmode; "
1252                                         "input xbmc10"))
1253                  #t))
1254              (add-after 'install 'install-font
1255                (lambda* (#:key outputs #:allow-other-keys)
1256                  (install-file
1257                   "xbmc10.tfm"
1258                   (string-append (assoc-ref outputs "out")
1259                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1260                  #t))))))
1261       (native-inputs
1262        `(("texlive-bin" ,texlive-bin)
1263          ("texlive-metafont-base" ,texlive-metafont-base)
1264          ("texlive-cm" ,texlive-cm)))
1265       (home-page "https://www.ctan.org/pkg/etex")
1266       (synopsis "Extended version of TeX")
1267       (description
1268        "This package provides an extended version of TeX (which is capable of
1269 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1270 team as the engine for the development of LaTeX2e; as a result, LaTeX
1271 programmers may assume e-TeX functionality.  The pdftex engine directly
1272 incorporates the e-TeX extensions.")
1273       (license license:knuth))))
1274
1275 (define-public texlive-tex-plain
1276   (package
1277     (inherit (simple-texlive-package
1278               "texlive-tex-plain"
1279               (list "/tex/plain/")
1280               (base32
1281                "1m4qpaszwfv7j8a85rlwl7rs4iv5nlj67c1vvn6ysly72h9gjydb")
1282               #:trivial? #t))
1283     (home-page "https://www.ctan.org/pkg/plain")
1284     (synopsis "Plain TeX format and supporting files")
1285     (description
1286      "This package contains files used to build the Plain TeX format, as
1287 described in the TeXbook, together with various supporting files (some also
1288 discussed in the book).")
1289     (license license:knuth)))
1290
1291 (define-public texlive-hyphen-afrikaans
1292   (package
1293     (inherit (texlive-hyphen-package
1294               "texlive-hyphen-afrikaans" "af"
1295               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1296               (base32
1297                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1298     (synopsis "Hyphenation patterns for Afrikaans")
1299     (description "The package provides hyphenation patterns for the Afrikaans
1300 language.")
1301     (license license:lppl1.3+)))
1302
1303 (define-public texlive-hyphen-ancientgreek
1304   (package
1305     (inherit (texlive-hyphen-package
1306               "texlive-hyphen-ancientgreek" "grc"
1307               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1308                     "/tex/generic/hyphen/grahyph5.tex"
1309                     "/tex/generic/hyphen/ibyhyph.tex")
1310               (base32
1311                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1312     (synopsis "Hyphenation patterns for ancient Greek")
1313     (description "The package provides hyphenation patterns for ancient
1314 Greek.")
1315     (license license:lppl1.3+)))
1316
1317 (define-public texlive-hyphen-armenian
1318   (let ((template (texlive-hyphen-package
1319                    "texlive-hyphen-armenian" "hy"
1320                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1321                    (base32
1322                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1323     (package
1324       (inherit template)
1325       (synopsis "Hyphenation patterns for Armenian")
1326       (description "The package provides hyphenation patterns for the Armenian
1327 language.")
1328       ;; Any version of the LGPL.
1329       (license license:lgpl3+))))
1330
1331 (define-public texlive-hyphen-basque
1332   (let ((template (texlive-hyphen-package
1333                     "texlive-hyphen-basque" "eu"
1334                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1335                     (base32
1336                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1337     (package
1338       (inherit template)
1339       (synopsis "Hyphenation patterns for Basque")
1340       (description "The package provides hyphenation patterns for the Basque
1341 language.")
1342       ;; Similar to Unicode license.
1343       (license (license:fsf-free
1344                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1345
1346 (define-public texlive-hyphen-belarusian
1347   (package
1348     (inherit (texlive-hyphen-package
1349               "texlive-hyphen-belarusian" "be"
1350               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1351               (base32
1352                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1353     (synopsis "Hyphenation patterns for Belarusian")
1354     (description "The package provides hyphenation patterns for the Belarusian
1355 language.")
1356     (license license:expat)))
1357
1358 (define-public texlive-hyphen-bulgarian
1359   (package
1360     (inherit (texlive-hyphen-package
1361               "texlive-hyphen-bulgarian" "bg"
1362               (list "/doc/generic/hyph-utf8/bg/azbukaExtended.pdf"
1363                     "/doc/generic/hyph-utf8/bg/azbukaExtended.tex"
1364                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1365               (base32
1366                "0ngrgw2rmipxss76rgfk62x9nnsgwmaxxna2jqxxhybai3q39mx5")))
1367     (synopsis "Hyphenation patterns for Bulgarian")
1368     (description "The package provides hyphenation patterns for the Bulgarian
1369 language in T2A and UTF-8 encodings.")
1370     (license (license:non-copyleft
1371               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1372               "Ancestral BSD variant"))))
1373
1374 (define-public texlive-hyphen-catalan
1375   (package
1376     (inherit (texlive-hyphen-package
1377               "texlive-hyphen-catalan" "ca"
1378               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1379               (base32
1380                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1381     (synopsis "Hyphenation patterns for Catalan")
1382     (description "The package provides hyphenation patterns for Catalan in
1383 T1/EC and UTF-8 encodings.")
1384     (license license:lppl1.0+)))
1385
1386 (define-public texlive-hyphen-chinese
1387   (package
1388     (inherit (texlive-hyphen-package
1389               "texlive-hyphen-chinese" "zh-latn-pinyin"
1390               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1391               (base32
1392                "1j68mry2zy91m1kbzwhin5q2jajf6xh48npdds8wvp1sqmzih2a3")))
1393     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1394     (description "The package provides hyphenation patterns for unaccented
1395 Chinese pinyin T1/EC and UTF-8 encodings.")
1396     (license license:gpl2+)))
1397
1398 (define-public texlive-hyphen-churchslavonic
1399   (package
1400     (inherit (texlive-hyphen-package
1401               "texlive-hyphen-churchslavonic" "cu"
1402               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1403               (base32
1404                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1405     (synopsis "Hyphenation patterns for Church Slavonic")
1406     (description "The package provides hyphenation patterns for Church
1407 Slavonic in UTF-8 encoding.")
1408     (license license:expat)))
1409
1410 (define-public texlive-hyphen-coptic
1411   (package
1412     (inherit (texlive-hyphen-package
1413               "texlive-hyphen-coptic" "cop"
1414               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1415                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1416               (base32
1417                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1418     (synopsis "Hyphenation patterns for Coptic")
1419     (description "The package provides hyphenation patterns for Coptic in
1420 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1421     ;; No explicit license declaration, so we use the project license.
1422     (license license:lppl)))
1423
1424 (define-public texlive-hyphen-croatian
1425   (package
1426     (inherit (texlive-hyphen-package
1427               "texlive-hyphen-croatian" "hr"
1428               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1429               (base32
1430                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1431     (synopsis "Hyphenation patterns for Croatian")
1432     (description "The package provides hyphenation patterns for Croatian in
1433 T1/EC and UTF-8 encodings.")
1434     (license license:lppl1.0+)))
1435
1436 (define-public texlive-hyphen-czech
1437   (package
1438     (inherit (texlive-hyphen-package
1439               "texlive-hyphen-czech" "cs"
1440               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1441               (base32
1442                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1443     (synopsis "Hyphenation patterns for Czech")
1444     (description "The package provides hyphenation patterns for Czech in T1/EC
1445 and UTF-8 encodings.")
1446     (license license:gpl2+)))
1447
1448 (define-public texlive-hyphen-danish
1449   (package
1450     (inherit (texlive-hyphen-package
1451               "texlive-hyphen-danish" "da"
1452               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1453               (base32
1454                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1455     (synopsis "Hyphenation patterns for Danish")
1456     (description "The package provides hyphenation patterns for Danish in
1457 T1/EC and UTF-8 encodings.")
1458     ;; Either LPPL 1.3 or later, or Expat
1459     (license (list license:lppl1.3+ license:expat))))
1460
1461 (define-public texlive-hyphen-dutch
1462   (package
1463     (inherit (texlive-hyphen-package
1464               "texlive-hyphen-dutch" "nl"
1465               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1466               (base32
1467                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1468     (synopsis "Hyphenation patterns for Dutch")
1469     (description "The package provides hyphenation patterns for Dutch in T1/EC
1470 and UTF-8 encodings.")
1471     (license license:lppl1.0+)))
1472
1473 (define-public texlive-hyphen-english
1474   (package
1475     (inherit (texlive-hyphen-package
1476               "texlive-hyphen-english" '("en-gb" "en-us")
1477               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1478                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1479               (base32
1480                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1481     (synopsis "Hyphenation patterns for American and British English")
1482     (description "The package provides additional hyphenation patterns for
1483 American and British English in ASCII encoding.")
1484     (license (license:non-copyleft
1485               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1486               "FSF all permissive license"))))
1487
1488 (define-public texlive-hyphen-esperanto
1489   (package
1490     (inherit (texlive-hyphen-package
1491               "texlive-hyphen-esperanto" "eo"
1492               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1493               (base32
1494                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1495     (synopsis "Hyphenation patterns for Esperanto")
1496     (description "The package provides hyphenation patterns for Esperanto ISO
1497 Latin 3 and UTF-8 encodings.")
1498     (license license:lppl1.0+)))
1499
1500 (define-public texlive-hyphen-estonian
1501   (package
1502     (inherit (texlive-hyphen-package
1503               "texlive-hyphen-estonian" "et"
1504               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1505               (base32
1506                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1507     (synopsis "Hyphenation patterns for Estonian")
1508     (description "The package provides hyphenation patterns for Estonian in
1509 T1/EC and UTF-8 encodings.")
1510     ;; Dual licensed under either license.
1511     (license (list license:lppl1.3+ license:expat))))
1512
1513 (define-public texlive-hyphen-ethiopic
1514   (let ((template (texlive-hyphen-package
1515                    "texlive-hyphen-ethiopic" "mul-ethi"
1516                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1517                    (base32
1518                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1519     (package
1520       (inherit template)
1521       (synopsis "Hyphenation patterns for Ethiopic scripts")
1522       (description "The package provides hyphenation patterns for languages
1523 written using the Ethiopic script for Unicode engines.  They are not supposed
1524 to be linguistically relevant in all cases and should, for proper typography,
1525 be replaced by files tailored to individual languages.")
1526       (license license:expat))))
1527
1528 (define-public texlive-hyphen-finnish
1529   (package
1530     (inherit (texlive-hyphen-package
1531               "texlive-hyphen-finnish" "fi"
1532               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1533               (base32
1534                "1f72b4ydb4zddvw2i004948khmwzigxkdkwfym5v1kkq0183sfpj")))
1535     (synopsis "Hyphenation patterns for Finnish")
1536     (description "The package provides hyphenation patterns for Finnish in
1537 T1/EC and UTF-8 encodings.")
1538     (license license:public-domain)))
1539
1540 (define-public texlive-hyphen-french
1541   (package
1542     (inherit (texlive-hyphen-package
1543               "texlive-hyphen-french" "fr"
1544               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1545               (base32
1546                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1547     (synopsis "Hyphenation patterns for French")
1548     (description "The package provides hyphenation patterns for French in
1549 T1/EC and UTF-8 encodings.")
1550     (license license:expat)))
1551
1552 (define-public texlive-hyphen-friulan
1553   (package
1554     (inherit (texlive-hyphen-package
1555               "texlive-hyphen-friulan" "fur"
1556               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1557               (base32
1558                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1559     (synopsis "Hyphenation patterns for Friulan")
1560     (description "The package provides hyphenation patterns for Friulan in
1561 ASCII encodings.")
1562     (license license:lppl1.3+)))
1563
1564 (define-public texlive-hyphen-galician
1565   (let ((template (texlive-hyphen-package
1566                    "texlive-hyphen-galician" "gl"
1567                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1568                    (base32
1569                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1570     (package
1571       (inherit template)
1572       (synopsis "Hyphenation patterns for Galician")
1573       (description "The package provides hyphenation patterns for Galician in
1574 T1/EC and UTF-8 encodings.")
1575       (license license:lppl1.3))))
1576
1577 (define-public texlive-hyphen-georgian
1578   (package
1579     (inherit (texlive-hyphen-package
1580               "texlive-hyphen-georgian" "ka"
1581               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1582               (base32
1583                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1584     (synopsis "Hyphenation patterns for Georgian")
1585     (description "The package provides hyphenation patterns for Georgian in
1586 T8M, T8K, and UTF-8 encodings.")
1587     (license license:lppl1.3+)))
1588
1589 (define-public texlive-hyphen-german
1590   (package
1591     (inherit (texlive-hyphen-package
1592               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1593               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1594                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1595                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1596                     "/tex/generic/dehyph/dehyphn.tex"
1597                     "/tex/generic/dehyph/dehypht.tex"
1598                     "/tex/generic/dehyph/dehyphtex.tex"
1599                     "/tex/generic/dehyph/README")
1600               (base32
1601                "0wp5by5kkf4ac6li5mbppqzw11500wa7f22p5vpz3m1kwd15zavw")))
1602     (synopsis "Hyphenation patterns for German")
1603     (description "This package provides hyphenation patterns for German in
1604 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1605 Swiss German.")
1606     ;; The patterns are released under the Expat license; the dehyph* files
1607     ;; are released under the LPPL version 1 or later.
1608     (license (list license:expat license:lppl1.0+))))
1609
1610 (define-public texlive-hyphen-greek
1611   (package
1612     (inherit (texlive-hyphen-package
1613               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1614               (list "/doc/generic/elhyphen/"
1615                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1616                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1617                     "/tex/generic/hyphen/grmhyph5.tex"
1618                     "/tex/generic/hyphen/grphyph5.tex")
1619               (base32
1620                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1621     (synopsis "Hyphenation patterns for Greek")
1622     (description "This package provides hyphenation patterns for Modern Greek
1623 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1624     (license license:lppl)))
1625
1626 (define-public texlive-hyphen-hungarian
1627   (package
1628     (inherit (texlive-hyphen-package
1629               "texlive-hyphen-hungarian" "hu"
1630               (list "/doc/generic/huhyphen/"
1631                     "/doc/generic/hyph-utf8/hu/"
1632                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1633               (base32
1634                "1j1b8kksg9r8nmjyjvvz8fr3hgcrjj6jlybf9p06nwrrwm2r8j8f")))
1635     (synopsis "Hyphenation patterns for Hungarian")
1636     (description "This package provides hyphenation patterns for Hungarian in
1637 T1/EC and UTF-8 encodings.")
1638     ;; Any of these licenses
1639     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1640
1641 (define-public texlive-hyphen-icelandic
1642   (package
1643     (inherit (texlive-hyphen-package
1644               "texlive-hyphen-icelandic" "is"
1645               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1646               (base32
1647                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1648     (synopsis "Hyphenation patterns for Icelandic")
1649     (description "This package provides hyphenation patterns for Icelandic in
1650 T1/EC and UTF-8 encodings.")
1651     (license license:lppl1.2+)))
1652
1653 (define-public texlive-hyphen-indic
1654   (package
1655     (inherit (texlive-hyphen-package
1656               "texlive-hyphen-indic"
1657               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
1658               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
1659                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
1660                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
1661                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
1662                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
1663                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
1664                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
1665                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
1666                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
1667                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
1668                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
1669               (base32
1670                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
1671     (synopsis "Indic hyphenation patterns")
1672     (description "This package provides hyphenation patterns for Assamese,
1673 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
1674 and Telugu for Unicode engines.")
1675     (license license:expat)))
1676
1677 (define-public texlive-hyphen-indonesian
1678   (package
1679     (inherit (texlive-hyphen-package
1680               "texlive-hyphen-indonesian" "id"
1681               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
1682               (base32
1683                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
1684     (synopsis "Indonesian hyphenation patterns")
1685     (description "This package provides hyphenation patterns for
1686 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
1687 usable for Malay (Bahasa Melayu).")
1688     (license license:gpl2)))
1689
1690 (define-public texlive-hyphen-interlingua
1691   (package
1692     (inherit (texlive-hyphen-package
1693               "texlive-hyphen-interlingua" "ia"
1694               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
1695               (base32
1696                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
1697     (synopsis "Interlingua hyphenation patterns")
1698     (description "This package provides hyphenation patterns for Interlingua
1699 in ASCII encoding.")
1700     (license license:lppl1.3+)))
1701
1702 (define-public texlive-hyphen-irish
1703   (package
1704     (inherit (texlive-hyphen-package
1705               "texlive-hyphen-irish" "ga"
1706               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
1707               (base32
1708                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
1709     (synopsis "Irish hyphenation patterns")
1710     (description "This package provides hyphenation patterns for
1711 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
1712     ;; Either of these licenses
1713     (license (list license:gpl2+ license:expat))))
1714
1715 (define-public texlive-hyphen-italian
1716   (package
1717     (inherit (texlive-hyphen-package
1718               "texlive-hyphen-italian" "it"
1719               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
1720               (base32
1721                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
1722     (synopsis "Italian hyphenation patterns")
1723     (description "This package provides hyphenation patterns for Italian in
1724 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
1725 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
1726 UNI).")
1727     (license license:lppl1.3+)))
1728
1729 (define-public texlive-hyphen-kurmanji
1730   (package
1731     (inherit (texlive-hyphen-package
1732               "texlive-hyphen-kurmanji" "kmr"
1733               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
1734               (base32
1735                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
1736     (synopsis "Kurmanji hyphenation patterns")
1737     (description "This package provides hyphenation patterns for
1738 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
1739 Europe, in T1/EC and UTF-8 encodings.")
1740     (license license:lppl1.3)))
1741
1742 (define-public texlive-hyphen-latin
1743   (package
1744     (inherit (texlive-hyphen-package
1745               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
1746               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
1747                     "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
1748                     "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex")
1749               (base32
1750                "0rxg8a4s5cpj8vlkz5a74a036axda5jqgvr3f9aj2cc2x9f2f3w9")))
1751     (synopsis "Liturgical Latin hyphenation patterns")
1752     (description "This package provides hyphenation patterns for Latin in
1753 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
1754 when v is needed), medieval spelling with the ligatures @code{\\ae} and
1755 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
1756 Apparently there is no conflict between the patterns of modern Latin and those
1757 of medieval Latin.  It also includes hyphenation patterns for the Classical
1758 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
1759 different from those of 'plain' Latin, the latter being more adapted to modern
1760 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
1761 T1/EC and UTF-8 encodings.")
1762     ;; Either of these licenses
1763     (license (list license:lppl1.0+ license:expat))))
1764
1765 (define-public texlive-hyphen-latvian
1766   (package
1767     (inherit (texlive-hyphen-package
1768               "texlive-hyphen-latvian" "lv"
1769               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
1770               (base32
1771                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
1772     (synopsis "Latvian hyphenation patterns")
1773     (description "This package provides hyphenation patterns for Latvian in
1774 L7X and UTF-8 encodings.")
1775     ;; Either of these licenses.
1776     (license (list license:gpl2 license:lgpl2.1))))
1777
1778 (define-public texlive-hyphen-lithuanian
1779   (package
1780     (inherit (texlive-hyphen-package
1781               "texlive-hyphen-lithuanian" "lt"
1782               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
1783               (base32
1784                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
1785     (synopsis "Lithuanian hyphenation patterns")
1786     (description "This package provides hyphenation patterns for Lithuanian in
1787 L7X and UTF-8 encodings.")
1788     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
1789     ;; the hyph-utf8 package we choose the LPPL license.
1790     (license license:lppl)))
1791
1792 (define-public texlive-hyphen-mongolian
1793   (package
1794     (inherit (texlive-hyphen-package
1795               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
1796               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
1797                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
1798               (base32
1799                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
1800     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
1801     (description "This package provides hyphenation patterns for Mongolian in
1802 T2A, LMC and UTF-8 encodings.")
1803     ;; Either of these licenses
1804     (license (list license:lppl1.3+ license:expat))))
1805
1806 (define-public texlive-hyphen-norwegian
1807   (package
1808     (inherit (texlive-hyphen-package
1809               "texlive-hyphen-norwegian" '("nb" "nn" "no")
1810               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
1811                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
1812                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
1813               (base32
1814                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
1815     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
1816     (description "This package provides hyphenation patterns for Norwegian
1817 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
1818     (license (license:non-copyleft
1819               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
1820               "FSF All permissive license"))))
1821
1822 (define-public texlive-hyphen-occitan
1823   (package
1824     (inherit (texlive-hyphen-package
1825               "texlive-hyphen-occitan" "oc"
1826               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
1827               (base32
1828                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
1829     (synopsis "Occitan hyphenation patterns")
1830     (description "This package provides hyphenation patterns for Occitan in
1831 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
1832 variants spoken and written in the wide area called 'Occitanie' by the French.
1833 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
1834 Alps encompassing the southern half of the French pentagon.")
1835     (license license:lppl1.0+)))
1836
1837 (define-public texlive-hyphen-pali
1838   (package
1839     (inherit (texlive-hyphen-package
1840               "texlive-hyphen-pali" "pi"
1841               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
1842               (base32
1843                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
1844     (synopsis "Panjabi hyphenation patterns")
1845     (description "This package provides hyphenation patterns for Panjabi in
1846 T1/EC encoding.")
1847     ;; Can be used with either license.
1848     (license (list license:expat license:lgpl3+ license:gpl3+))))
1849
1850 (define-public texlive-hyphen-piedmontese
1851   (package
1852     (inherit (texlive-hyphen-package
1853               "texlive-hyphen-piedmontese" "pms"
1854               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
1855               (base32
1856                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
1857     (synopsis "Piedmontese hyphenation patterns")
1858     (description "This package provides hyphenation patterns for Piedmontese
1859 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
1860 Camillo Brero.")
1861     (license license:lppl1.3+)))
1862
1863 (define-public texlive-hyphen-polish
1864   (package
1865     (inherit (texlive-hyphen-package
1866               "texlive-hyphen-polish" "pl"
1867               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
1868               (base32
1869                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
1870     (synopsis "Polish hyphenation patterns")
1871     (description "This package provides hyphenation patterns for Polish in QX
1872 and UTF-8 encodings.")
1873     ;; No differing license declared, so we choose the project license.
1874     (license license:lppl)))
1875
1876 (define-public texlive-hyphen-portuguese
1877   (package
1878     (inherit (texlive-hyphen-package
1879               "texlive-hyphen-portuguese" "pt"
1880               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
1881               (base32
1882                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
1883     (synopsis "Portuguese hyphenation patterns")
1884     (description "This package provides hyphenation patterns for Portuguese in
1885 T1/EC and UTF-8 encodings.")
1886     (license license:bsd-3)))
1887
1888 (define-public texlive-hyphen-romanian
1889   (package
1890     (inherit (texlive-hyphen-package
1891               "texlive-hyphen-romanian" "ro"
1892               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
1893               (base32
1894                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
1895     (synopsis "Romanian hyphenation patterns")
1896     (description "This package provides hyphenation patterns for Romanian in
1897 T1/EC and UTF-8 encodings.")
1898     ;; No differing license declared, so we choose the project license.
1899     (license license:lppl)))
1900
1901 (define-public texlive-hyphen-romansh
1902   (package
1903     (inherit (texlive-hyphen-package
1904               "texlive-hyphen-romansh" "rm"
1905               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
1906               (base32
1907                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
1908     (synopsis "Romansh hyphenation patterns")
1909     (description "This package provides hyphenation patterns for Romansh in
1910 ASCII encodings.  They are supposed to comply with the rules indicated by the
1911 Lia Rumantscha (Romansh language society).")
1912     (license license:lppl1.3+)))
1913
1914 (define-public texlive-hyphen-russian
1915   (package
1916     (inherit (texlive-hyphen-package
1917               "texlive-hyphen-russian" "ru"
1918               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
1919               (base32
1920                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
1921     (synopsis "Russian hyphenation patterns")
1922     (description "This package provides hyphenation patterns for Russian in
1923 T2A and UTF-8 encodings.")
1924     (license license:lppl1.2+)))
1925
1926 (define-public texlive-hyphen-sanskrit
1927   (package
1928     (inherit (texlive-hyphen-package
1929               "texlive-hyphen-sanskrit" "sa"
1930               (list "/doc/generic/hyph-utf8/sa/hyphenmin.txt"
1931                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
1932               (base32
1933                "0gi2qk0wf388h9n25gzhv0cdz67ph83wal8h3iz2sqnpdjsw8kpc")))
1934     (synopsis "Sanskrit hyphenation patterns")
1935     (description "This package provides hyphenation patterns for Sanskrit and
1936 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
1937 Malayalam longdesc and Telugu scripts for Unicode engines.")
1938     ;; "You may freely use, copy, modify and/or distribute this file."
1939     (license (license:non-copyleft
1940               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
1941
1942 (define-public texlive-hyphen-serbian
1943   (package
1944     (inherit (texlive-hyphen-package
1945               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
1946               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
1947                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
1948                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
1949               (base32
1950                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
1951     (synopsis "Serbian hyphenation patterns")
1952     (description "This package provides hyphenation patterns for Serbian in
1953 T1/EC, T2A and UTF-8 encodings.")
1954     ;; Any version of the GPL.
1955     (license license:gpl3+)))
1956
1957 (define-public texlive-hyphen-slovak
1958   (package
1959     (inherit (texlive-hyphen-package
1960               "texlive-hyphen-slovak" "sk"
1961               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
1962               (base32
1963                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
1964     (synopsis "Slovak hyphenation patterns")
1965     (description "This package provides hyphenation patterns for Slovak in
1966 T1/EC and UTF-8 encodings.")
1967     (license license:gpl2+)))
1968
1969 (define-public texlive-hyphen-slovenian
1970   (package
1971     (inherit (texlive-hyphen-package
1972               "texlive-hyphen-slovenian" "sl"
1973               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
1974               (base32
1975                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
1976     (synopsis "Slovenian hyphenation patterns")
1977     (description "This package provides hyphenation patterns for Slovenian in
1978 T1/EC and UTF-8 encodings.")
1979     ;; Either license
1980     (license (list license:lppl1.0+ license:expat))))
1981
1982 (define-public texlive-hyphen-spanish
1983   (package
1984     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
1985     ;; generate obsolete hyphenation patterns, which aren't included in a
1986     ;; default TeX Live distribution, so we don't include them either.
1987     (inherit (texlive-hyphen-package
1988               "texlive-hyphen-spanish" "es"
1989               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
1990               (base32
1991                "1h3yg9vcq0lf7hxv0ahkqmyg269dxjs8m2mz8sgz5l1fxmvahvaj")))
1992     (synopsis "Hyphenation patterns for Spanish")
1993     (description "The package provides hyphenation patterns for Spanish in
1994 T1/EC and UTF-8 encodings.")
1995     (license license:expat)))
1996
1997 (define-public texlive-hyphen-swedish
1998   (package
1999     (inherit (texlive-hyphen-package
2000               "texlive-hyphen-swedish" "sv"
2001               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2002               (base32
2003                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2004     (synopsis "Swedish hyphenation patterns")
2005     (description "This package provides hyphenation patterns for Swedish in
2006 T1/EC and UTF-8 encodings.")
2007     (license license:lppl1.2+)))
2008
2009 (define-public texlive-hyphen-thai
2010   (package
2011     (inherit (texlive-hyphen-package
2012               "texlive-hyphen-thai" "th"
2013               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2014               (base32
2015                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2016     (synopsis "Thai hyphenation patterns")
2017     (description "This package provides hyphenation patterns for Thai in LTH
2018 and UTF-8 encodings.")
2019     (license license:lppl1.3+)))
2020
2021 (define-public texlive-hyphen-turkish
2022   (let ((template (texlive-hyphen-package
2023                    "texlive-hyphen-turkish" "tr"
2024                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2025                    (base32
2026                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2027     (package
2028       (inherit template)
2029       (synopsis "Hyphenation patterns for Turkish")
2030       (description "The package provides hyphenation patterns for Turkish in
2031 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2032 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2033 and Ottoman Turkish in Latin script, however the required character set didn't
2034 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2035 compatibility with 8-bit engines.")
2036       (license license:lppl1.0+))))
2037
2038 (define-public texlive-hyphen-turkmen
2039   (let ((template (texlive-hyphen-package
2040                    "texlive-hyphen-turkmen" "tk"
2041                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2042                    (base32
2043                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2044     (package
2045       (inherit template)
2046       (synopsis "Hyphenation patterns for Turkmen")
2047       (description "The package provides hyphenation patterns for Turkmen in
2048 T1/EC and UTF-8 encodings.")
2049       (license license:expat))))
2050
2051 (define-public texlive-hyphen-ukrainian
2052   (package
2053     (inherit (texlive-hyphen-package
2054               "texlive-hyphen-ukrainian" "uk"
2055               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2056               (base32
2057                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2058     (synopsis "Ukrainian hyphenation patterns")
2059     (description "This package provides hyphenation patterns for Ukrainian in
2060 T2A and UTF-8 encodings.")
2061     ;; No version specified
2062     (license license:lppl)))
2063
2064 (define-public texlive-hyphen-uppersorbian
2065   (package
2066     (inherit (texlive-hyphen-package
2067               "texlive-hyphen-uppersorbian" "hsb"
2068               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2069               (base32
2070                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2071     (synopsis "Upper Sorbian hyphenation patterns")
2072     (description "This package provides hyphenation patterns for Upper Sorbian
2073 in T1/EC and UTF-8 encodings.")
2074     (license license:lppl1.3a+)))
2075
2076 (define-public texlive-hyphen-welsh
2077   (package
2078     (inherit (texlive-hyphen-package
2079               "texlive-hyphen-welsh" "cy"
2080               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2081               (base32
2082                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2083     (synopsis "Welsh hyphenation patterns")
2084     (description "This package provides hyphenation patterns for Welsh in
2085 T1/EC and UTF-8 encodings.")
2086     ;; Either license
2087     (license (list license:lppl1.0+ license:expat))))
2088
2089 (define-public texlive-hyph-utf8
2090   (package
2091     (inherit (simple-texlive-package
2092               "texlive-hyph-utf8"
2093               (list "/source/generic/hyph-utf8/"
2094                     "/source/luatex/hyph-utf8/"
2095                     "/doc/luatex/hyph-utf8/"
2096                     "/tex/luatex/hyph-utf8/etex.src"
2097                     ;; Used to extract luatex-hyphen.lua
2098                     "/tex/latex/base/docstrip.tex"
2099
2100                     ;; Documentation; we can't use the whole directory because
2101                     ;; it includes files from other packages.
2102                     "/doc/generic/hyph-utf8/CHANGES"
2103                     "/doc/generic/hyph-utf8/HISTORY"
2104                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2105                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2106                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2107                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2108                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2109                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2110               (base32
2111                "1bar5mc808ch20anhqrdxcwiych359qsvr7mggxpg2l2kq5xdyq0")))
2112     (outputs '("out" "doc"))
2113     (build-system gnu-build-system)
2114     (arguments
2115      `(#:tests? #f ; there are none
2116        #:modules ((guix build gnu-build-system)
2117                   (guix build utils)
2118                   (ice-9 match))
2119        #:make-flags
2120        (list "-C" "source/luatex/hyph-utf8/"
2121              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2122              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2123              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2124              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2125              (string-append "UNPACKED = $(NAME).lua"))
2126        #:phases
2127        (modify-phases %standard-phases
2128          ;; TeX isn't usable at this point, so we first need to generate the
2129          ;; tex.fmt.
2130          (replace 'configure
2131            (lambda* (#:key inputs outputs #:allow-other-keys)
2132              ;; Target directories must exist.
2133              (mkdir-p (string-append (assoc-ref %outputs "out")
2134                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2135              (mkdir-p (string-append (assoc-ref %outputs "doc")
2136                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2137
2138              ;; We cannot build the documentation because that requires a
2139              ;; fully functional pdflatex, which depends on this package.
2140              (substitute* "source/luatex/hyph-utf8/Makefile"
2141                (("all: .*") "all: $(RUNFILES)\n"))
2142
2143              ;; Find required fonts for building tex.fmt
2144              (setenv "TFMFONTS"
2145                      (string-append (assoc-ref inputs "texlive-cm")
2146                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2147                                     (assoc-ref inputs "texlive-fonts-knuth-lib")
2148                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2149              ;; ...and find all tex files in this environment.
2150              (setenv "TEXINPUTS"
2151                      (string-append
2152                       (getcwd) ":"
2153                       (string-join
2154                        (map (match-lambda ((_ . dir) dir)) inputs)
2155                        "//:")))
2156
2157              ;; Generate tex.fmt.
2158              (let ((where "source/luatex/hyph-utf8"))
2159                (mkdir-p where)
2160                (with-directory-excursion where
2161                  (invoke "tex" "-ini"
2162                          (string-append (assoc-ref inputs "texlive-tex-plain")
2163                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2164          (add-before 'build 'build-loaders-and-converters
2165            (lambda* (#:key outputs #:allow-other-keys)
2166              (let* ((root (string-append (assoc-ref outputs "out")
2167                                          "/share/texmf-dist"))
2168                     (conv
2169                      (string-append root
2170                                     "/tex/generic/hyph-utf8/conversions")))
2171
2172                ;; Build converters
2173                (mkdir-p conv)
2174                (with-directory-excursion "source/generic/hyph-utf8"
2175                  (substitute* "generate-converters.rb"
2176                    (("\\$path_root=File.*")
2177                     (string-append "$path_root=\"" root "\"\n"))
2178                    ;; Avoid error with newer Ruby.
2179                    (("#1\\{%") "#1{%%"))
2180                  (invoke "ruby" "generate-converters.rb"))
2181                #t)))
2182          (replace 'install
2183            (lambda* (#:key source outputs #:allow-other-keys)
2184              (let ((doc (assoc-ref outputs "doc"))
2185                    (out (assoc-ref outputs "out")))
2186                (mkdir-p doc)
2187                (copy-recursively
2188                 (string-append source "/doc")
2189                 (string-append doc "/doc"))
2190                (install-file
2191                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2192                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2193              #t)))))
2194     (native-inputs
2195      `(("ruby" ,ruby)
2196        ("texlive-bin" ,texlive-bin)
2197        ;; The following packages are needed for build "tex.fmt", which we need
2198        ;; for a working "tex".
2199        ("texlive-tex-plain" ,texlive-tex-plain)
2200        ("texlive-cm" ,texlive-cm)
2201        ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)
2202        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2203     (home-page "https://ctan.org/pkg/hyph-utf8")
2204     (synopsis "Hyphenation patterns expressed in UTF-8")
2205     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2206 hyphenation patterns in UTF-8 format, whereas older systems require
2207 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2208 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2209 etc).  The present package offers a collection of conversions of existing
2210 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2211 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2212 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2213 converters, will completely supplant the older patterns.")
2214     ;; Individual files each have their own license.  Most of these files are
2215     ;; independent hyphenation patterns.
2216     (license (list license:lppl1.0+
2217                    license:lppl1.2+
2218                    license:lppl1.3
2219                    license:lppl1.3+
2220                    license:lppl1.3a+
2221                    license:lgpl2.1
2222                    license:lgpl2.1+
2223                    license:lgpl3+
2224                    license:gpl2+
2225                    license:gpl3+
2226                    license:mpl1.1
2227                    license:asl2.0
2228                    license:expat
2229                    license:bsd-3
2230                    license:cc0
2231                    license:public-domain
2232                    license:wtfpl2))))
2233
2234 (define-public texlive-generic-hyph-utf8
2235   (deprecated-package "texlive-generic-hyph-utf8" texlive-hyph-utf8))
2236
2237 (define-public texlive-dehyph-exptl
2238   (package
2239     (inherit (simple-texlive-package
2240               "texlive-dehyph-exptl"
2241               (list "/tex/generic/dehyph-exptl/"
2242                     "/doc/generic/dehyph-exptl/")
2243               (base32
2244                "1fnqc63gz8gvdyfz45bx8dxn1r1rwrypahs3bqd2vlc8ff76xp86")
2245               #:trivial? #t))
2246     (propagated-inputs
2247      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2248        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2249     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2250     (synopsis "Hyphenation patterns for German")
2251     (description "The package provides experimental hyphenation patterns for
2252 the German language, covering both traditional and reformed orthography.  The
2253 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2254 bundle.")
2255     ;; Hyphenation patterns are under the Expat license; documentation is
2256     ;; under LPPL.
2257     (license (list license:expat license:lppl))))
2258
2259 (define-public texlive-generic-dehyph-exptl
2260   (deprecated-package "texlive-generic-dehyph-exptl" texlive-dehyph-exptl))
2261
2262 (define-public texlive-ukrhyph
2263   (package
2264     (inherit (simple-texlive-package
2265               "texlive-ukrhyph"
2266               (list "/doc/generic/ukrhyph/"
2267                     "/tex/generic/ukrhyph/")
2268               (base32
2269                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2270               #:trivial? #t))
2271     (home-page "https://www.ctan.org/pkg/ukrhyph")
2272     (synopsis "Hyphenation patterns for Ukrainian")
2273     (description "The package provides a range of hyphenation patterns for
2274 Ukrainian, depending on the encoding of the output font including the standard
2275 T2A.")
2276     (license license:lppl)))
2277
2278 (define-public texlive-ruhyphen
2279   (let ((template (simple-texlive-package
2280                    "texlive-ruhyphen"
2281                    (list "/source/generic/ruhyphen/"
2282                          "/tex/generic/ruhyphen/")
2283                    (base32
2284                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2285                    #:trivial? #t)))
2286     (package
2287       (inherit template)
2288       (arguments
2289        (substitute-keyword-arguments (package-arguments template)
2290          ((#:phases phases)
2291           `(modify-phases ,phases
2292              (replace 'build
2293                (lambda _
2294                  (let ((cwd (getcwd)))
2295                    ;; Remove generated files.
2296                    (for-each delete-file
2297                              (find-files "tex/generic/ruhyphen/"
2298                                          "^cyry.*.tex$"))
2299                    (substitute* "source/generic/ruhyphen/Makefile"
2300                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2301                    (with-directory-excursion "tex/generic/ruhyphen"
2302                      (invoke "make" "-f"
2303                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2304       (native-inputs
2305        `(("coreutils" ,coreutils)
2306          ("gawk" ,gawk)
2307          ("sed" ,sed)
2308          ("grep" ,grep)
2309          ("perl" ,perl)))
2310       (home-page "https://www.ctan.org/pkg/ruhyphen")
2311       (synopsis "Hyphenation patterns for Russian")
2312       (description "The package provides a collection of Russian hyphenation
2313 patterns supporting a number of Cyrillic font encodings, including T2,
2314 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2315       (license license:lppl))))
2316
2317 (define-public texlive-kpathsea
2318   (package
2319     (inherit (simple-texlive-package
2320               "texlive-kpathsea"
2321               (list "/web2c/amiga-pl.tcx"
2322                     "/web2c/cp1250cs.tcx"
2323                     "/web2c/cp1250pl.tcx"
2324                     "/web2c/cp1250t1.tcx"
2325                     "/web2c/cp227.tcx"
2326                     "/web2c/cp852-cs.tcx"
2327                     "/web2c/cp852-pl.tcx"
2328                     "/web2c/cp8bit.tcx"
2329                     "/web2c/empty.tcx"
2330                     "/web2c/fmtutil.cnf"
2331                     "/web2c/il1-t1.tcx"
2332                     "/web2c/il2-cs.tcx"
2333                     "/web2c/il2-pl.tcx"
2334                     "/web2c/il2-t1.tcx"
2335                     "/web2c/kam-cs.tcx"
2336                     "/web2c/kam-t1.tcx"
2337                     "/web2c/macce-pl.tcx"
2338                     "/web2c/macce-t1.tcx"
2339                     "/web2c/maz-pl.tcx"
2340                     "/web2c/mktex.cnf"
2341                     "/web2c/mktex.opt"
2342                     "/web2c/mktexdir"
2343                     "/web2c/mktexdir.opt"
2344                     "/web2c/mktexnam"
2345                     "/web2c/mktexnam.opt"
2346                     "/web2c/mktexupd"
2347                     "/web2c/natural.tcx"
2348                     "/web2c/tcvn-t5.tcx"
2349                     "/web2c/viscii-t5.tcx")
2350               (base32
2351                "191i8n3g46p53bb9dkx2ggwpzy7skgg0pbklsrpx8x4ayd86wcaf")
2352               #:trivial? #t))
2353     (home-page "https://www.tug.org/texlive/")
2354     (synopsis "Files related to the path searching library for TeX")
2355     (description "Kpathsea is a library and utility programs which provide
2356 path searching facilities for TeX file types, including the self-locating
2357 feature required for movable installations, layered on top of a general search
2358 mechanism.  This package provides supporting files.")
2359     (license license:lgpl3+)))
2360
2361 (define-public texlive-latexconfig
2362   (package
2363     (inherit (simple-texlive-package
2364               "texlive-latexconfig"
2365               (list "/tex/latex/latexconfig/")
2366               (base32
2367                "1wa7yhdpnz1nyidwgli68fyr33jn951bnniqrih5lj98k09rqc3h")
2368               #:trivial? #t))
2369     (home-page "https://www.tug.org/")
2370     (synopsis "Configuration files for LaTeX-related formats")
2371     (description "The package provides configuration files for LaTeX-related
2372 formats.")
2373     (license license:lppl)))
2374
2375 (define-public texlive-latex-base
2376   (let ((template (simple-texlive-package
2377                    "texlive-latex-base"
2378                    (list "/doc/latex/base/"
2379                          "/source/latex/base/"
2380                          ;; Almost all files in /tex/latex/base are generated, but
2381                          ;; these are not:
2382                          "/tex/latex/base/idx.tex"
2383                          "/tex/latex/base/lablst.tex"
2384                          "/tex/latex/base/ltnews.cls"
2385                          "/tex/latex/base/ltxcheck.tex"
2386                          "/tex/latex/base/ltxguide.cls"
2387                          "/tex/latex/base/minimal.cls"
2388                          "/tex/latex/base/sample2e.tex"
2389                          "/tex/latex/base/small2e.tex"
2390                          "/tex/latex/base/testpage.tex"
2391                          "/tex/latex/base/texsys.cfg")
2392                    (base32
2393                     "0m0gjb4hbsf2iqkkx3px4f28r2scjvsjv4zb2whkbnb44apyw1f0")
2394                    #:trivial? #t)))
2395     (package
2396       (inherit template)
2397       (arguments
2398        (substitute-keyword-arguments (package-arguments template)
2399          ((#:modules modules '())
2400           '((guix build gnu-build-system)
2401             (guix build utils)
2402             (ice-9 match)
2403             (srfi srfi-26)))
2404          ((#:phases phases)
2405           `(modify-phases ,phases
2406              ;; The literal tab in the dtx file is translated to the string
2407              ;; "^^I" in the generated Lua file, which causes a syntax error.
2408              (add-after 'unpack 'fix-lua-sources
2409                (lambda _
2410                  (substitute* "source/latex/base/ltluatex.dtx"
2411                    (("  ") "  "))
2412                  #t))
2413              (replace 'build
2414                (lambda* (#:key inputs #:allow-other-keys)
2415                  ;; Find required fonts
2416                  (setenv "TFMFONTS"
2417                          (string-join
2418                           (map (match-lambda
2419                                  ((pkg-name . dir)
2420                                   (string-append
2421                                    (assoc-ref inputs pkg-name)
2422                                    "/share/texmf-dist/fonts/tfm/public"
2423                                    dir)))
2424                                '(("texlive-etex" . "/etex")
2425                                  ("texlive-cm" . "/cm")
2426                                  ("texlive-fonts-latex" . "/latex-fonts")
2427                                  ("texlive-fonts-knuth-lib" . "/knuth-lib")))
2428                           ":"))
2429                  (let ((cwd (getcwd)))
2430                    (setenv "TEXINPUTS"
2431                            (string-append
2432                             cwd "//:"
2433                             cwd "/source/latex/base//:"
2434                             cwd "/build:"
2435                             (string-join
2436                              (map (match-lambda ((_ . dir) dir)) inputs)
2437                              "//:"))))
2438
2439                  ;; This is the actual build step.
2440                  (mkdir "build")
2441                  (invoke "tex" "-ini" "-interaction=scrollmode"
2442                          "-output-directory=build" "unpack.ins")
2443
2444                  ;; XXX: We can't build all formats at this point, nor are they
2445                  ;; part of the LaTeX base, so we disable them.  Actually, we
2446                  ;; should be running this all in a profile hook, so that only
2447                  ;; selected formats and hyphenation patterns are included, but it
2448                  ;; takes long and TeX Live isn't designed to be modular like
2449                  ;; that.  Everything operates on a shared directory, which we
2450                  ;; would only have at profile generation time.
2451                  (let ((disabled-formats
2452                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2453                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2454                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2455                           "luacsplain luatex"
2456                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2457                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2458                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2459                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2460                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2461                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2462                    (mkdir "web2c")
2463                    (install-file (string-append
2464                                   (assoc-ref inputs "texlive-kpathsea")
2465                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2466                                  "web2c")
2467                    (make-file-writable "web2c/fmtutil.cnf")
2468                    (substitute* "web2c/fmtutil.cnf"
2469                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2470                       (string-append "#! " m))))
2471                  (invoke "fmtutil-sys" "--all"
2472                          "--fmtdir=web2c"
2473                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2474                  ;; We don't actually want to install it.
2475                  (delete-file "web2c/fmtutil.cnf")
2476                  #t))
2477              (add-after 'install 'install-more
2478                (lambda* (#:key inputs outputs #:allow-other-keys)
2479                  (let* ((out (assoc-ref outputs "out"))
2480                         (root (string-append out "/share/texmf-dist"))
2481                         (target (string-append root "/tex/latex/base"))
2482                         (web2c (string-append root "/web2c"))
2483                         (makeindex (string-append root "/makeindex/latex")))
2484                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2485
2486                    ;; The usedir directive in docstrip.ins is ignored, so these
2487                    ;; two files end up in the wrong place.  Move them.
2488                    (mkdir-p makeindex)
2489                    (for-each (lambda (file)
2490                                (install-file file makeindex)
2491                                (delete-file file))
2492                              '("build/gglo.ist"
2493                                "build/gind.ist"))
2494                    (for-each (cut install-file <> target)
2495                              (find-files "build" ".*"))
2496                    (for-each (cut install-file <> web2c)
2497                              (find-files "web2c" ".*"))
2498                    #t)))))))
2499       (native-inputs
2500        `(("texlive-bin" ,texlive-bin)
2501          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2502          ("texlive-tex-plain" ,texlive-tex-plain)
2503          ("texlive-kpathsea" ,texlive-kpathsea)
2504          ("texlive-cm" ,texlive-cm)
2505          ("texlive-fonts-latex" ,texlive-fonts-latex)
2506          ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)
2507          ("texlive-luatexconfig"
2508           ,(texlive-origin
2509             "texlive-luatexconfig" (number->string %texlive-revision)
2510             (list "/tex/generic/config/luatex-unicode-letters.tex"
2511                   "/tex/generic/config/luatexiniconfig.tex"
2512                   "/web2c/texmfcnf.lua")
2513             (base32
2514              "1gi87wy12r8w8fhx9ajcid382dmqzf6b9070b5nndvbbjrvhwf23")))))
2515       (propagated-inputs
2516        `(("texlive-dehyph-exptl" ,texlive-dehyph-exptl)
2517          ("texlive-etex" ,texlive-etex)
2518          ("texlive-hyph-utf8" ,texlive-hyph-utf8)
2519          ("texlive-hyphen-base" ,texlive-hyphen-base)
2520          ("texlive-hyphen-afrikaans" ,texlive-hyphen-afrikaans)
2521          ("texlive-hyphen-ancientgreek" ,texlive-hyphen-ancientgreek)
2522          ("texlive-hyphen-armenian" ,texlive-hyphen-armenian)
2523          ("texlive-hyphen-basque" ,texlive-hyphen-basque)
2524          ("texlive-hyphen-belarusian" ,texlive-hyphen-belarusian)
2525          ("texlive-hyphen-bulgarian" ,texlive-hyphen-bulgarian)
2526          ("texlive-hyphen-catalan" ,texlive-hyphen-catalan)
2527          ("texlive-hyphen-chinese" ,texlive-hyphen-chinese)
2528          ("texlive-hyphen-churchslavonic" ,texlive-hyphen-churchslavonic)
2529          ("texlive-hyphen-coptic" ,texlive-hyphen-coptic)
2530          ("texlive-hyphen-croatian" ,texlive-hyphen-croatian)
2531          ("texlive-hyphen-czech" ,texlive-hyphen-czech)
2532          ("texlive-hyphen-danish" ,texlive-hyphen-danish)
2533          ("texlive-hyphen-dutch" ,texlive-hyphen-dutch)
2534          ("texlive-hyphen-english" ,texlive-hyphen-english)
2535          ("texlive-hyphen-esperanto" ,texlive-hyphen-esperanto)
2536          ("texlive-hyphen-estonian" ,texlive-hyphen-estonian)
2537          ("texlive-hyphen-ethiopic" ,texlive-hyphen-ethiopic)
2538          ("texlive-hyphen-finnish" ,texlive-hyphen-finnish)
2539          ("texlive-hyphen-french" ,texlive-hyphen-french)
2540          ("texlive-hyphen-friulan" ,texlive-hyphen-friulan)
2541          ("texlive-hyphen-galician" ,texlive-hyphen-galician)
2542          ("texlive-hyphen-georgian" ,texlive-hyphen-georgian)
2543          ("texlive-hyphen-german" ,texlive-hyphen-german)
2544          ("texlive-hyphen-greek" ,texlive-hyphen-greek)
2545          ("texlive-hyphen-hungarian" ,texlive-hyphen-hungarian)
2546          ("texlive-hyphen-icelandic" ,texlive-hyphen-icelandic)
2547          ("texlive-hyphen-indic" ,texlive-hyphen-indic)
2548          ("texlive-hyphen-indonesian" ,texlive-hyphen-indonesian)
2549          ("texlive-hyphen-interlingua" ,texlive-hyphen-interlingua)
2550          ("texlive-hyphen-irish" ,texlive-hyphen-irish)
2551          ("texlive-hyphen-italian" ,texlive-hyphen-italian)
2552          ("texlive-hyphen-kurmanji" ,texlive-hyphen-kurmanji)
2553          ("texlive-hyphen-latin" ,texlive-hyphen-latin)
2554          ("texlive-hyphen-latvian" ,texlive-hyphen-latvian)
2555          ("texlive-hyphen-lithuanian" ,texlive-hyphen-lithuanian)
2556          ("texlive-hyphen-mongolian" ,texlive-hyphen-mongolian)
2557          ("texlive-hyphen-norwegian" ,texlive-hyphen-norwegian)
2558          ("texlive-hyphen-occitan" ,texlive-hyphen-occitan)
2559          ("texlive-hyphen-pali" ,texlive-hyphen-pali)
2560          ("texlive-hyphen-piedmontese" ,texlive-hyphen-piedmontese)
2561          ("texlive-hyphen-polish" ,texlive-hyphen-polish)
2562          ("texlive-hyphen-portuguese" ,texlive-hyphen-portuguese)
2563          ("texlive-hyphen-romanian" ,texlive-hyphen-romanian)
2564          ("texlive-hyphen-romansh" ,texlive-hyphen-romansh)
2565          ("texlive-hyphen-russian" ,texlive-hyphen-russian)
2566          ("texlive-hyphen-sanskrit" ,texlive-hyphen-sanskrit)
2567          ("texlive-hyphen-serbian" ,texlive-hyphen-serbian)
2568          ("texlive-hyphen-slovak" ,texlive-hyphen-slovak)
2569          ("texlive-hyphen-slovenian" ,texlive-hyphen-slovenian)
2570          ("texlive-hyphen-spanish" ,texlive-hyphen-spanish)
2571          ("texlive-hyphen-swedish" ,texlive-hyphen-swedish)
2572          ("texlive-hyphen-thai" ,texlive-hyphen-thai)
2573          ("texlive-hyphen-turkish" ,texlive-hyphen-turkish)
2574          ("texlive-hyphen-turkmen" ,texlive-hyphen-turkmen)
2575          ("texlive-hyphen-ukrainian" ,texlive-hyphen-ukrainian)
2576          ("texlive-hyphen-uppersorbian" ,texlive-hyphen-uppersorbian)
2577          ("texlive-hyphen-welsh" ,texlive-hyphen-welsh)
2578          ("texlive-unicode-data" ,texlive-unicode-data)
2579          ("texlive-ukrhyph" ,texlive-ukrhyph)
2580          ("texlive-ruhyphen" ,texlive-ruhyphen)
2581          ("texlive-latexconfig" ,texlive-latexconfig)))
2582       (home-page "https://www.ctan.org/pkg/latex-base")
2583       (synopsis "Base sources of LaTeX")
2584       (description
2585        "This bundle comprises the source of LaTeX itself, together with several
2586 packages which are considered \"part of the kernel\".  This bundle, together
2587 with the required packages, constitutes what every LaTeX distribution should
2588 contain.")
2589       (license license:lppl1.3c+))))
2590
2591 (define-public texlive-latex-filecontents
2592   (package
2593     (name "texlive-latex-filecontents")
2594     (version (number->string %texlive-revision))
2595     (source (origin
2596               (method svn-fetch)
2597               (uri (texlive-ref "latex" "filecontents"))
2598               (file-name (string-append name "-" version "-checkout"))
2599               (sha256
2600                (base32
2601                 "1h78zw0vhldx478zs4v86ajg7vpkysd1kg3npc480qqls3q6ba40"))))
2602     (build-system texlive-build-system)
2603     (arguments '(#:tex-directory "latex/filecontents"))
2604     (home-page "https://www.ctan.org/pkg/filecontents")
2605     (synopsis "Extended filecontents and filecontents* environments")
2606     (description
2607      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2608 enable a LaTeX source file to generate external files as it runs through
2609 LaTeX.  However, there are two limitations of these environments: they refuse
2610 to overwrite existing files, and they can only be used in the preamble of a
2611 document.  The filecontents package removes these limitations, letting you
2612 overwrite existing files and letting you use @code{filecontents} /
2613 @code{filecontents*} anywhere.")
2614     (license license:lppl1.3c+)))
2615
2616 (define-public texlive-generic-ifxetex
2617   (package
2618     (name "texlive-generic-ifxetex")
2619     (version (number->string %texlive-revision))
2620     (source (origin
2621               (method svn-fetch)
2622               (uri (texlive-ref "generic" "ifxetex"))
2623               (file-name (string-append name "-" version "-checkout"))
2624               (sha256
2625                (base32
2626                 "0w2xj7n0szavj329kds09q626szkc378p3w0sk022q0ln4ksz86d"))))
2627     (build-system texlive-build-system)
2628     (arguments
2629      '(#:tex-directory "generic/ifxetex"
2630        #:tex-format "xelatex"))
2631     (inputs
2632      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
2633     (home-page "https://www.ctan.org/pkg/ifxetex")
2634     (synopsis "Am I running under XeTeX?")
2635     (description
2636      "This is a simple package which provides an @code{\\ifxetex} conditional,
2637 so that other code can determine that it is running under XeTeX.  The package
2638 requires the e-TeX extensions to the TeX primitive set.")
2639     (license license:lppl1.3c+)))
2640
2641 (define-public texlive-epsf
2642   (package
2643     (inherit (simple-texlive-package
2644               "texlive-epsf"
2645               (list "/doc/generic/epsf/"
2646                     "/tex/generic/epsf/")
2647               (base32
2648                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
2649               #:trivial? #t))
2650     (home-page "https://www.ctan.org/pkg/epsf")
2651     (synopsis "Simple macros for EPS inclusion")
2652     (description
2653      "This package provides the original (and now obsolescent) graphics
2654 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2655 particular).  For LaTeX users, the package is nowadays (rather strongly)
2656 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2657 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2658 users, via its Plain TeX version.)")
2659     (license license:public-domain)))
2660
2661 (define-public texlive-generic-epsf
2662   (deprecated-package "texlive-generic-epsf" texlive-epsf))
2663
2664 (define-public texlive-latex-fancyvrb
2665   (package
2666     (inherit (simple-texlive-package
2667               "texlive-latex-fancyvrb"
2668               (list "/doc/latex/fancyvrb/README"
2669                     "/tex/latex/fancyvrb/")
2670               (base32
2671                "1dwkcradz9nwpjwmv1sjzn77lvw25ypr0rrgmf1kd8pd2mw7dxcn")
2672               #:trivial? #t))
2673     (home-page "https://www.ctan.org/pkg/fancyvrb")
2674     (synopsis "Sophisticated verbatim text")
2675     (description
2676      "This package provides tools for the flexible handling of verbatim text
2677 including: verbatim commands in footnotes; a variety of verbatim environments
2678 with many parameters; ability to define new customized verbatim environments;
2679 save and restore verbatim text and environments; write and read files in
2680 verbatim mode; build \"example\" environments (showing both result and
2681 verbatim source).")
2682     (license license:lppl1.0+)))
2683
2684 (define-public texlive-graphics-def
2685   (package
2686     (inherit (simple-texlive-package
2687               "texlive-graphics-def"
2688               (list "/doc/latex/graphics-def/README.md"
2689                     "/tex/latex/graphics-def/")
2690               (base32
2691                "0zrbn9cwfnnrrl3b2zsd74ldksp9jwpvjh7z93ild1m75crpb39a")
2692               #:trivial? #t))
2693     (home-page "https://www.ctan.org/pkg/latex-graphics")
2694     (synopsis "Color and graphics option files")
2695     (description
2696      "This bundle is a combined distribution consisting of @file{dvips.def},
2697 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
2698 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
2699 packages.")
2700     (license license:lppl1.3c+)))
2701
2702 (define-public texlive-graphics-cfg
2703   (package
2704     (inherit (simple-texlive-package
2705               "texlive-graphics-cfg"
2706               (list "/doc/latex/graphics-cfg/README.md"
2707                     "/tex/latex/graphics-cfg/")
2708               (base32
2709                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
2710               #:trivial? #t))
2711     (home-page "https://www.ctan.org/pkg/latex-graphics")
2712     (synopsis "Sample configuration files for LaTeX color and graphics")
2713     (description
2714      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
2715 set default \"driver\" options for the color and graphics packages.")
2716     (license license:public-domain)))
2717
2718 (define-public texlive-latex-graphics
2719   (package
2720     (name "texlive-latex-graphics")
2721     (version (number->string %texlive-revision))
2722     (source (origin
2723               (method svn-fetch)
2724               (uri (texlive-ref "latex" "graphics"))
2725               (file-name (string-append name "-" version "-checkout"))
2726               (sha256
2727                (base32
2728                 "0nlfhn55ax89rcvpkrl9570671b62kcr4c9l5ch3w5zw9vmi00dz"))))
2729     (build-system texlive-build-system)
2730     (arguments '(#:tex-directory "latex/graphics"))
2731     (propagated-inputs
2732      `(("texlive-graphics-cfg" ,texlive-graphics-cfg)
2733        ("texlive-graphics-def" ,texlive-graphics-def)))
2734     (home-page "https://www.ctan.org/pkg/latex-graphics")
2735     (synopsis "LaTeX standard graphics bundle")
2736     (description
2737      "This is a collection of LaTeX packages for producing color, including
2738 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
2739 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
2740 keyval, and lscape.")
2741     (license license:lppl1.3c+)))
2742
2743 (define-public texlive-xcolor
2744   (let ((template (simple-texlive-package
2745                    "texlive-xcolor"
2746                    (list "/doc/latex/xcolor/"
2747                          "/source/latex/xcolor/")
2748                    (base32
2749                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
2750     (package
2751       (inherit template)
2752       (arguments
2753        (substitute-keyword-arguments (package-arguments template)
2754          ((#:tex-directory _ #t)
2755           "latex/xcolor")
2756          ((#:phases phases)
2757           `(modify-phases ,phases
2758              (add-after 'unpack 'chdir
2759                (lambda _ (chdir "source/latex/xcolor") #t))
2760              (add-after 'install 'move-files
2761                (lambda* (#:key outputs #:allow-other-keys)
2762                  (let ((share (string-append (assoc-ref outputs "out")
2763                                              "/share/texmf-dist")))
2764                    (mkdir-p (string-append share "/dvips/xcolor"))
2765                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
2766                                 (string-append share "/dvips/xcolor/xcolor.pro"))
2767                    #t)))))))
2768       (home-page "https://www.ctan.org/pkg/xcolor")
2769       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
2770       (description
2771        "The package starts from the basic facilities of the colorcolor package,
2772 and provides easy driver-independent access to several kinds of color tints,
2773 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
2774 document-wide target color model and offers complete tools for conversion
2775 between eight color models.  Additionally, there is a command for alternating
2776 row colors plus repeated non-aligned material (like horizontal lines) in
2777 tables.")
2778       (license license:lppl1.2+))))
2779
2780 (define-public texlive-latex-xcolor
2781   (deprecated-package "texlive-latex-xcolor" texlive-xcolor))
2782
2783 (define-public texlive-latex-hyperref
2784   (package
2785     (name "texlive-latex-hyperref")
2786     (version "6.84a2")
2787     ;; The sources in the TeX Live SVN repository do not contain hluatex.dtx,
2788     ;; so we fetch the release from GitHub.
2789     (source (origin
2790               (method url-fetch)
2791               (uri (string-append "https://github.com/ho-tex/hyperref/"
2792                                   "archive/release-" version ".tar.gz"))
2793               (file-name (string-append name "-" version ".tar.gz"))
2794               (sha256
2795                (base32
2796                 "1d3rmjgzh0025a1dza55zb6nzzlgd1y9snwx45wq1c1vf42m79h2"))))
2797     (build-system texlive-build-system)
2798     (arguments '(#:tex-directory "latex/hyperref"))
2799     (propagated-inputs
2800      `(("texlive-latex-oberdiek" ,texlive-latex-oberdiek) ; for ltxcmds.sty
2801        ("texlive-latex-url" ,texlive-latex-url)))
2802     (home-page "https://www.ctan.org/pkg/hyperref")
2803     (synopsis "Extensive support for hypertext in LaTeX")
2804     (description
2805      "The @code{hyperref} package is used to handle cross-referencing commands
2806 in LaTeX to produce hypertext links in the document.  The package provides
2807 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
2808 embedded @code{pdfmark} commands for processing by Acrobat
2809 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
2810 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
2811 pdf and HTML backends.  The package is distributed with the @code{backref} and
2812 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
2813     (license license:lppl1.3+)))
2814
2815 (define-public texlive-latex-oberdiek
2816   (package
2817     (name "texlive-latex-oberdiek")
2818     (version (number->string %texlive-revision))
2819     (source (origin
2820               (method svn-fetch)
2821               (uri (texlive-ref "latex" "oberdiek"))
2822               (file-name (string-append name "-" version "-checkout"))
2823               (sha256
2824                (base32
2825                 "0pi2d6gsddcs9wprdbar46s91kdc5fxl1m79g7xrbccsx8s9xbml"))))
2826     (build-system texlive-build-system)
2827     (arguments
2828      '(#:tex-directory "latex/oberdiek"
2829        #:build-targets '("oberdiek.ins")
2830        #:phases
2831        (modify-phases %standard-phases
2832          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
2833          (add-after 'unpack 'do-not-process-ifpdf.ins
2834            (lambda _
2835              (substitute* "oberdiek.ins"
2836                (("ifpdf.ins") "ifpdf.dtx"))
2837              #t)))))
2838     (propagated-inputs
2839      `(("texlive-generic-ifxetex" ,texlive-generic-ifxetex)))
2840     (home-page "https://www.ctan.org/pkg/oberdiek")
2841     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
2842     (description
2843      "The bundle comprises various LaTeX packages, providing among others:
2844 better accessibility support for PDF files; extensible chemists reaction
2845 arrows; record information about document class(es) used; and many more.")
2846     (license license:lppl1.3+)))
2847
2848 (define-public texlive-latex-tools
2849   (package
2850     (name "texlive-latex-tools")
2851     (version (number->string %texlive-revision))
2852     (source (origin
2853               (method svn-fetch)
2854               (uri (texlive-ref "latex" "tools"))
2855               (file-name (string-append name "-" version "-checkout"))
2856               (sha256
2857                (base32
2858                 "1wqvn4z0s92h5iqzrvxw7hinzp95avjk9v8lnqbqr4kz6nv4xb9l"))))
2859     (build-system texlive-build-system)
2860     (arguments
2861      '(#:tex-directory "latex/tools"
2862        #:build-targets '("tools.ins")))
2863     (home-page "https://www.ctan.org/pkg/latex-tools")
2864     (synopsis "LaTeX standard tools bundle")
2865     (description
2866      "This package is a collection of (variously) simple tools provided as
2867 part of the LaTeX required tools distribution, comprising the following
2868 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
2869 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
2870 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
2871 xr, and xspace.")
2872     (license license:lppl1.3+)))
2873
2874 (define-public texlive-url
2875   (package
2876     (inherit (simple-texlive-package
2877               "texlive-url"
2878               (list "/doc/latex/url/"
2879                     "/tex/latex/url/")
2880               (base32
2881                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
2882               #:trivial? #t))
2883     (home-page "https://www.ctan.org/pkg/url")
2884     (synopsis "Verbatim with URL-sensitive line breaks")
2885     (description "The command @code{\\url} is a form of verbatim command that
2886 allows linebreaks at certain characters or combinations of characters, accepts
2887 reconfiguration, and can usually be used in the argument to another command.
2888 The command is intended for email addresses, hypertext links,
2889 directories/paths, etc., which normally have no spaces, so by default the
2890 package ignores spaces in its argument.  However, a package option allows
2891 spaces, which is useful for operating systems where spaces are a common part
2892 of file names.")
2893     ;; The license header states that it is under LPPL version 2 or later, but
2894     ;; the latest version is 1.3c.
2895     (license license:lppl1.3c+)))
2896
2897 (define-public texlive-latex-url
2898   (deprecated-package "texlive-latex-url" texlive-url))
2899
2900 (define-public texlive-tetex
2901   (package
2902     (inherit (simple-texlive-package
2903               "texlive-tetex"
2904               (list "/dvips/tetex/"
2905                     "/fonts/enc/dvips/tetex/"
2906                     "/fonts/map/dvips/tetex/")
2907               (base32
2908                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
2909               #:trivial? #t))
2910     (home-page "https://www.ctan.org/pkg/tetex")
2911     (synopsis "Font maps originally from teTeX")
2912     (description "This package provides font maps that were originally part of
2913 the now obsolete teTeX distributions but are still used at the core of the TeX
2914 Live distribution.")
2915     (license license:public-domain)))
2916
2917 (define-public texlive-latex-l3kernel
2918   (package
2919     (name "texlive-latex-l3kernel")
2920     (version (number->string %texlive-revision))
2921     (source (origin
2922               (method svn-fetch)
2923               (uri (texlive-ref "latex" "l3kernel"))
2924               (file-name (string-append name "-" version "-checkout"))
2925               (sha256
2926                (base32
2927                 "0s77z2cbv841l45qrpf0s8qhzfa4wi689lg7zkw88qg18nzvy0ly"))))
2928     (build-system texlive-build-system)
2929     (arguments
2930      '(#:tex-directory "latex/l3kernel"))
2931     (home-page "https://www.ctan.org/pkg/l3kernel")
2932     (synopsis "LaTeX3 programmers’ interface")
2933     (description
2934      "The l3kernel bundle provides an implementation of the LaTeX3
2935 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
2936 interface provides the foundation on which the LaTeX3 kernel and other future
2937 code are built: it is an API for TeX programmers.  The packages are set up so
2938 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
2939     (license license:lppl1.3c+)))
2940
2941 (define-public texlive-latex-l3packages
2942   (package
2943     (name "texlive-latex-l3packages")
2944     (version (number->string %texlive-revision))
2945     (source (origin
2946               (method svn-fetch)
2947               (uri (texlive-ref "latex" "l3packages"))
2948               (file-name (string-append name "-" version "-checkout"))
2949               (sha256
2950                (base32
2951                 "1cv4fk9pabh7mkxhfsdmh4k8xpmzg1psgcsvd11c869m7n3a629h"))))
2952     (build-system texlive-build-system)
2953     (arguments
2954      '(#:tex-directory "latex/l3packages"
2955        ;; build-targets must be specified manually since they are in
2956        ;; sub-directories.
2957        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
2958        #:phases
2959        (modify-phases %standard-phases
2960          ;; All package sources are in sub-directories, so we need to add them
2961          ;; to TEXINPUTS.
2962          (add-after 'unpack 'set-TEXINPUTS
2963            (lambda _
2964              (let ((cwd (getcwd)))
2965                (setenv "TEXINPUTS"
2966                        (string-append cwd "/l3keys2e:"
2967                                       cwd "/xparse:"
2968                                       cwd "/xfrac:"
2969                                       cwd "/xfp:"
2970                                       cwd "/xtemplate"
2971                                       ;; The terminating ":" is required to include the
2972                                       ;; l3kernel input as well.
2973                                       ":")))
2974              #t)))
2975        ))
2976     (propagated-inputs
2977      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
2978     (home-page "https://www.ctan.org/pkg/l3packages")
2979     (synopsis "High-level LaTeX3 concepts")
2980     (description
2981      "This bundle holds prototype implementations of concepts for a LaTeX
2982 designer interface, to be used with the experimental LaTeX kernel as
2983 programming tools and kernel support.  Packages provided in this release are:
2984
2985 @enumerate
2986 @item l3keys2e, which makes the facilities of the kernel module l3keys
2987   available for use by LaTeX 2e packages;
2988 @item xfrac, which provides flexible splitlevel fractions;
2989 @item xparse, which provides a high-level interface for declaring document
2990   commands; and
2991 @item xtemplate, which provides a means of defining generic functions using a
2992   key-value syntax.
2993 @end enumerate\n")
2994     (license license:lppl1.3c+)))
2995
2996 (define-public texlive-latex-fontspec
2997   (package
2998     (name "texlive-latex-fontspec")
2999     (version (number->string %texlive-revision))
3000     (source (origin
3001               (method svn-fetch)
3002               (uri (texlive-ref "latex" "fontspec"))
3003               (file-name (string-append name "-" version "-checkout"))
3004               (sha256
3005                (base32
3006                 "1223cw029n6zff7pqpwbsq1x8v3w63smczkmnybqxkw5h2za8gbz"))))
3007     (build-system texlive-build-system)
3008     (arguments
3009      '(#:tex-directory "latex/fontspec"
3010        #:phases
3011        (modify-phases %standard-phases
3012          (add-after 'install 'install-default-fontspec.cfg
3013            (lambda* (#:key outputs #:allow-other-keys)
3014              (with-output-to-file
3015                  (string-append (assoc-ref outputs "out")
3016                                 "/share/texmf-dist/tex/latex/fontspec/fontspec.cfg")
3017                (lambda _
3018                  (display "\
3019 %%% FONTSPEC.CFG %%%
3020 %
3021 % This configuration file sets up TeX Ligatures by default for all fonts loaded
3022 % with `\\setmainfont` and `\\setsansfont`.
3023 %
3024 % In addition, `\\setmonofont` has default features to enforce \"monospace\"
3025 % settings with regard to space stretchability and shrinkability.
3026
3027 \\defaultfontfeatures
3028  [\\rmfamily,\\sffamily]
3029  {Ligatures=TeX}
3030
3031 \\defaultfontfeatures
3032  [\\ttfamily]
3033  {WordSpace={1,0,0},
3034   HyphenChar=None,
3035   PunctuationSpace=WordSpace}
3036 ")))
3037              #t)))))
3038     (propagated-inputs
3039      `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
3040     (home-page "https://www.ctan.org/pkg/fontspec")
3041     (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3042     (description
3043      "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3044 automatic and unified interface to feature-rich AAT and OpenType fonts through
3045 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3046 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3047     (license license:lppl1.3+)))
3048
3049 ;; The SVN directory contains little more than a dtx file that generates three
3050 ;; of the many lua files that should be installed as part of this package.
3051 ;; This is why we take the release from GitHub instead.
3052 (define-public texlive-luatex-lualibs
3053   (package
3054     (name "texlive-luatex-lualibs")
3055     (version "2.5")
3056     (source (origin
3057               (method url-fetch)
3058               (uri (string-append "https://github.com/lualatex/lualibs/"
3059                                   "releases/download/v"
3060                                   version "/lualibs.zip"))
3061               (file-name (string-append name "-" version ".zip"))
3062               (sha256
3063                (base32
3064                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
3065     (build-system gnu-build-system)
3066     (arguments
3067      `(#:make-flags
3068        (list (string-append "DESTDIR="
3069                             (assoc-ref %outputs "out")
3070                             "/share/texmf-dist"))
3071        #:phases
3072        (modify-phases %standard-phases
3073          (delete 'configure))))
3074     (native-inputs
3075      `(("texlive-bin" ,texlive-bin)
3076        ("unzip" ,unzip)
3077        ("zip" ,zip)))
3078     (home-page "https://github.com/lualatex/lualibs")
3079     (synopsis "Lua modules for general programming (in the (La)TeX world)")
3080     (description
3081      "Lualibs is a collection of Lua modules useful for general programming.
3082 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3083 this bundle for use independent of ConTeXt.")
3084     ;; GPL version 2 only
3085     (license license:gpl2)))
3086
3087 (define-public texlive-luatex-luaotfload
3088   (package
3089     (name "texlive-luatex-luaotfload")
3090     (version "2.8-fix-2")
3091     ;; The release tarball does not contain all source files.
3092     (source (origin
3093               (method git-fetch)
3094               (uri (git-reference
3095                     (url "https://github.com/lualatex/luaotfload.git")
3096                     (commit (string-append "v" version))))
3097               (file-name (git-file-name name version))
3098               (sha256
3099                (base32
3100                 "0l5l7iq3dxcxl65qaghcpjg27yd9iw1sxa8pnd7xlvlm09dhfdnf"))))
3101     (build-system gnu-build-system)
3102     (arguments
3103      `(#:make-flags
3104        (list (string-append "DESTDIR="
3105                             (assoc-ref %outputs "out")
3106                             "/share/texmf-dist")
3107              "all")
3108        #:parallel-build? #f ; not supported
3109        #:phases
3110        (modify-phases %standard-phases
3111          (replace 'configure
3112            (lambda* (#:key inputs #:allow-other-keys)
3113              (substitute* "doc/Makefile"
3114                (("rst2man") "rst2man.py")
3115                ;; Don't build the PDF.  This requires more of LaTeX.
3116                (("\\$\\(DOCPDF\\)") ""))
3117
3118              (substitute* "Makefile"
3119                ;; We don't build the PDF, so don't attempt to install it.
3120                (("cp \\$\\(RESOURCES\\) \\$\\(DOCPDF\\)")
3121                 "cp $(RESOURCES)")
3122                (("= \\$\\(DOCPDF\\)") "= ")
3123                ;; Fix name of fontloader file
3124                (("^LOADER.*= \\$\\(BUILDDIR\\)/fontloader-\\$\\(shell date \\+%F\\).lua")
3125                 "LOADER = $(BUILDDIR)/fontloader.lua"))
3126
3127              (mkdir "build")
3128
3129              ;; Don't download this file.
3130              (copy-file (assoc-ref inputs "glyphlist")
3131                         "build/glyphlist.txt")
3132
3133              ;; Don't use git
3134              (let ((notes
3135                     `((committer . "Philipp Gesang <phg@phi-gamma.net>")
3136                       (description . ,version)
3137                       (loader . "fontloader.lua")
3138                       (revision . "ad480924393fffa2896156e1a32c22f5c61120dd")
3139                       (timestamp . "2019-01-01 00:00:00 +0000"))))
3140                (substitute* "scripts/mkstatus"
3141                  (("local notes.*=.*")
3142                   (string-append "local notes = {"
3143                                  (string-join
3144                                   (map (lambda (entry)
3145                                          (format "[\"~a\"]=\"~a\","
3146                                                  (symbol->string (car entry))
3147                                                  (cdr entry)))
3148                                        notes))
3149                                  "}"))))
3150              #t)))))
3151     (native-inputs
3152      `(("zip" ,zip)
3153        ("unzip" ,unzip)
3154        ("graphviz" ,graphviz)
3155        ("lualatex" ,(texlive-union (list texlive-luatex-lualibs
3156                                          texlive-context-base)))
3157        ("python-docutils" ,python-docutils)
3158        ("glyphlist"
3159         ,(origin
3160            (method url-fetch)
3161            (uri (string-append "https://raw.githubusercontent.com/adobe-type-tools/"
3162                                "agl-aglfn/b2a04cb906f9257cc06a2fe0ad4b3d663bc02136/"
3163                                "glyphlist.txt"))
3164            (sha256
3165             (base32 "1s6svfw23rqzdvflv8frgd4xrwvrmsj8szwzqgcd39dp9rpjafjp"))))))
3166     (propagated-inputs
3167      `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3168     (home-page "https://github.com/lualatex/luaotfload")
3169     (synopsis "OpenType font loader for LuaTeX")
3170     (description
3171      "Luaotfload is an adaptation of the ConTeXt font loading system for the
3172 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3173 features accessible using an extended font request syntax while providing
3174 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3175 loading fonts by their proper names instead of file names.")
3176     ;; GPL version 2 only
3177     (license license:gpl2)))
3178
3179 (define-public texlive-latex-amsmath
3180   (package
3181     (name "texlive-latex-amsmath")
3182     (version (number->string %texlive-revision))
3183     (source (origin
3184               (method svn-fetch)
3185               (uri (texlive-ref "latex" "amsmath"))
3186               (file-name (string-append name "-" version "-checkout"))
3187               (sha256
3188                (base32
3189                 "0qgk2332dacsxn1z95qzp35gbs7wrzl1ipjdhnmk1r897msm4sf5"))))
3190     (build-system texlive-build-system)
3191     (arguments '(#:tex-directory "latex/amsmath"))
3192     (home-page "https://www.ctan.org/pkg/amsmath")
3193     (synopsis "AMS mathematical facilities for LaTeX")
3194     (description
3195      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3196 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3197 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3198 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3199 symbols), @code{amsopnamsopn} (for operator names) and
3200 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3201 This package is part of the LaTeX required distribution; however, several
3202 contributed packages add still further to its appeal; examples are
3203 @code{empheqempheq}, which provides functions for decorating and highlighting
3204 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3205 definitions.")
3206     (license license:lppl1.3c+)))
3207
3208 (define-public texlive-latex-amscls
3209   (package
3210     (name "texlive-latex-amscls")
3211     (version (number->string %texlive-revision))
3212     (source (origin
3213               (method svn-fetch)
3214               (uri (texlive-ref "latex" "amscls"))
3215               (file-name (string-append name "-" version "-checkout"))
3216               (sha256
3217                (base32
3218                 "0c2j9xh4qpi0x1vvcxdjxq6say0zhyr569fryi5cmhp8bclh4kca"))))
3219     (build-system texlive-build-system)
3220     (arguments
3221      `(#:tex-directory "latex/amscls"))
3222     (home-page "https://www.ctan.org/pkg/amscls")
3223     (synopsis "AMS document classes for LaTeX")
3224     (description
3225      "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3226 articles for the AMS), @code{amsbookamsbook} (for books) and
3227 @code{amsprocamsproc} (for proceedings), together with some supporting
3228 material.  The material is made available as part of the AMS-LaTeX
3229 distribution.")
3230     (license license:lppl1.3c+)))
3231
3232 (define-public texlive-latex-babel
3233   (package
3234     (name "texlive-latex-babel")
3235     (version (number->string %texlive-revision))
3236     (source (origin
3237               (method svn-fetch)
3238               (uri (texlive-ref "latex" "babel"))
3239               (file-name (string-append name "-" version "-checkout"))
3240               (sha256
3241                (base32
3242                 "1rwqq841i1rxywymzwkw0cw2yhgvxwjx5mgygfasvypwrwll6f6s"))))
3243     (build-system texlive-build-system)
3244     (arguments
3245      '(#:tex-directory "generic/babel"
3246        #:phases
3247        (modify-phases %standard-phases
3248          ;; This package tries to produce babel.aux twice but refuses to
3249          ;; overwrite the first one.
3250          (add-before 'build 'fix-ins
3251            (lambda _
3252              (substitute* "babel.ins"
3253                (("askonceonly") "askforoverwritefalse"))
3254              #t)))))
3255     (home-page "https://www.ctan.org/pkg/babel")
3256     (synopsis "Multilingual support for Plain TeX or LaTeX")
3257     (description
3258      "The package manages culturally-determined typographical (and other)
3259 rules, and hyphenation patterns for a wide range of languages.  A document may
3260 select a single language to be supported, or it may select several, in which
3261 case the document may switch from one language to another in a variety of
3262 ways.  Babel uses contributed configuration files that provide the detail of
3263 what has to be done for each language.  Users of XeTeX are advised to use the
3264 polyglossia package rather than Babel.")
3265     (license license:lppl1.3+)))
3266
3267 (define-public texlive-generic-babel-english
3268   (package
3269     (name "texlive-generic-babel-english")
3270     (version (number->string %texlive-revision))
3271     (source (origin
3272               (method svn-fetch)
3273               (uri (texlive-ref "generic" "babel-english"))
3274               (file-name (string-append name "-" version "-checkout"))
3275               (sha256
3276                (base32
3277                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3278     (build-system texlive-build-system)
3279     (arguments '(#:tex-directory "generic/babel-english"))
3280     (home-page "https://www.ctan.org/pkg/babel-english")
3281     (synopsis "Babel support for English")
3282     (description
3283      "This package provides the language definition file for support of
3284 English in @code{babel}.  Care is taken to select British hyphenation patterns
3285 for British English and Australian text, and default (\"american\") patterns
3286 for Canadian and USA text.")
3287     (license license:lppl1.3+)))
3288
3289 (define-public texlive-generic-babel-german
3290   (package
3291     (name "texlive-generic-babel-german")
3292     (version (number->string %texlive-revision))
3293     (source (origin
3294               (method svn-fetch)
3295               (uri (texlive-ref "generic" "babel-german"))
3296               (file-name (string-append name "-" version "-checkout"))
3297               (sha256
3298                (base32
3299                 "129f9w41cb6yyrr6kpv3zz9ml6334hyq1wcz7j9jn47p0hlxqfk8"))))
3300     (build-system texlive-build-system)
3301     (arguments '(#:tex-directory "generic/babel-german"))
3302     (home-page "https://www.ctan.org/pkg/babel-german")
3303     (synopsis "Babel support for German")
3304     (description
3305      "This package provides the language definition file for support of German
3306 in @code{babel}.  It provides all the necessary macros, definitions and
3307 settings to typeset German documents.  The bundle includes support for the
3308 traditional and reformed German orthography as well as for the Austrian and
3309 Swiss varieties of German.")
3310     (license license:lppl1.3+)))
3311
3312 (define-public texlive-latex-cyrillic
3313   (package
3314     (name "texlive-latex-cyrillic")
3315     (version (number->string %texlive-revision))
3316     (source (origin
3317               (method svn-fetch)
3318               (uri (texlive-ref "latex" "cyrillic"))
3319               (file-name (string-append name "-" version "-checkout"))
3320               (sha256
3321                (base32
3322                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3323     (build-system texlive-build-system)
3324     (arguments
3325      '(#:tex-directory "latex/cyrillic"))
3326     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3327     (synopsis "Support for Cyrillic fonts in LaTeX")
3328     (description
3329      "This bundle of macros files provides macro support (including font
3330 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3331 T2* and X2 encodings. These encodings cover (between them) pretty much every
3332 language that is written in a Cyrillic alphabet.")
3333     (license license:lppl1.3c+)))
3334
3335 (define-public texlive-latex-psnfss
3336   (package
3337     (name "texlive-latex-psnfss")
3338     (version (number->string %texlive-revision))
3339     (source (origin
3340               (method svn-fetch)
3341               (uri (texlive-ref "latex" "psnfss"))
3342               (file-name (string-append name "-" version "-checkout"))
3343               (sha256
3344                (base32
3345                 "1920dcq8613yzprasbg80fh4fcjcidvvl54wkx438nimyxcri7qz"))))
3346     (build-system texlive-build-system)
3347     (arguments '(#:tex-directory "latex/psnfss"))
3348     (home-page "https://www.ctan.org/pkg/psnfss")
3349     (synopsis "Font support for common PostScript fonts")
3350     (description
3351      "The PSNFSS collection includes a set of files that provide a complete
3352 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3353 PostScript fonts.  It covers the so-called \"Base\" fonts (which are built
3354 into any Level 2 PostScript printing device and the Ghostscript interpreter)
3355 and a number of free fonts.  It provides font definition files, macros and
3356 font metrics.  The bundle as a whole is part of the LaTeX required set of
3357 packages.")
3358     (license license:lppl1.2+)))
3359
3360 ;; For user profiles
3361 (define-public texlive-base
3362   (let ((default-packages
3363           (list texlive-bin
3364                 texlive-dvips
3365                 texlive-fontname
3366                 texlive-cm
3367                 texlive-fonts-latex
3368                 texlive-metafont-base
3369                 texlive-latex-base
3370                 ;; LaTeX packages from the "required" set.
3371                 texlive-latex-amsmath
3372                 texlive-latex-amscls
3373                 texlive-latex-babel
3374                 texlive-generic-babel-english
3375                 texlive-latex-cyrillic
3376                 texlive-latex-graphics
3377                 texlive-latex-psnfss
3378                 texlive-latex-tools
3379                 texlive-tetex)))
3380     (package
3381       (name "texlive-base")
3382       (version (number->string %texlive-revision))
3383       (source #f)
3384       (build-system trivial-build-system)
3385       (arguments
3386        '(#:builder
3387          (begin (mkdir (assoc-ref %outputs "out")))))
3388       (propagated-inputs
3389        (map (lambda (package)
3390               (list (package-name package) package))
3391             default-packages))
3392       (home-page (package-home-page texlive-bin))
3393       (synopsis "TeX Live base packages")
3394       (description "This is a very limited subset of the TeX Live distribution.
3395 It includes little more than the required set of LaTeX packages.")
3396       (license (fold (lambda (package result)
3397                        (match (package-license package)
3398                          ((lst ...)
3399                           (append lst result))
3400                          ((? license:license? license)
3401                           (cons license result))))
3402                      '()
3403                      default-packages)))))
3404
3405 ;; For use in package definitions only
3406 (define-public texlive-union
3407   (lambda* (#:optional (packages '()))
3408     "Return 'texlive-union' package which is a union of PACKAGES and the
3409 standard LaTeX packages."
3410     (let ((default-packages (match (package-propagated-inputs texlive-base)
3411                               (((labels packages) ...) packages))))
3412       (package (inherit texlive-base)
3413         (name "texlive-union")
3414         (build-system trivial-build-system)
3415         (arguments
3416          '(#:modules ((guix build union)
3417                       (guix build utils)
3418                       (guix build texlive-build-system)
3419                       (guix build gnu-build-system)
3420                       (guix build gremlin)
3421                       (guix elf))
3422            #:builder
3423            (begin
3424              (use-modules (ice-9 match)
3425                           (ice-9 popen)
3426                           (srfi srfi-26)
3427                           (guix build union)
3428                           (guix build utils)
3429                           (guix build texlive-build-system))
3430              (let* ((out       (assoc-ref %outputs "out"))
3431                     (texmf.cnf (string-append out "/share/texmf-dist/web2c/texmf.cnf")))
3432                ;; Build a modifiable union of all inputs (but exclude bash and
3433                ;; the updmap.cfg file)
3434                (match (filter (match-lambda
3435                                 ((name . _)
3436                                  (not (member name '("bash"
3437                                                      "coreutils"
3438                                                      "sed"
3439                                                      "updmap.cfg")))))
3440                               %build-inputs)
3441                  (((names . directories) ...)
3442                   (union-build (assoc-ref %outputs "out")
3443                                directories
3444                                #:create-all-directories? #t
3445                                #:log-port (%make-void-port "w"))))
3446
3447                ;; The configuration file "texmf.cnf" is provided by the
3448                ;; "texlive-bin" package.  We take it and override only the
3449                ;; setting for TEXMFROOT and TEXMF.  This file won't be consulted
3450                ;; by default, though, so we still need to set TEXMFCNF.
3451                (substitute* texmf.cnf
3452                  (("^TEXMFROOT = .*")
3453                   (string-append "TEXMFROOT = " out "/share\n"))
3454                  (("^TEXMF = .*")
3455                   "TEXMF = $TEXMFROOT/share/texmf-dist\n"))
3456                (setenv "PATH" (string-append
3457                                (assoc-ref %build-inputs "bash") "/bin:"
3458                                (assoc-ref %build-inputs "coreutils") "/bin:"
3459                                (assoc-ref %build-inputs "sed") "/bin:"
3460                                (string-append out "/bin")))
3461                (for-each
3462                 (cut wrap-program <>
3463                      `("TEXMFCNF" ":" suffix (,(dirname texmf.cnf)))
3464                      `("TEXMF"    ":" suffix (,(string-append out "/share/texmf-dist"))))
3465                 (find-files (string-append out "/bin") ".*"))
3466
3467                ;; Remove invalid maps from config file.
3468                (let ((web2c (string-append out "/share/texmf-config/web2c/"))
3469                      (maproot (string-append out "/share/texmf-dist/fonts/map/")))
3470                  (mkdir-p web2c)
3471                  (copy-file
3472                   (assoc-ref %build-inputs "updmap.cfg")
3473                   (string-append web2c "updmap.cfg"))
3474                  (make-file-writable (string-append web2c "updmap.cfg"))
3475
3476                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
3477                                           "--syncwithtrees"
3478                                           "--nohash"
3479                                           (string-append "--cnffile=" web2c "updmap.cfg"))))
3480                    (display "Y\n" port)
3481                    (when (not (zero? (status:exit-val (close-pipe port))))
3482                      (error "failed to filter updmap.cfg")))
3483                  ;; Generate maps.
3484                  (invoke "updmap-sys"
3485                          (string-append "--cnffile=" web2c "updmap.cfg")
3486                          (string-append "--dvipdfmxoutputdir="
3487                                         maproot "dvipdfmx/updmap/")
3488                          (string-append "--dvipsoutputdir="
3489                                         maproot "dvips/updmap/")
3490                          (string-append "--pdftexoutputdir="
3491                                         maproot "pdftex/updmap/"))
3492                  ;; Having this file breaks all file lookups later.
3493                  (delete-file (string-append out "/share/texmf-dist/ls-R")))
3494                #t))))
3495         (inputs
3496          `(("bash" ,bash)
3497            ,@(map (lambda (package)
3498                     (list (package-name package) package))
3499                   (append default-packages packages))))
3500         (native-inputs
3501          `(("coreutils" ,coreutils)
3502            ("sed" ,sed)
3503            ("updmap.cfg"
3504             ,(origin
3505                (method url-fetch)
3506                (uri (string-append "https://tug.org/svn/texlive/tags/"
3507                                    %texlive-tag "/Master/texmf-dist/web2c/updmap.cfg"
3508                                    "?revision=" (number->string %texlive-revision)))
3509                (file-name (string-append "updmap.cfg-"
3510                                          (number->string %texlive-revision)))
3511                (sha256
3512                 (base32
3513                  "0faqknqxs80qp9ywk0by5k85s0yalg97c4lja4q56lsyblrr4j7i"))))))
3514         (home-page (package-home-page texlive-bin))
3515         (synopsis "Union of TeX Live packages")
3516         (description "This package provides a subset of the TeX Live
3517 distribution.")
3518         (license (fold (lambda (package result)
3519                          (match (package-license package)
3520                            ((lst ...)
3521                             (append lst result))
3522                            ((? license:license? license)
3523                             (cons license result))))
3524                        '()
3525                        (append default-packages packages)))))))
3526
3527 ;; For use in package definitions only
3528 (define-public texlive-tiny
3529   (package
3530     (inherit (texlive-union))
3531     (name "texlive-tiny")
3532     (description "This is a very limited subset of the TeX Live distribution.
3533 It includes little more than the required set of LaTeX packages.")))
3534
3535 (define-public texlive-latex-amsrefs
3536   (package
3537     (name "texlive-latex-amsrefs")
3538     (version (number->string %texlive-revision))
3539     (source (origin
3540               (method svn-fetch)
3541               (uri (texlive-ref "latex" "amsrefs"))
3542               (file-name (string-append name "-" version "-checkout"))
3543               (sha256
3544                (base32
3545                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
3546     (build-system texlive-build-system)
3547     (arguments '(#:tex-directory "latex/amsrefs"))
3548     (home-page "https://www.ctan.org/pkg/amsrefs")
3549     (synopsis "LaTeX-based replacement for BibTeX")
3550     (description
3551      "Amsrefs is a LaTeX package for bibliographies that provides an archival
3552 data format similar to the format of BibTeX database files, but adapted to
3553 make direct processing by LaTeX easier.  The package can be used either in
3554 conjunction with BibTeX or as a replacement for BibTeX.")
3555     (license license:lppl1.3+)))
3556
3557 (define-public texlive-latex-bigfoot
3558   (package
3559     (name "texlive-latex-bigfoot")
3560     (version (number->string %texlive-revision))
3561     (source (origin
3562               (method svn-fetch)
3563               (uri (texlive-ref "latex" "bigfoot"))
3564               (file-name (string-append name "-" version "-checkout"))
3565               (sha256
3566                (base32
3567                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
3568     (build-system texlive-build-system)
3569     (arguments
3570      '(#:tex-directory "latex/bigfoot"
3571        #:phases
3572        (modify-phases %standard-phases
3573          (add-after 'unpack 'remove-generated-file
3574            (lambda _
3575              (for-each delete-file (find-files "." "\\.drv$"))
3576              #t)))))
3577     (home-page "https://www.ctan.org/pkg/bigfoot")
3578     (synopsis "Footnotes for critical editions")
3579     (description
3580      "This package aims to provide a one-stop solution to requirements for
3581 footnotes.  It offers: Multiple footnote apparatus superior to that of
3582 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
3583 into a single paragraph (this choice may be selected per footnote series);
3584 Things you might have expected (such as @code{\\verb}-like material in
3585 footnotes, and color selections over page breaks) now work.  Note that the
3586 majority of the bigfoot package's interface is identical to that of
3587 @code{manyfoot}; users should seek information from that package's
3588 documentation.  The bigfoot bundle also provides the @code{perpage} and
3589 @code{suffix} packages.")
3590     (license license:gpl2+)))
3591
3592 (define-public texlive-latex-blindtext
3593   (package
3594     (name "texlive-latex-blindtext")
3595     (version (number->string %texlive-revision))
3596     (source (origin
3597               (method svn-fetch)
3598               (uri (texlive-ref "latex" "blindtext"))
3599               (file-name (string-append name "-" version "-checkout"))
3600               (sha256
3601                (base32
3602                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
3603     (build-system texlive-build-system)
3604     (arguments '(#:tex-directory "latex/blindtext"))
3605     (home-page "https://www.ctan.org/pkg/blindtext")
3606     (synopsis "Producing 'blind' text for testing")
3607     (description
3608      "The package provides the commands @code{\\blindtext} and
3609 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
3610 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
3611 an entire random document with sections, lists, mathematics, etc.  The package
3612 supports three languages, @code{english}, @code{(n)german} and @code{latin};
3613 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
3614 ipsum\" text, see the @code{lipsum} package).")
3615     (license license:lppl)))
3616
3617 (define-public texlive-latex-dinbrief
3618   (package
3619     (name "texlive-latex-dinbrief")
3620     (version (number->string %texlive-revision))
3621     (source (origin
3622               (method svn-fetch)
3623               (uri (texlive-ref "latex" "dinbrief"))
3624               (file-name (string-append name "-" version "-checkout"))
3625               (sha256
3626                (base32
3627                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
3628     (build-system texlive-build-system)
3629     (arguments
3630      '(#:tex-directory "latex/dinbrief"
3631        #:phases
3632        (modify-phases %standard-phases
3633          (add-after 'unpack 'remove-generated-file
3634            (lambda _
3635              (delete-file "dinbrief.drv")
3636              #t))
3637          (add-after 'unpack 'fix-encoding-error
3638            (lambda _
3639              (with-fluids ((%default-port-encoding "ISO-8859-1"))
3640                (substitute* "dinbrief.dtx"
3641                  (("zur Verf.+ung. In der Pr\"aambel")
3642                   "zur Verf\"ung. In der Pr\"aambel")))
3643              #t)))))
3644     (home-page "https://www.ctan.org/pkg/dinbrief")
3645     (synopsis "German letter DIN style")
3646     (description
3647      "This package implements a document layout for writing letters according
3648 to the rules of DIN (Deutsches Institut für Normung, German standardisation
3649 institute).  A style file for LaTeX 2.09 (with limited support of the
3650 features) is part of the package.  Since the letter layout is based on a
3651 German standard, the user guide is written in German, but most macros have
3652 English names from which the user can recognize what they are used for.  In
3653 addition there are example files showing how letters may be created with the
3654 package.")
3655     (license license:lppl)))
3656
3657 (define-public texlive-latex-draftwatermark
3658   (package
3659     (name "texlive-latex-draftwatermark")
3660     (version (number->string %texlive-revision))
3661     (source (origin
3662               (method svn-fetch)
3663               (uri (texlive-ref "latex" "draftwatermark"))
3664               (file-name (string-append name "-" version "-checkout"))
3665               (sha256
3666                (base32
3667                 "1zyl2pcz2x529gzj5m93a1s4ipymdabf7qdjl3l1673pizd4hfyv"))))
3668     (build-system texlive-build-system)
3669     (arguments '(#:tex-directory "latex/draftwatermark"))
3670     (home-page "https://www.ctan.org/pkg/draftwatermark")
3671     (synopsis "Put a grey textual watermark on document pages")
3672     (description
3673      "This package provides a means to add a textual, light grey watermark on
3674 every page or on the first page of a document.  Typical usage may consist in
3675 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
3676 package performs a similar function to that of @code{draftcopy}, but its
3677 implementation is output device independent, and made very simple by relying
3678 on everypage.")
3679     (license license:lppl1.3+)))
3680
3681 (define-public texlive-latex-environ
3682   (package
3683     (name "texlive-latex-environ")
3684     (version (number->string %texlive-revision))
3685     (source (origin
3686               (method svn-fetch)
3687               (uri (texlive-ref "latex" "environ"))
3688               (file-name (string-append name "-" version "-checkout"))
3689               (sha256
3690                (base32
3691                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
3692     (build-system texlive-build-system)
3693     (arguments '(#:tex-directory "latex/environ"))
3694     (home-page "https://www.ctan.org/pkg/environ")
3695     (synopsis "New interface for environments in LaTeX")
3696     (description
3697      "This package provides the @code{\\collect@@body} command (as in
3698 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
3699 for collecting the body text of an environment.  These commands are used to
3700 define a new author interface to creating new environments.")
3701     (license license:lppl)))
3702
3703 (define-public texlive-latex-eqparbox
3704   (package
3705     (name "texlive-latex-eqparbox")
3706     (version (number->string %texlive-revision))
3707     (source (origin
3708               (method svn-fetch)
3709               (uri (texlive-ref "latex" "eqparbox"))
3710               (file-name (string-append name "-" version "-checkout"))
3711               (sha256
3712                (base32
3713                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
3714     (build-system texlive-build-system)
3715     (arguments '(#:tex-directory "latex/eqparbox"))
3716     (home-page "https://www.ctan.org/pkg/eqparbox")
3717     (synopsis "Create equal-widthed parboxes")
3718     (description
3719      "LaTeX users sometimes need to ensure that two or more blocks of text
3720 occupy the same amount of horizontal space on the page.  To that end, the
3721 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
3722 just like @code{\\parbox}, except that instead of specifying a width, one
3723 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
3724 where they are in the document---will stretch to fit the widest
3725 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
3726 for a variety of alignment purposes, as is evidenced by the examples in
3727 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
3728 also provided.")
3729     (license license:lppl1.3+)))
3730
3731 (define-public texlive-latex-expdlist
3732   (package
3733     (name "texlive-latex-expdlist")
3734     (version (number->string %texlive-revision))
3735     (source (origin
3736               (method svn-fetch)
3737               (uri (texlive-ref "latex" "expdlist"))
3738               (file-name (string-append name "-" version "-checkout"))
3739               (sha256
3740                (base32
3741                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
3742     (build-system texlive-build-system)
3743     (arguments
3744      '(#:tex-directory "latex/expdlist"
3745        #:phases
3746        (modify-phases %standard-phases
3747          (add-after 'unpack 'remove-generated-file
3748            (lambda _
3749              (for-each delete-file
3750                        (find-files "." "\\.drv$"))
3751              #t)))))
3752     (home-page "https://www.ctan.org/pkg/expdlist")
3753     (synopsis "Expanded description environments")
3754     (description
3755      "The package provides additional features for the LaTeX
3756 @code{description} environment, including adjustable left margin.  The package
3757 also allows the user to \"break\" a list (for example, to interpose a comment)
3758 without affecting the structure of the list (this works for @code{itemize} and
3759 @code{enumerate} lists, and numbered lists remain in sequence).")
3760     (license license:lppl)))
3761
3762 (define-public texlive-filemod
3763   (package
3764     (inherit (simple-texlive-package
3765               "texlive-filemod"
3766               (list "/doc/latex/filemod/"
3767                     "/tex/latex/filemod/"
3768                     "/tex/generic/filemod/")
3769               (base32
3770                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
3771               #:trivial? #t))
3772     (home-page "https://www.ctan.org/pkg/filemod")
3773     (synopsis "Provide file modification times, and compare them")
3774     (description
3775      "This package provides macros to read and compare the modification dates
3776 of files.  The files may be @code{.tex} files, images or other files (as long
3777 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
3778 of pdfLaTeX to find the file modification date as PDF date string, parses the
3779 string and returns the value to the user.  The package will also work for DVI
3780 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
3781 mode.  The functionality is provided by purely expandable macros or by faster
3782 but non-expandable ones.")
3783     (license license:lppl1.3+)))
3784
3785 (define-public texlive-latex-filemod
3786   (deprecated-package "texlive-latex-filemod" texlive-filemod))
3787
3788 (define-public texlive-latex-ifplatform
3789   (package
3790     (name "texlive-latex-ifplatform")
3791     (version (number->string %texlive-revision))
3792     (source (origin
3793               (method svn-fetch)
3794               (uri (texlive-ref "latex" "ifplatform"))
3795               (file-name (string-append name "-" version "-checkout"))
3796               (sha256
3797                (base32
3798                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
3799     (build-system texlive-build-system)
3800     (arguments '(#:tex-directory "latex/ifplatform"))
3801     (home-page "https://www.ctan.org/pkg/ifplatform")
3802     (synopsis "Conditionals to test which platform is being used")
3803     (description
3804      "This package uses the (La)TeX extension @code{-shell-escape} to
3805 establish whether the document is being processed on a Windows or on a
3806 Unix-like system, or on Cygwin (Unix environment over a Windows system).
3807 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
3808 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
3809 on a Unix-like system, which may be used to distinguish between various
3810 classes of systems.")
3811     (license license:lppl)))
3812
3813 (define-public texlive-latex-natbib
3814   (package
3815     (name "texlive-latex-natbib")
3816     (version (number->string %texlive-revision))
3817     (source (origin
3818               (method svn-fetch)
3819               (uri (texlive-ref "latex" "natbib"))
3820               (file-name (string-append name "-" version "-checkout"))
3821               (sha256
3822                (base32
3823                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
3824     (build-system texlive-build-system)
3825     (arguments '(#:tex-directory "latex/natbib"))
3826     (home-page "https://www.ctan.org/pkg/natbib")
3827     (synopsis "Flexible bibliography support")
3828     (description
3829      "This bundle provides a package that implements both author-year and
3830 numbered references, as well as much detailed of support for other
3831 bibliography use.  Also provided are versions of the standard BibTeX styles
3832 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
3833 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
3834 designed from the start to be compatible with @code{natbib}.")
3835     (license license:lppl)))
3836
3837 (define-public texlive-latex-psfrag
3838   (package
3839     (name "texlive-latex-psfrag")
3840     (version (number->string %texlive-revision))
3841     (source (origin
3842               (method svn-fetch)
3843               (uri (texlive-ref "latex" "psfrag"))
3844               (file-name (string-append name "-" version "-checkout"))
3845               (sha256
3846                (base32
3847                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
3848     (build-system texlive-build-system)
3849     (arguments '(#:tex-directory "latex/psfrag"))
3850     (home-page "https://www.ctan.org/pkg/psfrag")
3851     (synopsis "Replace strings in encapsulated PostScript figures")
3852     (description
3853      "This package allows LaTeX constructions (equations, picture
3854 environments, etc.) to be precisely superimposed over Encapsulated PostScript
3855 figures, using your own favorite drawing tool to create an EPS figure and
3856 placing simple text \"tags\" where each replacement is to be placed, with
3857 PSfrag automatically removing these tags from the figure and replacing them
3858 with a user specified LaTeX construction, properly aligned, scaled, and/or
3859 rotated.")
3860     (license (license:fsf-free "file://psfrag.dtx"))))
3861
3862 (define-public texlive-pstool
3863   (package
3864     (inherit (simple-texlive-package
3865               "texlive-pstool"
3866               (list "/doc/latex/pstool/"
3867                     "/tex/latex/pstool/")
3868               (base32
3869                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
3870               #:trivial? #t))
3871     (propagated-inputs
3872      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
3873        ("texlive-latex-filemod" ,texlive-latex-filemod)
3874        ("texlive-latex-graphics" ,texlive-latex-graphics)
3875        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
3876        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
3877        ("texlive-latex-oberdiek" ,texlive-latex-oberdiek)
3878        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
3879        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
3880        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
3881        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
3882     (home-page "https://www.ctan.org/pkg/pstool")
3883     (synopsis "Process PostScript graphics within pdfLaTeX documents")
3884     (description
3885      "This is a package for processing PostScript graphics with @code{psfrag}
3886 labels within pdfLaTeX documents.  Every graphic is compiled individually,
3887 drastically speeding up compilation time when only a single figure needs
3888 re-processing.")
3889     (license license:lppl)))
3890
3891 (define-public texlive-latex-pstool
3892   (deprecated-package "texlive-latex-pstool" texlive-pstool))
3893
3894 (define-public texlive-seminar
3895   (package
3896     (inherit (simple-texlive-package
3897               "texlive-seminar"
3898               (list "/doc/latex/seminar/"
3899                     "/tex/latex/seminar/")
3900               (base32
3901                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
3902               #:trivial? #t))
3903     (home-page "https://www.ctan.org/pkg/seminar")
3904     (synopsis "Make overhead slides")
3905     ;; TODO: This package may need fancybox and xcomment at runtime.
3906     (description
3907      "This package provides a class that produces overhead
3908 slides (transparencies), with many facilities.  Seminar is not nowadays
3909 reckoned a good basis for a presentation — users are advised to use more
3910 recent classes such as powerdot or beamer, both of which are tuned to
3911 21st-century presentation styles.")
3912     (license license:lppl1.2+)))
3913
3914 (define-public texlive-latex-seminar
3915   (deprecated-package "texlive-latex-seminar" texlive-seminar))
3916
3917 (define-public texlive-latex-trimspaces
3918   (package
3919     (name "texlive-latex-trimspaces")
3920     (version (number->string %texlive-revision))
3921     (source (origin
3922               (method svn-fetch)
3923               (uri (texlive-ref "latex" "trimspaces"))
3924               (file-name (string-append name "-" version "-checkout"))
3925               (sha256
3926                (base32
3927                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
3928     (build-system texlive-build-system)
3929     (arguments
3930      '(#:tex-directory "latex/trimspaces"
3931        #:tex-format "latex"
3932        #:phases
3933        (modify-phases %standard-phases
3934          (add-after 'unpack 'fix-bug
3935            (lambda _
3936              ;; The "ins" file refers to the wrong source file.
3937              (substitute* "trimspaces.ins"
3938                (("pstool.tex") "trimspaces.tex"))
3939              #t)))))
3940     (inputs
3941      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
3942     (home-page "https://www.ctan.org/pkg/trimspaces")
3943     (synopsis "Trim spaces around an argument or within a macro")
3944     (description
3945      "This very short package allows you to expandably remove spaces around a
3946 token list (commands are provided to remove spaces before, spaces after, or
3947 both); or to remove surrounding spaces within a macro definition, or to define
3948 space-stripped macros.")
3949     (license license:lppl)))
3950
3951 (define-public texlive-latex-capt-of
3952   (package
3953     (name "texlive-latex-capt-of")
3954     (version (number->string %texlive-revision))
3955     (source (origin
3956               (method svn-fetch)
3957               (uri (svn-reference
3958                     (url (string-append "svn://www.tug.org/texlive/tags/"
3959                                         %texlive-tag "/Master/texmf-dist/"
3960                                         "/tex/latex/capt-of"))
3961                     (revision %texlive-revision)))
3962               (file-name (string-append name "-" version "-checkout"))
3963               (sha256
3964                (base32
3965                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
3966     (build-system trivial-build-system)
3967     (arguments
3968      `(#:modules ((guix build utils))
3969        #:builder
3970        (begin
3971          (use-modules (guix build utils))
3972          (let ((target (string-append (assoc-ref %outputs "out")
3973                                       "/share/texmf-dist/tex/latex/capt-of")))
3974            (mkdir-p target)
3975            (copy-recursively (assoc-ref %build-inputs "source") target)
3976            #t))))
3977     (home-page "https://www.ctan.org/pkg/capt-of")
3978     (synopsis "Captions on more than floats")
3979     (description
3980      "This package defines a command @code{\\captionof} for putting a caption
3981 to something that's not a float.")
3982     (license license:lppl)))
3983
3984 (define-public texlive-doi
3985   (package
3986     (inherit (simple-texlive-package
3987               "texlive-doi"
3988               (list "/doc/latex/doi/README.md"
3989                     "/tex/latex/doi/")
3990               (base32
3991                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
3992               #:trivial? #t))
3993     (home-page "https://www.ctan.org/pkg/doi")
3994     (synopsis "Create correct hyperlinks for DOI numbers")
3995     (description
3996      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
3997 elected to use nasty characters in their DOI numbering scheme (@code{<},
3998 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
3999 upset LaTeX, or your PDF reader.  This package contains a single user-level
4000 command @code{\\doi{}}, which takes a DOI number, and creates a correct
4001 hyperlink to the target of the DOI.")
4002     ;; Any version of the LPPL.
4003     (license license:lppl1.3+)))
4004
4005 (define-public texlive-latex-doi
4006   (deprecated-package "texlive-latex-doi" texlive-doi))
4007
4008 (define-public texlive-etoolbox
4009   (package
4010     (inherit (simple-texlive-package
4011               "texlive-etoolbox"
4012               (list "/doc/latex/etoolbox/"
4013                     "/tex/latex/etoolbox/")
4014               (base32
4015                "1cc1vw1ach55g4ff4x30by8k1mg01w199ccxvn72f5khlnnxial0")
4016               #:trivial? #t))
4017     (home-page "https://www.ctan.org/pkg/etoolbox")
4018     (synopsis "e-TeX tools for LaTeX")
4019     (description
4020      "This package is a toolbox of programming facilities geared primarily
4021 towards LaTeX class and package authors.  It provides LaTeX frontends to some
4022 of the new primitives provided by e-TeX as well as some generic tools which
4023 are not strictly related to e-TeX but match the profile of this package.  The
4024 package provides functions that seem to offer alternative ways of implementing
4025 some LaTeX kernel commands; nevertheless, the package will not modify any part
4026 of the LaTeX kernel.")
4027     (license license:lppl1.3+)))
4028
4029 (define-public texlive-latex-etoolbox
4030   (deprecated-package "texlive-latex-etoolbox" texlive-etoolbox))
4031
4032 (define-public texlive-latex-fncychap
4033   (package
4034     (name "texlive-latex-fncychap")
4035     (version (number->string %texlive-revision))
4036     (source (origin
4037               (method svn-fetch)
4038               (uri (svn-reference
4039                     (url (string-append "svn://www.tug.org/texlive/tags/"
4040                                         %texlive-tag "/Master/texmf-dist/"
4041                                         "/tex/latex/fncychap"))
4042                     (revision %texlive-revision)))
4043               (file-name (string-append name "-" version "-checkout"))
4044               (sha256
4045                (base32
4046                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
4047     (build-system trivial-build-system)
4048     (arguments
4049      `(#:modules ((guix build utils))
4050        #:builder
4051        (begin
4052          (use-modules (guix build utils))
4053          (let ((target (string-append (assoc-ref %outputs "out")
4054                                       "/share/texmf-dist/tex/latex/fncychap")))
4055            (mkdir-p target)
4056            (copy-recursively (assoc-ref %build-inputs "source") target)
4057            #t))))
4058     (home-page "https://www.ctan.org/pkg/fncychap")
4059     (synopsis "Seven predefined chapter heading styles")
4060     (description
4061      "This package provides seven predefined chapter heading styles.  Each
4062 style can be modified using a set of simple commands.  Optionally one can
4063 modify the formatting routines in order to create additional chapter
4064 headings.")
4065     (license license:lppl1.3+)))
4066
4067 (define-public texlive-latex-framed
4068   (package
4069     (name "texlive-latex-framed")
4070     (version (number->string %texlive-revision))
4071     (source (origin
4072               (method svn-fetch)
4073               (uri (svn-reference
4074                     (url (string-append "svn://www.tug.org/texlive/tags/"
4075                                         %texlive-tag "/Master/texmf-dist/"
4076                                         "/tex/latex/framed"))
4077                     (revision %texlive-revision)))
4078               (file-name (string-append name "-" version "-checkout"))
4079               (sha256
4080                (base32
4081                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4082     (build-system trivial-build-system)
4083     (arguments
4084      `(#:modules ((guix build utils))
4085        #:builder
4086        (begin
4087          (use-modules (guix build utils))
4088          (let ((target (string-append (assoc-ref %outputs "out")
4089                                       "/share/texmf-dist/tex/latex/framed")))
4090            (mkdir-p target)
4091            (copy-recursively (assoc-ref %build-inputs "source") target)
4092            #t))))
4093     (home-page "https://www.ctan.org/pkg/framed")
4094     (synopsis "Framed or shaded regions that can break across pages")
4095     (description
4096      "The package creates three environments: @code{framed}, which puts an
4097 ordinary frame box around the region, @code{shaded}, which shades the region,
4098 and @code{leftbar}, which places a line at the left side.  The environments
4099 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4100 title that is “attached” to the environment); breaks are also allowed in the
4101 course of the framed/shaded matter.  There is also a command
4102 @code{\\MakeFramed} to make your own framed-style environments.")
4103     ;; The header states: "These macros may be freely transmitted, reproduced,
4104     ;; or modified for any purpose provided that this notice is left intact."
4105     (license (license:fsf-free "file://framed.sty"))))
4106
4107 (define-public texlive-latex-g-brief
4108   (package
4109     (name "texlive-latex-g-brief")
4110     (version (number->string %texlive-revision))
4111     (source (origin
4112               (method svn-fetch)
4113               (uri (texlive-ref "latex" "g-brief"))
4114               (file-name (string-append name "-" version "-checkout"))
4115               (sha256
4116                (base32
4117                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
4118     (build-system texlive-build-system)
4119     (arguments
4120      '(#:tex-directory "latex/g-brief"
4121        #:phases
4122        (modify-phases %standard-phases
4123          (add-after 'unpack 'remove-generated-file
4124            (lambda _
4125              (delete-file "g-brief.drv")
4126              #t)))))
4127     (home-page "https://www.ctan.org/pkg/g-brief")
4128     (synopsis "Letter document class")
4129     (description
4130      "This package is designed for formatting formless letters in German; it
4131 can also be used for English (by those who can read the documentation).  There
4132 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4133 \"old\" and a \"new\" version of g-brief.")
4134     (license license:lppl)))
4135
4136 (define-public texlive-latex-galois
4137   (package
4138     (name "texlive-latex-galois")
4139     (version (number->string %texlive-revision))
4140     (source (origin
4141               (method svn-fetch)
4142               (uri (texlive-ref "latex" "galois"))
4143               (file-name (string-append name "-" version "-checkout"))
4144               (sha256
4145                (base32
4146                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4147     (build-system texlive-build-system)
4148     (arguments '(#:tex-directory "latex/galois"))
4149     (home-page "https://www.ctan.org/pkg/galois")
4150     (synopsis "Typeset Galois connections")
4151     (description
4152      "The package deals with connections in two-dimensional style, optionally
4153 in colour.")
4154     (license license:lppl)))
4155
4156 (define-public texlive-latex-gcite
4157   (package
4158     (name "texlive-latex-gcite")
4159     (version (number->string %texlive-revision))
4160     (source (origin
4161               (method svn-fetch)
4162               (uri (texlive-ref "latex" "gcite"))
4163               (file-name (string-append name "-" version "-checkout"))
4164               (sha256
4165                (base32
4166                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4167     (build-system texlive-build-system)
4168     (arguments '(#:tex-directory "latex/gcite"))
4169     (home-page "https://www.ctan.org/pkg/gcite")
4170     (synopsis "Citations in a reader-friendly style")
4171     (description
4172      "The package allows citations in the German style, which is considered by
4173 many to be particularly reader-friendly.  The citation provides a small amount
4174 of bibliographic information in a footnote on the page where each citation is
4175 made.  It combines a desire to eliminate unnecessary page-turning with the
4176 look-up efficiency afforded by numeric citations.  The package makes use of
4177 BibLaTeX, and is considered experimental.")
4178     (license license:lppl1.3+)))
4179
4180 (define-public texlive-latex-geometry
4181   (package
4182     (name "texlive-latex-geometry")
4183     (version (number->string %texlive-revision))
4184     (source (origin
4185               (method svn-fetch)
4186               (uri (texlive-ref "latex" "geometry"))
4187               (file-name (string-append name "-" version "-checkout"))
4188               (sha256
4189                (base32
4190                 "0a8f38c2ds1flxcr0apdpyaaz3k6fyalz6dkbrmcv9srjc40mh3n"))))
4191     (build-system texlive-build-system)
4192     (arguments '(#:tex-directory "latex/geometry"))
4193     (propagated-inputs
4194      `(("texlive-latex-oberdiek" ,texlive-latex-oberdiek))) ;for ifpdf
4195     (home-page "https://www.ctan.org/pkg/geometry")
4196     (synopsis "Flexible and complete interface to document dimensions")
4197     (description
4198      "This package provides an easy and flexible user interface to customize
4199 page layout, implementing auto-centering and auto-balancing mechanisms so that
4200 the users have only to give the least description for the page layout.  The
4201 package knows about all the standard paper sizes, so that the user need not
4202 know what the nominal \"real\" dimensions of the paper are, just its standard
4203 name (such as a4, letter, etc.).  An important feature is the package's
4204 ability to communicate the paper size it's set up to the output.")
4205     (license license:lppl)))
4206
4207 (define-public texlive-latex-mdwtools
4208   (package
4209     (name "texlive-latex-mdwtools")
4210     (version (number->string %texlive-revision))
4211     (source (origin
4212               (method svn-fetch)
4213               (uri (texlive-ref "latex" "mdwtools"))
4214               (file-name (string-append name "-" version "-checkout"))
4215               (sha256
4216                (base32
4217                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4218     (build-system texlive-build-system)
4219     (arguments '(#:tex-directory "latex/mdwtools"))
4220     (home-page "https://www.ctan.org/pkg/mdwtools")
4221     (synopsis "Miscellaneous tools by Mark Wooding")
4222     (description
4223      "This collection of tools includes: @code{atsupport} for short commands
4224 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4225 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4226 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4227 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4228 array environments; verbatim handling; and syntax diagrams.")
4229     (license license:gpl3+)))
4230
4231 (define-public texlive-latex-polyglossia
4232   (package
4233     (name "texlive-latex-polyglossia")
4234     (version (number->string %texlive-revision))
4235     (source (origin
4236               (method svn-fetch)
4237               (uri (texlive-ref "latex" "polyglossia"))
4238               (file-name (string-append name "-" version "-checkout"))
4239               (sha256
4240                (base32
4241                 "0na7v4hsyx5s67cpjj2dbnq8j67k8lln6b19hmj631gfs27slss1"))))
4242     (build-system texlive-build-system)
4243     (arguments '(#:tex-directory "latex/polyglossia"))
4244     (home-page "https://www.ctan.org/pkg/polyglossia")
4245     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4246     (description
4247      "This package provides a complete Babel replacement for users of LuaLaTeX
4248 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4249     (license license:lppl1.3+)))
4250
4251 (define-public texlive-latex-supertabular
4252   (package
4253     (name "texlive-latex-supertabular")
4254     (version (number->string %texlive-revision))
4255     (source (origin
4256               (method svn-fetch)
4257               (uri (texlive-ref "latex" "supertabular"))
4258               (file-name (string-append name "-" version "-checkout"))
4259               (sha256
4260                (base32
4261                 "14b2bc7cqz4ckxxycim9sw6jkrr1pahivm1rdbpz5k6hl967w1s3"))))
4262     (build-system texlive-build-system)
4263     (arguments '(#:tex-directory "latex/supertabular"))
4264     (home-page "https://www.ctan.org/pkg/supertabular")
4265     (synopsis "Multi-page tables package")
4266     (description
4267      "This package was a predecessor of @code{longtable}; the newer
4268 package (designed on quite different principles) is easier to use and more
4269 flexible, in many cases, but supertabular retains its usefulness in a few
4270 situations where longtable has problems.")
4271     (license license:lppl1.3+)))
4272
4273 (define-public texlive-tex-texinfo
4274   (package
4275     (name "texlive-tex-texinfo")
4276     (version (number->string %texlive-revision))
4277     (source (origin
4278               (method svn-fetch)
4279               (uri (svn-reference
4280                     (url (string-append "svn://www.tug.org/texlive/tags/"
4281                                         %texlive-tag "/Master/texmf-dist/"
4282                                         "/tex/texinfo"))
4283                     (revision %texlive-revision)))
4284               (file-name (string-append name "-" version "-checkout"))
4285               (sha256
4286                (base32
4287                 "16jy02m089m7n6v9vbfi4xjgngc1fnvsmmppk8axfwzbhdky3c9c"))))
4288     (build-system trivial-build-system)
4289     (arguments
4290      `(#:modules ((guix build utils))
4291        #:builder
4292        (begin
4293          (use-modules (guix build utils))
4294          (let ((target (string-append (assoc-ref %outputs "out")
4295                                       "/share/texmf-dist/tex/texinfo")))
4296            (mkdir-p target)
4297            (copy-recursively (assoc-ref %build-inputs "source") target)
4298            #t))))
4299     (home-page "https://www.ctan.org/pkg/texinfo")
4300     (synopsis "TeX macros to handle Texinfo files")
4301     (description
4302      "Texinfo is the preferred format for documentation in the GNU project;
4303 the format may be used to produce online or printed output from a single
4304 source.  The Texinfo macros may be used to produce printable output using TeX;
4305 other programs in the distribution offer online interactive use (with
4306 hypertext linkages in some cases).")
4307     (license license:gpl3+)))
4308
4309 (define-public texlive-latex-upquote
4310   (package
4311     (name "texlive-latex-upquote")
4312     (version (number->string %texlive-revision))
4313     (source (origin
4314               (method svn-fetch)
4315               (uri (texlive-ref "latex" "upquote"))
4316               (file-name (string-append name "-" version "-checkout"))
4317               (sha256
4318                (base32
4319                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
4320     (build-system texlive-build-system)
4321     (arguments '(#:tex-directory "latex/upquote"))
4322     (home-page "https://www.ctan.org/pkg/upquote")
4323     (synopsis "Show \"realistic\" quotes in verbatim")
4324     (description
4325      "Typewriter-style fonts are best for program listings, but Computer
4326 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
4327 single quotes.  Other fonts, and most programming languages, print @code{`} as
4328 a grave accent and @code{'} upright; @code{'} is used both to open and to
4329 close quoted strings.  The package switches the typewriter font to Computer
4330 Modern Typewriter in OT1 encoding, and modifies the behaviour of
4331 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
4332 in the expected way.  It does this regardless of other fonts or encodings in
4333 use, so long as the package is loaded after the other fonts were.  The package
4334 does not affect @code{\\tt}, @code{\\texttt}, etc.")
4335     (license license:lppl1.2+)))
4336
4337 (define-public texlive-latex-anysize
4338   (package
4339     (name "texlive-latex-anysize")
4340     (version (number->string %texlive-revision))
4341     (source (origin
4342               (method svn-fetch)
4343               (uri (svn-reference
4344                     (url (string-append "svn://www.tug.org/texlive/tags/"
4345                                         %texlive-tag "/Master/texmf-dist/"
4346                                         "/tex/latex/anysize"))
4347                     (revision %texlive-revision)))
4348               (file-name (string-append name "-" version "-checkout"))
4349               (sha256
4350                (base32
4351                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
4352     (build-system trivial-build-system)
4353     (arguments
4354      `(#:modules ((guix build utils))
4355        #:builder
4356        (begin
4357          (use-modules (guix build utils))
4358          (let ((target (string-append (assoc-ref %outputs "out")
4359                                       "/share/texmf-dist/tex/latex/anysize")))
4360            (mkdir-p target)
4361            (copy-recursively (assoc-ref %build-inputs "source") target)
4362            #t))))
4363     (home-page "https://www.ctan.org/pkg/anysize")
4364     (synopsis "Simple package to set up document margins")
4365     (description
4366      "This is a simple package to set up document margins.  This package is
4367 considered obsolete; alternatives are the @code{typearea} package from the
4368 @code{koma-script} bundle, or the @code{geometry} package.")
4369     (license license:public-domain)))
4370
4371 (define-public texlive-latex-appendix
4372   (package
4373     (name "texlive-latex-appendix")
4374     (version (number->string %texlive-revision))
4375     (source (origin
4376               (method svn-fetch)
4377               (uri (texlive-ref "latex" "appendix"))
4378               (file-name (string-append name "-" version "-checkout"))
4379               (sha256
4380                (base32
4381                 "0rxfpr8vq3brwx5rc7qn91ixlp9zva4zrms8a579fqa1g5yva7vg"))))
4382     (build-system texlive-build-system)
4383     (arguments '(#:tex-directory "latex/appendix"))
4384     (home-page "https://www.ctan.org/pkg/appendix")
4385     (synopsis "Extra control of appendices")
4386     (description
4387      "The appendix package provides various ways of formatting the titles of
4388 appendices.  Also (sub)appendices environments are provided that can be used,
4389 for example, for per chapter/section appendices.  An @code{appendices}
4390 environment is provided which can be used instead of the @code{\\appendix}
4391 command.")
4392     (license license:lppl)))
4393
4394 (define-public texlive-latex-changebar
4395   (package
4396     (name "texlive-latex-changebar")
4397     (version (number->string %texlive-revision))
4398     (source (origin
4399               (method svn-fetch)
4400               (uri (texlive-ref "latex" "changebar"))
4401               (file-name (string-append name "-" version "-checkout"))
4402               (sha256
4403                (base32
4404                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
4405     (build-system texlive-build-system)
4406     (arguments '(#:tex-directory "latex/changebar"))
4407     (home-page "https://www.ctan.org/pkg/changebar")
4408     (synopsis "Generate changebars in LaTeX documents")
4409     (description
4410      "Identify areas of text to be marked with changebars with the
4411 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
4412 package uses @code{drivers} to place the bars; the available drivers can work
4413 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
4414 drivers, and VTeX and pdfTeX.")
4415     (license license:lppl)))
4416
4417 (define-public texlive-latex-cmap
4418   (package
4419     (name "texlive-latex-cmap")
4420     (version (number->string %texlive-revision))
4421     (source (origin
4422               (method svn-fetch)
4423               (uri (svn-reference
4424                     (url (string-append "svn://www.tug.org/texlive/tags/"
4425                                         %texlive-tag "/Master/texmf-dist/"
4426                                         "/tex/latex/cmap"))
4427                     (revision %texlive-revision)))
4428               (file-name (string-append name "-" version "-checkout"))
4429               (sha256
4430                (base32
4431                 "1s1rv6zgw105w2j6ffhnk914qrix87y1ndzri1q72g2kbr91zlbg"))))
4432     (build-system trivial-build-system)
4433     (arguments
4434      `(#:modules ((guix build utils))
4435        #:builder
4436        (begin
4437          (use-modules (guix build utils))
4438          (let ((target (string-append (assoc-ref %outputs "out")
4439                                       "/share/texmf-dist/tex/latex/cmap")))
4440            (mkdir-p target)
4441            (copy-recursively (assoc-ref %build-inputs "source") target)
4442            #t))))
4443     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
4444 Master/texmf-dist/tex/latex/cmap/")
4445     (synopsis "CMap support for PDF files")
4446     (description
4447      "This package embeds CMap tables into PDF files to make search and
4448 copy-and-paste functions work properly.")
4449     (license license:lppl)))
4450
4451 (define-public texlive-latex-colortbl
4452   (package
4453     (name "texlive-latex-colortbl")
4454     (version (number->string %texlive-revision))
4455     (source (origin
4456               (method svn-fetch)
4457               (uri (texlive-ref "latex" "colortbl"))
4458               (file-name (string-append name "-" version "-checkout"))
4459               (sha256
4460                (base32
4461                 "16vd99p01a0y30xr5yf1z2j5da9x8gy21vb30wk08jh31zffbaqj"))))
4462     (build-system texlive-build-system)
4463     (arguments '(#:tex-directory "latex/colortbl"))
4464     (home-page "https://www.ctan.org/pkg/colortbl")
4465     (synopsis "Add colour to LaTeX tables")
4466     (description
4467      "This package allows rows, columns, and even individual cells in LaTeX
4468 tables to be coloured.")
4469     (license license:lppl)))
4470
4471 (define-public texlive-latex-fancybox
4472   (package
4473     (name "texlive-latex-fancybox")
4474     (version (number->string %texlive-revision))
4475     (source (origin
4476               (method svn-fetch)
4477               (uri (svn-reference
4478                     (url (string-append "svn://www.tug.org/texlive/tags/"
4479                                         %texlive-tag "/Master/texmf-dist/"
4480                                         "/tex/latex/fancybox"))
4481                     (revision %texlive-revision)))
4482               (file-name (string-append name "-" version "-checkout"))
4483               (sha256
4484                (base32
4485                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
4486     (build-system trivial-build-system)
4487     (arguments
4488      `(#:modules ((guix build utils))
4489        #:builder
4490        (begin
4491          (use-modules (guix build utils))
4492          (let ((target (string-append (assoc-ref %outputs "out")
4493                                       "/share/texmf-dist/tex/latex/fancybox")))
4494            (mkdir-p target)
4495            (copy-recursively (assoc-ref %build-inputs "source") target)
4496            #t))))
4497     (home-page "https://www.ctan.org/pkg/fancybox")
4498     (synopsis "Variants of \\fbox and other games with boxes")
4499     (description
4500      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
4501 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
4502 using box macros and flexible verbatim macros.  You can box mathematics,
4503 floats, center, flushleft, and flushright, lists, and pages.")
4504     (license license:lppl1.2+)))
4505
4506 (define-public texlive-latex-fancyhdr
4507   (package
4508     (name "texlive-latex-fancyhdr")
4509     (version (number->string %texlive-revision))
4510     (source (origin
4511               (method svn-fetch)
4512               (uri (svn-reference
4513                     (url (string-append "svn://www.tug.org/texlive/tags/"
4514                                         %texlive-tag "/Master/texmf-dist/"
4515                                         "/tex/latex/fancyhdr"))
4516                     (revision %texlive-revision)))
4517               (file-name (string-append name "-" version "-checkout"))
4518               (sha256
4519                (base32
4520                 "0hrwspqkqfahxyzzsnjyrxlgxj06zw1f3636gx76pvl4xhvdj1cj"))))
4521     (build-system trivial-build-system)
4522     (arguments
4523      `(#:modules ((guix build utils))
4524        #:builder
4525        (begin
4526          (use-modules (guix build utils))
4527          (let ((target (string-append (assoc-ref %outputs "out")
4528                                       "/share/texmf-dist/tex/latex/fancyhdr")))
4529            (mkdir-p target)
4530            (copy-recursively (assoc-ref %build-inputs "source") target)
4531            #t))))
4532     (home-page "https://www.ctan.org/pkg/fancyhdr")
4533     (synopsis "Extensive control of page headers and footers in LaTeX2e")
4534     (description
4535      "The package provides extensive facilities, both for constructing headers
4536 and footers, and for controlling their use (for example, at times when LaTeX
4537 would automatically change the heading style in use).")
4538     (license license:lppl)))
4539
4540 (define-public texlive-latex-float
4541   (package
4542     (name "texlive-latex-float")
4543     (version (number->string %texlive-revision))
4544     (source (origin
4545               (method svn-fetch)
4546               (uri (texlive-ref "latex" "float"))
4547               (file-name (string-append name "-" version "-checkout"))
4548               (sha256
4549                (base32
4550                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
4551     (build-system texlive-build-system)
4552     (arguments '(#:tex-directory "latex/float"))
4553     (home-page "https://www.ctan.org/pkg/float")
4554     (synopsis "Improved interface for floating objects")
4555     (description
4556      "This package improves the interface for defining floating objects such
4557 as figures and tables.  It introduces the boxed float, the ruled float and the
4558 plaintop float.  You can define your own floats and improve the behaviour of
4559 the old ones.  The package also provides the @code{H} float modifier option of
4560 the obsolete @code{here} package.  You can select this as automatic default
4561 with @code{\\floatplacement{figure}{H}}.")
4562     (license license:lppl)))
4563
4564 (define-public texlive-latex-footmisc
4565   (package
4566     (name "texlive-latex-footmisc")
4567     (version (number->string %texlive-revision))
4568     (source (origin
4569               (method svn-fetch)
4570               (uri (texlive-ref "latex" "footmisc"))
4571               (file-name (string-append name "-" version "-checkout"))
4572               (sha256
4573                (base32
4574                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
4575     (build-system texlive-build-system)
4576     (arguments '(#:tex-directory "latex/footmisc"))
4577     (home-page "https://www.ctan.org/pkg/footmisc")
4578     (synopsis "Range of footnote options")
4579     (description
4580      "This is a collection of ways to change the typesetting of footnotes.
4581 The package provides means of changing the layout of the footnotes themselves,
4582 a way to number footnotes per page, to make footnotes disappear in a
4583 \"moving\" argument, and to deal with multiple references to footnotes from
4584 the same place.  The package also has a range of techniques for labelling
4585 footnotes with symbols rather than numbers.")
4586     (license license:lppl1.3+)))
4587
4588 (define-public texlive-latex-listings
4589   (package
4590     (name "texlive-latex-listings")
4591     (version (number->string %texlive-revision))
4592     (source (origin
4593               (method svn-fetch)
4594               (uri (texlive-ref "latex" "listings"))
4595               (file-name (string-append name "-" version "-checkout"))
4596               (sha256
4597                (base32
4598                 "1fbrhqj22vzakn30j71fc41l8nliqbv1dmxm0zlwi2qjjbq6fwav"))))
4599     (build-system texlive-build-system)
4600     (arguments
4601      '(#:tex-directory "latex/listings"
4602        #:build-targets '("listings.ins")))
4603     (home-page "https://www.ctan.org/pkg/listings")
4604     (synopsis "Typeset source code listings using LaTeX")
4605     (description
4606      "The package enables the user to typeset programs (programming code)
4607 within LaTeX; the source code is read directly by TeX---no front-end processor
4608 is needed.  Keywords, comments and strings can be typeset using different
4609 styles.  Support for @code{hyperref} is provided.")
4610     (license license:lppl1.3+)))
4611
4612 (define-public texlive-latex-jknapltx
4613   (package
4614     (name "texlive-latex-jknapltx")
4615     (version (number->string %texlive-revision))
4616     (source (origin
4617               (method svn-fetch)
4618               (uri (svn-reference
4619                     (url (string-append "svn://www.tug.org/texlive/tags/"
4620                                         %texlive-tag "/Master/texmf-dist/"
4621                                         "/tex/latex/jknapltx"))
4622                     (revision %texlive-revision)))
4623               (file-name (string-append name "-" version "-checkout"))
4624               (sha256
4625                (base32
4626                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
4627     (build-system trivial-build-system)
4628     (arguments
4629      `(#:modules ((guix build utils))
4630        #:builder
4631        (begin
4632          (use-modules (guix build utils))
4633          (let ((target (string-append (assoc-ref %outputs "out")
4634                                       "/share/texmf-dist/tex/latex/jknapltx")))
4635            (mkdir-p target)
4636            (copy-recursively (assoc-ref %build-inputs "source") target)
4637            #t))))
4638     (home-page "https://www.ctan.org/pkg/jknappen")
4639     (synopsis "Miscellaneous packages by Joerg Knappen")
4640     (description
4641      "This package provides miscellaneous macros by Joerg Knappen, including:
4642 represent counters in greek; Maxwell's non-commutative division;
4643 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
4644 @code{inputenc} definition files that allow verbatim input in the respective
4645 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
4646 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
4647 transliterate semitic languages; patches to make (La)TeX formulae embeddable
4648 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
4649     (license license:gpl2)))
4650
4651 (define-public texlive-fonts-ec
4652   (package
4653     (name "texlive-fonts-ec")
4654     (version (number->string %texlive-revision))
4655     (source (origin
4656               (method svn-fetch)
4657               (uri (svn-reference
4658                     (url (string-append "svn://www.tug.org/texlive/tags/"
4659                                         %texlive-tag "/Master/texmf-dist/"
4660                                         "/fonts/source/jknappen/ec/"))
4661                     (revision %texlive-revision)))
4662               (file-name (string-append name "-" version "-checkout"))
4663               (sha256
4664                (base32
4665                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
4666     (build-system gnu-build-system)
4667     (arguments
4668      `(#:modules ((guix build gnu-build-system)
4669                   (guix build utils)
4670                   (srfi srfi-1)
4671                   (srfi srfi-26))
4672        #:tests? #f                      ; no tests
4673        #:phases
4674        (modify-phases %standard-phases
4675          (delete 'configure)
4676          (replace 'build
4677            (lambda* (#:key inputs #:allow-other-keys)
4678              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
4679                ;; Tell mf where to find mf.base
4680                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
4681                ;; Tell mf where to look for source files
4682                (setenv "MFINPUTS"
4683                        (string-append (getcwd) ":"
4684                                       mf "/share/texmf-dist/metafont/base:"
4685                                       (assoc-ref inputs "texlive-cm")
4686                                       "/share/texmf-dist/fonts/source/public/cm")))
4687              (mkdir "build")
4688              (for-each (lambda (font)
4689                          (format #t "building font ~a\n" font)
4690                          (invoke "mf" "-progname=mf"
4691                                  "-output-directory=build"
4692                                  (string-append "\\"
4693                                                 "mode:=ljfour; "
4694                                                 "mag:=1; "
4695                                                 "batchmode; "
4696                                                 "input " (basename font ".mf"))))
4697                        (find-files "." "[0-9]+\\.mf$"))
4698              #t))
4699          (replace 'install
4700            (lambda* (#:key outputs #:allow-other-keys)
4701              (let* ((out (assoc-ref outputs "out"))
4702                     (tfm (string-append
4703                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
4704                     (mf  (string-append
4705                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
4706                (for-each (cut install-file <> tfm)
4707                          (find-files "build" "\\.*"))
4708                (for-each (cut install-file <> mf)
4709                          (find-files "." "\\.mf"))
4710                #t))))))
4711     (native-inputs
4712      `(("texlive-bin" ,texlive-bin)
4713        ("texlive-metafont-base" ,texlive-metafont-base)
4714        ("texlive-cm" ,texlive-cm)))
4715     (home-page "https://www.ctan.org/pkg/ec")
4716     (synopsis "Computer modern fonts in T1 and TS1 encodings")
4717     (description
4718      "The EC fonts are European Computer Modern Fonts, supporting the complete
4719 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
4720 These fonts are intended to be stable with no changes being made to the tfm
4721 files.  The set also contains a Text Companion Symbol font, called @code{tc},
4722 featuring many useful characters needed in text typesetting, for example
4723 oldstyle digits, currency symbols (including the newly created Euro symbol),
4724 the permille sign, copyright, trade mark and servicemark as well as a copyleft
4725 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
4726 EC fonts supersede the preliminary version released as the DC fonts.  The
4727 fonts are available in (traced) Adobe Type 1 format, as part of the
4728 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
4729 set, Latin Modern, is not actually a direct development of the EC set, and
4730 differs from the EC in a number of particulars.")
4731     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
4732 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
4733
4734 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
4735 ;; fails with obscure TeX-typical error messages.
4736 (define-public texlive-ae
4737   (package
4738     (inherit (simple-texlive-package
4739               "texlive-ae"
4740               (list "/doc/fonts/ae/"
4741                     "/source/fonts/ae/"
4742                     "/fonts/tfm/public/ae/"
4743                     "/fonts/vf/public/ae/"
4744                     "/tex/latex/ae/")
4745               (base32
4746                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
4747               #:trivial? #t))
4748     (home-page "https://www.ctan.org/pkg/ae")
4749     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
4750     (description
4751      "This package provides a set of virtual fonts which emulates T1 coded
4752 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
4753 stands for \"Almost European\".  The main use of the package was to produce
4754 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
4755 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
4756 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
4757     (license license:lppl1.3+)))
4758
4759 (define-public texlive-times
4760   (package
4761     (inherit (simple-texlive-package
4762               "texlive-times"
4763               (list "/dvips/times/"
4764                     "/fonts/afm/adobe/times/"
4765                     "/fonts/afm/urw/times/"
4766                     "/fonts/tfm/adobe/times/"
4767                     "/fonts/tfm/urw35vf/times/"
4768                     "/fonts/type1/urw/times/"
4769                     "/fonts/vf/adobe/times/"
4770                     "/fonts/vf/urw35vf/times/"
4771                     "/fonts/map/dvips/times/"
4772                     "/tex/latex/times/")
4773               (base32
4774                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
4775               #:trivial? #t))
4776     (home-page "https://ctan.org/pkg/urw-base35")
4777     (synopsis "URW Base 35 font pack for LaTeX")
4778     (description
4779      "This package provides a drop-in replacements for the Times font from
4780 Adobe's basic set.")
4781     ;; No license version specified.
4782     (license license:gpl3+)))
4783
4784 (define-public texlive-fonts-adobe-times
4785   (deprecated-package "texlive-fonts-adobe-times" texlive-times))
4786
4787 (define-public texlive-palatino
4788   (package
4789     (inherit (simple-texlive-package
4790               "texlive-palatino"
4791               (list "/dvips/palatino/"
4792                     "/fonts/afm/adobe/palatino/"
4793                     "/fonts/afm/urw/palatino/"
4794                     "/fonts/tfm/adobe/palatino/"
4795                     "/fonts/tfm/urw35vf/palatino/"
4796                     "/fonts/type1/urw/palatino/"
4797                     "/fonts/vf/adobe/palatino/"
4798                     "/fonts/vf/urw35vf/palatino/"
4799
4800                     "/fonts/map/dvips/palatino/"
4801                     "/tex/latex/palatino/")
4802               (base32
4803                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
4804               #:trivial? #t))
4805     (home-page "https://ctan.org/pkg/urw-base35")
4806     (synopsis "URW Base 35 font pack for LaTeX")
4807     (description
4808      "This package provides a drop-in replacements for the Palatino font from
4809 Adobe's basic set.")
4810     ;; No license version specified.
4811     (license license:gpl3+)))
4812
4813 (define-public texlive-fonts-adobe-palatino
4814   (deprecated-package "texlive-fonts-adobe-palatino" texlive-palatino))
4815
4816 (define-public texlive-zapfding
4817   (package
4818     (inherit (simple-texlive-package
4819               "texlive-zapfding"
4820               (list "/dvips/zapfding/"
4821                     "/fonts/afm/adobe/zapfding/"
4822                     "/fonts/afm/urw/zapfding/"
4823                     "/fonts/tfm/adobe/zapfding/"
4824                     "/fonts/tfm/urw35vf/zapfding/"
4825                     "/fonts/type1/urw/zapfding/"
4826                     "/fonts/map/dvips/zapfding/"
4827                     "/tex/latex/zapfding/")
4828               (base32
4829                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
4830               #:trivial? #t))
4831     (home-page "https://ctan.org/pkg/urw-base35")
4832     (synopsis "URW Base 35 font pack for LaTeX")
4833     (description
4834      "This package provides a drop-in replacements for the Zapfding font from
4835 Adobe's basic set.")
4836     ;; No license version specified.
4837     (license license:gpl3+)))
4838
4839 (define-public texlive-fonts-adobe-zapfding
4840   (deprecated-package "texlive-fonts-adobe-zapfding" texlive-zapfding))
4841
4842 (define-public texlive-fonts-rsfs
4843   (package
4844     (name "texlive-fonts-rsfs")
4845     (version (number->string %texlive-revision))
4846     (source (origin
4847               (method svn-fetch)
4848               (uri (svn-reference
4849                     (url (string-append "svn://www.tug.org/texlive/tags/"
4850                                         %texlive-tag "/Master/texmf-dist/"
4851                                         "/fonts/source/public/rsfs/"))
4852                     (revision %texlive-revision)))
4853               (file-name (string-append name "-" version "-checkout"))
4854               (sha256
4855                (base32
4856                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
4857     (build-system gnu-build-system)
4858     (arguments
4859      `(#:modules ((guix build gnu-build-system)
4860                   (guix build utils)
4861                   (srfi srfi-1)
4862                   (srfi srfi-26))
4863        #:tests? #f                      ; no tests
4864        #:phases
4865        (modify-phases %standard-phases
4866          (delete 'configure)
4867          (replace 'build
4868            (lambda* (#:key inputs #:allow-other-keys)
4869              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
4870                ;; Tell mf where to find mf.base
4871                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
4872                ;; Tell mf where to look for source files
4873                (setenv "MFINPUTS"
4874                        (string-append (getcwd) ":"
4875                                       mf "/share/texmf-dist/metafont/base:"
4876                                       (assoc-ref inputs "texlive-cm")
4877                                       "/share/texmf-dist/fonts/source/public/cm")))
4878              (mkdir "build")
4879              (for-each (lambda (font)
4880                          (format #t "building font ~a\n" font)
4881                          (invoke "mf" "-progname=mf"
4882                                  "-output-directory=build"
4883                                  (string-append "\\"
4884                                                 "mode:=ljfour; "
4885                                                 "mag:=1; "
4886                                                 "batchmode; "
4887                                                 "input " (basename font ".mf"))))
4888                        (find-files "." "[0-9]+\\.mf$"))
4889              #t))
4890          (replace 'install
4891            (lambda* (#:key outputs #:allow-other-keys)
4892              (let* ((out (assoc-ref outputs "out"))
4893                     (tfm (string-append
4894                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
4895                     (mf  (string-append
4896                           out "/share/texmf-dist/fonts/source/public/rsfs")))
4897                (for-each (cut install-file <> tfm)
4898                          (find-files "build" "\\.*"))
4899                (for-each (cut install-file <> mf)
4900                          (find-files "." "\\.mf"))
4901                #t))))))
4902     (native-inputs
4903      `(("texlive-bin" ,texlive-bin)
4904        ("texlive-metafont-base" ,texlive-metafont-base)
4905        ("texlive-cm" ,texlive-cm)))
4906     (home-page "https://www.ctan.org/pkg/rsfs")
4907     (synopsis "Ralph Smith's Formal Script font")
4908     (description
4909      "The fonts provide uppercase formal script letters for use as symbols in
4910 scientific and mathematical typesetting (in contrast to the informal script
4911 fonts such as that used for the calligraphic symbols in the TeX maths symbol
4912 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
4913 format.  LaTeX support, for using these fonts in mathematics, is available via
4914 one of the packages @code{calrsfs} and @code{mathrsfs}.")
4915     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
4916
4917 (define-public texlive-latex-eso-pic
4918   (package
4919     (name "texlive-latex-eso-pic")
4920     (version (number->string %texlive-revision))
4921     (source (origin
4922               (method svn-fetch)
4923               (uri (texlive-ref "latex" "eso-pic"))
4924               (file-name (string-append name "-" version "-checkout"))
4925               (sha256
4926                (base32
4927                 "0y2y08kr3w6asm9lblj9yywqmhaal36fq71zzcbfsc7cvwf641q7"))))
4928     (build-system texlive-build-system)
4929     (arguments '(#:tex-directory "latex/eso-pic"))
4930     (home-page "https://www.ctan.org/pkg/eso-pic")
4931     (synopsis "Add picture commands (or backgrounds) to every page")
4932     (description
4933      "The package adds one or more user commands to LaTeX's @code{shipout}
4934 routine, which may be used to place the output at fixed positions.  The
4935 @code{grid} option may be used to find the correct places.")
4936     (license license:lppl1.3+)))
4937
4938 (define-public texlive-latex-eepic
4939   (package
4940     (name "texlive-latex-eepic")
4941     (version (number->string %texlive-revision))
4942     (source (origin
4943               (method svn-fetch)
4944               (uri (svn-reference
4945                     (url (string-append "svn://www.tug.org/texlive/tags/"
4946                                         %texlive-tag "/Master/texmf-dist/"
4947                                         "/tex/latex/eepic"))
4948                     (revision %texlive-revision)))
4949               (file-name (string-append name "-" version "-checkout"))
4950               (sha256
4951                (base32
4952                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
4953     (build-system trivial-build-system)
4954     (arguments
4955      `(#:modules ((guix build utils))
4956        #:builder
4957        (begin
4958          (use-modules (guix build utils))
4959          (let ((target (string-append (assoc-ref %outputs "out")
4960                                       "/share/texmf-dist/tex/latex/eepic")))
4961            (mkdir-p target)
4962            (copy-recursively (assoc-ref %build-inputs "source") target)
4963            #t))))
4964     (home-page "https://www.ctan.org/pkg/eepic")
4965     (synopsis "Extensions to epic and the LaTeX drawing tools")
4966     (description
4967      "Extensions to @code{epic} and the LaTeX picture drawing environment,
4968 include the drawing of lines at any slope, the drawing of circles in any
4969 radii, and the drawing of dotted and dashed lines much faster with much less
4970 TeX memory, and providing several new commands for drawing ellipses, arcs,
4971 splines, and filled circles and ellipses.  The package uses @code{tpic}
4972 @code{\\special} commands.")
4973     (license license:public-domain)))
4974
4975 (define-public texlive-latex-enumitem
4976   (package
4977     (name "texlive-latex-enumitem")
4978     (version (number->string %texlive-revision))
4979     (source (origin
4980               (method svn-fetch)
4981               (uri (svn-reference
4982                     (url (string-append "svn://www.tug.org/texlive/tags/"
4983                                         %texlive-tag "/Master/texmf-dist/"
4984                                         "/tex/latex/enumitem"))
4985                     (revision %texlive-revision)))
4986               (file-name (string-append name "-" version "-checkout"))
4987               (sha256
4988                (base32
4989                 "1vm9xp67hzif0pqab4r3ialf0cyhi0fa4p8kxgp1ymcf85pqip14"))))
4990     (build-system trivial-build-system)
4991     (arguments
4992      `(#:modules ((guix build utils))
4993        #:builder
4994        (begin
4995          (use-modules (guix build utils))
4996          (let ((target (string-append (assoc-ref %outputs "out")
4997                                       "/share/texmf-dist/tex/latex/enumitem")))
4998            (mkdir-p target)
4999            (copy-recursively (assoc-ref %build-inputs "source") target)
5000            #t))))
5001     (home-page "https://www.ctan.org/pkg/enumitem")
5002     (synopsis "Customize basic list environments")
5003     (description
5004      "This package is intended to ease customizing the three basic list
5005 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5006 extends their syntax to allow an optional argument where a set of parameters
5007 in the form @code{key=value} are available, for example:
5008 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5009     (license license:lppl1.3+)))
5010
5011 (define-public texlive-latex-multirow
5012   (package
5013     (name "texlive-latex-multirow")
5014     (version (number->string %texlive-revision))
5015     (source (origin
5016               (method svn-fetch)
5017               (uri (texlive-ref "latex" "multirow"))
5018               (file-name (string-append name "-" version "-checkout"))
5019               (sha256
5020                (base32
5021                 "07vbcp6avdwldr870cwf65av2s9lfyzcpp8gpld53yw6lcxgaipj"))))
5022     (build-system texlive-build-system)
5023     (arguments '(#:tex-directory "latex/multirow"))
5024     (home-page "https://www.ctan.org/pkg/multirow")
5025     (synopsis "Create tabular cells spanning multiple rows")
5026     (description
5027      "The package provides tools for creating tabular cells spanning multiple
5028 rows.  It has a lot of flexibility, including an option for specifying an
5029 entry at the \"natural\" width of its text.")
5030     (license license:lppl1.3+)))
5031
5032 (define-public texlive-latex-overpic
5033   (package
5034     (name "texlive-latex-overpic")
5035     (version (number->string %texlive-revision))
5036     (source (origin
5037               (method svn-fetch)
5038               (uri (svn-reference
5039                     (url (string-append "svn://www.tug.org/texlive/tags/"
5040                                         %texlive-tag "/Master/texmf-dist/"
5041                                         "/tex/latex/overpic"))
5042                     (revision %texlive-revision)))
5043               (file-name (string-append name "-" version "-checkout"))
5044               (sha256
5045                (base32
5046                 "1pr6ym3ad7x14ng7gmhsmywh3685d2cnm5qgyrqbigng2r6fcc1k"))))
5047     (build-system trivial-build-system)
5048     (arguments
5049      `(#:modules ((guix build utils))
5050        #:builder
5051        (begin
5052          (use-modules (guix build utils))
5053          (let ((target (string-append (assoc-ref %outputs "out")
5054                                       "/share/texmf-dist/tex/latex/overpic")))
5055            (mkdir-p target)
5056            (copy-recursively (assoc-ref %build-inputs "source") target)
5057            #t))))
5058     (home-page "https://www.ctan.org/pkg/overpic")
5059     (synopsis "Combine LaTeX commands over included graphics")
5060     (description
5061      "The @code{overpic} environment is a cross between the LaTeX
5062 @code{picture} environment and the @code{\\includegraphics} command of
5063 @code{graphicx}.  The resulting picture environment has the same dimensions as
5064 the included graphic.  LaTeX commands can be placed on the graphic at defined
5065 positions; a grid for orientation is available.")
5066     (license license:lppl1.0+)))
5067
5068 (define-public texlive-latex-parskip
5069   (package
5070     (name "texlive-latex-parskip")
5071     (version (number->string %texlive-revision))
5072     (source (origin
5073               (method svn-fetch)
5074               (uri (svn-reference
5075                     (url (string-append "svn://www.tug.org/texlive/tags/"
5076                                         %texlive-tag "/Master/texmf-dist/"
5077                                         "/tex/latex/parskip"))
5078                     (revision %texlive-revision)))
5079               (file-name (string-append name "-" version "-checkout"))
5080               (sha256
5081                (base32
5082                 "0j1fhm1m9k6rz80lmch3x44g20y9nm4abaaf8czb0q8hzwlx5aq5"))))
5083     (build-system trivial-build-system)
5084     (arguments
5085      `(#:modules ((guix build utils))
5086        #:builder
5087        (begin
5088          (use-modules (guix build utils))
5089          (let ((target (string-append (assoc-ref %outputs "out")
5090                                       "/share/texmf-dist/tex/latex/parskip")))
5091            (mkdir-p target)
5092            (copy-recursively (assoc-ref %build-inputs "source") target)
5093            #t))))
5094     (home-page "https://www.ctan.org/pkg/parskip")
5095     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5096     (description
5097      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5098 that is untidy; this package (though it is no substitute for a properly
5099 designed class) helps alleviate this untidiness.")
5100     (license license:lppl)))
5101
5102 (define-public texlive-latex-pdfpages
5103   (package
5104     (name "texlive-latex-pdfpages")
5105     (version (number->string %texlive-revision))
5106     (source (origin
5107               (method svn-fetch)
5108               (uri (texlive-ref "latex" "pdfpages"))
5109               (file-name (string-append name "-" version "-checkout"))
5110               (sha256
5111                (base32
5112                 "0s4izcah7im67889qz4d26pcfpasmm35sj1rw4ragkkdk3rlbbbd"))))
5113     (build-system texlive-build-system)
5114     (arguments '(#:tex-directory "latex/pdfpages"))
5115     (home-page "https://www.ctan.org/pkg/pdfpages")
5116     (synopsis "Include PDF documents in LaTeX")
5117     (description
5118      "This package simplifies the inclusion of external multi-page PDF
5119 documents in LaTeX documents.  Pages may be freely selected and it is possible
5120 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5121 hypertext features like hyperlinks and article threads are provided.  The
5122 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5123 use this package to insert PostScript files, in addition to PDF files.")
5124     (license license:lppl1.3+)))
5125
5126 (define-public texlive-fonts-stmaryrd
5127   (package
5128     (name "texlive-fonts-stmaryrd")
5129     (version (number->string %texlive-revision))
5130     (source (origin
5131               (method svn-fetch)
5132               (uri (texlive-ref "fonts" "stmaryrd"))
5133               (file-name (string-append name "-" version "-checkout"))
5134               (sha256
5135                (base32
5136                 "08pn4ca3vl6qm9l3wm5h5iyjsrg411kkm1yana329xwg2j14s9n6"))))
5137     (build-system texlive-build-system)
5138     (arguments
5139      '(#:tex-directory "latex/stmaryrd"
5140        #:phases
5141        (modify-phases %standard-phases
5142          (add-after 'configure 'patch-ins
5143            (lambda _
5144              (substitute* "stmaryrd.ins"
5145                (("^%% LaTeX2e.*") "\\input docstrip\n")
5146                (("fontdef\\}\\}" line)
5147                 (string-append line "\n\\endbatchfile")))
5148              #t)))))
5149     (home-page "https://www.ctan.org/pkg/stmaryrd")
5150     (synopsis "St Mary Road symbols for theoretical computer science")
5151     (description
5152      "The fonts were originally distributed as Metafont sources only, but
5153 Adobe Type 1 versions are also now available.  Macro support is provided for
5154 use under LaTeX; the package supports the @code{only} option (provided by the
5155 @code{somedefs} package) to restrict what is loaded, for those who don't need
5156 the whole font.")
5157     (license license:lppl)))
5158
5159 (define-public texlive-latex-subfigure
5160   (package
5161     (name "texlive-latex-subfigure")
5162     (version (number->string %texlive-revision))
5163     (source (origin
5164               (method svn-fetch)
5165               (uri (texlive-ref "latex" "subfigure"))
5166               (file-name (string-append name "-" version "-checkout"))
5167               (sha256
5168                (base32
5169                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5170     (build-system texlive-build-system)
5171     (arguments '(#:tex-directory "latex/subfigure"))
5172     (home-page "https://www.ctan.org/pkg/subfigure")
5173     (synopsis "Figures divided into subfigures")
5174     (description
5175      "This (deprecated) package provides support for the manipulation and
5176 reference of small or \"sub\" figures and tables within a single figure or
5177 table environment.  It is convenient to use this package when your subfigures
5178 are to be separately captioned, referenced, or are to be included in the
5179 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
5180 used inside a figure environment for each subfigure.  An optional first
5181 argument is used as the caption for that subfigure.  The package is now
5182 considered obsolete: it was superseded by @code{subfig}, but users may find
5183 the more recent @code{subcaption} package more satisfactory.")
5184     (license license:lppl)))
5185
5186 (define-public texlive-latex-tabulary
5187   (package
5188     (name "texlive-latex-tabulary")
5189     (version (number->string %texlive-revision))
5190     (source (origin
5191               (method svn-fetch)
5192               (uri (texlive-ref "latex" "tabulary"))
5193               (file-name (string-append name "-" version "-checkout"))
5194               (sha256
5195                (base32
5196                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
5197     (build-system texlive-build-system)
5198     (arguments '(#:tex-directory "latex/tabulary"))
5199     (home-page "https://www.ctan.org/pkg/tabulary")
5200     (synopsis "Tabular with variable width columns balanced")
5201     (description
5202      "The package defines a @code{tabular*}-like environment, @code{tabulary},
5203 taking a \"total width\" argument as well as the column specifications.  The
5204 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
5205 variable width columns (@code{\\raggedright}, @code{\\centering},
5206 @code{\\raggedleft}, and normally justified).  In contrast to
5207 @code{tabularx}'s @code{X} columns, the width of each column is weighted
5208 according to the natural width of the widest cell in the column.")
5209     (license license:lppl)))
5210
5211 (define-public texlive-latex-threeparttable
5212   (package
5213     (name "texlive-latex-threeparttable")
5214     (version (number->string %texlive-revision))
5215     (source (origin
5216               (method svn-fetch)
5217               (uri (svn-reference
5218                     (url (string-append "svn://www.tug.org/texlive/tags/"
5219                                         %texlive-tag "/Master/texmf-dist/"
5220                                         "/tex/latex/threeparttable"))
5221                     (revision %texlive-revision)))
5222               (file-name (string-append name "-" version "-checkout"))
5223               (sha256
5224                (base32
5225                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
5226     (build-system trivial-build-system)
5227     (arguments
5228      `(#:modules ((guix build utils))
5229        #:builder
5230        (begin
5231          (use-modules (guix build utils))
5232          (let ((target (string-append (assoc-ref %outputs "out")
5233                                       "/share/texmf-dist/tex/latex/threeparttable")))
5234            (mkdir-p target)
5235            (copy-recursively (assoc-ref %build-inputs "source") target)
5236            #t))))
5237     (home-page "https://www.ctan.org/pkg/threeparttable")
5238     (synopsis "Tables with captions and notes all the same width")
5239     (description
5240      "This package facilitates tables with titles (captions) and notes.  The
5241 title and notes are given a width equal to the body of the table (a
5242 @code{tabular} environment).  By itself, a @code{threeparttable} does not
5243 float, but you can put it in a @code{table} or a @code{table*} or some other
5244 environment.")
5245     (license (license:fsf-free "file://threeparttable.sty"))))
5246
5247 (define-public texlive-txfonts
5248   (package
5249     (inherit (simple-texlive-package
5250               "texlive-txfonts"
5251               (list "/doc/fonts/txfonts/"
5252
5253                     "/fonts/afm/public/txfonts/"
5254                     "/fonts/tfm/public/txfonts/"
5255                     "/fonts/type1/public/txfonts/"
5256                     "/fonts/vf/public/txfonts/"
5257
5258                     "/fonts/map/dvips/txfonts/"
5259                     "/fonts/enc/dvips/txfonts/"
5260                     "/tex/latex/txfonts/")
5261               (base32
5262                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
5263               #:trivial? #t))
5264     (home-page "https://www.ctan.org/pkg/txfonts")
5265     (synopsis "Times-like fonts in support of mathematics")
5266     (description
5267      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
5268 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
5269 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
5270 providing all the symbols of the Computer Modern and AMS fonts, including all
5271 the Greek capital letters from CMR; and additional maths fonts of various
5272 other symbols.
5273
5274 The set is complemented by a sans-serif set of text fonts, based on
5275 Helvetica/NimbusSanL, and a monospace set.
5276
5277 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
5278 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
5279     ;; Any version of the GPL with font exception.
5280     (license license:gpl3+)))
5281
5282 (define-public texlive-fonts-txfonts
5283   (deprecated-package "texlive-fonts-txfonts" texlive-txfonts))
5284
5285 (define-public texlive-fonts-iwona
5286   (package
5287     (name "texlive-fonts-iwona")
5288     (version "0.995b")
5289     (source (origin
5290               (method url-fetch)
5291               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
5292                                   (string-map (lambda (c)
5293                                                 (if (char=? c #\.)
5294                                                     #\_ c))
5295                                               version)
5296                                   ".zip"))
5297               (sha256
5298                (base32
5299                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
5300     (build-system trivial-build-system)
5301     (arguments
5302      `(#:modules ((guix build utils))
5303        #:builder
5304        (begin
5305          (use-modules (guix build utils))
5306          (let ((target (string-append (assoc-ref %outputs "out")
5307                                       "/share/texmf-dist/"))
5308                (unzip  (string-append (assoc-ref %build-inputs "unzip")
5309                                       "/bin/unzip")))
5310            (invoke unzip (assoc-ref %build-inputs "source"))
5311            (mkdir-p target)
5312            (copy-recursively "iwona" target)
5313            #t))))
5314     (native-inputs
5315      `(("unzip" ,unzip)))
5316     (home-page "http://jmn.pl/en/kurier-i-iwona/")
5317     (synopsis "Sans-serif typeface for TeX")
5318     (description "Iwona is a two-element sans-serif typeface. It was created
5319 as an alternative version of the Kurier typeface, which was designed in 1975
5320 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
5321 supervision of Roman Tomaszewski.  Kurier was designed for linotype
5322 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
5323 alternative version of the Kurier fonts.  The difference lies in the absence
5324 of ink traps which typify the Kurier font.")
5325     (license license:gfl1.0)))
5326
5327 (define-public texlive-latex-titlesec
5328   (package
5329     (name "texlive-latex-titlesec")
5330     (version (number->string %texlive-revision))
5331     (source (origin
5332               (method svn-fetch)
5333               (uri (svn-reference
5334                     (url (string-append "svn://www.tug.org/texlive/tags/"
5335                                         %texlive-tag "/Master/texmf-dist/"
5336                                         "/tex/latex/titlesec"))
5337                     (revision %texlive-revision)))
5338               (file-name (string-append name "-" version "-checkout"))
5339               (sha256
5340                (base32
5341                 "04nmkhqx6jxcxx9a30zbcd5smxi5fd0cbp132bki7fnvhspnhg21"))))
5342     (build-system trivial-build-system)
5343     (arguments
5344      `(#:modules ((guix build utils))
5345        #:builder
5346        (begin
5347          (use-modules (guix build utils))
5348          (let ((target (string-append (assoc-ref %outputs "out")
5349                                       "/share/texmf-dist/tex/latex/titlesec")))
5350            (mkdir-p target)
5351            (copy-recursively (assoc-ref %build-inputs "source") target)
5352            #t))))
5353     (home-page "https://www.ctan.org/pkg/titlesec")
5354     (synopsis "Select alternative section titles")
5355     (description
5356      "This package provides an interface to sectioning commands for selection
5357 from various title styles, e.g. for marginal titles and to change the font of
5358 all headings with a single command, also providing simple one-step page
5359 styles.  It also includes a package to change the page styles when there are
5360 floats in a page.  You may assign headers/footers to individual floats, too.")
5361     (license license:lppl)))
5362
5363 (define-public texlive-latex-type1cm
5364   (package
5365     (name "texlive-latex-type1cm")
5366     (version (number->string %texlive-revision))
5367     (source (origin
5368               (method svn-fetch)
5369               (uri (texlive-ref "latex" "type1cm"))
5370               (file-name (string-append name "-" version "-checkout"))
5371               (sha256
5372                (base32
5373                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
5374     (build-system texlive-build-system)
5375     (arguments '(#:tex-directory "latex/type1cm"))
5376     (home-page "https://www.ctan.org/pkg/type1cm")
5377     (synopsis "Arbitrary size font selection in LaTeX")
5378     (description
5379      "LaTeX, by default, restricts the sizes at which you can use its default
5380 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
5381 specified by Knuth).  The @code{type1cm} package removes this restriction;
5382 this is particularly useful when using scalable versions of the CM
5383 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
5384 PCTeX, etc.).  In fact, since modern distributions will automatically generate
5385 any bitmap font you might need, @code{type1cm} has wider application than just
5386 those using scalable versions of the fonts.  Note that the LaTeX distribution
5387 now contains a package @code{fix-cm},f which performs the task of
5388 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
5389 @code{ec} fonts.")
5390     (license license:lppl)))
5391
5392 (define-public texlive-latex-lh
5393   (package
5394     (name "texlive-latex-lh")
5395     (version (number->string %texlive-revision))
5396     (source (origin
5397               (method svn-fetch)
5398               (uri (texlive-ref "latex" "lh"))
5399               (file-name (string-append name "-" version "-checkout"))
5400               (sha256
5401                (base32
5402                 "00gdiwh3sfhh1iimjhpja7lm7k4vzqzql2irgwnpz94qvh25zwi5"))))
5403     (build-system texlive-build-system)
5404     (arguments '(#:tex-directory "latex/lh"))
5405     (home-page "https://www.ctan.org/pkg/lh")
5406     (synopsis "Cyrillic fonts that support LaTeX standard encodings")
5407     (description
5408      "The LH fonts address the problem of the wide variety of alphabets that
5409 are written with Cyrillic-style characters.  The fonts are the original basis
5410 of the set of T2* and X2 encodings that are now used when LaTeX users need to
5411 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
5412 offered through the latex-cyrillic and t2 bundles, and the package itself
5413 offers support for other (more traditional) encodings.  The fonts, in the
5414 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
5415 CM-Super family of fonts.  The package also offers its own LaTeX support for
5416 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
5417     (license license:lppl)))
5418
5419 (define-public texlive-metapost
5420   (package
5421     (name "texlive-metapost")
5422     (version (number->string %texlive-revision))
5423     (source (origin
5424               (method svn-fetch)
5425               (uri (svn-reference
5426                     (url (string-append "svn://www.tug.org/texlive/tags/"
5427                                         %texlive-tag "/Master/texmf-dist/"
5428                                         "/metapost"))
5429                     (revision %texlive-revision)))
5430               (file-name (string-append name "-" version "-checkout"))
5431               (sha256
5432                (base32
5433                 "1xyd57c8z1xi0kbqpbad61flcazz68i9ssxrag0gjvci3irxi8xh"))))
5434     (build-system trivial-build-system)
5435     (arguments
5436      `(#:modules ((guix build utils))
5437        #:builder
5438        (begin
5439          (use-modules (guix build utils))
5440          (let ((target (string-append (assoc-ref %outputs "out")
5441                                       "/share/texmf-dist/metapost")))
5442            (mkdir-p target)
5443            (copy-recursively (assoc-ref %build-inputs "source") target)
5444            #t))))
5445     (home-page "https://www.ctan.org/pkg/metapost")
5446     (synopsis "Create scalable illustrations")
5447     (description
5448      "MetaPost uses a language based on that of Metafont to produce precise
5449 technical illustrations.  Its output is scalable PostScript or SVG, rather
5450 than the bitmaps Metafont creates.")
5451     (license license:lppl)))
5452
5453 (define-public texlive-latex-acmart
5454   (package
5455     (name "texlive-latex-acmart")
5456     (version "1.60")
5457     (source (origin
5458               (method svn-fetch)
5459               (uri (texlive-ref "latex" "acmart"))
5460               (sha256
5461                (base32
5462                 "18rl67p2zhngskisnhv78mksv8q8q658l6igkswzswldixmkpphq"))
5463               (file-name (string-append name "-" version "-checkout"))))
5464     (build-system texlive-build-system)
5465     (arguments '(#:tex-directory "latex/acmart"))
5466     (home-page "https://www.ctan.org/pkg/acmart")
5467     (synopsis "Class for typesetting publications of ACM")
5468     (description
5469      "This package provides a class for typesetting publications of the
5470 Association for Computing Machinery (ACM).")
5471     (license license:lppl1.3+)))
5472
5473 (define-public texlive-latex-varwidth
5474   (package
5475     (name "texlive-latex-varwidth")
5476     (version (number->string %texlive-revision))
5477     (source (origin
5478               (method svn-fetch)
5479               (uri (svn-reference
5480                     (url (string-append "svn://www.tug.org/texlive/tags/"
5481                                         %texlive-tag "/Master/texmf-dist/"
5482                                         "/tex/latex/varwidth"))
5483                     (revision %texlive-revision)))
5484               (file-name (string-append name "-" version "-checkout"))
5485               (sha256
5486                (base32
5487                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
5488     (build-system trivial-build-system)
5489     (arguments
5490      `(#:modules ((guix build utils))
5491        #:builder
5492        (begin
5493          (use-modules (guix build utils))
5494          (let ((target (string-append (assoc-ref %outputs "out")
5495                                       "/share/texmf-dist/tex/latex/varwidth")))
5496            (mkdir-p target)
5497            (copy-recursively (assoc-ref %build-inputs "source") target)
5498            #t))))
5499     (home-page "https://www.ctan.org/pkg/varwidth")
5500     (synopsis "Variable-width minipage")
5501     (description
5502      "The @code{varwidth} environment is superficially similar to
5503 @code{minipage}, but the specified width is just a maximum value — the box may
5504 get a narrower “natural” width.")
5505     (license license:lppl)))
5506
5507 (define-public texlive-latex-wasysym
5508   (package
5509     (name "texlive-latex-wasysym")
5510     (version (number->string %texlive-revision))
5511     (source (origin
5512               (method svn-fetch)
5513               (uri (texlive-ref "latex" "wasysym"))
5514               (file-name (string-append name "-" version "-checkout"))
5515               (sha256
5516                (base32
5517                 "1sgwbfwjjf70g54hh93gsd9jp9nm67w6n74x9d72a56n07jbk5hv"))))
5518     (build-system texlive-build-system)
5519     (arguments '(#:tex-directory "latex/wasysym"))
5520     (home-page "https://www.ctan.org/pkg/wasysym")
5521     (synopsis "LaTeX support file to use the WASY2 fonts")
5522     (description
5523      "The wasy2WASY2 (Waldi Symbol) font by Roland Waldi provides many glyphs
5524 like male and female symbols and astronomical symbols, as well as the complete
5525 lasy font set and other odds and ends.  The wasysym package implements an easy
5526 to use interface for these symbols.")
5527     (license license:lppl)))
5528
5529 (define-public texlive-latex-wrapfig
5530   (package
5531     (name "texlive-latex-wrapfig")
5532     (version (number->string %texlive-revision))
5533     (source (origin
5534               (method svn-fetch)
5535               (uri (svn-reference
5536                     (url (string-append "svn://www.tug.org/texlive/tags/"
5537                                         %texlive-tag "/Master/texmf-dist/"
5538                                         "/tex/latex/wrapfig"))
5539                     (revision %texlive-revision)))
5540               (file-name (string-append name "-" version "-checkout"))
5541               (sha256
5542                (base32
5543                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
5544     (build-system trivial-build-system)
5545     (arguments
5546      `(#:modules ((guix build utils))
5547        #:builder
5548        (begin
5549          (use-modules (guix build utils))
5550          (let ((target (string-append (assoc-ref %outputs "out")
5551                                       "/share/texmf-dist/tex/latex/wrapfig")))
5552            (mkdir-p target)
5553            (copy-recursively (assoc-ref %build-inputs "source") target)
5554            #t))))
5555     (home-page "https://www.ctan.org/pkg/wrapfig")
5556     (synopsis "Produces figures which text can flow around")
5557     (description
5558      "This package allows figures or tables to have text wrapped around them.
5559 It does not work in combination with list environments, but can be used in a
5560 @code{parbox} or @code{minipage}, and in two-column format.")
5561     (license license:lppl)))
5562
5563 (define-public texlive-latex-ucs
5564   (package
5565     (name "texlive-latex-ucs")
5566     (version (number->string %texlive-revision))
5567     (source (origin
5568               (method svn-fetch)
5569               (uri (svn-reference
5570                     (url (string-append "svn://www.tug.org/texlive/tags/"
5571                                         %texlive-tag "/Master/texmf-dist/"
5572                                         "/tex/latex/ucs"))
5573                     (revision %texlive-revision)))
5574               (file-name (string-append name "-" version "-checkout"))
5575               (sha256
5576                (base32
5577                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
5578     (build-system trivial-build-system)
5579     (arguments
5580      `(#:modules ((guix build utils))
5581        #:builder
5582        (begin
5583          (use-modules (guix build utils))
5584          (let ((target (string-append (assoc-ref %outputs "out")
5585                                       "/share/texmf-dist/tex/latex/ucs")))
5586            (mkdir-p target)
5587            (copy-recursively (assoc-ref %build-inputs "source") target)
5588            #t))))
5589     (home-page "https://www.ctan.org/pkg/ucs")
5590     (synopsis "Extended UTF-8 input encoding support for LaTeX")
5591     (description
5592      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
5593 together with a large number of support files.  The @code{utf8x.def}
5594 definition file for use with @code{inputenc} covers a wider range of Unicode
5595 characters than does @code{utf8.def} in the LaTeX distribution.  The package
5596 provides facilities for efficient use of its large sets of Unicode characters.
5597 Glyph production may be controlled by various options, which permits use of
5598 non-ASCII characters when coding mathematical formulae.  Note that the bundle
5599 previously had an alias “unicode”; that alias has now been withdrawn, and no
5600 package of that name now exists.")
5601     (license license:lppl1.3+)))
5602
5603 (define-public texlive-latex-preview
5604   (package
5605     (name "texlive-latex-preview")
5606     (version (number->string %texlive-revision))
5607     (source (origin
5608               (method svn-fetch)
5609               (uri (texlive-ref "latex" "preview"))
5610               (file-name (string-append name "-" version "-checkout"))
5611               (sha256
5612                (base32
5613                 "1hpsk4yp08qvbl43kqiv0hhwxv3gcqqxcpahyv6ch2b38pbj4bh6"))))
5614     (build-system texlive-build-system)
5615     (arguments
5616      '(#:tex-directory "latex/preview"
5617        #:phases
5618        (modify-phases %standard-phases
5619          (add-after 'unpack 'remove-generated-file
5620            (lambda _
5621              (delete-file "preview.drv")
5622              #t)))))
5623     (home-page "https://www.ctan.org/pkg/preview")
5624     (synopsis "Extract bits of a LaTeX source for output")
5625     (description
5626      "The main purpose of the preview package is the extraction of selected
5627 elements from a LaTeX source, like formulas or graphics, into separate
5628 pages of a DVI file.  A flexible and convenient interface allows it to
5629 specify what commands and constructs should be extracted.  This works
5630 with DVI files postprocessed by either Dvips and Ghostscript or
5631 dvipng, but it also works when you are using PDFTeX for generating PDF
5632 files.")
5633     (license license:gpl3+)))
5634
5635 (define-public texlive-latex-acronym
5636   (package
5637     (name "texlive-latex-acronym")
5638     (version (number->string %texlive-revision))
5639     (source (origin
5640               (method svn-fetch)
5641               (uri (texlive-ref "latex" "acronym"))
5642               (file-name (string-append name "-" version "-checkout"))
5643               (sha256
5644                (base32
5645                 "0jmasg40bk53zdd2jc8nc18jvdai3p2wmamy7hwli8gls4nf25qp"))))
5646     (build-system texlive-build-system)
5647     (arguments '(#:tex-directory "latex/acronym"))
5648     (home-page "https://www.ctan.org/pkg/acronym")
5649     (synopsis "Expand acronyms at least once")
5650     (description
5651      "This package ensures that all acronyms used in the text are spelled out
5652 in full at least once.  It also provides an environment to build a list of
5653 acronyms used.  The package is compatible with PDF bookmarks.  The package
5654 requires the suffix package, which in turn requires that it runs under
5655 e-TeX.")
5656     (license license:lppl1.3+)))
5657
5658 (define-public texlive-generic-pdftex
5659   (package
5660     (name "texlive-generic-pdftex")
5661     (version (number->string %texlive-revision))
5662     (source (origin
5663               (method svn-fetch)
5664               (uri (svn-reference
5665                     (url (string-append "svn://www.tug.org/texlive/tags/"
5666                                         %texlive-tag "/Master/texmf-dist/"
5667                                         "/tex/generic/pdftex"))
5668                     (revision %texlive-revision)))
5669               (file-name (string-append name "-" version "-checkout"))
5670               (sha256
5671                (base32
5672                 "0k68zmqzs4qvrqxdwsrawbjb14hxqjfamq649azvai0jjxdpkljd"))))
5673     (build-system trivial-build-system)
5674     (arguments
5675      `(#:modules ((guix build utils))
5676        #:builder
5677        (begin
5678          (use-modules (guix build utils))
5679          (let ((target (string-append (assoc-ref %outputs "out")
5680                                       "/share/texmf-dist/tex/generic/pdftex"))
5681                (target-map (string-append (assoc-ref %outputs "out")
5682                                       "/share/texmf-dist/fonts/map/pdftex")))
5683            (mkdir-p target)
5684            (copy-recursively (assoc-ref %build-inputs "source") target)
5685            (mkdir-p target-map)
5686            (copy-recursively (assoc-ref %build-inputs "pdftex-map") target-map)
5687            #t))))
5688     (native-inputs
5689      `(("pdftex-map"
5690         ,(origin
5691            (method svn-fetch)
5692            (uri (svn-reference
5693                  (url (string-append "svn://www.tug.org/texlive/tags/"
5694                                      %texlive-tag "/Master/texmf-dist/"
5695                                      "/fonts/map/pdftex"))
5696                  (revision %texlive-revision)))
5697            (file-name (string-append name "-map-" version "-checkout"))
5698            (sha256
5699             (base32
5700              "03rfif2631pgd8g1ar4xblcdh078kky7fvw3kfsj5a47rxxgicp2"))))))
5701     (home-page "https://www.ctan.org/pkg/pdftex")
5702     (synopsis "TeX extension for direct creation of PDF")
5703     (description
5704      "This package provides an extension of TeX which can be configured to
5705 directly generate PDF documents instead of DVI.")
5706     (license license:gpl2+)))
5707
5708 (define texlive-texmf
5709   (package
5710    (name "texlive-texmf")
5711    (version "20190410")
5712    (source texlive-texmf-src)
5713    (build-system gnu-build-system)
5714    (inputs
5715     `(("texlive-bin" ,texlive-bin)
5716       ("lua" ,lua)
5717       ("perl" ,perl)
5718       ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5719       ("ruby" ,ruby)
5720       ("tcsh" ,tcsh)))
5721    (arguments
5722     `(#:modules ((guix build gnu-build-system)
5723                  (guix build utils)
5724                  (srfi srfi-26))
5725
5726       ;; This package takes 4 GiB, which we can't afford to distribute from
5727       ;; our servers.
5728       #:substitutable? #f
5729
5730       #:phases
5731         (modify-phases (map (cut assq <> %standard-phases)
5732                             '(set-paths unpack patch-source-shebangs))
5733           (add-after 'unpack 'unset-environment-variables
5734             (lambda _
5735               (unsetenv "TEXMF")
5736               (unsetenv "TEXMFCNF")
5737               #t))
5738           (add-after 'patch-source-shebangs 'install
5739             (lambda* (#:key outputs #:allow-other-keys)
5740               (let ((share (string-append (assoc-ref outputs "out") "/share")))
5741                 (mkdir-p share)
5742                 (invoke "mv" "texmf-dist" share))))
5743           (add-after 'install 'texmf-config
5744             (lambda* (#:key inputs outputs #:allow-other-keys)
5745               (let* ((out (assoc-ref outputs "out"))
5746                      (share (string-append out "/share"))
5747                      (texmfroot (string-append share "/texmf-dist/web2c"))
5748                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
5749                      (texlive-bin (assoc-ref inputs "texlive-bin"))
5750                      (texbin (string-append texlive-bin "/bin"))
5751                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
5752                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
5753                 (substitute* texmfcnf
5754                   (("TEXMFROOT = \\$SELFAUTOPARENT")
5755                    (string-append "TEXMFROOT = " share))
5756                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
5757                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
5758                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
5759                 ;; Register paths in texmfcnf.lua, needed for context.
5760                 (substitute* (string-append texmfroot "/texmfcnf.lua")
5761                   (("selfautodir:") out)
5762                   (("selfautoparent:") (string-append share "/")))
5763                 ;; Set path to TeXLive Perl modules
5764                 (setenv "PERL5LIB"
5765                         (string-append (getenv "PERL5LIB") ":" tlpkg))
5766                 ;; Configure the texmf-dist tree; inspired from
5767                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
5768                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
5769                 (setenv "TEXMFCNF" texmfroot)
5770                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
5771                 (invoke "mktexlsr")
5772                 (invoke "fmtutil-sys" "--all")))))))
5773    (properties `((max-silent-time . 9600))) ; don't time out while grafting
5774    (synopsis "TeX Live, a package of the TeX typesetting system")
5775    (description
5776     "TeX Live provides a comprehensive TeX document production system.
5777 It includes all the major TeX-related programs, macro packages, and fonts
5778 that are free software, including support for many languages around the
5779 world.
5780
5781 This package contains the complete tree of texmf-dist data.")
5782    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
5783    (home-page "https://www.tug.org/texlive/")))
5784
5785 (define-public texlive
5786   (package
5787    (name "texlive")
5788    (version "20190410")
5789    (source #f)
5790    (build-system trivial-build-system)
5791    (inputs `(("bash" ,bash) ; for wrap-program
5792              ("texlive-bin" ,texlive-bin)
5793              ("texlive-texmf" ,texlive-texmf)))
5794    (native-search-paths
5795     (list (search-path-specification
5796            (variable "TEXMFLOCAL")
5797            (files '("share/texmf-local")))))
5798    (arguments
5799     `(#:modules ((guix build utils))
5800       #:builder
5801         ;; Build the union of texlive-bin and texlive-texmf, but take the
5802         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
5803         (begin
5804           (use-modules (guix build utils))
5805           (let ((out (assoc-ref %outputs "out"))
5806                 (bin (assoc-ref %build-inputs "texlive-bin"))
5807                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
5808                 (bash (assoc-ref %build-inputs "bash")))
5809                (mkdir out)
5810                (with-directory-excursion out
5811                  (for-each
5812                    (lambda (name)
5813                      (symlink (string-append bin "/" name) name))
5814                    '("include" "lib"))
5815                  (mkdir "bin")
5816                  (with-directory-excursion "bin"
5817                    (setenv "PATH" (string-append bash "/bin"))
5818                    (for-each
5819                      (lambda (name)
5820                        (symlink name (basename name))
5821                        (wrap-program
5822                          (basename name)
5823                          `("TEXMFCNF" =
5824                            (,(string-append texmf "/share/texmf-dist/web2c")))))
5825                      (find-files (string-append bin "/bin/") "")))
5826                  (mkdir "share")
5827                  (with-directory-excursion "share"
5828                    (for-each
5829                      (lambda (name)
5830                        (symlink (string-append bin "/share/" name) name))
5831                      '("info" "man" "tlpkg"))
5832                    (for-each
5833                      (lambda (name)
5834                        (symlink (string-append texmf "/share/" name) name))
5835                      '("texmf-dist" "texmf-var"))))
5836                #t))))
5837    (synopsis "TeX Live, a package of the TeX typesetting system")
5838    (description
5839     "TeX Live provides a comprehensive TeX document production system.
5840 It includes all the major TeX-related programs, macro packages, and fonts
5841 that are free software, including support for many languages around the
5842 world.
5843
5844 This package contains the complete TeX Live distribution.")
5845    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
5846    (home-page "https://www.tug.org/texlive/")))
5847
5848 (define-public perl-text-bibtex
5849   (package
5850     (name "perl-text-bibtex")
5851     (version "0.85")
5852     (source
5853      (origin
5854        (method url-fetch)
5855        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
5856                            version ".tar.gz"))
5857        (sha256
5858         (base32
5859          "036kxgbn1jf70pfm2lmjlzjwnhbkd888fp5lyvmkjpdd15gla18h"))))
5860     (build-system perl-build-system)
5861     (arguments
5862      `(#:phases
5863        (modify-phases %standard-phases
5864          (add-after 'unpack 'add-output-directory-to-rpath
5865            (lambda* (#:key outputs #:allow-other-keys)
5866              (substitute* "inc/MyBuilder.pm"
5867                (("-Lbtparse" line)
5868                 (string-append "-Wl,-rpath="
5869                                (assoc-ref outputs "out") "/lib " line)))
5870              #t))
5871          (add-after 'unpack 'install-libraries-to-/lib
5872            (lambda* (#:key outputs #:allow-other-keys)
5873              (substitute* "Build.PL"
5874                (("lib64") "lib"))
5875              #t)))))
5876     (native-inputs
5877      `(("perl-capture-tiny" ,perl-capture-tiny)
5878        ("perl-config-autoconf" ,perl-config-autoconf)
5879        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
5880        ("perl-module-build" ,perl-module-build)))
5881     (home-page "https://metacpan.org/release/Text-BibTeX")
5882     (synopsis "Interface to read and parse BibTeX files")
5883     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
5884 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
5885 at many different levels: you may work with BibTeX entries as simple field to
5886 string mappings, or get at the original form of the data as a list of simple
5887 values (strings, macros, or numbers) pasted together.")
5888     (license license:perl-license)))
5889
5890 (define-public biber
5891   (package
5892     (name "biber")
5893     (version "2.12")
5894     (source (origin
5895               (method git-fetch)
5896               (uri (git-reference
5897                     (url "https://github.com/plk/biber/")
5898                     (commit (string-append "v" version))))
5899               (file-name (git-file-name name version))
5900               ;; TODO: Patch awaiting inclusion upstream (see:
5901               ;; https://github.com/plk/biber/issues/239).
5902               (patches (search-patches "biber-fix-encoding-write.patch"))
5903               (sha256
5904                (base32
5905                 "1g1hi6zvf2hmrjly1sidjaxy5440gfqm4p7p3n7kayshnjsmlskx"))))
5906     (build-system perl-build-system)
5907     (arguments
5908      `(#:phases
5909        (modify-phases %standard-phases
5910          (add-after 'install 'wrap-programs
5911            (lambda* (#:key outputs #:allow-other-keys)
5912              (let* ((out (assoc-ref outputs "out"))
5913                     (perl5lib (getenv "PERL5LIB")))
5914                (wrap-program (string-append out "/bin/biber")
5915                  `("PERL5LIB" ":" prefix
5916                    (,(string-append perl5lib ":" out
5917                                     "/lib/perl5/site_perl")))))
5918              #t)))))
5919     (inputs
5920      `(("perl-autovivification" ,perl-autovivification)
5921        ("perl-class-accessor" ,perl-class-accessor)
5922        ("perl-data-dump" ,perl-data-dump)
5923        ("perl-data-compare" ,perl-data-compare)
5924        ("perl-data-uniqid" ,perl-data-uniqid)
5925        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
5926        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
5927        ("perl-file-slurper" ,perl-file-slurper)
5928        ("perl-ipc-cmd" ,perl-ipc-cmd)
5929        ("perl-ipc-run3" ,perl-ipc-run3)
5930        ("perl-list-allutils" ,perl-list-allutils)
5931        ("perl-list-moreutils" ,perl-list-moreutils)
5932        ("perl-mozilla-ca" ,perl-mozilla-ca)
5933        ("perl-regexp-common" ,perl-regexp-common)
5934        ("perl-log-log4perl" ,perl-log-log4perl)
5935        ;; We cannot use perl-unicode-collate here, because otherwise the
5936        ;; hardcoded hashes in the tests would differ.  See
5937        ;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
5938        ;;("perl-unicode-collate" ,perl-unicode-collate)
5939        ("perl-unicode-normalize" ,perl-unicode-normalize)
5940        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
5941        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
5942        ("perl-encode-jis2k" ,perl-encode-jis2k)
5943        ("perl-encode-hanextra" ,perl-encode-hanextra)
5944        ("perl-xml-libxml" ,perl-xml-libxml)
5945        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
5946        ("perl-xml-libxslt" ,perl-xml-libxslt)
5947        ("perl-xml-writer" ,perl-xml-writer)
5948        ("perl-sort-key" ,perl-sort-key)
5949        ("perl-text-csv" ,perl-text-csv)
5950        ("perl-text-csv-xs" ,perl-text-csv-xs)
5951        ("perl-text-roman" ,perl-text-roman)
5952        ("perl-uri" ,perl-uri)
5953        ("perl-text-bibtex" ,perl-text-bibtex)
5954        ("perl-libwww" ,perl-libwww)
5955        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
5956        ("perl-business-isbn" ,perl-business-isbn)
5957        ("perl-business-issn" ,perl-business-issn)
5958        ("perl-business-ismn" ,perl-business-ismn)
5959        ("perl-lingua-translit" ,perl-lingua-translit)))
5960     (native-inputs
5961      `(("perl-config-autoconf" ,perl-config-autoconf)
5962        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
5963        ("perl-module-build" ,perl-module-build)
5964        ;; for tests
5965        ("perl-file-which" ,perl-file-which)
5966        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
5967        ("perl-test-differences" ,perl-test-differences)))
5968     (home-page "http://biblatex-biber.sourceforge.net/")
5969     (synopsis "Backend for the BibLaTeX citation management tool")
5970     (description "Biber is a BibTeX replacement for users of biblatex.  Among
5971 other things it comes with full Unicode support.")
5972     (license license:artistic2.0)))
5973
5974 (define-public rubber
5975   (package
5976     (name "rubber")
5977     (version "1.1")
5978     (source (origin
5979              (method url-fetch)
5980              (uri (list (string-append "https://launchpad.net/rubber/trunk/"
5981                                        version "/+download/rubber-"
5982                                        version ".tar.gz")
5983                         (string-append "http://ebeffara.free.fr/pub/rubber-"
5984                                        version ".tar.gz")))
5985              (sha256
5986               (base32
5987                "1xbkv8ll889933gyi2a5hj7hhh216k04gn8fwz5lfv5iz8s34gbq"))))
5988     (build-system gnu-build-system)
5989     (arguments '(#:tests? #f))                    ; no `check' target
5990     (inputs `(("texinfo" ,texinfo)
5991               ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5992               ("which" ,which)))
5993     (home-page "https://launchpad.net/rubber")
5994     (synopsis "Wrapper for LaTeX and friends")
5995     (description
5996      "Rubber is a program whose purpose is to handle all tasks related to the
5997 compilation of LaTeX documents.  This includes compiling the document itself,
5998 of course, enough times so that all references are defined, and running BibTeX
5999 to manage bibliographic references.  Automatic execution of dvips to produce
6000 PostScript documents is also included, as well as usage of pdfLaTeX to produce
6001 PDF documents.")
6002     (license license:gpl2+)))
6003
6004 (define-public texmaker
6005   (package
6006     (name "texmaker")
6007     (version "5.0.3")
6008     (source (origin
6009               (method url-fetch)
6010               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
6011                                   version ".tar.bz2"))
6012               (sha256
6013                (base32
6014                 "0vrj9w5lk3vf6138n5bz8phmy3xp5kv4dq1rgirghcf4hbxdyx30"))))
6015     (build-system gnu-build-system)
6016     (arguments
6017      `(#:phases
6018        (modify-phases %standard-phases
6019          ;; Qt has its own configuration utility.
6020          (replace 'configure
6021            (lambda* (#:key outputs #:allow-other-keys)
6022              (let ((out (assoc-ref outputs "out")))
6023                (invoke "qmake"
6024                        (string-append "PREFIX=" out)
6025                        (string-append "DESKTOPDIR=" out "/share/applications")
6026                        (string-append "ICONDIR=" out "/share/pixmaps")
6027                        (string-append "METAINFODIR=" out "/share/metainfo")
6028                        "texmaker.pro")))))))
6029     (inputs
6030      `(("poppler-qt5" ,poppler-qt5)
6031        ("qtbase" ,qtbase)
6032        ("qtscript" ,qtscript)
6033        ("qtwebkit" ,qtwebkit)
6034        ("zlib" ,zlib)))
6035     (native-inputs
6036      `(("pkg-config" ,pkg-config)))
6037     (home-page "http://www.xm1math.net/texmaker/")
6038     (synopsis "LaTeX editor")
6039     (description "Texmaker is a program that integrates many tools needed to
6040 develop documents with LaTeX, in a single application.")
6041     (license license:gpl2+)))
6042
6043 (define-public teximpatient
6044   (package
6045     (name "teximpatient")
6046     (version "2.4")
6047     (source (origin
6048               (method url-fetch/tarbomb)
6049               (uri (string-append "mirror://gnu/" name "/" name "-"
6050                                   version ".tar.gz"))
6051               (sha256
6052                (base32
6053                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
6054     (build-system gnu-build-system)
6055     (arguments
6056      `(#:tests? #f ; there are none
6057        #:phases
6058        (modify-phases %standard-phases
6059          (add-after 'unpack 'fix-packaging-error
6060            (lambda* (#:key inputs #:allow-other-keys)
6061              ;; This file should have been part of the tarball.
6062              (install-file (car
6063                             (find-files
6064                              (assoc-ref inputs "automake")
6065                              "^install-sh$"))
6066                            ".")
6067              ;; Remove generated file.
6068              (delete-file "book.pdf")
6069              #t)))))
6070     (native-inputs
6071      `(("texlive" ,(texlive-union (list texlive-amsfonts
6072                                         texlive-fonts-adobe-palatino
6073                                         texlive-fonts-adobe-zapfding
6074                                         texlive-fonts-knuth-lib
6075                                         texlive-fonts-mflogo-font
6076                                         texlive-generic-pdftex)))
6077        ("automake" ,automake)))
6078     (home-page "https://www.gnu.org/software/teximpatient/")
6079     (synopsis "Book on TeX, plain TeX and Eplain")
6080     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
6081 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
6082 and Karl Berry.")
6083     (license license:fdl1.3+)))
6084
6085 (define-public lyx
6086   (package
6087     (name "lyx")
6088     (version "2.3.3")
6089     (source (origin
6090               (method url-fetch)
6091               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
6092                                   (version-major+minor version) ".x/"
6093                                   "lyx-" version ".tar.gz"))
6094               (sha256
6095                (base32
6096                 "0j3xincwmsscfgv13g3z6h4kx1qfzgg8x71fs393akcdxsh2g07c"))
6097               (modules '((guix build utils)))
6098               (snippet
6099                '(begin
6100                   (delete-file-recursively "3rdparty")
6101                   #t))))
6102     (build-system cmake-build-system)
6103     (arguments
6104      `(#:configure-flags `("-DLYX_USE_QT=QT5"
6105                            "-DLYX_EXTERNAL_BOOST=1"
6106                            "-DLYX_INSTALL=1"
6107                            "-DLYX_RELEASE=1"
6108                            ,(string-append "-DLYX_INSTALL_PREFIX="
6109                                            (assoc-ref %outputs "out")
6110                                            ;; Exact name and level is necessary.
6111                                            "/lyx" ,(version-major+minor version)))
6112        #:phases
6113        (modify-phases %standard-phases
6114          ;; See ;; https://www.lyx.org/trac/changeset/3a123b90af838b08680471d87170c38e56787df9/lyxgit
6115          (add-after 'unpack 'fix-compilation-with-boost-1.69
6116            (lambda _
6117              (substitute* "src/support/FileName.cpp"
6118                (("^template struct boost::detail::crc_table_t.*") ""))
6119              #t))
6120          (add-after 'unpack 'patch-python
6121            (lambda* (#:key inputs #:allow-other-keys)
6122              (substitute* '("src/support/os.cpp")
6123                (("\"python ")
6124                 (string-append "\""
6125                                (assoc-ref inputs "python")
6126                                "/bin/python ")))
6127              #t))
6128          (add-after 'patch-python 'patch-desktop-file
6129            (lambda* (#:key outputs #:allow-other-keys)
6130              (substitute* "lib/lyx.desktop.in"
6131                (("Exec=")
6132                 (string-append "Exec="
6133                                (assoc-ref outputs "out")
6134                                "/")))
6135              #t))
6136          (add-before 'check 'setenv-check
6137            (lambda _
6138              ;; Create missing file that would cause tests to fail.
6139              (with-output-to-file (string-append "../lyx-"
6140                                                  ,version
6141                                                  "/src/tests/check_layout.cmake")
6142                (const #t))
6143              (setenv (string-append "LYX_DIR_"
6144                                     (string-join
6145                                       (string-split
6146                                         ,(version-major+minor version) #\-)) "x")
6147                      (string-append (getcwd) "/../lyx-" ,version "/lib"))
6148              #t))
6149          (add-after 'install 'install-symlinks
6150            (lambda* (#:key outputs #:allow-other-keys)
6151              (let ((out (assoc-ref outputs "out")))
6152                (mkdir-p (string-append out "/bin"))
6153                (symlink (string-append "../lyx" ,(version-major+minor version)
6154                                        "/bin/lyx" ,(version-major+minor version))
6155                         (string-append out "/bin/lyx" ,(version-major+minor version)))
6156                #t))))))
6157     (inputs
6158      `(("boost" ,boost)
6159        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
6160        ("libx11" ,libx11)
6161        ("mythes" ,mythes)
6162        ("python" ,python)
6163        ("qtbase" ,qtbase)
6164        ("qtsvg" ,qtsvg)
6165        ("zlib" ,zlib)))
6166     (propagated-inputs
6167      `(("texlive" ,(texlive-union (list texlive-fonts-ec)))))
6168     (native-inputs
6169      `(("python" ,python)
6170        ("pkg-config" ,pkg-config)))
6171     (home-page "https://www.lyx.org/")
6172     (synopsis "Document preparation system with GUI")
6173     (description "LyX is a document preparation system.  It excels at letting
6174 you create complex technical and scientific articles with mathematics,
6175 cross-references, bibliographies, indexes, etc.  It is very good for working
6176 with documents of any length in which the usual processing abilities are
6177 required: automatic sectioning and pagination, spell checking and so forth.")
6178     (license license:gpl2+)))
6179
6180 (define-public texlive-latex-media9
6181   (package
6182     (name "texlive-latex-media9")
6183     (version (number->string %texlive-revision))
6184     (source (origin
6185               (method svn-fetch)
6186               (uri (svn-reference
6187                     (url (string-append "svn://www.tug.org/texlive/tags/"
6188                                         %texlive-tag "/Master/texmf-dist/"
6189                                         "/tex/latex/media9"))
6190                     (revision %texlive-revision)))
6191               (file-name (string-append name "-" version "-checkout"))
6192               (sha256
6193                (base32
6194                 "0s86v2b6b1vky1svmmn8pn0l2gz3v280mvjbr2d9l2sjyarlgz9w"))))
6195     (build-system trivial-build-system)
6196     (arguments
6197      `(#:modules ((guix build utils))
6198        #:builder
6199        (begin
6200          (use-modules (guix build utils))
6201          (let ((target (string-append (assoc-ref %outputs "out")
6202                                       "/share/texmf-dist/tex/latex/media9")))
6203            (mkdir-p target)
6204            (copy-recursively (assoc-ref %build-inputs "source") target)
6205            #t))))
6206     (home-page "https://www.ctan.org/pkg/media9")
6207     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
6208     (description
6209      "The package provides an interface to embed interactive Flash (SWF) and 3D
6210 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
6211 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
6212 compatibility.  Playback of multimedia files uses the built-in Flash Player of
6213 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
6214 supports the efficient H.264 codec for video compression.
6215
6216 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
6217 specification.  It replaces the now obsolete @code{movie15} package.")
6218     (license license:lppl)))
6219
6220 (define-public texlive-latex-ocgx2
6221   (package
6222     (name "texlive-latex-ocgx2")
6223     (version (number->string %texlive-revision))
6224     (source (origin
6225               (method svn-fetch)
6226               (uri (svn-reference
6227                     (url (string-append "svn://www.tug.org/texlive/tags/"
6228                                         %texlive-tag "/Master/texmf-dist/"
6229                                         "/tex/latex/ocgx2"))
6230                     (revision %texlive-revision)))
6231               (file-name (string-append name "-" version "-checkout"))
6232               (sha256
6233                (base32
6234                 "1yhp51w8yr10c10pc9196q7hlw80brzqinnqbjw81d0sf2p0llc5"))))
6235     (build-system trivial-build-system)
6236     (arguments
6237      `(#:modules ((guix build utils))
6238        #:builder
6239        (begin
6240          (use-modules (guix build utils))
6241          (let ((target (string-append (assoc-ref %outputs "out")
6242                                       "/share/texmf-dist/tex/latex/ogcx2")))
6243            (mkdir-p target)
6244            (copy-recursively (assoc-ref %build-inputs "source") target)
6245            #t))))
6246     (home-page "https://www.ctan.org/pkg/ocgx2")
6247     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
6248     (description
6249      "This package provides OCG (Optional Content Groups) support within a PDF
6250 document.
6251
6252 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
6253 @code{ocg-p} packages and adds support for all known engines and back-ends
6254 including:
6255
6256 @itemize
6257 @item LaTeX → dvips → @code{ps2pdf}/Distiller
6258 @item (Xe)LaTeX(x) → @code{dvipdfmx}
6259 @item pdfLaTeX and LuaLaTeX .
6260 @end itemize
6261
6262 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
6263     (license license:lppl)))
6264
6265 (define-public texlive-latex-ms
6266   (package
6267     (name "texlive-latex-ms")
6268     (version (number->string %texlive-revision))
6269     (source (origin
6270               (method svn-fetch)
6271               (uri (texlive-ref "latex" "ms"))
6272               (file-name (string-append name "-" version "-checkout"))
6273               (sha256
6274                (base32
6275                 "0m4wx3yjb5al1qsv995z8fii8xxy96mcfihbnlx43lpgayiwz35s"))))
6276     (build-system texlive-build-system)
6277     (arguments
6278      '(#:tex-directory "latex/ms"
6279        #:tex-format "latex"))
6280     (home-page "https://ctan.org/pkg/ms")
6281     (synopsis "Various LATEX packages by Martin Schröder")
6282     (description
6283      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
6284
6285 @itemize
6286 @item @command{count1to}, make use of fixed TEX counters;
6287 @item @command{everysel}, set commands to execute every time a font is selected;
6288 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
6289 @item @command{multitoc}, typeset the table of contents in multiple columns;
6290 @item @command{prelim2e}, mark typeset pages as preliminary; and
6291 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
6292 @end itemize\n")
6293     (license license:lppl1.3c+)))
6294
6295 (define-public texlive-latex-needspace
6296   (package
6297     (name "texlive-latex-needspace")
6298     (version (number->string %texlive-revision))
6299     (source (origin
6300               (method svn-fetch)
6301               (uri (texlive-ref "latex" "needspace"))
6302               (file-name (string-append name "-" version "-checkout"))
6303               (sha256
6304                (base32
6305                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
6306     (build-system texlive-build-system)
6307     (arguments
6308      '(#:tex-directory "latex/needspace"
6309        #:tex-format "latex"))
6310     (inputs
6311      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
6312     (home-page "https://www.ctan.org/pkg/needspace")
6313     (synopsis "Insert pagebreak if not enough space")
6314     (description
6315      "Provides commands to disable pagebreaking within a given vertical
6316 space.  If there is not enough space between the command and the bottom of the
6317 page, a new page will be started.")
6318     (license license:lppl)))
6319
6320 (define-public texlive-latex-changepage
6321   (package
6322     (name "texlive-latex-changepage")
6323     (version (number->string %texlive-revision))
6324     (source
6325      (origin
6326        (method svn-fetch)
6327        (uri (texlive-ref "latex" "changepage"))
6328        (file-name (string-append name "-" version "-checkout"))
6329        (sha256
6330         (base32
6331          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
6332     (build-system texlive-build-system)
6333     (arguments
6334      '(#:tex-directory "latex/changepage"
6335        #:tex-format "latex"))
6336     (inputs
6337      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
6338     (home-page "https://www.ctan.org/pkg/changepage")
6339     (synopsis "Margin adjustment and detection of odd/even pages")
6340     (description
6341      "The package provides commands to change the page layout in the middle of
6342 a document, and to robustly check for typesetting on odd or even pages.
6343 Instructions for use are at the end of the file.  The package is an extraction
6344 of code from the @code{memoir} class, whose user interface it shares.")
6345     (license license:lppl1.3+)))
6346
6347 (define-public texlive-latex-eukdate
6348   (package
6349     (name "texlive-latex-eukdate")
6350     (version (number->string %texlive-revision))
6351     (source
6352      (origin
6353        (method svn-fetch)
6354        (uri (svn-reference
6355              (url (string-append "svn://www.tug.org/texlive/tags/"
6356                                  %texlive-tag "/Master/texmf-dist/"
6357                                  "/tex/latex/eukdate"))
6358              (revision %texlive-revision)))
6359        (file-name (string-append name "-" version "-checkout"))
6360        (sha256
6361         (base32
6362          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
6363     (build-system trivial-build-system)
6364     (arguments
6365      `(#:modules ((guix build utils))
6366        #:builder
6367        (begin
6368          (use-modules (guix build utils))
6369          (let ((target (string-append (assoc-ref %outputs "out")
6370                                       "/share/texmf-dist/tex/latex/eukdate")))
6371            (mkdir-p target)
6372            (copy-recursively (assoc-ref %build-inputs "source") target)
6373            #t))))
6374     (home-page "https://www.ctan.org/pkg/eukdate")
6375     (synopsis "UK format dates, with weekday")
6376     (description
6377      "The package is used to change the format of @code{\\today}’s date,
6378 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
6379 is preferred in many parts of the world, as distinct from that which is used in
6380 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
6381     (license license:lppl)))
6382
6383 (define-public texlive-generic-ulem
6384   (package
6385     (name "texlive-generic-ulem")
6386     (version (number->string %texlive-revision))
6387     (source
6388      (origin
6389        (method svn-fetch)
6390        (uri (svn-reference
6391              (url (string-append "svn://www.tug.org/texlive/tags/"
6392                                  %texlive-tag "/Master/texmf-dist/"
6393                                  "/tex/generic/ulem"))
6394              (revision %texlive-revision)))
6395        (file-name (string-append name "-" version "-checkout"))
6396        (sha256
6397         (base32
6398          "1rzdniqq9zk39w8ch8ylx3ywh2mj87s4ivchrsk2b8nx06jyn797"))))
6399     (build-system trivial-build-system)
6400     (arguments
6401      `(#:modules ((guix build utils))
6402        #:builder
6403        (begin
6404          (use-modules (guix build utils))
6405          (let ((target (string-append (assoc-ref %outputs "out")
6406                                       "/share/texmf-dist/tex/generic/ulem")))
6407            (mkdir-p target)
6408            (copy-recursively (assoc-ref %build-inputs "source") target)
6409            #t))))
6410     (home-page "https://www.ctan.org/pkg/ulem")
6411     (synopsis "Underline text in TeX")
6412     (description
6413      "The package provides an @code{\\ul} (underline) command which will break
6414 over line ends; this technique may be used to replace @code{\\em} (both in that
6415 form and as the @code{\\emph} command), so as to make output look as if it comes
6416 from a typewriter.  The package also offers double and wavy underlining, and
6417 striking out (line through words) and crossing out (/// over words).")
6418     (license license:lppl1.3c+)))
6419
6420 (define-public texlive-latex-pgf
6421   (package
6422     (name "texlive-latex-pgf")
6423     (version (number->string %texlive-revision))
6424     (source
6425      (origin
6426        (method svn-fetch)
6427        (uri (svn-reference
6428              (url (string-append "svn://www.tug.org/texlive/tags/"
6429                                  %texlive-tag "/Master/texmf-dist/"
6430                                  "/tex/latex/pgf"))
6431              (revision %texlive-revision)))
6432        (file-name (string-append name "-" version "-checkout"))
6433        (sha256
6434         (base32
6435          "1dscrgwyr71vgx35mzb316xl669arzagfgq50fdv3nxga63959b3"))))
6436     (build-system trivial-build-system)
6437     (native-inputs
6438      `(("texlive-latex-pgf-generic"
6439         ,(origin
6440            (method svn-fetch)
6441            (uri (svn-reference
6442              (url (string-append "svn://www.tug.org/texlive/tags/"
6443                                  %texlive-tag "/Master/texmf-dist/"
6444                                  "/tex/generic/pgf"))
6445              (revision %texlive-revision)))
6446            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
6447            (sha256
6448             (base32
6449              "0hk5x2j15n4pps279cmkbjl1dvhasq3mbhna5xdvp2qgh635ahks"))))))
6450     (propagated-inputs
6451      `(("texlive-latex-xcolor" ,texlive-latex-xcolor)))
6452     (arguments
6453      `(#:modules ((guix build utils))
6454        #:builder
6455        (begin
6456          (use-modules (guix build utils))
6457          (let ((target-generic (string-append (assoc-ref %outputs "out")
6458                                               "/share/texmf-dist/tex/generic/pgf"))
6459                (target-latex (string-append (assoc-ref %outputs "out")
6460                                             "/share/texmf-dist/tex/latex/pgf")))
6461            (mkdir-p target-generic)
6462            (mkdir-p target-latex)
6463            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
6464            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
6465            #t))))
6466     (home-page "https://www.ctan.org/pkg/tikz")
6467     (synopsis "Create PostScript and PDF graphics in TeX")
6468     (description
6469      "PGF is a macro package for creating graphics.  It is platform- and
6470 format-independent and works together with the most important TeX backend
6471 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
6472 called TikZ.
6473
6474 Its usage is similar to pstricks and the standard picture environment.  PGF
6475 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
6476 produce either PostScript or PDF output.")
6477     (license license:lppl1.3c+)))
6478
6479 (define-public texlive-latex-koma-script
6480   (package
6481     (name "texlive-latex-koma-script")
6482     (version (number->string %texlive-revision))
6483     (source (origin
6484               (method svn-fetch)
6485               (uri (svn-reference
6486                     (url (string-append "svn://www.tug.org/texlive/tags/"
6487                                         %texlive-tag "/Master/texmf-dist/"
6488                                         "/tex/latex/koma-script"))
6489                     (revision %texlive-revision)))
6490               (file-name (string-append name "-" version "-checkout"))
6491               (sha256
6492                (base32
6493                 "1vz9zg7s5w52xr323zgglzprfrvba2zvyzf6b8vrdf4wdghlpv4z"))))
6494     (build-system trivial-build-system)
6495     (arguments
6496      `(#:modules ((guix build utils)
6497                   (ice-9 match))
6498        #:builder
6499        (begin
6500          (use-modules (guix build utils)
6501                       (ice-9 match))
6502          (let ((root (string-append (assoc-ref %outputs "out")
6503                                     "/share/texmf-dist/"))
6504                (pkgs '(("source" . "tex/latex/koma-script"))))
6505            (for-each (match-lambda
6506                        ((pkg . dir)
6507                         (let ((target (string-append root dir)))
6508                           (mkdir-p target)
6509                           (copy-recursively (assoc-ref %build-inputs pkg)
6510                                             target))))
6511                      pkgs)
6512            #t))))
6513     (home-page "https://www.ctan.org/pkg/koma-script")
6514     (synopsis "Bundle of versatile classes and packages")
6515     (description
6516      "The KOMA-Script bundle provides replacements for the article, report, and
6517 book classes with emphasis on typography and versatility.  There is also a
6518 letter class.
6519
6520 The bundle also offers:
6521
6522 @itemize
6523 @item a package for calculating type areas in the way laid down by the
6524 typographer Jan Tschichold,
6525 @item packages for easily changing and defining page styles,
6526 @item a package scrdate for getting not only the current date but also the name
6527 of the day, and
6528 @item a package scrtime for getting the current time.
6529 @end itemize
6530
6531 All these packages may be used not only with KOMA-Script classes but also with
6532 the standard classes.
6533
6534 Since every package has its own version number, the version number quoted only
6535 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
6536 typearea (which are the main parts of the bundle).")
6537     (license license:lppl1.3+)))
6538
6539 (define-public texlive-generic-listofitems
6540   (package
6541     (name "texlive-generic-listofitems")
6542     (version (number->string %texlive-revision))
6543     (source (origin
6544               (method svn-fetch)
6545               (uri (svn-reference
6546                     (url (string-append "svn://www.tug.org/texlive/tags/"
6547                                         %texlive-tag "/Master/texmf-dist/"
6548                                         "/tex/generic/listofitems"))
6549                     (revision %texlive-revision)))
6550               (file-name (string-append name "-" version "-checkout"))
6551               (sha256
6552                (base32
6553                 "1x4wnpca97rnbvvg6wjmbkxxvnfva274q9ahzx746b435q93z3i1"))))
6554     (build-system trivial-build-system)
6555     (arguments
6556      `(#:modules ((guix build utils))
6557        #:builder
6558        (begin
6559          (use-modules (guix build utils))
6560          (let ((target (string-append (assoc-ref %outputs "out")
6561                                       "/share/texmf-dist/tex/generic/listofitems")))
6562            (mkdir-p target)
6563            (copy-recursively (assoc-ref %build-inputs "source") target)
6564            #t))))
6565     (home-page "https://www.ctan.org/pkg/listofitems")
6566     (synopsis "Grab items in lists using user-specified separation character")
6567     (description
6568      "This package allows one to capture all the items of a list, for which
6569 the parsing character has been selected by the user, and to access any of
6570 these items with a simple syntax.")
6571     (license license:lppl1.3c+)))
6572
6573 (define-public texlive-latex-readarray
6574   (package
6575     (name "texlive-latex-readarray")
6576     (version (number->string %texlive-revision))
6577     (source (origin
6578               (method svn-fetch)
6579               (uri (svn-reference
6580                     (url (string-append "svn://www.tug.org/texlive/tags/"
6581                                         %texlive-tag "/Master/texmf-dist/"
6582                                         "/tex/latex/readarray"))
6583                     (revision %texlive-revision)))
6584               (file-name (string-append name "-" version "-checkout"))
6585               (sha256
6586                (base32
6587                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
6588     (build-system trivial-build-system)
6589     (arguments
6590      `(#:modules ((guix build utils))
6591        #:builder
6592        (begin
6593          (use-modules (guix build utils))
6594          (let ((target (string-append (assoc-ref %outputs "out")
6595                                       "/share/texmf-dist/tex/latex/readarray")))
6596            (mkdir-p target)
6597            (copy-recursively (assoc-ref %build-inputs "source") target)
6598            #t))))
6599     (propagated-inputs
6600      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
6601     (home-page "https://www.ctan.org/pkg/readarray")
6602     (synopsis "Read, store and recall array-formatted data")
6603     (description
6604      "This package allows the user to input formatted data into elements of a
6605 2-D or 3-D array and to recall that data at will by individual cell number.
6606 The data can be but need not be numerical in nature.  It can be, for example,
6607 formatted text.")
6608     (license license:lppl1.3)))
6609
6610 (define-public texlive-latex-verbatimbox
6611   (package
6612     (name "texlive-latex-verbatimbox")
6613     (version (number->string %texlive-revision))
6614     (source (origin
6615               (method svn-fetch)
6616               (uri (svn-reference
6617                     (url (string-append "svn://www.tug.org/texlive/tags/"
6618                                         %texlive-tag "/Master/texmf-dist/"
6619                                         "/tex/latex/verbatimbox"))
6620                     (revision %texlive-revision)))
6621               (file-name (string-append name "-" version "-checkout"))
6622               (sha256
6623                (base32
6624                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
6625     (build-system trivial-build-system)
6626     (arguments
6627      `(#:modules ((guix build utils))
6628        #:builder
6629        (begin
6630          (use-modules (guix build utils))
6631          (let ((target (string-append (assoc-ref %outputs "out")
6632                                       "/share/texmf-dist/tex/latex/verbatimbox")))
6633            (mkdir-p target)
6634            (copy-recursively (assoc-ref %build-inputs "source") target)
6635            #t))))
6636     (propagated-inputs
6637      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
6638     (home-page "https://www.ctan.org/pkg/verbatimbox")
6639     (synopsis "Deposit verbatim text in a box")
6640     (description
6641      "The package provides a @code{verbbox} environment to place its contents
6642 into a globally available box, or into a box specified by the user.  The
6643 global box may then be used in a variety of situations (for example, providing
6644 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
6645 in places where the standard @code{verbatim} environment (which is based on a
6646 @code{trivlist}) may not appear.")
6647     (license license:lppl1.3+)))
6648
6649 (define-public texlive-latex-examplep
6650   (package
6651     (name "texlive-latex-examplep")
6652     (version (number->string %texlive-revision))
6653     (source (origin
6654               (method svn-fetch)
6655               (uri (svn-reference
6656                     (url (string-append "svn://www.tug.org/texlive/tags/"
6657                                         %texlive-tag "/Master/texmf-dist/"
6658                                         "/tex/latex/examplep"))
6659                     (revision %texlive-revision)))
6660               (file-name (string-append name "-" version "-checkout"))
6661               (sha256
6662                (base32
6663                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
6664     (build-system trivial-build-system)
6665     (arguments
6666      `(#:modules ((guix build utils))
6667        #:builder
6668        (begin
6669          (use-modules (guix build utils))
6670          (let ((target (string-append (assoc-ref %outputs "out")
6671                                       "/share/texmf-dist/tex/latex/examplep")))
6672            (mkdir-p target)
6673            (copy-recursively (assoc-ref %build-inputs "source") target)
6674            #t))))
6675     (home-page "https://www.ctan.org/pkg/examplep")
6676     (synopsis "Verbatim phrases and listings in LaTeX")
6677     (description
6678      "Examplep provides sophisticated features for typesetting verbatim source
6679 code listings, including the display of the source code and its compiled LaTeX
6680 or METAPOST output side-by-side, with automatic width detection and enabled
6681 page breaks (in the source), without the need for specifying the source twice.
6682 Special care is taken that section, page and footnote numbers do not interfere
6683 with the main document.  For typesetting short verbatim phrases, a replacement
6684 for the @code{\\verb} command is also provided in the package, which can be
6685 used inside tables and moving arguments such as footnotes and section
6686 titles.")
6687     ;; No version of the GPL is specified.
6688     (license license:gpl3+)))
6689
6690 (define-public texlive-xypic
6691   (let ((template (simple-texlive-package
6692                    "texlive-xypic"
6693                    (list "/doc/generic/xypic/"
6694                          "/dvips/xypic/xy389dict.pro"
6695                          "/fonts/enc/dvips/xypic/"
6696                          "/fonts/map/dvips/xypic/xypic.map"
6697
6698                          "/fonts/source/public/xypic/"
6699                          "/fonts/afm/public/xypic/"
6700                          "/fonts/tfm/public/xypic/"
6701                          "/fonts/type1/public/xypic/"
6702                          "/tex/generic/xypic/")
6703                    (base32
6704                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
6705                    #:trivial? #t)))
6706     (package
6707       (inherit template)
6708       (arguments
6709        (substitute-keyword-arguments (package-arguments template)
6710          ((#:phases phases)
6711           `(modify-phases ,phases
6712              (delete 'reset-gzip-timestamps)))))
6713       (home-page "https://www.ctan.org/pkg/xypic")
6714       (synopsis "Flexible diagramming macros")
6715       (description "This is a package for typesetting a variety of graphs and
6716 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
6717 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
6718 @code{diag} package, which was previously distributed stand-alone.")
6719       (license license:gpl3+))))
6720
6721 (define-public texlive-fonts-xypic
6722   (deprecated-package "texlive-fonts-xypic" texlive-xypic))
6723
6724 (define-public texlive-generic-xypic
6725   (deprecated-package "texblive-generic-xypic" texlive-xypic))
6726
6727 (define-public texlive-bibtex
6728   (package
6729     (name "texlive-bibtex")
6730     (version (number->string %texlive-revision))
6731     (source
6732      (origin
6733        (method svn-fetch)
6734        (uri (svn-reference
6735              (url (string-append "svn://www.tug.org/texlive/tags/"
6736                                  %texlive-tag "/Master/texmf-dist/"
6737                                  "/bibtex"))
6738              (revision %texlive-revision)))
6739        (file-name (string-append name "-" version "-checkout"))
6740        (sha256
6741         (base32
6742          "1wijqq605cbhn2bdaryby3xpkwmnk9ixcrjn5zwlfrxbgfblzfmz"))))
6743     (build-system trivial-build-system)
6744     (arguments
6745      `(#:modules ((guix build utils))
6746        #:builder
6747        (begin
6748          (use-modules (guix build utils))
6749          (let ((target (string-append (assoc-ref %outputs "out")
6750                                       "/share/texmf-dist/bibtex")))
6751            (mkdir-p target)
6752            (copy-recursively (assoc-ref %build-inputs "source") target)
6753            #t))))
6754     (home-page "https://www.ctan.org/pkg/bibtex")
6755     (synopsis "Process bibliographies for LaTeX")
6756     (description
6757      "BibTeX allows the user to store his citation data in generic form, while
6758 printing citations in a document in the form specified by a BibTeX style, to
6759 be specified in the document itself (one often needs a LaTeX citation-style
6760 package, such as @command{natbib} as well).")
6761     (license license:knuth)))
6762
6763 (define-public texlive-charter
6764   (package
6765     (inherit (simple-texlive-package
6766               "texlive-charter"
6767               (list "/doc/fonts/charter/readme.charter"
6768                     "/fonts/afm/bitstrea/charter/"
6769                     "/fonts/tfm/bitstrea/charter/"
6770                     "/fonts/type1/bitstrea/charter/"
6771                     "/fonts/vf/bitstrea/charter/")
6772               (base32
6773                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
6774               #:trivial? #t))
6775     (home-page "https://www.ctan.org/pkg/charter")
6776     (synopsis "Charter fonts for TeX")
6777     (description "This package provides a copy of the Charter Type-1 fonts
6778 which Bitstream contributed to the X consortium, renamed for use with TeX.
6779 Support for use with LaTeX is available in @code{freenfss}, part of
6780 @command{psnfss}. ")
6781     (license (license:non-copyleft
6782               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
6783
6784 (define-public texlive-fonts-charter
6785   (deprecated-package "texlive-fonts-charter" texlive-charter))
6786
6787 (define-public texlive-context-base
6788   (package
6789     (name "texlive-context-base")
6790     (version (number->string %texlive-revision))
6791     (source (origin
6792               (method svn-fetch)
6793               (uri (svn-reference
6794                     (url (string-append "svn://www.tug.org/texlive/tags/"
6795                                         %texlive-tag "/Master/texmf-dist/"
6796                                         "/tex/context/base"))
6797                     (revision %texlive-revision)))
6798               (file-name (string-append name "-" version "-checkout"))
6799               (sha256
6800                (base32
6801                 "0d7d74giz5knvj4rj6mbzd6c05mwg9jrxab86jxdqbc3jy7cl4kz"))))
6802     (build-system trivial-build-system)
6803     (arguments
6804      `(#:modules ((guix build utils))
6805        #:builder
6806        (begin
6807          (use-modules (guix build utils))
6808          (let ((target (string-append (assoc-ref %outputs "out")
6809                                       "/share/texmf-dist/tex/context/case")))
6810            (mkdir-p target)
6811            (copy-recursively (assoc-ref %build-inputs "source") target)
6812            #t))))
6813     (home-page "https://www.ctan.org/pkg/context")
6814     (synopsis "Full featured, parameter driven macro package for TeX")
6815     (description "A full featured, parameter driven macro package, which fully
6816 supports advanced interactive documents.  See the ConTeXt garden for a wealth
6817 of support information.")
6818     (license license:gpl2+)))
6819
6820 (define-public texlive-beamer
6821   (package
6822     (inherit (simple-texlive-package
6823               "texlive-beamer"
6824               (list "/doc/latex/beamer/"
6825                     "/tex/latex/beamer/")
6826               (base32
6827                "1fqzbkmw2kfxihab8j4dadc3v68xap6v2ghpp2064fna47xlwy1c")
6828               #:trivial? #t))
6829     (propagated-inputs
6830      `(("texlive-latex-hyperref" ,texlive-latex-hyperref)
6831        ("texlive-latex-oberdiek" ,texlive-latex-oberdiek)
6832        ("texlive-latex-etoolbox" ,texlive-latex-etoolbox)
6833        ("texlive-latex-pgf" ,texlive-latex-pgf)))
6834     (home-page "https://www.ctan.org/pkg/beamer")
6835     (synopsis "LaTeX class for producing presentations and slides")
6836     (description "The beamer LaTeX class can be used for producing slides.
6837 The class works in both PostScript and direct PDF output modes, using the
6838 @code{pgf} graphics system for visual effects.  Content is created in the
6839 @code{frame} environment, and each frame can be made up of a number of slides
6840 using a simple notation for specifying material to appear on each slide within
6841 a frame.  Short versions of title, authors, institute can also be specified as
6842 optional parameters.  Whole frame graphics are supported by plain frames.  The
6843 class supports @code{figure} and @code{table} environments, transparency
6844 effects, varying slide transitions and animations.")
6845     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
6846     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
6847     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
6848
6849 (define-public texlive-latex-beamer
6850   (deprecated-package "texlive-latex-beamer" texlive-beamer))
6851
6852 (define-public texlive-latex-xmpincl
6853   (package
6854     (name "texlive-latex-xmpincl")
6855     (version (number->string %texlive-revision))
6856     (source
6857      (origin
6858        (method svn-fetch)
6859        (uri (texlive-ref "latex" "xmpincl"))
6860        (file-name (string-append name "-" version "-checkout"))
6861        (sha256
6862         (base32
6863          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
6864     (build-system texlive-build-system)
6865     (arguments '(#:tex-directory "latex/xmpincl"))
6866     (home-page "http://www.ctan.org/pkg/xmpincl")
6867     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
6868     (description
6869      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
6870 digital material to enhance the workflow in publication.  The essence is that
6871 the metadata is stored in an XML file, and this XML stream is then embedded in
6872 the file to which it applies.")
6873     (license license:gpl3+)))
6874
6875 (define-public texlive-latex-pdfx
6876   (package
6877     (name "texlive-latex-pdfx")
6878     (version (number->string %texlive-revision))
6879     (source
6880      (origin
6881        (method svn-fetch)
6882        (uri (texlive-ref "latex" "pdfx"))
6883        (file-name (string-append name "-" version "-checkout"))
6884        (sha256
6885         (base32
6886          "18294h0cr05fs424m3x6aq24z5hf5zmiflalkj4kvpmsyyqqsj74"))))
6887     (build-system texlive-build-system)
6888     (arguments
6889      '(#:tex-directory "latex/pdfx"
6890        #:phases
6891        (modify-phases %standard-phases
6892          (add-after 'unpack 'fix-encoding
6893            (lambda _
6894              (substitute* "pdfx.dtx"
6895                (("    .+umaczy") "umaczy"))
6896              #t))
6897          (add-before 'install 'install-tex-files
6898            (lambda* (#:key inputs outputs #:allow-other-keys)
6899              (let ((target (string-append (assoc-ref outputs "out")
6900                                           "/share/texmf-dist/tex/latex/pdfx")))
6901                (mkdir-p target)
6902                (copy-recursively (assoc-ref inputs "texlive-tex-pdfx") target)
6903                ;; Install the generated version in the "install" phase.
6904                (delete-file (string-append target "/pdfx.sty"))
6905                #t))))))
6906     (propagated-inputs
6907      `(("texlive-generic-pdftex" ,texlive-generic-pdftex)))
6908     (native-inputs
6909      `(("texlive-tex-pdfx"
6910         ,(origin
6911            (method svn-fetch)
6912            (uri (svn-reference
6913                  (url (string-append "svn://www.tug.org/texlive/tags/"
6914                                      %texlive-tag "/Master/texmf-dist/"
6915                                      "/tex/latex/pdfx"))
6916                  (revision %texlive-revision)))
6917            (file-name (string-append "texlive-tex-latex-pdfx-" version "-checkout"))
6918            (sha256
6919             (base32
6920              "171ffvpkj2fab4ljcxv3l6l5c8ga8zavdhmhfq07id8zyyr619ip"))))))
6921     (home-page "https://www.ctan.org/pkg/pdfx")
6922     (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
6923     (description
6924      "This package helps LaTeX users to create PDF/X, PFD/A and other
6925 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
6926     (license license:lppl1.2+)))
6927
6928 (define-public texlive-ydoc
6929   (let ((template (simple-texlive-package
6930                    "texlive-ydoc"
6931                    (list "/doc/latex/ydoc/"
6932                          "/source/latex/ydoc/")
6933                    (base32
6934                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
6935                    #:trivial? #f)))
6936     (package
6937       (inherit template)
6938       (outputs '("out" "doc"))
6939       (arguments
6940        (substitute-keyword-arguments (package-arguments template)
6941          ((#:tex-directory _ #t)
6942           "latex/ydoc")
6943          ((#:build-targets _ #t)
6944           ''("ydoc.dtx"))
6945          ((#:phases phases)
6946           `(modify-phases ,phases
6947              (add-after 'unpack 'chdir
6948                (lambda _ (chdir "source/latex/ydoc") #t))
6949              (add-after 'copy-files 'move-files
6950                (lambda* (#:key outputs #:allow-other-keys)
6951                  (let* ((share (string-append (assoc-ref outputs "out")
6952                                               "/share/texmf-dist"))
6953                         (target (string-append share "/tex/generic/ydoc"))
6954                         (doc (string-append (assoc-ref outputs "doc")
6955                                             "/share/texmf-dist/doc") ))
6956                    (mkdir-p target)
6957                    (for-each
6958                     (lambda (file)
6959                       (rename-file (string-append share "/tex/latex/ydoc/" file)
6960                                    (string-append target "/" file)))
6961                     '("ydocincl.tex" "ydocstrip.tex"))
6962                    (mkdir-p doc)
6963                    (rename-file (string-append share "/doc") doc)
6964                    #t)))))))
6965       (home-page "http://www.ctan.org/pkg/ydoc")
6966       (synopsis "Macros for documentation of LaTeX classes and packages")
6967       (description "The package provides macros and environments to document
6968 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
6969 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
6970 provide a different layout and more modern styles (using the @code{xcolor},
6971 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
6972 not (yet) be used with other packages, since the implementation might
6973 change.")
6974       (license license:lppl1.3+))))
6975
6976 (define-public texlive-pstricks
6977   (let ((template (simple-texlive-package
6978                    "texlive-pstricks"
6979                    (list "/doc/generic/pstricks/"
6980                          "/dvips/pstricks/"
6981                          "/tex/generic/pstricks/"
6982                          "/tex/latex/pstricks/")
6983                    (base32
6984                     "0sdxdd0qi4sccw9il7d4s7jivs24pq99cdzfnrf0gkqjb1y8s7cl")
6985                    #:trivial? #t)))
6986     (package
6987       (inherit template)
6988       (arguments
6989        (substitute-keyword-arguments (package-arguments template)
6990          ((#:phases phases)
6991           `(modify-phases ,phases
6992              (delete 'reset-gzip-timestamps)))))
6993       (home-page "http://www.ctan.org/pkg/pstricks")
6994       (synopsis "PostScript macros for TeX")
6995       (description "PSTricks offers an extensive collection of macros for
6996 generating PostScript that is usable with most TeX macro formats, including
6997 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
6998 graphics, pie charts, rotation, trees and overlays.  It has many special
6999 features, including a wide variety of graphics (picture drawing) macros, with
7000 a flexible interface and with colour support.  There are macros for colouring
7001 or shading the cells of tables.")
7002       (license license:lppl1.3+))))
7003
7004 (define-public texlive-pst-text
7005   (let ((template (simple-texlive-package
7006                    "texlive-pst-text"
7007                    (list "/doc/generic/pst-text/"
7008                          "/dvips/pst-text/pst-text.pro"
7009                          "/tex/generic/pst-text/"
7010                          "/tex/latex/pst-text/")
7011                    (base32
7012                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
7013                    #:trivial? #t)))
7014     (package
7015       (inherit template)
7016       (propagated-inputs
7017        `(("texlive-pstricks" ,texlive-pstricks)))
7018       (home-page "http://www.ctan.org/pkg/pst-text")
7019       (synopsis "Text and character manipulation in PSTricks")
7020       (description "Pst-text is a PSTricks based package for plotting text along
7021 a different path and manipulating characters.  It includes the functionality
7022 of the old package @code{pst-char}.")
7023       (license license:lppl))))
7024
7025 (define-public texlive-iftex
7026   (let ((template (simple-texlive-package
7027                    "texlive-iftex"
7028                    (list "/doc/generic/iftex/"
7029                          "/tex/generic/iftex/iftex.sty")
7030                    (base32
7031                     "089zvw31gby150n1k0zdk2c0q97pgbqs46phxydaqil64b55nnl7")
7032                    #:trivial? #t)))
7033     (package
7034       (inherit template)
7035       (home-page "http://www.ctan.org/pkg/iftex")
7036       (synopsis "Determine the currently used TeX engine")
7037       (description "This package, which works both for Plain TeX and for
7038 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
7039 conditionals for testing which engine is being used for typesetting.  The
7040 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
7041 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
7042 LuaTeX (respectively) is not the engine in use.")
7043       (license license:lppl1.3+))))
7044
7045 (define-public texlive-tools
7046   (let ((template (simple-texlive-package
7047                    "texlive-tools"
7048                    (list "/doc/latex/tools/"
7049                          "/source/latex/tools/")
7050                    (base32
7051                     "1ivhij7171wvrgcjn4wah84wxwpd21d0chh3zxab4pj067c8d0mh"))))
7052     (package
7053       (inherit template)
7054       (arguments
7055        (substitute-keyword-arguments (package-arguments template)
7056          ((#:tex-directory _ '())
7057           "latex/tools")
7058          ((#:build-targets _ '())
7059           ''("tools.ins"))
7060          ((#:phases phases)
7061           `(modify-phases ,phases
7062              (add-after 'unpack 'chdir
7063                (lambda _ (chdir "source/latex/tools") #t))))))
7064       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
7065       (synopsis "LaTeX standard tools bundle")
7066       (description "This package provides a collection of simple tools that
7067 are part of the LaTeX required tools distribution, comprising the packages:
7068 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
7069 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
7070 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
7071 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
7072 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
7073 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
7074       (license license:lppl1.3+))))
7075
7076 (define-public texlive-latex-xkeyval
7077   (package
7078     (name "texlive-latex-xkeyval")
7079     (version (number->string %texlive-revision))
7080     (source (origin
7081               (method svn-fetch)
7082               (uri (texlive-ref "latex" "xkeyval"))
7083               (file-name (string-append name "-" version "-checkout"))
7084               (sha256
7085                (base32
7086                 "0wancavix39j240pd8m9cgmwsijwx6jd6n54v8wg0x2rk5m44myp"))))
7087     (build-system texlive-build-system)
7088     (arguments
7089      '(#:tex-directory "latex/xkeyval"
7090        #:build-targets '("xkeyval.dtx")
7091        #:tex-format "latex" ; won't build with luatex
7092        #:phases
7093        (modify-phases %standard-phases
7094          ;; This package cannot be built out of tree as it expects to find
7095          ;; built files in the working directory.
7096          (add-before 'build 'fix-build
7097            (lambda _
7098              (setenv "TEXINPUTS"
7099                      (string-append (getcwd) "/build:"))
7100              (substitute* "xkeyval.dtx"
7101                (("usepackage\\{xcolor\\}")
7102                 "usepackage[dvips]{xcolor}"))
7103              #t))
7104          ;; FIXME: We don't have a package for this font yet.
7105          (add-after 'unpack 'remove-dependency-on-fourier
7106            (lambda _
7107              (substitute* "xkeyval.dtx"
7108                (("\\\\usepackage\\{fourier\\}") ""))
7109              #t))
7110          (add-after 'install 'move-files
7111            (lambda* (#:key outputs #:allow-other-keys)
7112              (let* ((out (assoc-ref outputs "out"))
7113                     (share (string-append out "/share/texmf-dist"))
7114                     (source (string-append share "/tex/latex/xkeyval/"))
7115                     (target (string-append share "/tex/generic/xkeyval/")))
7116                (mkdir-p target)
7117                (for-each (lambda (file)
7118                            (rename-file (string-append source file)
7119                                         (string-append target file)))
7120                          '("keyval.tex"
7121                            "pst-xkey.tex"
7122                            "xkeyval.tex"
7123                            "xkvex1.tex"
7124                            "xkvex2.tex"
7125                            "xkvex3.tex"
7126                            "xkvex4.tex"
7127                            "xkvtxhdr.tex"
7128                            "xkvutils.tex"))
7129                #t))))))
7130     (native-inputs
7131      `(("texlive-latex-base" ,texlive-latex-base)
7132        ("texlive-cm" ,texlive-cm)
7133        ("texlive-lm" ,texlive-lm)
7134        ("texlive-url" ,texlive-url)
7135        ("texlive-graphics-def" ,texlive-graphics-def)
7136        ("texlive-xcolor" ,texlive-xcolor)
7137        ("texlive-latex-footmisc" ,texlive-latex-footmisc)
7138        ("texlive-latex-listings" ,texlive-latex-listings)
7139        ("texlive-iftex" ,texlive-iftex)
7140        ("texlive-pstricks" ,texlive-pstricks)
7141        ("texlive-pst-text" ,texlive-pst-text)
7142        ("texlive-tools" ,texlive-tools)
7143        ("texlive-latex-pgf" ,texlive-latex-pgf)))
7144     (home-page "http://www.ctan.org/pkg/xkeyval")
7145     (synopsis "Extension of the keyval package")
7146     (description
7147      "This package is an extension of the keyval package and offers additional
7148 macros for setting keys and declaring and setting class or package options.
7149 The package allows the programmer to specify a prefix to the name of the
7150 macros it defines for keys, and to define families of key definitions; these
7151 all help use in documents where several packages define their own sets of
7152 keys.")
7153     (license license:lppl1.3+)))
7154
7155 (define-public texlive-standalone
7156   (package
7157     (name "texlive-standalone")
7158     (version (number->string %texlive-revision))
7159     (source
7160      (origin
7161        (method svn-fetch)
7162        (uri (texlive-ref "latex" "standalone"))
7163        (file-name (string-append name "-" version "-checkout"))
7164        (sha256
7165         (base32
7166          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
7167     (build-system texlive-build-system)
7168     (arguments '(#:tex-directory "latex/standalone"))
7169     (propagated-inputs
7170      `(("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
7171     (native-inputs
7172      `(("texlive-ydoc" ,texlive-ydoc)))
7173     (home-page "http://www.ctan.org/pkg/standalone")
7174     (synopsis "Compile TeX pictures stand-alone or as part of a document")
7175     (description "A class and package is provided which allows TeX pictures or
7176 other TeX code to be compiled standalone or as part of a main document.
7177 Special support for pictures with beamer overlays is also provided.  The
7178 package is used in the main document and skips extra preambles in sub-files.
7179 The class may be used to simplify the preamble in sub-files.  By default the
7180 @code{preview} package is used to display the typeset code without margins.
7181 The behaviour in standalone mode may adjusted using a configuration file
7182 @code{standalone.cfg} to redefine the standalone environment.")
7183     (license license:lppl1.3+)))
7184
7185 (define-public texlive-siunitx
7186   (package
7187     (name "texlive-siunitx")
7188     (version (number->string %texlive-revision))
7189     (source (texlive-origin
7190              name version
7191              (list "/source/latex/siunitx/siunitx.dtx"
7192                    "/doc/latex/siunitx/README.md")
7193              (base32
7194               "11kf6znkgw7y5qmw75qk6px6pqf57bwr53q0673zaiyq20lif96c")))
7195     (build-system texlive-build-system)
7196     (arguments
7197      '(#:tex-directory "latex/siunitx"
7198        #:build-targets '("siunitx.dtx")
7199        #:phases
7200        (modify-phases %standard-phases
7201          (add-after 'unpack 'chdir
7202            (lambda _ (chdir "source/latex/siunitx") #t)))))
7203     (propagated-inputs
7204      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
7205        ("texlive-latex-l3packages" ,texlive-latex-l3packages)))
7206     (home-page "http://www.ctan.org/pkg/siunitx")
7207     (synopsis "Comprehensive SI units package")
7208     (description
7209      "Typesetting values with units requires care to ensure that the combined
7210 mathematical meaning of the value plus unit combination is clear.  In
7211 particular, the SI units system lays down a consistent set of units with rules
7212 on how they are to be used.  However, different countries and publishers have
7213 differing conventions on the exact appearance of numbers (and units).  A
7214 number of LaTeX packages have been developed to provide consistent application
7215 of the various rules.  The @code{siunitx} package takes the best from the
7216 existing packages, and adds new features and a consistent interface.  A number
7217 of new ideas have been incorporated, to fill gaps in the existing provision.
7218 The package also provides backward-compatibility with @code{SIunits},
7219 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
7220 package to handle all of the possible unit-related needs of LaTeX users.")
7221     (license license:lppl1.3c)))
7222
7223 (define-public texlive-booktabs
7224   (package
7225     (name "texlive-booktabs")
7226     (version (number->string %texlive-revision))
7227     (source
7228      (origin
7229        (method svn-fetch)
7230        (uri (texlive-ref "latex" "booktabs"))
7231        (file-name (string-append name "-" version "-checkout"))
7232        (sha256
7233         (base32
7234          "1dqid48vgh25wmw8xzmx6x3pfgz1y9f0r8aza1yxq2mjny5yf68x"))))
7235     (build-system texlive-build-system)
7236     (arguments '(#:tex-directory "latex/booktabs"))
7237     (home-page "http://www.ctan.org/pkg/booktabs")
7238     (synopsis "Publication quality tables in LaTeX")
7239     (description
7240      "This package enhances the quality of tables in LaTeX, providing extra
7241 commands as well as behind-the-scenes optimisation.  Guidelines are given as
7242 to what constitutes a good table in this context.  The package offers
7243 @code{longtable} compatibility.")
7244     (license license:lppl1.3+)))