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, 2020, 2021 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, 2020, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
  10 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
  11 ;;; Copyright © 2017, 2020, 2021 Marius Bakke <marius@gnu.org>
  12 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  13 ;;; Copyright © 2018 Danny Milosavljevic <dannym+a@scratchpost.org>
  14 ;;; Copyright © 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
  15 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  16 ;;; Copyright © 2020, 2021 Paul Garlick <pgarlick@tourbillion-technology.com>
  17 ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  18 ;;; Copyright © 2021 Leo Le Bouter <lle-bout@zaclys.net>
  19 ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
  20 ;;; Copyright © 2021 Ivan Gankevich <i.gankevich@spbu.ru>
  21 ;;; Copyright © 2021 Julien Lepiller <julien@lepiller.eu>
  22 ;;; Copyright © 2021 Thiago Jung Bauermann <bauermann@kolabnow.com>
  23 ;;;
  24 ;;; This file is part of GNU Guix.
  25 ;;;
  26 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  27 ;;; under the terms of the GNU General Public License as published by
  28 ;;; the Free Software Foundation; either version 3 of the License, or (at
  29 ;;; your option) any later version.
  30 ;;;
  31 ;;; GNU Guix is distributed in the hope that it will be useful, but
  32 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  33 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  34 ;;; GNU General Public License for more details.
  35 ;;;
  36 ;;; You should have received a copy of the GNU General Public License
  37 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  38
  39 (define-module (gnu packages tex)
  40   #:use-module ((guix licenses) #:prefix license:)
  41   #:use-module (guix gexp)
  42   #:use-module (guix packages)
  43   #:use-module (guix download)
  44   #:use-module (guix build-system copy)
  45   #:use-module (guix build-system gnu)
  46   #:use-module (guix build-system perl)
  47   #:use-module (guix build-system python)
  48   #:use-module (guix build-system qt)
  49   #:use-module (guix build-system trivial)
  50   #:use-module (guix build-system texlive)
  51   #:use-module (guix utils)
  52   #:use-module (guix deprecation)
  53   #:use-module (guix git-download)
  54   #:use-module (guix svn-download)
  55   #:use-module (gnu packages)
  56   #:use-module (gnu packages algebra)
  57   #:use-module (gnu packages autotools)
  58   #:use-module (gnu packages bash)
  59   #:use-module (gnu packages boost)
  60   #:use-module (gnu packages compression)
  61   #:use-module (gnu packages fontutils)
  62   #:use-module (gnu packages gd)
  63   #:use-module (gnu packages ghostscript)
  64   #:use-module (gnu packages graphviz)
  65   #:use-module (gnu packages gtk)
  66   #:use-module (gnu packages icu4c)
  67   #:use-module (gnu packages image)
  68   #:use-module (gnu packages libreoffice)
  69   #:use-module (gnu packages lua)
  70   #:use-module (gnu packages multiprecision)
  71   #:use-module (gnu packages pdf)
  72   #:use-module (gnu packages perl)
  73   #:use-module (gnu packages perl-check)
  74   #:use-module (gnu packages pkg-config)
  75   #:use-module (gnu packages python)
  76   #:use-module (gnu packages python-xyz)
  77   #:use-module (gnu packages qt)
  78   #:use-module (gnu packages ruby)
  79   #:use-module (gnu packages shells)
  80   #:use-module (gnu packages base)
  81   #:use-module (gnu packages gawk)
  82   #:use-module (gnu packages web)
  83   #:use-module (gnu packages xml)
  84   #:use-module (gnu packages xorg)
  85   #:use-module (gnu packages xdisorg)
  86   #:use-module (gnu packages texinfo)
  87   #:use-module (ice-9 ftw)
  88   #:use-module (ice-9 match)
  89   #:use-module ((srfi srfi-1) #:hide (zip)))
  90
  91 (define* (simple-texlive-package name locations hash
  92                                  #:key trivial?)
  93   "Return a template for a simple TeX Live package with the given NAME,
  94 downloading from a list of LOCATIONS in the TeX Live repository, and expecting
  95 the provided output HASH.  If TRIVIAL? is provided, all files will simply be
  96 copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
  97   (define with-documentation?
  98     (and trivial?
  99          (any (lambda (location)
 100                 (string-prefix? "/doc" location))
 101               locations)))
 102   (package
 103     (name name)
 104     (version (number->string %texlive-revision))
 105     (source (texlive-origin name version
 106                             locations hash))
 107     (outputs (if with-documentation?
 108                  '("out" "doc")
 109                  '("out")))
 110     (build-system (if trivial?
 111                       gnu-build-system
 112                       texlive-build-system))
 113     (arguments
 114      (let ((copy-files
 115             `(lambda* (#:key outputs inputs #:allow-other-keys)
 116                (let (,@(if with-documentation?
 117                            `((doc (string-append (assoc-ref outputs "doc")
 118                                                  "/share/texmf-dist/")))
 119                            '())
 120                      (out (string-append (assoc-ref outputs "out")
 121                                          "/share/texmf-dist/")))
 122                  ,@(if with-documentation?
 123                        '((mkdir-p doc)
 124                          (copy-recursively
 125                           (string-append (assoc-ref inputs "source") "/doc")
 126                           (string-append doc "/doc")))
 127                        '())
 128                  (mkdir-p out)
 129                  (copy-recursively "." out)
 130                  ,@(if with-documentation?
 131                        '((delete-file-recursively (string-append out "/doc")))
 132                        '())
 133                  #t))))
 134        (if trivial?
 135            `(#:tests? #f
 136              #:phases
 137              (modify-phases %standard-phases
 138                (delete 'configure)
 139                (replace 'build (const #t))
 140                (replace 'install ,copy-files)))
 141            `(#:phases
 142              (modify-phases %standard-phases
 143                (add-after 'install 'copy-files ,copy-files))))))
 144     (home-page #f)
 145     (synopsis #f)
 146     (description #f)
 147     (license #f)))
 148
 149 (define hyph-utf8-scripts
 150   (origin
 151     (method svn-fetch)
 152     (uri (texlive-ref "generic" "hyph-utf8"))
 153     (file-name (string-append "hyph-utf8-scripts-"
 154                               (number->string %texlive-revision)
 155                               "-checkout"))
 156     (sha256
 157      (base32
 158       "04xzf5gr3ylyh3ls09imrx4mwq3qp1k97r9njzlan6hlff875rx2"))))
 159
 160 (define (texlive-hyphen-package name code locations hash)
 161   "Return a TeX Live hyphenation package with the given NAME, using source
 162 files from LOCATIONS with expected checksum HASH.  CODE is not currently in use."
 163   (let ((parent (simple-texlive-package
 164                  name locations hash #:trivial? #t)))
 165     (package
 166       (inherit parent)
 167       (arguments
 168        (substitute-keyword-arguments (package-arguments parent)
 169          ((#:phases phases)
 170           `(modify-phases ,phases
 171              (replace 'build
 172                (lambda* (#:key inputs outputs #:allow-other-keys)
 173                  (let* ((out (assoc-ref outputs "out"))
 174                         (root (string-append out "/share/texmf-dist"))
 175                         (patterns
 176                          (string-append root "/tex/generic/hyph-utf8/patterns/txt/"))
 177                         (loaders
 178                          (string-append root "/tex/generic/hyph-utf8/loadhyph"))
 179                         (ptex
 180                          (string-append root "/tex/generic/hyph-utf8/patterns/ptex"))
 181                         (quote
 182                          (string-append root "/tex/generic/hyph-utf8/patterns/quote")))
 183                    (mkdir "scripts")
 184                    (copy-recursively
 185                     (assoc-ref inputs "hyph-utf8-scripts") "scripts")
 186
 187                    ;; Prepare target directories
 188                    (mkdir-p patterns)
 189                    (mkdir-p loaders)
 190                    (mkdir-p ptex)
 191                    (mkdir-p quote)
 192
 193                    ;; Generate plain patterns
 194                    (with-directory-excursion "scripts"
 195                      (substitute* "lib/tex/hyphen/path.rb"
 196                        (("^([[:blank:]]+)TeXROOT = .*" _ indent)
 197                         (string-append indent "TeXROOT = \""
 198                                        (getcwd) "/..\"\n")))
 199
 200                      (substitute* "generate-plain-patterns.rb"
 201                        ;; Ruby 2 does not need this.
 202                        (("require 'unicode'") "")
 203                        ;; Write directly to the output directory
 204                        (("File\\.join\\(PATH::TXT")
 205                         (string-append "File.join(\"" patterns "\""))
 206                        (("File\\.join\\(PATH::QUOTE")
 207                         (string-append "File.join(\"" quote "\"")))
 208                      (invoke "ruby" "generate-plain-patterns.rb")
 209
 210                      ;; Build pattern loaders
 211                      (substitute* "generate-pattern-loaders.rb"
 212                        (("File\\.join\\(PATH::LOADER")
 213                         (string-append "File.join(\"" loaders "\"")))
 214
 215                      (invoke "ruby" "generate-pattern-loaders.rb")
 216
 217                      ;; Build ptex patterns
 218                      (substitute* "generate-ptex-patterns.rb"
 219                        (("File\\.join\\(PATH::PTEX")
 220                         (string-append "File.join(\"" ptex "\"")))
 221                      (invoke "ruby" "generate-ptex-patterns.rb")))))))))
 222       (native-inputs
 223        `(("ruby" ,ruby)
 224          ("ruby-hydra" ,ruby-hydra)
 225          ("hyph-utf8-scripts" ,hyph-utf8-scripts)))
 226       (home-page "https://ctan.org/pkg/hyph-utf8"))))
 227
 228 (define texlive-extra-src
 229   (origin
 230     (method url-fetch)
 231     (uri "ftp://tug.org/historic/systems/texlive/2021/texlive-20210325-extra.tar.xz")
 232     (sha256 (base32
 233              "171kg1n9zapw3d2g47d8l0cywa99bl9m54xkqvp9625ks22z78s6"))))
 234
 235 (define texlive-texmf-src
 236   (origin
 237     (method url-fetch)
 238     (uri "ftp://tug.org/historic/systems/texlive/2021/texlive-20210325-texmf.tar.xz")
 239     (sha256 (base32
 240              "070gczcm1h9rx29w2f02xd3nhd84c4k28nfmm8qgp69yq8vd84pz"))))
 241
 242 (define-public texlive-bin
 243   (package
 244     (name "texlive-bin")
 245     (version "20210325")
 246     (source
 247      (origin
 248        (method url-fetch)
 249        (uri (string-append "ftp://tug.org/historic/systems/texlive/2021/"
 250                            "texlive-" version "-source.tar.xz"))
 251        (sha256
 252         (base32
 253          "0jsq1p66l46k2qq0gbqmx25flj2nprsz4wrd1ybn286p11kdkvvs"))
 254        (modules '((guix build utils)
 255                   (ice-9 ftw)))
 256        (snippet
 257         ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
 258         '(with-directory-excursion "libs"
 259            (let ((preserved-directories '("." ".." "lua53" "luajit" "pplib" "xpdf")))
 260              ;; Delete bundled software, except Lua which cannot easily be
 261              ;; used as an external dependency, pplib and xpdf which aren't
 262              ;; supported as system libraries (see m4/kpse-xpdf-flags.m4).
 263              (for-each delete-file-recursively
 264                        (scandir "."
 265                                 (lambda (file)
 266                                   (and (not (member file preserved-directories))
 267                                        (eq? 'directory (stat:type (stat file))))))))))))
 268     (build-system gnu-build-system)
 269     (inputs
 270      `(("texlive-extra-src" ,texlive-extra-src)
 271        ("config" ,config)
 272        ("texlive-scripts"
 273         ,(origin
 274            (method svn-fetch)
 275            (uri (svn-reference
 276                  (url (string-append "svn://www.tug.org/texlive/tags/"
 277                                      %texlive-tag "/Master/texmf-dist/"
 278                                      "/scripts/texlive"))
 279                  (revision %texlive-revision)))
 280            (file-name (string-append "texlive-scripts-"
 281                                      (number->string %texlive-revision)
 282                                      "-checkout"))
 283            (sha256
 284             (base32
 285              "10xpa4nnz1biap7qfv7fb0zk6132ki5g1j8w0bqwkggfncdfl07d"))))
 286        ("cairo" ,cairo)
 287        ("fontconfig" ,fontconfig)
 288        ("fontforge" ,fontforge)
 289        ("freetype" ,freetype)
 290        ("gd" ,gd)
 291        ("gmp" ,gmp)
 292        ("ghostscript" ,ghostscript)
 293        ("graphite2" ,graphite2)
 294        ("harfbuzz" ,harfbuzz)
 295        ("icu4c" ,icu4c)
 296        ("libpaper" ,libpaper)
 297        ("libpng" ,libpng)
 298        ("libxaw" ,libxaw)
 299        ("libxt" ,libxt)
 300        ("mpfr" ,mpfr)
 301        ("perl" ,perl)
 302        ("pixman" ,pixman)
 303        ("potrace" ,potrace)
 304        ("python" ,python)
 305        ("ruby" ,ruby)
 306        ("tcsh" ,tcsh)
 307        ("teckit" ,teckit)
 308        ("zlib" ,zlib)
 309        ("zziplib" ,zziplib)))
 310     (native-inputs
 311      (list pkg-config))
 312     (arguments
 313      `(#:modules ((guix build gnu-build-system)
 314                   (guix build utils)
 315                   (ice-9 ftw)
 316                   (srfi srfi-1)
 317                   (srfi srfi-26))
 318        #:out-of-source? #t
 319        #:configure-flags
 320        '("--disable-static"
 321          "--disable-native-texlive-build"
 322          "--enable-shared"
 323          "--with-banner-add=/GNU Guix"
 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-potrace"
 337          "--with-system-teckit"
 338          "--with-system-zlib"
 339          "--with-system-zziplib"
 340          ;; LuaJIT is not ported to some architectures yet.
 341          ,@(if (or (target-ppc64le?)
 342                    (target-riscv64?))
 343              '("--disable-luajittex"
 344                "--disable-luajithbtex"
 345                "--disable-mfluajit")
 346              '()))
 347
 348       ;; Disable tests on some architectures to cope with a failure of
 349       ;; luajiterr.test.
 350       ;; XXX FIXME fix luajit properly on these architectures.
 351       #:tests? ,(let ((s (or (%current-target-system)
 352                              (%current-system))))
 353                   (not (or (string-prefix? "aarch64" s)
 354                            (string-prefix? "mips64" s)
 355                            (string-prefix? "powerpc64le" s))))
 356
 357        #:phases
 358        (modify-phases %standard-phases
 359          (add-after 'unpack 'configure-ghostscript-executable
 360            ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows,
 361            ;; and the "gs" ghostscript executable on Unix. It detects Unix by
 362            ;; checking for the existence of the /usr/bin directory. Since
 363            ;; Guix System does not have /usr/bin, it is also detected as Windows.
 364            (lambda* (#:key inputs #:allow-other-keys)
 365              (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl"
 366                (("gswin32c") "gs"))
 367              (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
 368                (("\"gs\"")
 369                 (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))))
 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          (add-after 'unpack 'disable-failing-test
 378            (lambda _
 379              ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
 380              ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
 381              (substitute* "texk/web2c/omegafonts/check.test"
 382                (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
 383                 "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))))
 384          ,@(if (or (target-ppc32?)
 385                    (target-riscv64?))
 386              ;; Some mendex tests fail on some architectures.
 387              `((add-after 'unpack 'skip-mendex-tests
 388                  (lambda _
 389                    (substitute* '("texk/mendexk/tests/mendex.test"
 390                                   "texk/upmendex/tests/upmendex.test")
 391                      (("srcdir/tests/pprecA-0.ind pprecA-0.ind1 \\|\\| exit 1")
 392                       "srcdir/tests/pprecA-0.ind pprecA-0.ind1 || exit 77")))))
 393              '())
 394          (add-after 'unpack 'unpack-texlive-extra
 395            (lambda* (#:key inputs #:allow-other-keys)
 396              (mkdir "texlive-extra")
 397              (with-directory-excursion "texlive-extra"
 398                (apply (assoc-ref %standard-phases 'unpack)
 399                       (list #:source (assoc-ref inputs "texlive-extra-src"))))))
 400          (add-after 'unpack-texlive-extra 'unpack-texlive-scripts
 401            (lambda* (#:key inputs #:allow-other-keys)
 402              (mkdir "texlive-scripts")
 403              (with-directory-excursion "texlive-scripts"
 404                (apply (assoc-ref %standard-phases 'unpack)
 405                       (list #:source (assoc-ref inputs "texlive-scripts"))))))
 406          (add-after 'unpack-texlive-scripts 'patch-scripts
 407            (lambda _
 408              (let* ((scripts (append (find-files "texk/kpathsea" "^mktex")
 409                                      (find-files "texk/texlive/linked_scripts"
 410                                                  "\\.sh$")
 411                                      (find-files "texlive-scripts" "\\.sh$")))
 412                     (commands '("awk" "basename" "cat" "grep" "mkdir" "rm"
 413                                 "sed" "sort" "uname"))
 414                     (command-regexp (format #f "\\b(~a)\\b"
 415                                             (string-join commands "|")))
 416                     (iso-8859-1-encoded-scripts
 417                      '("texk/texlive/linked_scripts/texlive-extra/rubibtex.sh"
 418                        "texk/texlive/linked_scripts/texlive-extra/rumakeindex.sh")))
 419
 420                (define (substitute-commands scripts)
 421                  (substitute* scripts
 422                    ((command-regexp dummy command)
 423                     (which command))))
 424
 425                (substitute-commands (lset-difference string= scripts
 426                                                      iso-8859-1-encoded-scripts))
 427
 428                (with-fluids ((%default-port-encoding "ISO-8859-1"))
 429                  (substitute-commands iso-8859-1-encoded-scripts)))))
 430          ;; When ST_NLINK_TRICK is set, kpathsea attempts to avoid work when
 431          ;; searching files by assuming that a directory with exactly two
 432          ;; links has no subdirectories.  This assumption does not hold in our
 433          ;; case, so some directories with symlinked subdirectories would not
 434          ;; be traversed.
 435          (add-after 'patch-scripts 'patch-directory-traversal
 436            (lambda _
 437              (substitute* "texk/kpathsea/config.h"
 438                (("#define ST_NLINK_TRICK") ""))))
 439
 440          ,@(if (target-arm32?)
 441                `((add-after 'unpack 'skip-faulty-test
 442                    (lambda _
 443                      ;; Skip this faulty test on armhf-linux:
 444                      ;;   https://issues.guix.gnu.org/54055
 445                      (substitute* '("texk/mendexk/tests/mendex.test"
 446                                     "texk/upmendex/tests/upmendex.test")
 447                        (("^TEXMFCNF=" all)
 448                         (string-append "exit 77 # skip\n" all))))))
 449                '())
 450
 451          (add-after 'check 'customize-texmf.cnf
 452            ;; The default texmf.cnf is provided by this package, texlive-bin.
 453            ;; Every variable of interest is set relatively to the GUIX_TEXMF
 454            ;; environment variable defined via a search path specification
 455            ;; further below.  The configuration file is patched after the test
 456            ;; suite has run, as it relies on the default configuration to find
 457            ;; its paths (and the GUIX_TEXMF variable isn't set yet).
 458            (lambda _
 459              ;; The current directory is build/ because of the out-of-tree
 460              ;; build.
 461              (let* ((source    (first (scandir ".." (cut string-suffix?
 462                                                          "source" <>))))
 463                     (texmf.cnf (string-append "../" source
 464                                               "/texk/kpathsea/texmf.cnf")))
 465                (substitute* texmf.cnf
 466                  (("^TEXMFROOT = .*")
 467                   "TEXMFROOT = {$GUIX_TEXMF}/..\n")
 468                  (("^TEXMF = .*")
 469                   "TEXMF = {$GUIX_TEXMF}\n")
 470                  (("^%TEXMFCNF = .*")
 471                   "TEXMFCNF = {$GUIX_TEXMF}/web2c\n")
 472                  ;; Don't truncate lines.
 473                  (("^error_line = .*$") "error_line = 254\n")
 474                  (("^half_error_line = .*$") "half_error_line = 238\n")
 475                  (("^max_print_line = .*$") "max_print_line = 1000\n")))))
 476          (add-after 'install 'post-install
 477            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
 478              (let* ((out (assoc-ref outputs "out"))
 479                     (patch-source-shebangs (assoc-ref %standard-phases
 480                                                       'patch-source-shebangs))
 481                     (share (string-append out "/share"))
 482                     (scripts (string-append share
 483                                             "/texmf-dist/scripts/texlive"))
 484                     (source (string-append
 485                              "../" (first (scandir ".." (cut string-suffix?
 486                                                              "source" <>)))))
 487                     (tl-extra-root (string-append source "/texlive-extra"))
 488                     (tl-extra-dir (first
 489                                    (scandir tl-extra-root
 490                                             (negate
 491                                              (cut member <> '("." ".."))))))
 492                     (tlpkg-src (string-append tl-extra-root "/" tl-extra-dir
 493                                               "/tlpkg"))
 494                     (config.guess (search-input-file inputs
 495                                                      "/bin/config.guess")))
 496
 497                ;; Create symbolic links for the latex variants and their man
 498                ;; pages.  We link lualatex to luahbtex; see issue #51252 for
 499                ;; details.
 500                (with-directory-excursion (string-append out "/bin/")
 501                  (for-each symlink
 502                            '("pdftex" "pdftex"   "xetex"   "luahbtex")
 503                            '("latex"  "pdflatex" "xelatex" "lualatex")))
 504                (with-directory-excursion (string-append share "/man/man1/")
 505                  (symlink "luatex.1" "lualatex.1"))
 506
 507                ;; Install tlpkg.
 508                (copy-recursively tlpkg-src (string-append share "/tlpkg"))
 509
 510                ;; Install texlive-scripts.
 511                (copy-recursively (string-append
 512                                   source "/texlive-scripts/source/")
 513                                  scripts)
 514
 515                ;; Patch them.
 516                (let ((dirs (map dirname (list (which "sed") (which "awk")))))
 517                  (with-directory-excursion scripts
 518                    (substitute* '("mktexpk" "mktexmf" "mktexlsr")
 519                      (("^version=" m)
 520                       (format #false "PATH=\"~{~a:~}$PATH\"; export PATH~%~a"
 521                               dirs m)))))
 522
 523                ;; Make sure that fmtutil can find its Perl modules.
 524                (substitute* (string-append scripts "/fmtutil.pl")
 525                  (("\\$TEXMFROOT/")
 526                   (string-append share "/")))
 527
 528                ;; Likewise for updmap.pl.
 529                (substitute* (string-append scripts "/updmap.pl")
 530                  (("\\$TEXMFROOT/tlpkg")
 531                   (string-append share "/tlpkg")))
 532
 533                ;; Likewise for the tlmgr.
 534                (substitute* (string-append scripts "/tlmgr.pl")
 535                  ((".*\\$::installerdir = \\$Master.*" all)
 536                   (format #f "  $Master = ~s;~%~a" share all)))
 537
 538                ;; Install the config.guess script, required by tlmgr.
 539                (with-directory-excursion share
 540                  (mkdir-p "tlpkg/installer/")
 541                  (symlink config.guess "tlpkg/installer/config.guess"))
 542
 543                ;; texlua shebangs are not patched by the patch-source-shebangs
 544                ;; phase because the texlua executable does not exist at that
 545                ;; time.
 546                (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
 547                (with-directory-excursion out
 548                  (patch-source-shebangs))))))))
 549     (native-search-paths
 550      (list (search-path-specification
 551             (variable "GUIX_TEXMF")
 552             (files '("share/texmf-dist")))))
 553     (synopsis "TeX Live, a package of the TeX typesetting system")
 554     (description
 555      "TeX Live provides a comprehensive TeX document production system.
 556 It includes all the major TeX-related programs, macro packages, and fonts
 557 that are free software, including support for many languages around the
 558 world.
 559
 560 This package contains the binaries.")
 561     (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
 562     (home-page "https://www.tug.org/texlive/")))
 563
 564 (define-public texlive-libkpathsea
 565   (package/inherit texlive-bin
 566     (name "texlive-libkpathsea")
 567     (source
 568      (origin
 569        (inherit (package-source texlive-bin))
 570        (snippet
 571         `(begin
 572            ,(origin-snippet (package-source texlive-bin))
 573            (with-directory-excursion "texk"
 574              (let ((preserved-directories '("." ".." "kpathsea")))
 575                (for-each
 576                 delete-file-recursively
 577                 (scandir "."
 578                          (lambda (file)
 579                            (and (not (member file preserved-directories))
 580                                 (eq? 'directory (stat:type (stat file)))))))))))))
 581     (arguments
 582      (substitute-keyword-arguments (package-arguments texlive-bin)
 583        ((#:configure-flags flags)
 584         `(cons* "--disable-all-pkgs" "--enable-kpathsea"
 585                 "--enable-shared" ,flags))
 586        ((#:phases phases)
 587         `(modify-phases %standard-phases
 588            (add-after 'install 'post-install
 589              (lambda* (#:key inputs outputs #:allow-other-keys)
 590                (with-directory-excursion "texk/kpathsea"
 591                  (invoke "make" "install"))))))))
 592     (inputs '())
 593     (synopsis "Path searching library")
 594     (description "kpathsea is a library, whose purpose is to return a filename
 595 from a list of user-specified directories similar to how shells look up
 596 executables.  It is maintained as a part of TeX Live.")))
 597
 598 (define-syntax-rule (define-deprecated-package old-name name)
 599   "Define OLD-NAME as a deprecated package alias for NAME."
 600   (define-deprecated/public old-name name
 601     (deprecated-package (symbol->string 'old-name) name)))
 602
 603 \f
 604 (define texlive-docstrip
 605   (package
 606     (inherit (simple-texlive-package
 607               "texlive-docstrip"
 608               (list "/tex/latex/base/docstrip.tex")
 609               (base32
 610                "1pxbqbia0727vg01xv8451szm55z2w8sb0vv3kf4iqx5ibb6m0d2")
 611               #:trivial? #t))
 612     (home-page "https://www.ctan.org/texlive")
 613     (synopsis "Utility to strip documentation from TeX files")
 614     (description "This package provides the docstrip utility to strip
 615 documentation from TeX files.  It is part of the LaTeX base.")
 616     (license license:lppl1.3+)))
 617
 618 (define-public texlive-unicode-data
 619   (package
 620     (inherit (simple-texlive-package
 621               "texlive-unicode-data"
 622               (list "/tex/generic/unicode-data/"
 623                     "/doc/generic/unicode-data/")
 624               (base32
 625                "1d41zvjsig7sqf2j2m89dnbv3gicpb16r04b4ikps4gabhbky83k")
 626               #:trivial? #t))
 627     (home-page "https://www.ctan.org/pkg/unicode-data")
 628     (synopsis "Unicode data and loaders for TeX")
 629     (description "This bundle provides generic access to Unicode Consortium
 630 data for TeX use.  It contains a set of text files provided by the Unicode
 631 Consortium which are currently all from Unicode 8.0.0, with the exception of
 632 @code{MathClass.txt} which is not currently part of the Unicode Character
 633 Database.  Accompanying these source data are generic TeX loader files
 634 allowing this data to be used as part of TeX runs, in particular in building
 635 format files.  Currently there are two loader files: one for general character
 636 set up and one for initializing XeTeX character classes as has been carried
 637 out to date by @code{unicode-letters.tex}.")
 638     (license license:lppl1.3c+)))
 639
 640 (define-deprecated-package texlive-generic-unicode-data texlive-unicode-data)
 641
 642 (define-public texlive-hyphen-base
 643   (package
 644     (inherit (simple-texlive-package
 645               "texlive-hyphen-base"
 646               (list "/tex/generic/config/language.dat"
 647                     "/tex/generic/config/language.dat.lua"
 648                     "/tex/generic/config/language.def"
 649                     "/tex/generic/config/language.us"
 650                     "/tex/generic/config/language.us.def"
 651                     "/tex/generic/config/language.us.lua"
 652                     "/tex/generic/hyphen/dumyhyph.tex"
 653                     "/tex/generic/hyphen/hyphen.tex"
 654                     "/tex/generic/hyphen/hypht1.tex"
 655                     "/tex/generic/hyphen/zerohyph.tex")
 656               (base32
 657                "1sagn9aybs34m1s6m3zwya5g5kbiwfnw8ifcgxssygmzzs88dgjp")
 658               #:trivial? #t))
 659     (home-page "https://tug.org/texlive/")
 660     (synopsis "Core hyphenation support files")
 661     (description "This package includes Knuth's original @file{hyphen.tex},
 662 @file{zerohyph.tex} to disable hyphenation, @file{language.us} which starts
 663 the autogenerated files @file{language.dat} and @file{language.def} (and
 664 default versions of those), etc.")
 665     (license license:knuth)))
 666
 667 (define-public texlive-dvips
 668   (package
 669     (inherit (simple-texlive-package
 670               "texlive-dvips"
 671               (list "/doc/man/man1/afm2tfm.1"
 672                     "/doc/man/man1/dvips.1"
 673                     "/dvips/base/"
 674                     "/dvips/config/"
 675                     "/fonts/enc/dvips/base/"
 676                     "/tex/generic/dvips/")
 677               (base32
 678                "0rns1hpjy4fmsskmkwx197j8qbgdmyj0j9214sq9vhpa6nv7czm3")
 679               #:trivial? #t))
 680     (home-page "https://www.ctan.org/pkg/dvips")
 681     (synopsis "DVI to PostScript drivers")
 682     (description "This package provides files needed for converting DVI files
 683 to PostScript.")
 684     (license license:lppl)))
 685
 686 (define-public texlive-tex-ini-files
 687   (package
 688     (inherit (simple-texlive-package
 689               "texlive-tex-ini-files"
 690               (list "/tex/generic/tex-ini-files/")
 691               (base32
 692                "0q1g62jg0qiqslm93ycvm30bw8ydmssjdshzsnzl7n2vpd62qfi2")
 693               #:trivial? #t))
 694     (home-page "https://www.ctan.org/pkg/tex-ini-files")
 695     (synopsis "Files for creating TeX formats")
 696     (description "This bundle provides a collection of model \".ini\" files
 697 for creating TeX formats.  These files are commonly used to introduced
 698 distribution-dependent variations in formats.  They are also used to
 699 allow existing format source files to be used with newer engines, for example
 700 to adapt the plain e-TeX source file to work with XeTeX and LuaTeX.")
 701     (license license:public-domain)))
 702
 703 (define-deprecated-package texlive-generic-tex-ini-files texlive-tex-ini-files)
 704
 705 (define-public texlive-metafont
 706   (package
 707     (name "texlive-metafont")
 708     (version (number->string %texlive-revision))
 709     (source (origin
 710               (method svn-multi-fetch)
 711               (uri (svn-multi-reference
 712                     (url (string-append "svn://www.tug.org/texlive/tags/"
 713                                         %texlive-tag "/Master/texmf-dist"))
 714                     (locations '("/metafont/"
 715                                  "/fonts/source/public/modes/"))
 716                     (revision %texlive-revision)))
 717               (file-name (string-append name "-" version "-checkout"))
 718               (sha256
 719                (base32
 720                 "17y72xmz5a36vdsq7pfrwj0j4c7llrm9j5kcq349cpaas7r32lmb"))))
 721     (build-system gnu-build-system)
 722     (arguments
 723      `(#:tests? #f ; no test target
 724        #:phases
 725        (modify-phases %standard-phases
 726          (delete 'configure)
 727          (replace 'build
 728            (lambda* (#:key inputs #:allow-other-keys)
 729              (let* ((cwd (getcwd))
 730                     (mf (string-append cwd "/metafont"))
 731                     (modes (string-append cwd "/fonts/source/public/modes")))
 732                (setenv "MFINPUTS"
 733                        (string-append modes ":"
 734                                       mf "/base:"
 735                                       mf "/misc:"
 736                                       mf "/roex:"
 737                                       mf "/feynmf:"
 738                                       mf "/mfpic:"
 739                                       mf "/config")))
 740              (mkdir "build")
 741              (with-directory-excursion "build"
 742                (invoke "inimf" "mf.mf"))))
 743          (replace 'install
 744            (lambda* (#:key outputs #:allow-other-keys)
 745              (let* ((out  (assoc-ref outputs "out"))
 746                     (base (string-append out "/share/texmf-dist/web2c"))
 747                     (mf   (string-append out "/share/texmf-dist/metafont/")))
 748                (mkdir-p base)
 749                (mkdir-p mf)
 750                (install-file "build/mf.base" base)
 751                (with-directory-excursion "metafont"
 752                  (for-each (lambda (where)
 753                              (copy-recursively where (string-append mf where)))
 754                            (list "base" "misc" "config")))))))))
 755     (native-inputs
 756      (list texlive-bin))
 757     (home-page "https://www.ctan.org/pkg/metafont")
 758     (synopsis "Metafont base files")
 759     (description "This package provides the Metafont base files needed to
 760 build fonts using the Metafont system.")
 761     (license license:knuth)))
 762
 763 (define-deprecated-package texlive-metafont-base texlive-metafont)
 764
 765 (define-public texlive-fontinst
 766   (let ((template (simple-texlive-package
 767                    "texlive-fontinst"
 768                    (list "/doc/fonts/fontinst/"
 769                          "/doc/man/man1/fontinst.1"
 770                          "/doc/man/man1/fontinst.man1.pdf"
 771
 772                          ;; This is used to build parts of
 773                          ;; /tex/fontinst/{base,misc}/ and
 774                          ;; /tex/latex/fontinst/fontdoc.sty.
 775                          "/source/fontinst/base/"
 776
 777                          ;; These are not generated.
 778                          "/tex/fontinst/base/bbox.sty"
 779                          "/tex/fontinst/base/multislot.sty"
 780                          "/tex/fontinst/misc/glyphbox.mtx"
 781                          "/tex/fontinst/misc/glyphoff.mtx"
 782                          "/tex/fontinst/misc/glyphon.mtx"
 783                          "/tex/fontinst/misc/kernoff.mtx"
 784                          "/tex/fontinst/misc/kernon.mtx"
 785
 786                          "/tex/fontinst/latinetx/"
 787                          "/tex/fontinst/latinmtx/"
 788                          "/tex/fontinst/mathmtx/"
 789                          "/tex/fontinst/smblmtx/")
 790                    (base32
 791                     "195jsijrpv828pqy99gm13j31nsc8bsa58zlbln2r0h5j9l44b5g")
 792                    #:trivial? #t)))
 793     (package
 794       (inherit template)
 795       (arguments
 796        (substitute-keyword-arguments (package-arguments template)
 797          ((#:modules _ '())
 798           '((guix build gnu-build-system)
 799             (guix build utils)
 800             (ice-9 match)))
 801          ((#:phases phases)
 802           `(modify-phases ,phases
 803              (replace 'build
 804                (lambda* (#:key inputs #:allow-other-keys)
 805                  (setenv "TEXINPUTS"
 806                          (string-append (getcwd) "//:"
 807                                         (getcwd) "/source/fontinst/base//:"
 808                                         (assoc-ref inputs "texlive-docstrip") "//"))
 809                  (mkdir "build")
 810                  (invoke "tex" "-ini" "-interaction=scrollmode"
 811                          "-output-directory=build"
 812                          "fontinst.ins")))
 813              ;; Since we're using docstrip without LaTeX we can't set \UseTDS
 814              ;; or \BaseDirectory, so the generated files are just dumped in
 815              ;; the "build" directory.
 816              (add-after 'install 'install-generated-files
 817                (lambda* (#:key outputs #:allow-other-keys)
 818                  (let* ((out (assoc-ref outputs "out"))
 819                         (root (string-append out "/share/texmf-dist")))
 820                    (for-each (match-lambda
 821                                ((dir files ...)
 822                                 (for-each (lambda (file)
 823                                             (install-file
 824                                              (string-append "build/" file)
 825                                              (string-append root dir)))
 826                                           files)))
 827                              '(("/tex/fontinst/base"
 828                                 "fontinst.sty"
 829                                 "cfntinst.sty"
 830                                 "xfntinst.sty"
 831                                 "finstmsc.sty"
 832                                 "fontinst.ini")
 833                                ("/tex/fontinst/misc"
 834                                 "csc2x.tex"
 835                                 "csckrn2x.tex"
 836                                 "osf2x.tex")
 837                                ("/tex/latex/fontinst"
 838                                 "fontdoc.sty")))
 839                    #t)))))))
 840       (native-inputs
 841        (list texlive-bin texlive-docstrip))
 842       (home-page "https://www.ctan.org/pkg/fontinst")
 843       (synopsis "Tools for converting and installing fonts for TeX and LaTeX")
 844       (description "This package provides TeX macros for converting Adobe Font
 845 Metric files to TeX metric and virtual font format.  Fontinst helps mainly
 846 with the number crunching and shovelling parts of font installation.  This
 847 means in practice that it creates a number of files which give the TeX
 848 metrics (and related information) for a font family that TeX needs to do any
 849 typesetting in these fonts.")
 850       (license license:lppl1.1+))))
 851
 852 (define-deprecated-package texlive-tex-fontinst-base texlive-fontinst)
 853
 854 (define-public texlive-fontname
 855   (package
 856     (inherit (simple-texlive-package
 857               "texlive-fontname"
 858               (list "/doc/fonts/fontname/fontname.texi"
 859                     "/fonts/map/fontname/")
 860               (base32
 861                "009qvjpw48lajp0gxpvdk10n5qw3q41cpq05ycns67mxwkcaywq6")
 862               #:trivial? #t))
 863     (home-page "https://www.ctan.org/pkg/fontname")
 864     (synopsis "Scheme for naming fonts in TeX")
 865     (description "This is Fontname, a naming scheme for (the base part of)
 866 external TeX font filenames.  This makes at most eight-character names
 867 from (almost) arbitrarily complex font names, thus helping portability of TeX
 868 documents.")
 869     (license license:public-domain)))
 870
 871 (define-public texlive-cm
 872   (let ((template (simple-texlive-package
 873                    "texlive-cm"
 874                    (list "/fonts/source/public/cm/"
 875                          "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
 876                          "/doc/fonts/cm/")
 877                    (base32
 878                     "1ky4gvcn8qn3d61bvb39512b8r92igv6il7vh02hw04223yj6q8i")
 879                    #:trivial? #t)))
 880     (package
 881       (inherit template)
 882       (arguments
 883        (substitute-keyword-arguments (package-arguments template)
 884          ((#:modules modules '())
 885           '((guix build gnu-build-system)
 886             (guix build utils)
 887             (srfi srfi-26)))
 888          ((#:phases phases)
 889           `(modify-phases ,phases
 890              (replace 'build
 891                (lambda* (#:key inputs #:allow-other-keys)
 892                  (let ((mf (assoc-ref inputs "texlive-metafont")))
 893                    ;; Tell mf where to find mf.base
 894                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 895                    ;; Tell mf where to look for source files
 896                    (setenv "MFINPUTS"
 897                            (string-append (getcwd) "/fonts/source/public/cm/:"
 898                                           mf "/share/texmf-dist/metafont/base")))
 899                  (for-each make-file-writable
 900                            (cons "fonts/source/public/cm/"
 901                                  (find-files "fonts/source/public/cm/" ".*")))
 902                  (let ((build (string-append (getcwd) "/build"))
 903                        (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
 904                    (mkdir-p pkdir)
 905                    (mkdir-p build)
 906                    (with-directory-excursion "fonts/source/public/cm/"
 907                      (for-each (lambda (font)
 908                                  (format #t "building font ~a\n" font)
 909                                  (invoke "mf" "-progname=mf"
 910                                          (string-append "-output-directory=" build)
 911                                          (string-append "\\"
 912                                                         "mode:=ljfour; "
 913                                                         "mag:=1+0/600; "
 914                                                         "scrollmode; "
 915                                                         "input "
 916                                                         (basename font ".mf")))
 917                                  (invoke "gftopk"
 918                                          (string-append build "/"
 919                                                         (basename font ".mf") ".600gf")
 920                                          (string-append pkdir "/"
 921                                                         (basename font ".mf") ".pk")))
 922                                (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
 923                  #t))
 924              (add-after 'install 'install-generated-fonts
 925                (lambda* (#:key inputs outputs #:allow-other-keys)
 926                  (let* ((out    (assoc-ref outputs "out"))
 927                         (fonts  (string-append out "/share/texmf-dist/fonts/"))
 928                         (pk     (string-append fonts "pk"))
 929                         (tfm    (string-append fonts "tfm/public/cm")))
 930                    (for-each (cut install-file <> tfm)
 931                              (find-files "build" "\\.*"))
 932                    (copy-recursively "pk" pk)
 933                    #t)))))))
 934       (native-inputs
 935        (list texlive-bin texlive-metafont))
 936       (home-page "https://www.ctan.org/pkg/cm")
 937       (synopsis "Computer Modern fonts for TeX")
 938       (description "This package provides the Computer Modern fonts by Donald
 939 Knuth.  The Computer Modern font family is a large collection of text,
 940 display, and mathematical fonts in a range of styles, based on Monotype Modern
 941 8A.")
 942       (license license:knuth))))
 943
 944 (define-deprecated-package texlive-fonts-cm texlive-cm)
 945
 946 (define-public texlive-cm-super
 947   (let ((template (simple-texlive-package
 948                    "texlive-cm-super"
 949                    (list "/doc/fonts/cm-super/"
 950                          "/dvips/cm-super/"
 951                          "/fonts/afm/public/cm-super/"
 952                          "/fonts/enc/dvips/cm-super/"
 953                          "/fonts/map/dvips/cm-super/"
 954                          "/fonts/map/vtex/cm-super/"
 955                          "/fonts/type1/public/cm-super/"
 956                          "/tex/latex/cm-super/")
 957                    (base32
 958                     "1k3afl0x0bqbr5mnawbnp7rr2126dwn0vwnxzibm9ggvzqilnkm6")
 959                    #:trivial? #t)))
 960     (package
 961       (inherit template)
 962       (arguments
 963        (substitute-keyword-arguments (package-arguments template)
 964          ((#:phases phases)
 965           `(modify-phases ,phases
 966              (delete 'reset-gzip-timestamps)))))
 967       (home-page "https://www.ctan.org/pkg/cm-super")
 968       (synopsis "Computer Modern Super family of fonts")
 969       (description "The CM-Super family provides Adobe Type 1 fonts that replace
 970 the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete,
 971 T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European
 972 languages except Greek), and bringing many ameliorations in typesetting
 973 quality.  The fonts exhibit the same metrics as the METAFONT-encoded
 974 originals.")
 975       ;; With font exception
 976       (license license:gpl2+))))
 977
 978 (define-deprecated-package texlive-fonts-cm-super texlive-cm-super)
 979
 980 (define-public texlive-courier
 981   (package
 982     (inherit (simple-texlive-package
 983               "texlive-courier"
 984               (list "/dvips/courier/"
 985                     "/fonts/afm/adobe/courier/"
 986                     "/fonts/afm/urw/courier/"
 987                     "/fonts/map/dvips/courier/"
 988                     "/fonts/tfm/adobe/courier/"
 989                     "/fonts/tfm/urw35vf/courier/"
 990                     "/fonts/type1/adobe/courier/"
 991                     "/fonts/type1/urw/courier/"
 992                     "/fonts/vf/adobe/courier/"
 993                     "/fonts/vf/urw35vf/courier/"
 994                     "/tex/latex/courier/"
 995                     "/tex4ht/ht-fonts/alias/adobe/courier/"
 996                     "/tex4ht/ht-fonts/unicode/adobe/courier/")
 997               (base32
 998                "05lglavi073glj26k9966351hka5ac22g4vim61dkfy001vz4i7r")
 999               #:trivial? #t))
1000     (home-page "https://ctan.org/pkg/urw-base35")
1001     (synopsis "URW Base 35 font pack for LaTeX")
1002     (description "This package provides a drop-in replacements for the Courier
1003 font from Adobe's basic set.")
1004     ;; No license version specified.
1005     (license license:gpl3+)))
1006
1007 (define-public texlive-tex-gyre
1008   (package
1009     (inherit (simple-texlive-package
1010               "texlive-tex-gyre"
1011               '("/doc/fonts/tex-gyre/GUST-FONT-LICENSE.txt"
1012                 "/fonts/afm/public/tex-gyre/"
1013                 "/fonts/enc/dvips/tex-gyre/"
1014                 "/fonts/map/dvips/tex-gyre/"
1015                 "/fonts/opentype/public/tex-gyre/"
1016                 "/fonts/tfm/public/tex-gyre/"
1017                 "/fonts/type1/public/tex-gyre/"
1018                 "/tex/latex/tex-gyre/")
1019               (base32
1020                "1ldnlmclghm3gnyv02r8a6cqybygz2ifq07mhykhf43h1pw3aq7k")
1021               #:trivial? #t))
1022     (home-page "https://ctan.org/pkg/tex-gyre")
1023     (synopsis "TeX fonts extending URW fonts")
1024     (description
1025      "The TeX-GYRE bundle consist of multiple font families:
1026 @itemize @bullet
1027 @item Adventor, based on the URW Gothic L family of fonts;
1028 @item Bonum, based on the URW Bookman L family;
1029 @item Chorus, based on URW Chancery L Medium Italic;
1030 @item Cursor, based on URW Nimbus Mono L;
1031 @item Heros, based on URW Nimbus Sans L;
1032 @item Pagella, based on URW Palladio L;
1033 @item Schola, based on the URW Century Schoolbook L family;
1034 @item Termes, based on the URW Nimbus Roman No9 L family of fonts.
1035 @end itemize
1036
1037 The constituent standard faces of each family have been greatly extended
1038 (though Chorus omits Greek support and has no small-caps family).  Each
1039 family is available in Adobe Type 1 and Open Type formats, and LaTeX
1040 support (for use with a variety of encodings) is provided.")
1041     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
1042     ;; Public License (LPPL), version 1.3c or later, but comes with an
1043     ;; additional but not legally binding clause.
1044     (license license:lppl1.3c+)))
1045
1046 (define-public texlive-lm
1047   (package
1048     (inherit (simple-texlive-package
1049               "texlive-lm"
1050               (list "/doc/fonts/lm/"
1051                     "/fonts/afm/public/lm/"
1052                     "/fonts/enc/dvips/lm/"
1053                     "/fonts/map/dvipdfm/lm/"
1054                     "/fonts/map/dvips/lm/"
1055                     "/fonts/opentype/public/lm/"
1056                     "/fonts/tfm/public/lm/"
1057                     "/fonts/type1/public/lm/"
1058                     "/tex/latex/lm/")
1059               (base32
1060                "0yyk0dr4yms82mwy4dc03zf5igyhgcb65icdah042rk23rlpxygv")
1061               #:trivial? #t))
1062     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
1063     (synopsis "Latin Modern family of fonts")
1064     (description "The Latin Modern fonts are derived from the famous Computer
1065 Modern fonts designed by Donald E. Knuth and described in Volume E of his
1066 Computers & Typesetting series.")
1067     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
1068     ;; Public License (LPPL), version 1.3c or later, but comes with an
1069     ;; additional but not legally binding clause.
1070     (license license:lppl1.3c+)))
1071
1072 (define-deprecated-package texlive-fonts-lm texlive-lm)
1073
1074 (define-public texlive-knuth-lib
1075   (let ((template (simple-texlive-package
1076                    "texlive-knuth-lib"
1077                    (list "/fonts/source/public/knuth-lib/"
1078                          "/tex/generic/knuth-lib/"
1079                          "/tex/plain/knuth-lib/")
1080                    (base32
1081                     "1cxyqqprp8sj2j4zp9l0wry8cq2awpz3a8i5alzpc4ndg7a6pgdf")
1082                    #:trivial? #t)))
1083     (package
1084       (inherit template)
1085       (arguments
1086        (substitute-keyword-arguments (package-arguments template)
1087          ((#:modules _ '())
1088           '((guix build gnu-build-system)
1089             (guix build utils)
1090             (srfi srfi-26)))
1091          ((#:phases phases '())
1092           `(modify-phases ,phases
1093              (replace 'build
1094                (lambda* (#:key inputs #:allow-other-keys)
1095                  (with-directory-excursion "fonts/source/public/knuth-lib"
1096                    (let ((mf (assoc-ref inputs "texlive-metafont")))
1097                      ;; Tell mf where to find mf.base
1098                      (setenv "MFBASES"
1099                              (string-append mf "/share/texmf-dist/web2c"))
1100                      ;; Tell mf where to look for source files
1101                      (setenv "MFINPUTS"
1102                              (string-append (getcwd) ":"
1103                                             mf "/share/texmf-dist/metafont/base")))
1104                    (mkdir "build")
1105                    (for-each (lambda (font)
1106                                (format #t "building font ~a\n" font)
1107                                (invoke "mf" "-progname=mf"
1108                                        "-output-directory=build"
1109                                        (string-append "\\"
1110                                                       "mode:=ljfour; "
1111                                                       "mag:=1; "
1112                                                       "batchmode; "
1113                                                       "input " font)))
1114                              (find-files "." "(manfnt|logo.+)\\.mf$")))
1115                  #t))
1116              (add-after 'install 'install-fonts
1117                (lambda* (#:key outputs #:allow-other-keys)
1118                  (with-directory-excursion "fonts/source/public/knuth-lib"
1119                    (let* ((out (assoc-ref outputs "out"))
1120                           (tfm (string-append
1121                                 out "/share/texmf-dist/fonts/tfm/public/knuth-lib")))
1122                      (for-each (cut install-file <> tfm)
1123                                (find-files "build" "\\.tfm"))
1124                      #t))))))))
1125       (native-inputs
1126        (list texlive-bin texlive-metafont))
1127       (home-page "https://www.ctan.org/pkg/knuth-lib")
1128       (synopsis "Small library of METAFONT sources")
1129       (description "This is a collection of core TeX and METAFONT macro files
1130 from Donald Knuth, including the plain format, plain base, and the MF logo
1131 fonts.")
1132       (license license:knuth))))
1133
1134 (define-deprecated-package texlive-fonts-knuth-lib texlive-knuth-lib)
1135
1136 (define-public texlive-fonts-latex
1137   (package
1138     (name "texlive-fonts-latex")
1139     (version (number->string %texlive-revision))
1140     (source (origin
1141               (method svn-fetch)
1142               (uri (svn-reference
1143                     (url (string-append "svn://www.tug.org/texlive/tags/"
1144                                         %texlive-tag "/Master/texmf-dist/"
1145                                         "/fonts/source/public/latex-fonts"))
1146                     (revision %texlive-revision)))
1147               (file-name (string-append name "-" version "-checkout"))
1148               (sha256
1149                (base32
1150                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
1151     (build-system gnu-build-system)
1152     (arguments
1153      `(#:modules ((guix build gnu-build-system)
1154                   (guix build utils)
1155                   (srfi srfi-1)
1156                   (srfi srfi-26))
1157        #:tests? #f                      ; no tests
1158        #:phases
1159        (modify-phases %standard-phases
1160          (delete 'configure)
1161          (replace 'build
1162            (lambda* (#:key inputs #:allow-other-keys)
1163              (let ((mf (assoc-ref inputs "texlive-metafont")))
1164                ;; Tell mf where to find mf.base
1165                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1166                ;; Tell mf where to look for source files
1167                (setenv "MFINPUTS"
1168                        (string-append (getcwd) ":"
1169                                       mf "/share/texmf-dist/metafont/base:"
1170                                       (assoc-ref inputs "texlive-cm")
1171                                       "/share/texmf-dist/fonts/source/public/cm")))
1172              (mkdir "build")
1173              (for-each (lambda (font)
1174                          (format #t "building font ~a\n" font)
1175                          (invoke "mf" "-progname=mf"
1176                                  "-output-directory=build"
1177                                  (string-append "\\"
1178                                                 "mode:=ljfour; "
1179                                                 "mag:=1; "
1180                                                 "batchmode; "
1181                                                 "input " font)))
1182                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
1183                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
1184                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
1185                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
1186                          "line10" "linew10"))
1187              #t))
1188          (replace 'install
1189            (lambda* (#:key outputs #:allow-other-keys)
1190              (let* ((out (assoc-ref outputs "out"))
1191                     (tfm (string-append
1192                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
1193                     (mf  (string-append
1194                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
1195                (for-each (cut install-file <> tfm)
1196                          (find-files "build" "\\.*"))
1197                (for-each (cut install-file <> mf)
1198                          (find-files "." "\\.mf"))
1199                #t))))))
1200     (native-inputs
1201      (list texlive-bin texlive-metafont texlive-cm))
1202     (home-page "https://www.ctan.org/pkg/latex-fonts")
1203     (synopsis "Collection of fonts used in LaTeX distributions")
1204     (description "This is a collection of fonts for use with standard LaTeX
1205 packages and classes. It includes invisible fonts (for use with the slides
1206 class), line and circle fonts (for use in the picture environment) and LaTeX
1207 symbol fonts.")
1208     (license license:lppl1.2+)))
1209
1210 (define-public texlive-mflogo
1211   (let ((template (simple-texlive-package
1212                    "texlive-mflogo"
1213                    (list "/doc/latex/mflogo/"
1214                          "/source/latex/mflogo/"
1215                          "/fonts/source/public/mflogo/logosl8.mf")
1216                    (base32
1217                     "1vb4mg7fh4k54g7nqwiw3qm4iir8whpfnspis76l4sddzar1amh7"))))
1218     (package
1219       (inherit template)
1220       (arguments
1221        (substitute-keyword-arguments (package-arguments template)
1222          ((#:modules _ '())
1223           '((guix build texlive-build-system)
1224             (guix build utils)
1225             (srfi srfi-1)
1226             (srfi srfi-26)))
1227          ((#:tex-directory _ #t)
1228           "latex/mflogo")
1229          ((#:phases phases '())
1230           `(modify-phases ,phases
1231              (add-after 'unpack 'chdir
1232                (lambda _
1233                  (chdir "source/latex/mflogo") #t))
1234              (add-after 'build 'build-font-metrics
1235                (lambda* (#:key inputs #:allow-other-keys)
1236                  (let ((root "../../..")
1237                        (mf (assoc-ref inputs "texlive-metafont"))
1238                        (kl (assoc-ref inputs "texlive-knuth-lib")))
1239                    ;; Tell mf where to find mf.base
1240                    (setenv "MFBASES"
1241                            (string-append mf "/share/texmf-dist/web2c"))
1242                    ;; Tell mf where to look for source files
1243                    (setenv "MFINPUTS"
1244                            (string-append root ":"
1245                                           mf "/share/texmf-dist/metafont/base:"
1246                                           kl "/share/texmf-dist/fonts/source/public/knuth-lib:"
1247                                           root "/fonts/source/public/mflogo/"))
1248                    (for-each (lambda (font)
1249                                (format #t "building font ~a\n" font)
1250                                (invoke "mf" "-progname=mf"
1251                                        "-output-directory=build"
1252                                        (string-append "\\"
1253                                                       "mode:=ljfour; "
1254                                                       "mag:=1; "
1255                                                       "scrollmode; "
1256                                                       "input " (basename font))))
1257                              (find-files (string-append root
1258                                                         "/fonts/source/public/mflogo/")
1259                                          "\\.mf$")))
1260                  #t))
1261              (add-before 'install 'install-fonts
1262                (lambda* (#:key outputs #:allow-other-keys)
1263                  (let* ((out (assoc-ref outputs "out"))
1264                         (tfm (string-append
1265                               out "/share/texmf-dist/fonts/tfm/public/mflogo")))
1266                    (for-each (lambda (file)
1267                                (install-file file tfm)
1268                                (delete-file file))
1269                              (find-files "build" "\\.tfm"))
1270                    #t)))))))
1271       (native-inputs
1272        (list texlive-bin texlive-metafont texlive-knuth-lib))
1273       (home-page "http://www.ctan.org/pkg/mflogo")
1274       (synopsis "LaTeX support for Metafont logo fonts")
1275       (description
1276        "This package provides LaTeX and font definition files to access the
1277 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1278 logos in LaTeX documents.")
1279       (license license:lppl))))
1280
1281 (define-deprecated-package texlive-latex-mflogo texlive-mflogo)
1282
1283 (define-public texlive-mflogo-font
1284   (package
1285     (inherit (simple-texlive-package
1286               "texlive-mflogo-font"
1287               (list "/doc/fonts/mflogo-font/README"
1288                     "/fonts/afm/hoekwater/mflogo-font/"
1289                     "/fonts/map/dvips/mflogo-font/"
1290                     "/fonts/type1/hoekwater/mflogo-font/")
1291               (base32
1292                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1293               #:trivial? #t))
1294     (home-page "https://www.ctan.org/pkg/mflogo-font")
1295     (synopsis "Metafont logo font")
1296     (description
1297      "These fonts were created in METAFONT by Knuth, for his own publications.
1298 At some stage, the letters P and S were added, so that the METAPOST logo could
1299 also be expressed.  The fonts were originally issued (of course) as METAFONT
1300 source; they have since been autotraced and reissued in Adobe Type 1 format by
1301 Taco Hoekwater.")
1302     (license license:knuth)))
1303
1304 (define-deprecated-package texlive-fonts-mflogo-font texlive-mflogo-font)
1305
1306 (define-public texlive-amsfonts
1307   (let ((template (simple-texlive-package
1308                    "texlive-amsfonts"
1309                    (list "/source/latex/amsfonts/"
1310                          "/fonts/source/public/amsfonts/"
1311                          "/fonts/type1/public/amsfonts/"
1312                          "/fonts/afm/public/amsfonts/"
1313                          "/fonts/map/dvips/amsfonts/"
1314                          "/tex/plain/amsfonts/"
1315                          "/doc/fonts/amsfonts/")
1316                    (base32
1317                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1318     (package
1319       (inherit template)
1320       ;; TODO: This package is missing files.
1321       (replacement texlive-amsfonts/fixed)
1322       (arguments
1323        (substitute-keyword-arguments (package-arguments template)
1324          ((#:build-targets _ #t)
1325           '(list "amsfonts.ins"))
1326          ((#:tex-directory _ #t)
1327           "latex/amsfonts")
1328          ((#:modules modules '())
1329           `((guix build texlive-build-system)
1330             (guix build utils)
1331             (ice-9 match)
1332             (srfi srfi-1)
1333             (srfi srfi-26)))
1334          ((#:phases phases)
1335           `(modify-phases ,phases
1336              (add-before 'build 'build-fonts
1337                (lambda* (#:key inputs #:allow-other-keys)
1338                  ;; Allow self fonts sources and other resources to be
1339                  ;; discovered.
1340                  (setenv "GUIX_TEXMF" (string-append (getenv "GUIX_TEXMF")
1341                                                      ":" (getcwd)))
1342
1343                  (let ((build (string-append (getcwd) "/build-fonts")))
1344                    (mkdir-p build)
1345                    (with-directory-excursion "fonts/source/public/amsfonts"
1346                      (for-each (lambda (font)
1347                                  (format #t "building font ~a\n" (basename font ".mf"))
1348                                  (with-directory-excursion (dirname font)
1349                                    (invoke "mf" "-progname=mf"
1350                                            (string-append "-output-directory=" build)
1351                                            (string-append "\\"
1352                                                           "mode:=ljfour; "
1353                                                           "mag:=1; "
1354                                                           "nonstopmode; "
1355                                                           "input "
1356                                                           (getcwd) "/"
1357                                                           (basename font ".mf")))))
1358                                (find-files "." "[0-9]+\\.mf$"))))
1359
1360                  ;; There are no metafont sources for the Euler fonts, so we
1361                  ;; convert the afm files instead.
1362                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1363                    (mkdir build)
1364                    (with-directory-excursion "fonts/afm/public/amsfonts/euler"
1365                      (for-each (lambda (font)
1366                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1367                                  (invoke "afm2tfm" font
1368                                          (string-append build "/"
1369                                                         (basename font ".tfm"))))
1370                                (find-files "(cmextra|cyrillic|dummy|euler|symbols)"
1371                                            "\\.afm$")))
1372
1373                    ;; Frustratingly, not all fonts can be created this way.  To
1374                    ;; generate eufm8.tfm, for example, we first scale down
1375                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1376                    ;; the pl file.
1377                    (setenv "TEXINPUTS"
1378                            (string-append ":" build "//:"
1379                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1380                                           (getcwd) "/source/latex/amsfonts//:"))
1381                    (with-directory-excursion build
1382                      (for-each (match-lambda
1383                                  (((target-base target-size)
1384                                    (source-base source-size))
1385                                   (let ((factor (number->string
1386                                                  (truncate/ (* 1000 target-size)
1387                                                             source-size))))
1388                                     (invoke "tex"
1389                                             "-interaction=scrollmode"
1390                                             (string-append "\\input fontinst.sty "
1391                                                            "\\transformfont{" target-base "}"
1392                                                            "{\\scalefont{" factor "}"
1393                                                            "{\\fromafm{" source-base "}}} "
1394                                                            "\\bye")))
1395                                   (invoke "pltotf"
1396                                           (string-append target-base ".pl")
1397                                           (string-append target-base ".tfm"))
1398                                   (delete-file (string-append target-base ".pl"))))
1399
1400                                '((("eufm8" 8) ("eufm10" 10))
1401
1402                                  (("eufb6" 6) ("eufb7" 7))
1403                                  (("eufb8" 8) ("eufb10" 10))
1404                                  (("eufb9" 9) ("eufb10" 10))
1405
1406                                  (("eufm6" 6) ("eufb7" 7))
1407                                  (("eufm9" 9) ("eufb10" 10))
1408
1409                                  (("eurb6" 6) ("eurb7" 7))
1410                                  (("eurb8" 8) ("eurb10" 10))
1411                                  (("eurb9" 9) ("eurb10" 10))
1412
1413                                  (("eurm6" 6) ("eurm7" 7))
1414                                  (("eurm8" 8) ("eurm10" 10))
1415                                  (("eurm9" 9) ("eurm10" 10))))))))
1416              (add-after 'install 'install-generated-fonts
1417                (lambda* (#:key inputs outputs #:allow-other-keys)
1418                  (copy-recursively "build-fonts"
1419                                    (string-append
1420                                     (assoc-ref outputs "out")
1421                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))))))))
1422       (native-inputs
1423        (list (texlive-updmap.cfg (list texlive-fontinst))))
1424       (home-page "https://www.ctan.org/pkg/amsfonts")
1425       (synopsis "TeX fonts from the American Mathematical Society")
1426       (description
1427        "This package provides an extended set of fonts for use in mathematics,
1428 including: extra mathematical symbols; blackboard bold letters (uppercase
1429 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1430 letters; subscript sizes of large symbols such as sum and product; added sizes
1431 of the Computer Modern small caps font; cyrillic fonts (from the University of
1432 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1433 files, and all except the Euler fonts are provided as Metafont source.  The
1434 distribution also includes the canonical Type 1 versions of the Computer
1435 Modern family of fonts.  The Euler fonts are supported by separate packages;
1436 details can be found in the documentation.")
1437       (license license:silofl1.1))))
1438
1439 (define-public texlive-amsfonts/fixed
1440   (let ((template (simple-texlive-package
1441                    "texlive-amsfonts-fixed"
1442                    (list "/source/latex/amsfonts/"
1443                          "/fonts/source/public/amsfonts/"
1444                          "/fonts/type1/public/amsfonts/"
1445                          "/fonts/afm/public/amsfonts/"
1446                          "/fonts/tfm/public/amsfonts/"
1447                          "/fonts/map/dvips/amsfonts/"
1448                          "/tex/plain/amsfonts/"
1449                          "/doc/fonts/amsfonts/")
1450                    (base32
1451                     "1rpl87643q8v6gcqsz68mjha8wac6cqx7mr16ds8f0ccbw7a4w9b"))))
1452     (package
1453       (inherit template)
1454       (arguments
1455        (substitute-keyword-arguments (package-arguments template)
1456          ((#:build-targets _ #t)
1457           '(list "amsfonts.ins"))
1458          ((#:tex-directory _ #t)
1459           "latex/amsfonts")
1460          ((#:phases phases)
1461           `(modify-phases ,phases
1462              (add-after 'unpack 'chdir
1463                (lambda _ (chdir "source/latex/amsfonts")))
1464              (add-before 'copy-files 'unchdir
1465                (lambda _ (chdir "../../..")))
1466              (add-after 'copy-files 'remove-extra-files
1467                (lambda* (#:key outputs #:allow-other-keys)
1468                  (delete-file-recursively
1469                   (string-append (assoc-ref outputs "out")
1470                                  "/share/texmf-dist/source/latex/amsfonts/build/"))))))))
1471       (home-page "https://www.ctan.org/pkg/amsfonts")
1472       (synopsis "TeX fonts from the American Mathematical Society")
1473       (description
1474        "This package provides an extended set of fonts for use in mathematics,
1475 including: extra mathematical symbols; blackboard bold letters (uppercase
1476 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1477 letters; subscript sizes of large symbols such as sum and product; added sizes
1478 of the Computer Modern small caps font; cyrillic fonts (from the University of
1479 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1480 files, and all except the Euler fonts are provided as Metafont source.  The
1481 distribution also includes the canonical Type 1 versions of the Computer
1482 Modern family of fonts.  The Euler fonts are supported by separate packages;
1483 details can be found in the documentation.")
1484       (license license:silofl1.1))))
1485
1486 (define-deprecated-package texlive-fonts-amsfonts texlive-amsfonts)
1487
1488 (define-deprecated-package texlive-latex-amsfonts texlive-amsfonts)
1489
1490 (define-public texlive-mkpattern
1491   (package
1492     (inherit (simple-texlive-package
1493               "texlive-mkpattern"
1494               (list "/doc/plain/mkpattern/README"
1495                     "/doc/plain/mkpattern/mkpatdoc.tex"
1496                     "/doc/plain/mkpattern/mkpatter.pdf"
1497                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1498                     "/tex/plain/mkpattern/mkpatter.tex")
1499               (base32
1500                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1501               #:trivial? #t))
1502     (home-page "https://ctan.org/pkg/mkpattern")
1503     (synopsis "Utility for making hyphenation patterns")
1504     (description "Mkpattern is a general purpose program for the generation of
1505 hyphenation patterns, with definition of letter sets and template-like
1506 constructions.  It also provides an easy way to handle different input and
1507 output encodings, and features generation of clean UTF-8 patterns.")
1508     (license license:lppl)))
1509
1510 ;; This provides etex.src which is needed to build various formats, including
1511 ;; luatex.fmt and pdflatex.fmt
1512 (define-public texlive-etex
1513   (let ((template (simple-texlive-package
1514                    "texlive-etex"
1515                    (list "/doc/etex/base/"
1516                          "/doc/man/man1/etex.1"
1517                          "/doc/man/man1/etex.man1.pdf"
1518                          "/tex/plain/etex/"
1519                          "/fonts/source/public/etex/")
1520                    (base32
1521                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1522                    #:trivial? #t)))
1523     (package
1524       (inherit template)
1525       (arguments
1526        (substitute-keyword-arguments (package-arguments template)
1527          ((#:phases phases)
1528           `(modify-phases ,phases
1529              ;; Build tfm font.
1530              (replace 'build
1531                (lambda* (#:key inputs #:allow-other-keys)
1532                  (let ((mf (assoc-ref inputs "texlive-metafont")))
1533                    ;; Tell mf where to find mf.base
1534                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1535                    ;; Tell mf where to look for source files
1536                    (setenv "MFINPUTS"
1537                            (string-append (getcwd)
1538                                           "/fonts/source/public/etex/:"
1539                                           mf "/share/texmf-dist/metafont/base:"
1540                                           (assoc-ref inputs "texlive-cm")
1541                                           "/share/texmf-dist/fonts/source/public/cm")))
1542                  (invoke "mf" "-progname=mf"
1543                          (string-append "\\"
1544                                         "mode:=ljfour; "
1545                                         "mag:=1; "
1546                                         "scrollmode; "
1547                                         "input xbmc10"))
1548                  #t))
1549              (add-after 'install 'install-font
1550                (lambda* (#:key outputs #:allow-other-keys)
1551                  (install-file
1552                   "xbmc10.tfm"
1553                   (string-append (assoc-ref outputs "out")
1554                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1555                  #t))))))
1556       (native-inputs
1557        (list texlive-bin texlive-metafont texlive-cm))
1558       (home-page "https://www.ctan.org/pkg/etex")
1559       (synopsis "Extended version of TeX")
1560       (description
1561        "This package provides an extended version of TeX (which is capable of
1562 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1563 team as the engine for the development of LaTeX2e; as a result, LaTeX
1564 programmers may assume e-TeX functionality.  The pdftex engine directly
1565 incorporates the e-TeX extensions.")
1566       (license license:knuth))))
1567
1568 (define-public texlive-tex-plain
1569   (package
1570     (inherit (simple-texlive-package
1571               "texlive-tex-plain"
1572               (list "/tex/plain/")
1573               (base32
1574                "0gwygkm8i2jmpf7bfg6fb6824rl7fq4a2s0wni73v0fz6s4chr1n")
1575               #:trivial? #t))
1576     (home-page "https://www.ctan.org/pkg/plain")
1577     (synopsis "Plain TeX format and supporting files")
1578     (description
1579      "This package contains files used to build the Plain TeX format, as
1580 described in the TeXbook, together with various supporting files (some also
1581 discussed in the book).")
1582     (license license:knuth)))
1583
1584 (define-public texlive-hardwrap
1585   (package
1586     (inherit (simple-texlive-package
1587               "texlive-hardwrap"
1588               (list "doc/latex/hardwrap/"
1589                     "tex/latex/hardwrap/"
1590                     "source/latex/hardwrap/")
1591               (base32
1592                "0ql3xml1ccll44q945n7w72p6d51y5wcrkawi7cg621gy5d6wzx5")
1593               #:trivial? #t))
1594     (home-page "https://ctan.org/macros/latex/contrib/hardwrap")
1595     (synopsis "Hard wrap text to a certain character length")
1596     (description
1597      "The package facilitates wrapping text to a specific character width, breaking
1598 lines by words rather than, as done by TeX, by characters.  The primary use for
1599 these facilities is to aid the generation of messages sent to the log file or
1600 console output to display messages to the user.  Package authors may also find
1601 this useful when writing out arbitary text to an external file.")
1602     (license license:lppl1.3+)))
1603
1604 (define-public texlive-helvetic
1605   (package
1606     (inherit (simple-texlive-package
1607               "texlive-helvetic"
1608               (list "/dvips/helvetic/"
1609                     "/fonts/afm/adobe/helvetic/"
1610                     "/fonts/afm/urw/helvetic/"
1611                     "/fonts/map/dvips/helvetic/"
1612                     "/fonts/tfm/adobe/helvetic/"
1613                     "/fonts/tfm/monotype/helvetic/"
1614                     "/fonts/tfm/urw35vf/helvetic/"
1615                     "/fonts/type1/urw/helvetic/"
1616                     "/fonts/vf/adobe/helvetic/"
1617                     "/fonts/vf/monotype/helvetic/"
1618                     "/fonts/vf/urw35vf/helvetic/"
1619                     "/tex/latex/helvetic/")
1620               (base32
1621                "0c3f1ly7y6404z0akbfbbfql13sz717v0n0g69qjpr69hi4n0nsl")
1622               #:trivial? #t))
1623     (home-page "https://ctan.org/pkg/urw-base35")
1624     (synopsis "URW Base 35 font pack for LaTeX")
1625     (description "This package provides a drop-in replacements for the Helvetica
1626 font from Adobe's basic set.")
1627     ;; No license version specified.
1628     (license license:gpl3+)))
1629
1630 (define-public texlive-hyphen-afrikaans
1631   (package
1632     (inherit (texlive-hyphen-package
1633               "texlive-hyphen-afrikaans" "af"
1634               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1635               (base32
1636                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1637     (synopsis "Hyphenation patterns for Afrikaans")
1638     (description "The package provides hyphenation patterns for the Afrikaans
1639 language.")
1640     (license license:lppl1.3+)))
1641
1642 (define-public texlive-hyphen-ancientgreek
1643   (package
1644     (inherit (texlive-hyphen-package
1645               "texlive-hyphen-ancientgreek" "grc"
1646               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1647                     "/tex/generic/hyphen/grahyph5.tex"
1648                     "/tex/generic/hyphen/ibyhyph.tex")
1649               (base32
1650                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1651     (synopsis "Hyphenation patterns for ancient Greek")
1652     (description "The package provides hyphenation patterns for ancient
1653 Greek.")
1654     (license license:lppl1.3+)))
1655
1656 (define-public texlive-hyphen-armenian
1657   (let ((template (texlive-hyphen-package
1658                    "texlive-hyphen-armenian" "hy"
1659                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1660                    (base32
1661                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1662     (package
1663       (inherit template)
1664       (synopsis "Hyphenation patterns for Armenian")
1665       (description "The package provides hyphenation patterns for the Armenian
1666 language.")
1667       ;; Any version of the LGPL.
1668       (license license:lgpl3+))))
1669
1670 (define-public texlive-hyphen-basque
1671   (let ((template (texlive-hyphen-package
1672                     "texlive-hyphen-basque" "eu"
1673                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1674                     (base32
1675                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1676     (package
1677       (inherit template)
1678       (synopsis "Hyphenation patterns for Basque")
1679       (description "The package provides hyphenation patterns for the Basque
1680 language.")
1681       ;; Similar to Unicode license.
1682       (license (license:fsf-free
1683                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1684
1685 (define-public texlive-hyphen-belarusian
1686   (package
1687     (inherit (texlive-hyphen-package
1688               "texlive-hyphen-belarusian" "be"
1689               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1690               (base32
1691                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1692     (synopsis "Hyphenation patterns for Belarusian")
1693     (description "The package provides hyphenation patterns for the Belarusian
1694 language.")
1695     (license license:expat)))
1696
1697 (define-public texlive-hyphen-bulgarian
1698   (package
1699     (inherit (texlive-hyphen-package
1700               "texlive-hyphen-bulgarian" "bg"
1701               '("/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1702               (base32
1703                "0m254y71j3qrb71klvfalfmic3kjy31l85b9cgpdm5yznlsq3i8d")))
1704     (synopsis "Hyphenation patterns for Bulgarian")
1705     (description "The package provides hyphenation patterns for the Bulgarian
1706 language in T2A and UTF-8 encodings.")
1707     (license (license:non-copyleft
1708               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1709               "Ancestral BSD variant"))))
1710
1711 (define-public texlive-hyphen-catalan
1712   (package
1713     (inherit (texlive-hyphen-package
1714               "texlive-hyphen-catalan" "ca"
1715               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1716               (base32
1717                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1718     (synopsis "Hyphenation patterns for Catalan")
1719     (description "The package provides hyphenation patterns for Catalan in
1720 T1/EC and UTF-8 encodings.")
1721     (license license:lppl1.0+)))
1722
1723 (define-public texlive-hyphen-chinese
1724   (package
1725     (inherit (texlive-hyphen-package
1726               "texlive-hyphen-chinese" "zh-latn-pinyin"
1727               '("/tex/generic/hyph-utf8/patterns/ptex/hyph-zh-latn-pinyin.ec.tex"
1728                 "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1729               (base32
1730                "1hhh30hcjymm2igpllly04cavsfmd6xrjkd9zax6b2wdxn3ka4pm")))
1731     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1732     (description "The package provides hyphenation patterns for unaccented
1733 Chinese pinyin T1/EC and UTF-8 encodings.")
1734     (license license:gpl2+)))
1735
1736 (define-public texlive-hyphen-churchslavonic
1737   (package
1738     (inherit (texlive-hyphen-package
1739               "texlive-hyphen-churchslavonic" "cu"
1740               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1741               (base32
1742                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1743     (synopsis "Hyphenation patterns for Church Slavonic")
1744     (description "The package provides hyphenation patterns for Church
1745 Slavonic in UTF-8 encoding.")
1746     (license license:expat)))
1747
1748 (define-public texlive-hyphen-coptic
1749   (package
1750     (inherit (texlive-hyphen-package
1751               "texlive-hyphen-coptic" "cop"
1752               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1753                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1754               (base32
1755                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1756     (synopsis "Hyphenation patterns for Coptic")
1757     (description "The package provides hyphenation patterns for Coptic in
1758 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1759     ;; No explicit license declaration, so we use the project license.
1760     (license license:lppl)))
1761
1762 (define-public texlive-hyphen-croatian
1763   (package
1764     (inherit (texlive-hyphen-package
1765               "texlive-hyphen-croatian" "hr"
1766               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1767               (base32
1768                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1769     (synopsis "Hyphenation patterns for Croatian")
1770     (description "The package provides hyphenation patterns for Croatian in
1771 T1/EC and UTF-8 encodings.")
1772     (license license:lppl1.0+)))
1773
1774 (define-public texlive-hyphen-czech
1775   (package
1776     (inherit (texlive-hyphen-package
1777               "texlive-hyphen-czech" "cs"
1778               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1779               (base32
1780                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1781     (synopsis "Hyphenation patterns for Czech")
1782     (description "The package provides hyphenation patterns for Czech in T1/EC
1783 and UTF-8 encodings.")
1784     (license license:gpl2+)))
1785
1786 (define-public texlive-hyphen-danish
1787   (package
1788     (inherit (texlive-hyphen-package
1789               "texlive-hyphen-danish" "da"
1790               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1791               (base32
1792                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1793     (synopsis "Hyphenation patterns for Danish")
1794     (description "The package provides hyphenation patterns for Danish in
1795 T1/EC and UTF-8 encodings.")
1796     ;; Either LPPL 1.3 or later, or Expat
1797     (license (list license:lppl1.3+ license:expat))))
1798
1799 (define-public texlive-hyphen-dutch
1800   (package
1801     (inherit (texlive-hyphen-package
1802               "texlive-hyphen-dutch" "nl"
1803               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1804               (base32
1805                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1806     (synopsis "Hyphenation patterns for Dutch")
1807     (description "The package provides hyphenation patterns for Dutch in T1/EC
1808 and UTF-8 encodings.")
1809     (license license:lppl1.0+)))
1810
1811 (define-public texlive-hyphen-english
1812   (package
1813     (inherit (texlive-hyphen-package
1814               "texlive-hyphen-english" '("en-gb" "en-us")
1815               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1816                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1817               (base32
1818                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1819     (synopsis "Hyphenation patterns for American and British English")
1820     (description "The package provides additional hyphenation patterns for
1821 American and British English in ASCII encoding.")
1822     (license (license:non-copyleft
1823               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1824               "FSF all permissive license"))))
1825
1826 (define-public texlive-hyphen-esperanto
1827   (package
1828     (inherit (texlive-hyphen-package
1829               "texlive-hyphen-esperanto" "eo"
1830               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1831               (base32
1832                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1833     (synopsis "Hyphenation patterns for Esperanto")
1834     (description "The package provides hyphenation patterns for Esperanto ISO
1835 Latin 3 and UTF-8 encodings.")
1836     (license license:lppl1.0+)))
1837
1838 (define-public texlive-hyphen-estonian
1839   (package
1840     (inherit (texlive-hyphen-package
1841               "texlive-hyphen-estonian" "et"
1842               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1843               (base32
1844                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1845     (synopsis "Hyphenation patterns for Estonian")
1846     (description "The package provides hyphenation patterns for Estonian in
1847 T1/EC and UTF-8 encodings.")
1848     ;; Dual licensed under either license.
1849     (license (list license:lppl1.3+ license:expat))))
1850
1851 (define-public texlive-hyphen-ethiopic
1852   (let ((template (texlive-hyphen-package
1853                    "texlive-hyphen-ethiopic" "mul-ethi"
1854                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1855                    (base32
1856                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1857     (package
1858       (inherit template)
1859       (synopsis "Hyphenation patterns for Ethiopic scripts")
1860       (description "The package provides hyphenation patterns for languages
1861 written using the Ethiopic script for Unicode engines.  They are not supposed
1862 to be linguistically relevant in all cases and should, for proper typography,
1863 be replaced by files tailored to individual languages.")
1864       (license license:expat))))
1865
1866 (define-public texlive-hyphen-finnish
1867   (package
1868     (inherit (texlive-hyphen-package
1869               "texlive-hyphen-finnish" "fi"
1870               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1871               (base32
1872                "1pa8sjs9zvnv1y6dma4s60sf9cr4zrvhxwm6i8cnshm84q16w4bc")))
1873     (synopsis "Hyphenation patterns for Finnish")
1874     (description "The package provides hyphenation patterns for Finnish in
1875 T1/EC and UTF-8 encodings.")
1876     (license license:public-domain)))
1877
1878 (define-public texlive-hyphen-schoolfinnish
1879   (package
1880     (inherit (texlive-hyphen-package
1881               "texlive-hyphen-schoolfinnish" "fi-x-school"
1882               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi-x-school.tex")
1883               (base32
1884                "1w5n6gaclgifbbnafg32vz3mfaibyldvh4yh1ya3sq9fwfmv035c")))
1885     (synopsis "Hyphenation patterns for Finnish for school")
1886     (description "The package provides hyphenation patterns for Finnish for
1887 school in T1/EC and UTF-8 encodings.")
1888     (license license:public-domain)))
1889
1890 (define-public texlive-hyphen-french
1891   (package
1892     (inherit (texlive-hyphen-package
1893               "texlive-hyphen-french" "fr"
1894               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1895               (base32
1896                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1897     (synopsis "Hyphenation patterns for French")
1898     (description "The package provides hyphenation patterns for French in
1899 T1/EC and UTF-8 encodings.")
1900     (license license:expat)))
1901
1902 (define-public texlive-hyphen-friulan
1903   (package
1904     (inherit (texlive-hyphen-package
1905               "texlive-hyphen-friulan" "fur"
1906               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1907               (base32
1908                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1909     (synopsis "Hyphenation patterns for Friulan")
1910     (description "The package provides hyphenation patterns for Friulan in
1911 ASCII encodings.")
1912     (license license:lppl1.3+)))
1913
1914 (define-public texlive-hyphen-galician
1915   (let ((template (texlive-hyphen-package
1916                    "texlive-hyphen-galician" "gl"
1917                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1918                    (base32
1919                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1920     (package
1921       (inherit template)
1922       (synopsis "Hyphenation patterns for Galician")
1923       (description "The package provides hyphenation patterns for Galician in
1924 T1/EC and UTF-8 encodings.")
1925       (license license:lppl1.3))))
1926
1927 (define-public texlive-hyphen-georgian
1928   (package
1929     (inherit (texlive-hyphen-package
1930               "texlive-hyphen-georgian" "ka"
1931               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1932               (base32
1933                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1934     (synopsis "Hyphenation patterns for Georgian")
1935     (description "The package provides hyphenation patterns for Georgian in
1936 T8M, T8K, and UTF-8 encodings.")
1937     (license license:lppl1.3+)))
1938
1939 (define-public texlive-hyphen-german
1940   (package
1941     (inherit (texlive-hyphen-package
1942               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1943               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1944                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1945                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1946                     "/tex/generic/dehyph/dehyphn.tex"
1947                     "/tex/generic/dehyph/dehypht.tex"
1948                     "/tex/generic/dehyph/dehyphtex.tex"
1949                     "/tex/generic/dehyph/README")
1950               (base32
1951                "17cc5hd0fr3ykpgly9nxaiz4sik3kmfn2wyxz1fkdnqqhl3i41a0")))
1952     (synopsis "Hyphenation patterns for German")
1953     (description "This package provides hyphenation patterns for German in
1954 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1955 Swiss German.")
1956     ;; The patterns are released under the Expat license; the dehyph* files
1957     ;; are released under the LPPL version 1 or later.
1958     (license (list license:expat license:lppl1.0+))))
1959
1960 (define-public texlive-hyphen-greek
1961   (package
1962     (inherit (texlive-hyphen-package
1963               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1964               (list "/doc/generic/elhyphen/"
1965                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1966                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1967                     "/tex/generic/hyphen/grmhyph5.tex"
1968                     "/tex/generic/hyphen/grphyph5.tex")
1969               (base32
1970                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1971     (synopsis "Hyphenation patterns for Greek")
1972     (description "This package provides hyphenation patterns for Modern Greek
1973 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1974     (license license:lppl)))
1975
1976 (define-public texlive-hyphen-hungarian
1977   (package
1978     (inherit (texlive-hyphen-package
1979               "texlive-hyphen-hungarian" "hu"
1980               (list "/doc/generic/huhyphen/"
1981                     "/doc/generic/hyph-utf8/languages/hu/"
1982                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1983               (base32
1984                "006d2290lcsqzh9ljansbaj9k52s17zgkw0kpsspn5l7a8n00zcl")))
1985     (synopsis "Hyphenation patterns for Hungarian")
1986     (description "This package provides hyphenation patterns for Hungarian in
1987 T1/EC and UTF-8 encodings.")
1988     ;; Any of these licenses
1989     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1990
1991 (define-public texlive-hyphen-icelandic
1992   (package
1993     (inherit (texlive-hyphen-package
1994               "texlive-hyphen-icelandic" "is"
1995               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1996               (base32
1997                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1998     (synopsis "Hyphenation patterns for Icelandic")
1999     (description "This package provides hyphenation patterns for Icelandic in
2000 T1/EC and UTF-8 encodings.")
2001     (license license:lppl1.2+)))
2002
2003 (define-public texlive-hyphen-indic
2004   (package
2005     (inherit (texlive-hyphen-package
2006               "texlive-hyphen-indic"
2007               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
2008               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
2009                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
2010                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
2011                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
2012                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
2013                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
2014                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
2015                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
2016                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
2017                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
2018                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
2019               (base32
2020                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
2021     (synopsis "Indic hyphenation patterns")
2022     (description "This package provides hyphenation patterns for Assamese,
2023 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
2024 and Telugu for Unicode engines.")
2025     (license license:expat)))
2026
2027 (define-public texlive-hyphen-indonesian
2028   (package
2029     (inherit (texlive-hyphen-package
2030               "texlive-hyphen-indonesian" "id"
2031               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
2032               (base32
2033                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
2034     (synopsis "Indonesian hyphenation patterns")
2035     (description "This package provides hyphenation patterns for
2036 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
2037 usable for Malay (Bahasa Melayu).")
2038     (license license:gpl2)))
2039
2040 (define-public texlive-hyphen-interlingua
2041   (package
2042     (inherit (texlive-hyphen-package
2043               "texlive-hyphen-interlingua" "ia"
2044               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
2045               (base32
2046                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
2047     (synopsis "Interlingua hyphenation patterns")
2048     (description "This package provides hyphenation patterns for Interlingua
2049 in ASCII encoding.")
2050     (license license:lppl1.3+)))
2051
2052 (define-public texlive-hyphen-irish
2053   (package
2054     (inherit (texlive-hyphen-package
2055               "texlive-hyphen-irish" "ga"
2056               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
2057               (base32
2058                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
2059     (synopsis "Irish hyphenation patterns")
2060     (description "This package provides hyphenation patterns for
2061 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
2062     ;; Either of these licenses
2063     (license (list license:gpl2+ license:expat))))
2064
2065 (define-public texlive-hyphen-italian
2066   (package
2067     (inherit (texlive-hyphen-package
2068               "texlive-hyphen-italian" "it"
2069               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
2070               (base32
2071                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
2072     (synopsis "Italian hyphenation patterns")
2073     (description "This package provides hyphenation patterns for Italian in
2074 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
2075 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
2076 UNI).")
2077     (license license:lppl1.3+)))
2078
2079 (define-public texlive-hyphen-kurmanji
2080   (package
2081     (inherit (texlive-hyphen-package
2082               "texlive-hyphen-kurmanji" "kmr"
2083               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
2084               (base32
2085                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
2086     (synopsis "Kurmanji hyphenation patterns")
2087     (description "This package provides hyphenation patterns for
2088 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
2089 Europe, in T1/EC and UTF-8 encodings.")
2090     (license license:lppl1.3)))
2091
2092 (define-public texlive-hyphen-latin
2093   (package
2094     (inherit (texlive-hyphen-package
2095               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
2096               '("/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
2097                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
2098                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex"
2099                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-la-x-classic.ec.tex")
2100               (base32
2101                "119rf6sk1f639ky6zr9njn21nsxzgfmjci94y26745qs8w08ilkl")))
2102     (synopsis "Liturgical Latin hyphenation patterns")
2103     (description "This package provides hyphenation patterns for Latin in
2104 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
2105 when v is needed), medieval spelling with the ligatures @code{\\ae} and
2106 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
2107 Apparently there is no conflict between the patterns of modern Latin and those
2108 of medieval Latin.  It also includes hyphenation patterns for the Classical
2109 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
2110 different from those of 'plain' Latin, the latter being more adapted to modern
2111 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
2112 T1/EC and UTF-8 encodings.")
2113     ;; Either of these licenses
2114     (license (list license:lppl1.0+ license:expat))))
2115
2116 (define-public texlive-hyphen-latvian
2117   (package
2118     (inherit (texlive-hyphen-package
2119               "texlive-hyphen-latvian" "lv"
2120               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
2121               (base32
2122                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
2123     (synopsis "Latvian hyphenation patterns")
2124     (description "This package provides hyphenation patterns for Latvian in
2125 L7X and UTF-8 encodings.")
2126     ;; Either of these licenses.
2127     (license (list license:gpl2 license:lgpl2.1))))
2128
2129 (define-public texlive-hyphen-lithuanian
2130   (package
2131     (inherit (texlive-hyphen-package
2132               "texlive-hyphen-lithuanian" "lt"
2133               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
2134               (base32
2135                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
2136     (synopsis "Lithuanian hyphenation patterns")
2137     (description "This package provides hyphenation patterns for Lithuanian in
2138 L7X and UTF-8 encodings.")
2139     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
2140     ;; the hyph-utf8 package we choose the LPPL license.
2141     (license license:lppl)))
2142
2143 (define-public texlive-hyphen-macedonian
2144   (package
2145     (inherit (texlive-hyphen-package
2146               "texlive-hyphen-macedonian" "mk"
2147               '("/tex/generic/hyph-utf8/patterns/tex/hyph-mk.tex"
2148                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-mk.macedonian.tex")
2149               (base32
2150                "1fv6y8gpic5ciw8cclfxc8h3wr5xir1j0a7shixja1pmdyz7db2b")))
2151     (synopsis "Macedonian hyphenation patterns")
2152     (description "This package provides hyphenation patterns for Macedonian.")
2153     ;; XXX: License just says 'GPL'.  Assume GPL2 since the file predates GPL3.
2154     (license license:gpl2+)))
2155
2156 (define-public texlive-hyphen-mongolian
2157   (package
2158     (inherit (texlive-hyphen-package
2159               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
2160               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
2161                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
2162               (base32
2163                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
2164     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
2165     (description "This package provides hyphenation patterns for Mongolian in
2166 T2A, LMC and UTF-8 encodings.")
2167     ;; Either of these licenses
2168     (license (list license:lppl1.3+ license:expat))))
2169
2170 (define-public texlive-hyphen-norwegian
2171   (package
2172     (inherit (texlive-hyphen-package
2173               "texlive-hyphen-norwegian" '("nb" "nn" "no")
2174               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
2175                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
2176                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
2177               (base32
2178                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
2179     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
2180     (description "This package provides hyphenation patterns for Norwegian
2181 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
2182     (license (license:non-copyleft
2183               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
2184               "FSF All permissive license"))))
2185
2186 (define-public texlive-hyphen-occitan
2187   (package
2188     (inherit (texlive-hyphen-package
2189               "texlive-hyphen-occitan" "oc"
2190               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
2191               (base32
2192                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
2193     (synopsis "Occitan hyphenation patterns")
2194     (description "This package provides hyphenation patterns for Occitan in
2195 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
2196 variants spoken and written in the wide area called 'Occitanie' by the French.
2197 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
2198 Alps encompassing the southern half of the French pentagon.")
2199     (license license:lppl1.0+)))
2200
2201 (define-public texlive-hyphen-pali
2202   (package
2203     (inherit (texlive-hyphen-package
2204               "texlive-hyphen-pali" "pi"
2205               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
2206               (base32
2207                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
2208     (synopsis "Panjabi hyphenation patterns")
2209     (description "This package provides hyphenation patterns for Panjabi in
2210 T1/EC encoding.")
2211     ;; Can be used with either license.
2212     (license (list license:expat license:lgpl3+ license:gpl3+))))
2213
2214 (define-public texlive-hyphen-piedmontese
2215   (package
2216     (inherit (texlive-hyphen-package
2217               "texlive-hyphen-piedmontese" "pms"
2218               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
2219               (base32
2220                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
2221     (synopsis "Piedmontese hyphenation patterns")
2222     (description "This package provides hyphenation patterns for Piedmontese
2223 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
2224 Camillo Brero.")
2225     (license license:lppl1.3+)))
2226
2227 (define-public texlive-hyphen-polish
2228   (package
2229     (inherit (texlive-hyphen-package
2230               "texlive-hyphen-polish" "pl"
2231               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
2232               (base32
2233                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
2234     (synopsis "Polish hyphenation patterns")
2235     (description "This package provides hyphenation patterns for Polish in QX
2236 and UTF-8 encodings.")
2237     ;; No differing license declared, so we choose the project license.
2238     (license license:lppl)))
2239
2240 (define-public texlive-hyphen-portuguese
2241   (package
2242     (inherit (texlive-hyphen-package
2243               "texlive-hyphen-portuguese" "pt"
2244               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
2245               (base32
2246                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
2247     (synopsis "Portuguese hyphenation patterns")
2248     (description "This package provides hyphenation patterns for Portuguese in
2249 T1/EC and UTF-8 encodings.")
2250     (license license:bsd-3)))
2251
2252 (define-public texlive-hyphen-romanian
2253   (package
2254     (inherit (texlive-hyphen-package
2255               "texlive-hyphen-romanian" "ro"
2256               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
2257               (base32
2258                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
2259     (synopsis "Romanian hyphenation patterns")
2260     (description "This package provides hyphenation patterns for Romanian in
2261 T1/EC and UTF-8 encodings.")
2262     ;; No differing license declared, so we choose the project license.
2263     (license license:lppl)))
2264
2265 (define-public texlive-hyphen-romansh
2266   (package
2267     (inherit (texlive-hyphen-package
2268               "texlive-hyphen-romansh" "rm"
2269               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
2270               (base32
2271                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
2272     (synopsis "Romansh hyphenation patterns")
2273     (description "This package provides hyphenation patterns for Romansh in
2274 ASCII encodings.  They are supposed to comply with the rules indicated by the
2275 Lia Rumantscha (Romansh language society).")
2276     (license license:lppl1.3+)))
2277
2278 (define-public texlive-hyphen-russian
2279   (package
2280     (inherit (texlive-hyphen-package
2281               "texlive-hyphen-russian" "ru"
2282               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
2283               (base32
2284                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
2285     (synopsis "Russian hyphenation patterns")
2286     (description "This package provides hyphenation patterns for Russian in
2287 T2A and UTF-8 encodings.")
2288     (license license:lppl1.2+)))
2289
2290 (define-public texlive-hyphen-sanskrit
2291   (package
2292     (inherit (texlive-hyphen-package
2293               "texlive-hyphen-sanskrit" "sa"
2294               (list "/doc/generic/hyph-utf8/languages/sa/hyphenmin.txt"
2295                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
2296               (base32
2297                "1bkzj8swj4lbswf1vr4pb1jg6dixzs7p8h8zm8s8as52h442aida")))
2298     (synopsis "Sanskrit hyphenation patterns")
2299     (description "This package provides hyphenation patterns for Sanskrit and
2300 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
2301 Malayalam longdesc and Telugu scripts for Unicode engines.")
2302     ;; "You may freely use, copy, modify and/or distribute this file."
2303     (license (license:non-copyleft
2304               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
2305
2306 (define-public texlive-hyphen-serbian
2307   (package
2308     (inherit (texlive-hyphen-package
2309               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
2310               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
2311                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
2312                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
2313               (base32
2314                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
2315     (synopsis "Serbian hyphenation patterns")
2316     (description "This package provides hyphenation patterns for Serbian in
2317 T1/EC, T2A and UTF-8 encodings.")
2318     ;; Any version of the GPL.
2319     (license license:gpl3+)))
2320
2321 (define-public texlive-hyphen-slovak
2322   (package
2323     (inherit (texlive-hyphen-package
2324               "texlive-hyphen-slovak" "sk"
2325               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
2326               (base32
2327                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
2328     (synopsis "Slovak hyphenation patterns")
2329     (description "This package provides hyphenation patterns for Slovak in
2330 T1/EC and UTF-8 encodings.")
2331     (license license:gpl2+)))
2332
2333 (define-public texlive-hyphen-slovenian
2334   (package
2335     (inherit (texlive-hyphen-package
2336               "texlive-hyphen-slovenian" "sl"
2337               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
2338               (base32
2339                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
2340     (synopsis "Slovenian hyphenation patterns")
2341     (description "This package provides hyphenation patterns for Slovenian in
2342 T1/EC and UTF-8 encodings.")
2343     ;; Either license
2344     (license (list license:lppl1.0+ license:expat))))
2345
2346 (define-public texlive-hyphen-spanish
2347   (package
2348     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
2349     ;; generate obsolete hyphenation patterns, which aren't included in a
2350     ;; default TeX Live distribution, so we don't include them either.
2351     (inherit (texlive-hyphen-package
2352               "texlive-hyphen-spanish" "es"
2353               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
2354               (base32
2355                "05lbvjkj304xxghyihk8js0kmg97ddlgijld3bp81bc28h4cav0v")))
2356     (synopsis "Hyphenation patterns for Spanish")
2357     (description "The package provides hyphenation patterns for Spanish in
2358 T1/EC and UTF-8 encodings.")
2359     (license license:expat)))
2360
2361 (define-public texlive-hyphen-swedish
2362   (package
2363     (inherit (texlive-hyphen-package
2364               "texlive-hyphen-swedish" "sv"
2365               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2366               (base32
2367                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2368     (synopsis "Swedish hyphenation patterns")
2369     (description "This package provides hyphenation patterns for Swedish in
2370 T1/EC and UTF-8 encodings.")
2371     (license license:lppl1.2+)))
2372
2373 (define-public texlive-hyphen-thai
2374   (package
2375     (inherit (texlive-hyphen-package
2376               "texlive-hyphen-thai" "th"
2377               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2378               (base32
2379                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2380     (synopsis "Thai hyphenation patterns")
2381     (description "This package provides hyphenation patterns for Thai in LTH
2382 and UTF-8 encodings.")
2383     (license license:lppl1.3+)))
2384
2385 (define-public texlive-hyphen-turkish
2386   (let ((template (texlive-hyphen-package
2387                    "texlive-hyphen-turkish" "tr"
2388                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2389                    (base32
2390                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2391     (package
2392       (inherit template)
2393       (synopsis "Hyphenation patterns for Turkish")
2394       (description "The package provides hyphenation patterns for Turkish in
2395 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2396 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2397 and Ottoman Turkish in Latin script, however the required character set didn't
2398 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2399 compatibility with 8-bit engines.")
2400       (license license:lppl1.0+))))
2401
2402 (define-public texlive-hyphen-turkmen
2403   (let ((template (texlive-hyphen-package
2404                    "texlive-hyphen-turkmen" "tk"
2405                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2406                    (base32
2407                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2408     (package
2409       (inherit template)
2410       (synopsis "Hyphenation patterns for Turkmen")
2411       (description "The package provides hyphenation patterns for Turkmen in
2412 T1/EC and UTF-8 encodings.")
2413       (license license:expat))))
2414
2415 (define-public texlive-hyphen-ukrainian
2416   (package
2417     (inherit (texlive-hyphen-package
2418               "texlive-hyphen-ukrainian" "uk"
2419               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2420               (base32
2421                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2422     (synopsis "Ukrainian hyphenation patterns")
2423     (description "This package provides hyphenation patterns for Ukrainian in
2424 T2A and UTF-8 encodings.")
2425     ;; No version specified
2426     (license license:lppl)))
2427
2428 (define-public texlive-hyphen-uppersorbian
2429   (package
2430     (inherit (texlive-hyphen-package
2431               "texlive-hyphen-uppersorbian" "hsb"
2432               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2433               (base32
2434                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2435     (synopsis "Upper Sorbian hyphenation patterns")
2436     (description "This package provides hyphenation patterns for Upper Sorbian
2437 in T1/EC and UTF-8 encodings.")
2438     (license license:lppl1.3a+)))
2439
2440 (define-public texlive-hyphen-welsh
2441   (package
2442     (inherit (texlive-hyphen-package
2443               "texlive-hyphen-welsh" "cy"
2444               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2445               (base32
2446                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2447     (synopsis "Welsh hyphenation patterns")
2448     (description "This package provides hyphenation patterns for Welsh in
2449 T1/EC and UTF-8 encodings.")
2450     ;; Either license
2451     (license (list license:lppl1.0+ license:expat))))
2452
2453 (define-public texlive-hyph-utf8
2454   (package
2455     (inherit (simple-texlive-package
2456               "texlive-hyph-utf8"
2457               (list "/source/generic/hyph-utf8/"
2458                     "/source/luatex/hyph-utf8/"
2459                     "/doc/luatex/hyph-utf8/"
2460                     "/tex/luatex/hyph-utf8/etex.src"
2461                     ;; Used to extract luatex-hyphen.lua
2462                     "/tex/latex/base/docstrip.tex"
2463
2464                     ;; Documentation; we can't use the whole directory because
2465                     ;; it includes files from other packages.
2466                     "/doc/generic/hyph-utf8/CHANGES"
2467                     "/doc/generic/hyph-utf8/HISTORY"
2468                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2469                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2470                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2471                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2472                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2473                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2474               (base32
2475                "0rgp0zn36gwzqwpmjb9h01ns3m19v3r7lpw1h0pc9bx115w6c9jx")))
2476     (outputs '("out" "doc"))
2477     (build-system gnu-build-system)
2478     (arguments
2479      `(#:tests? #f ; there are none
2480        #:modules ((guix build gnu-build-system)
2481                   (guix build utils)
2482                   (ice-9 match))
2483        #:make-flags
2484        (list "-C" "source/luatex/hyph-utf8/"
2485              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2486              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2487              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2488              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2489              (string-append "UNPACKED = $(NAME).lua"))
2490        #:phases
2491        (modify-phases %standard-phases
2492          ;; TeX isn't usable at this point, so we first need to generate the
2493          ;; tex.fmt.
2494          (replace 'configure
2495            (lambda* (#:key inputs outputs #:allow-other-keys)
2496              ;; Target directories must exist.
2497              (mkdir-p (string-append (assoc-ref %outputs "out")
2498                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2499              (mkdir-p (string-append (assoc-ref %outputs "doc")
2500                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2501
2502              ;; We cannot build the documentation because that requires a
2503              ;; fully functional pdflatex, which depends on this package.
2504              (substitute* "source/luatex/hyph-utf8/Makefile"
2505                (("all: .*") "all: $(RUNFILES)\n"))
2506
2507              ;; Find required fonts for building tex.fmt
2508              (setenv "TFMFONTS"
2509                      (string-append (assoc-ref inputs "texlive-cm")
2510                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2511                                     (assoc-ref inputs "texlive-knuth-lib")
2512                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2513              ;; ...and find all tex files in this environment.
2514              (setenv "TEXINPUTS"
2515                      (string-append
2516                       (getcwd) ":"
2517                       (string-join
2518                        (map (match-lambda ((_ . dir) dir)) inputs)
2519                        "//:")))
2520
2521              ;; Generate tex.fmt.
2522              (let ((where "source/luatex/hyph-utf8"))
2523                (mkdir-p where)
2524                (with-directory-excursion where
2525                  (invoke "tex" "-ini"
2526                          (string-append (assoc-ref inputs "texlive-tex-plain")
2527                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2528          (add-before 'build 'build-loaders-and-converters
2529            (lambda* (#:key outputs #:allow-other-keys)
2530              (let* ((root (string-append (assoc-ref outputs "out")
2531                                          "/share/texmf-dist"))
2532                     (conv
2533                      (string-append root
2534                                     "/tex/generic/hyph-utf8/conversions")))
2535
2536                ;; Build converters
2537                (mkdir-p conv)
2538                (with-directory-excursion "source/generic/hyph-utf8"
2539                  (substitute* "generate-converters.rb"
2540                    (("\\$path_root=File.*")
2541                     (string-append "$path_root=\"" root "\"\n"))
2542                    ;; Avoid error with newer Ruby.
2543                    (("#1\\{%") "#1{%%"))
2544                  (invoke "ruby" "generate-converters.rb"))
2545                #t)))
2546          (replace 'install
2547            (lambda* (#:key source outputs #:allow-other-keys)
2548              (let ((doc (assoc-ref outputs "doc"))
2549                    (out (assoc-ref outputs "out")))
2550                (mkdir-p doc)
2551                (copy-recursively
2552                 (string-append source "/doc")
2553                 (string-append doc "/doc"))
2554                (install-file
2555                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2556                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2557              #t)))))
2558     (native-inputs
2559      (list ruby
2560            texlive-bin
2561            ;; The following packages are needed for build "tex.fmt", which we need
2562            ;; for a working "tex".
2563            texlive-tex-plain
2564            texlive-cm
2565            texlive-knuth-lib
2566            texlive-hyphen-base))
2567     (home-page "https://ctan.org/pkg/hyph-utf8")
2568     (synopsis "Hyphenation patterns expressed in UTF-8")
2569     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2570 hyphenation patterns in UTF-8 format, whereas older systems require
2571 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2572 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2573 etc).  The present package offers a collection of conversions of existing
2574 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2575 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2576 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2577 converters, will completely supplant the older patterns.")
2578     ;; Individual files each have their own license.  Most of these files are
2579     ;; independent hyphenation patterns.
2580     (license (list license:lppl1.0+
2581                    license:lppl1.2+
2582                    license:lppl1.3
2583                    license:lppl1.3+
2584                    license:lppl1.3a+
2585                    license:lgpl2.1
2586                    license:lgpl2.1+
2587                    license:lgpl3+
2588                    license:gpl2+
2589                    license:gpl3+
2590                    license:mpl1.1
2591                    license:asl2.0
2592                    license:expat
2593                    license:bsd-3
2594                    license:cc0
2595                    license:public-domain
2596                    license:wtfpl2))))
2597
2598 (define-deprecated-package texlive-generic-hyph-utf8 texlive-hyph-utf8)
2599
2600 (define-public texlive-dehyph-exptl
2601   (package
2602     (inherit (simple-texlive-package
2603               "texlive-dehyph-exptl"
2604               (list "/tex/generic/dehyph-exptl/"
2605                     "/doc/generic/dehyph-exptl/")
2606               (base32
2607                "0l57a0r4gycp94kz6lrxqvh9m57j2shmbr2laf5zjb0qnrisq46d")
2608               #:trivial? #t))
2609     (propagated-inputs
2610      (list texlive-hyphen-base texlive-hyph-utf8))
2611     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2612     (synopsis "Hyphenation patterns for German")
2613     (description "The package provides experimental hyphenation patterns for
2614 the German language, covering both traditional and reformed orthography.  The
2615 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2616 bundle.")
2617     ;; Hyphenation patterns are under the Expat license; documentation is
2618     ;; under LPPL.
2619     (license (list license:expat license:lppl))))
2620
2621 (define-deprecated-package texlive-generic-dehyph-exptl texlive-dehyph-exptl)
2622
2623 (define-public texlive-ukrhyph
2624   (package
2625     (inherit (simple-texlive-package
2626               "texlive-ukrhyph"
2627               (list "/doc/generic/ukrhyph/"
2628                     "/tex/generic/ukrhyph/")
2629               (base32
2630                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2631               #:trivial? #t))
2632     (home-page "https://www.ctan.org/pkg/ukrhyph")
2633     (synopsis "Hyphenation patterns for Ukrainian")
2634     (description "The package provides a range of hyphenation patterns for
2635 Ukrainian, depending on the encoding of the output font including the standard
2636 T2A.")
2637     (license license:lppl)))
2638
2639 (define-public texlive-ruhyphen
2640   (let ((template (simple-texlive-package
2641                    "texlive-ruhyphen"
2642                    (list "/source/generic/ruhyphen/"
2643                          "/tex/generic/ruhyphen/")
2644                    (base32
2645                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2646                    #:trivial? #t)))
2647     (package
2648       (inherit template)
2649       (arguments
2650        (substitute-keyword-arguments (package-arguments template)
2651          ((#:phases phases)
2652           `(modify-phases ,phases
2653              (replace 'build
2654                (lambda _
2655                  (let ((cwd (getcwd)))
2656                    ;; Remove generated files.
2657                    (for-each delete-file
2658                              (find-files "tex/generic/ruhyphen/"
2659                                          "^cyry.*.tex$"))
2660                    (substitute* "source/generic/ruhyphen/Makefile"
2661                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2662                    (with-directory-excursion "tex/generic/ruhyphen"
2663                      (invoke "make" "-f"
2664                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2665       (native-inputs
2666        (list coreutils gawk sed grep perl))
2667       (home-page "https://www.ctan.org/pkg/ruhyphen")
2668       (synopsis "Hyphenation patterns for Russian")
2669       (description "The package provides a collection of Russian hyphenation
2670 patterns supporting a number of Cyrillic font encodings, including T2,
2671 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2672       (license license:lppl))))
2673
2674 (define-public texlive-inputenx
2675   (package
2676     (inherit (simple-texlive-package
2677               "texlive-inputenx"
2678               (list "doc/latex/inputenx/"
2679                     "tex/latex/inputenx/"
2680                     "source/latex/inputenx/")
2681               (base32
2682                "0snjndrcynm4w8m9iq8gmadzhrbwvsdy4y1ak24ia0hpsicdi4aj")
2683               #:trivial? #t))
2684     (home-page "https://ctan.org/macros/latex/contrib/inputenx")
2685     (synopsis "Enhanced input encoding handling")
2686     (description
2687      "This package deals with input encodings.  It provides a wider range of input
2688 encodings using standard mappings, than does inputenc; it also covers nearly all
2689 slots.  In this way, it serves as more uptodate replacement for package
2690 inputenc.")
2691     (license license:lppl1.3+)))
2692
2693 (define-public texlive-kpathsea
2694   (let ((template (simple-texlive-package
2695                    "texlive-kpathsea"
2696                    (list "/web2c/amiga-pl.tcx"
2697                          "/web2c/cp1250cs.tcx"
2698                          "/web2c/cp1250pl.tcx"
2699                          "/web2c/cp1250t1.tcx"
2700                          "/web2c/cp227.tcx"
2701                          "/web2c/cp852-cs.tcx"
2702                          "/web2c/cp852-pl.tcx"
2703                          "/web2c/cp8bit.tcx"
2704                          "/web2c/empty.tcx"
2705                          "/web2c/fmtutil.cnf"
2706                          "/web2c/il1-t1.tcx"
2707                          "/web2c/il2-cs.tcx"
2708                          "/web2c/il2-pl.tcx"
2709                          "/web2c/il2-t1.tcx"
2710                          "/web2c/kam-cs.tcx"
2711                          "/web2c/kam-t1.tcx"
2712                          "/web2c/macce-pl.tcx"
2713                          "/web2c/macce-t1.tcx"
2714                          "/web2c/maz-pl.tcx"
2715                          "/web2c/mktex.cnf"
2716                          "/web2c/mktex.opt"
2717                          "/web2c/mktexdir"
2718                          "/web2c/mktexdir.opt"
2719                          "/web2c/mktexnam"
2720                          "/web2c/mktexnam.opt"
2721                          "/web2c/mktexupd"
2722                          "/web2c/natural.tcx"
2723                          "/web2c/tcvn-t5.tcx"
2724                          "/web2c/viscii-t5.tcx")
2725                    (base32
2726                     "00q2nny7lw7jxyln6ch4h0alygbrzk8yynliyc291m53kds1h0mr")
2727                    #:trivial? #t)))
2728     (package
2729       (inherit template)
2730       (arguments
2731        (substitute-keyword-arguments (package-arguments template)
2732          ((#:phases phases '%standard-phases)
2733           `(modify-phases ,phases
2734              (add-after 'unpack 'patch-references
2735                (lambda* (#:key inputs #:allow-other-keys)
2736                  (let ((dirs (map dirname (list (which "sed")
2737                                                 (which "awk")))))
2738                    (substitute* '("web2c/mktexdir"
2739                                   "web2c/mktexnam"
2740                                   "web2c/mktexupd")
2741                      (("^version=" m)
2742                       (format #false "PATH=\"~{~a:~}$PATH\"; export PATH~%~a"
2743                               dirs m))))))))))
2744       (inputs
2745        (list sed gawk))
2746       (home-page "https://www.tug.org/texlive/")
2747       (synopsis "Files related to the path searching library for TeX")
2748       (description "Kpathsea is a library and utility programs which provide
2749 path searching facilities for TeX file types, including the self-locating
2750 feature required for movable installations, layered on top of a general search
2751 mechanism.  This package provides supporting files.")
2752       (license license:lgpl3+))))
2753
2754 (define-public texlive-kpfonts
2755   (package
2756     (inherit (simple-texlive-package
2757               "texlive-kpfonts"
2758               (list "doc/fonts/kpfonts/"
2759                     "fonts/enc/dvips/kpfonts/"
2760                     "fonts/map/dvips/kpfonts/"
2761                     "fonts/tfm/public/kpfonts/"
2762                     "fonts/type1/public/kpfonts/"
2763                     "fonts/vf/public/kpfonts/"
2764                     "source/fonts/kpfonts/"
2765                     "tex/latex/kpfonts/")
2766               (base32 "0inai1p9bbjd5x790nsamakjaj0imvwv21mp9f98dwvdlj58vkqb")
2767               #:trivial? #t))
2768     (home-page "https://ctan.org/fonts/kpfonts")
2769     (synopsis "Complete set of fonts for text and mathematics")
2770     (description
2771      "The family contains text fonts in roman, sans-serif and monospaced
2772 shapes, with true small caps and old-style numbers; the package offers full
2773 support of the textcomp package.  The mathematics fonts include all the AMS
2774 fonts, in both normal and bold weights.  Each of the font types is available
2775 in two main versions: default and light.  Each version is available in four
2776 variants: default; oldstyle numbers; oldstyle numbers with old ligatures such
2777 as ct and st, and long-tailed capital Q; and veryoldstyle with long s.  Other
2778 variants include small caps as default or large small caps, and for
2779 mathematics both upright and slanted shapes for Greek letters, as well as
2780 default and narrow versions of multiple integrals.")
2781     (license license:gpl3+)))
2782
2783 (define-public texlive-latexconfig
2784   (package
2785     (inherit (simple-texlive-package
2786               "texlive-latexconfig"
2787               (list "/tex/latex/latexconfig/")
2788               (base32
2789                "10ynmd8b9b9l1wl1mva23yz4zir53p6r5z31s39wmxz19pj12qvx")
2790               #:trivial? #t))
2791     (home-page "https://www.tug.org/")
2792     (synopsis "Configuration files for LaTeX-related formats")
2793     (description "The package provides configuration files for LaTeX-related
2794 formats.")
2795     (license license:lppl)))
2796
2797 (define-public texlive-latex-base
2798   (let ((template (simple-texlive-package
2799                    "texlive-latex-base"
2800                    (list "/doc/latex/base/"
2801                          "/source/latex/base/"
2802                          ;; Almost all files in /tex/latex/base are generated, but
2803                          ;; these are not:
2804                          "/tex/latex/base/idx.tex"
2805                          "/tex/latex/base/lablst.tex"
2806                          "/tex/latex/base/ltnews.cls"
2807                          "/tex/latex/base/ltxcheck.tex"
2808                          "/tex/latex/base/ltxguide.cls"
2809                          "/tex/latex/base/minimal.cls"
2810                          "/tex/latex/base/sample2e.tex"
2811                          "/tex/latex/base/small2e.tex"
2812                          "/tex/latex/base/testpage.tex"
2813                          "/tex/latex/base/texsys.cfg")
2814                    (base32
2815                     "0msyjz0937rc7hs77v6la152sdiwd73qj41z1mlyh0m3dns9qz4g")
2816                    #:trivial? #t)))
2817     (package
2818       (inherit template)
2819       (arguments
2820        (substitute-keyword-arguments (package-arguments template)
2821          ((#:modules modules '())
2822           '((guix build gnu-build-system)
2823             (guix build utils)
2824             (ice-9 match)
2825             (srfi srfi-26)))
2826          ((#:phases phases)
2827           `(modify-phases ,phases
2828              ;; The literal tab in the dtx file is translated to the string
2829              ;; "^^I" in the generated Lua file, which causes a syntax error.
2830              (add-after 'unpack 'fix-lua-sources
2831                (lambda _
2832                  (substitute* "source/latex/base/ltluatex.dtx"
2833                    (("  ") "  "))))
2834              (replace 'build
2835                (lambda* (#:key inputs #:allow-other-keys)
2836                  ;; Find required fonts
2837                  (setenv "TFMFONTS"
2838                          (string-join
2839                           (map (match-lambda
2840                                  ((pkg-name . dir)
2841                                   (string-append
2842                                    (assoc-ref inputs pkg-name)
2843                                    "/share/texmf-dist/fonts/tfm/public"
2844                                    dir)))
2845                                '(("texlive-etex" . "/etex")
2846                                  ("texlive-cm" . "/cm")
2847                                  ("texlive-fonts-latex" . "/latex-fonts")
2848                                  ("texlive-knuth-lib" . "/knuth-lib")))
2849                           ":"))
2850                  (let ((cwd (getcwd)))
2851                    (setenv "TEXINPUTS"
2852                            (string-append
2853                             cwd "//:"
2854                             cwd "/source/latex/base//:"
2855                             cwd "/build:"
2856                             (string-join
2857                              (map (match-lambda ((_ . dir) dir)) inputs)
2858                              "//:")))
2859                    (setenv "LUAINPUTS" (string-append cwd "/build:")))
2860
2861                  ;; This is the actual build step.
2862                  (mkdir "build")
2863                  (invoke "tex" "-ini" "-interaction=scrollmode"
2864                          "-output-directory=build" "unpack.ins")
2865
2866                  ;; XXX: We can't build all formats at this point, nor are they
2867                  ;; part of the LaTeX base, so we disable them.  Actually, we
2868                  ;; should be running this all in a profile hook, so that only
2869                  ;; selected formats and hyphenation patterns are included, but it
2870                  ;; takes long and TeX Live isn't designed to be modular like
2871                  ;; that.  Everything operates on a shared directory, which we
2872                  ;; would only have at profile generation time.
2873                  (let ((disabled-formats
2874                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2875                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2876                           "platex-dev eptex" "uplatex-dev euptex"
2877                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2878                           "luacsplain luatex" "optex luatex"
2879                           ;; LuaJIT is not ported to powerpc64le* or riscv64 yet and
2880                           ;; building these fail on powerpc.
2881                           ,@(if (or (target-powerpc?)
2882                                     (target-riscv64?))
2883                               '("luajittex" "luajithbtex" "mfluajit") '())
2884                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2885                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2886                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2887                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2888                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2889                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2890                    (mkdir "web2c")
2891                    (install-file (string-append
2892                                   (assoc-ref inputs "texlive-kpathsea")
2893                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2894                                  "web2c")
2895                    (make-file-writable "web2c/fmtutil.cnf")
2896                    (substitute* "web2c/fmtutil.cnf"
2897                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2898                       (string-append "#! " m))
2899                      (("translate-file=cp227")
2900                       (format #f "translate-file=~a/share/texmf-dist/web2c/cp227"
2901                               (assoc-ref inputs "texlive-kpathsea")))))
2902                  (invoke "fmtutil-sys" "--all"
2903                          "--fmtdir=web2c"
2904                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2905                  ;; We don't actually want to install it.
2906                  (delete-file "web2c/fmtutil.cnf")))
2907              (add-after 'install 'install-more
2908                (lambda* (#:key inputs outputs #:allow-other-keys)
2909                  (let* ((out (assoc-ref outputs "out"))
2910                         (root (string-append out "/share/texmf-dist"))
2911                         (target (string-append root "/tex/latex/base"))
2912                         (web2c (string-append root "/web2c"))
2913                         (makeindex (string-append root "/makeindex/latex")))
2914                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2915
2916                    ;; The usedir directive in docstrip.ins is ignored, so these
2917                    ;; two files end up in the wrong place.  Move them.
2918                    (mkdir-p makeindex)
2919                    (for-each (lambda (file)
2920                                (install-file file makeindex)
2921                                (delete-file file))
2922                              '("build/gglo.ist"
2923                                "build/gind.ist"))
2924                    (for-each (cut install-file <> target)
2925                              (find-files "build" ".*"))
2926                    (for-each (cut install-file <> web2c)
2927                              (find-files "web2c" ".*")))))))))
2928       (native-inputs
2929        `(("texlive-bin" ,texlive-bin)
2930          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2931          ("texlive-tex-plain" ,texlive-tex-plain)
2932          ("texlive-kpathsea" ,texlive-kpathsea)
2933          ("texlive-cm" ,texlive-cm)
2934          ("texlive-fonts-latex" ,texlive-fonts-latex)
2935          ("texlive-knuth-lib" ,texlive-knuth-lib)
2936          ("texlive-luatexconfig"
2937           ,(texlive-origin
2938             "texlive-luatexconfig" (number->string %texlive-revision)
2939             (list "/tex/generic/config/luatex-unicode-letters.tex"
2940                   "/tex/generic/config/luatexiniconfig.tex"
2941                   "/web2c/texmfcnf.lua")
2942             (base32
2943              "0yjx7nw9mgfgnq1givkzbxh7z7ncw1liaddjgm7n2nwn0aw6xfdg")))))
2944       (propagated-inputs
2945        (list texlive-dehyph-exptl
2946              texlive-etex
2947              texlive-hyph-utf8
2948              texlive-hyphen-base
2949              texlive-hyphen-afrikaans
2950              texlive-hyphen-ancientgreek
2951              texlive-hyphen-armenian
2952              texlive-hyphen-basque
2953              texlive-hyphen-belarusian
2954              texlive-hyphen-bulgarian
2955              texlive-hyphen-catalan
2956              texlive-hyphen-chinese
2957              texlive-hyphen-churchslavonic
2958              texlive-hyphen-coptic
2959              texlive-hyphen-croatian
2960              texlive-hyphen-czech
2961              texlive-hyphen-danish
2962              texlive-hyphen-dutch
2963              texlive-hyphen-english
2964              texlive-hyphen-esperanto
2965              texlive-hyphen-estonian
2966              texlive-hyphen-ethiopic
2967              texlive-hyphen-finnish
2968              texlive-hyphen-schoolfinnish
2969              texlive-hyphen-french
2970              texlive-hyphen-friulan
2971              texlive-hyphen-galician
2972              texlive-hyphen-georgian
2973              texlive-hyphen-german
2974              texlive-hyphen-greek
2975              texlive-hyphen-hungarian
2976              texlive-hyphen-icelandic
2977              texlive-hyphen-indic
2978              texlive-hyphen-indonesian
2979              texlive-hyphen-interlingua
2980              texlive-hyphen-irish
2981              texlive-hyphen-italian
2982              texlive-hyphen-kurmanji
2983              texlive-hyphen-latin
2984              texlive-hyphen-latvian
2985              texlive-hyphen-lithuanian
2986              texlive-hyphen-macedonian
2987              texlive-hyphen-mongolian
2988              texlive-hyphen-norwegian
2989              texlive-hyphen-occitan
2990              texlive-hyphen-pali
2991              texlive-hyphen-piedmontese
2992              texlive-hyphen-polish
2993              texlive-hyphen-portuguese
2994              texlive-hyphen-romanian
2995              texlive-hyphen-romansh
2996              texlive-hyphen-russian
2997              texlive-hyphen-sanskrit
2998              texlive-hyphen-serbian
2999              texlive-hyphen-slovak
3000              texlive-hyphen-slovenian
3001              texlive-hyphen-spanish
3002              texlive-hyphen-swedish
3003              texlive-hyphen-thai
3004              texlive-hyphen-turkish
3005              texlive-hyphen-turkmen
3006              texlive-hyphen-ukrainian
3007              texlive-hyphen-uppersorbian
3008              texlive-hyphen-welsh
3009              texlive-unicode-data
3010              texlive-ukrhyph
3011              texlive-ruhyphen
3012              texlive-latex-l3kernel
3013              texlive-latex-l3backend
3014              ;; TODO: This dependency isn't needed for LaTeX version 2021-06-01
3015              ;; and later. See:
3016              ;; https://tug.org/pipermail/tex-live/2021-June/047180.html
3017              texlive-latex-l3packages
3018              texlive-latexconfig))
3019       (home-page "https://www.ctan.org/pkg/latex-base")
3020       (synopsis "Base sources of LaTeX")
3021       (description
3022        "This bundle comprises the source of LaTeX itself, together with several
3023 packages which are considered \"part of the kernel\".  This bundle, together
3024 with the required packages, constitutes what every LaTeX distribution should
3025 contain.")
3026       (license license:lppl1.3c+))))
3027
3028 (define-public texlive-latex-atveryend
3029   (package
3030     (inherit (simple-texlive-package
3031               "texlive-latex-atveryend"
3032               '("/doc/latex/atveryend/README.md"
3033                 "/tex/latex/atveryend/")
3034               (base32
3035                "1gz5ssxjlqa53a8blsmdk2qjahzc910ldh26xjxfxgqnqb03rqx7")
3036               #:trivial? #t))
3037     (home-page "https://www.ctan.org/pkg/atveryend")
3038     (synopsis "Hooks at the very end of a document")
3039     (description
3040      "This LaTeX packages provides two hooks for @code{\\end@{document@}}
3041 that are executed after the hook of @code{\\AtEndDocument}:
3042 @code{\\AfterLastShipout} can be used for code that is to be executed right
3043 after the last @code{\\clearpage} before the @file{.aux} file is closed.
3044 @code{\\AtVeryEndDocument} is used for code after closing and final reading
3045 of the @file{.aux} file.")
3046     (license license:lppl1.3c+)))
3047
3048 (define-public texlive-latex-auxhook
3049   (package
3050     (inherit (simple-texlive-package
3051               "texlive-latex-auxhook"
3052               '("/doc/latex/auxhook/README.md"
3053                 "/tex/latex/auxhook/")
3054               (base32
3055                "1xh445shr00rh43nnz03xh8k2mdrxgsr03lllqpgvwhm6yzsydkf")
3056               #:trivial? #t))
3057     (home-page "https://www.ctan.org/pkg/auxhook")
3058     (synopsis "Hooks for auxiliary files")
3059     (description
3060      "This package provides hooks for adding code at the beginning of
3061 @file{.aux} files.")
3062     (license license:lppl1.3c+)))
3063
3064 (define-public texlive-latex-epstopdf-pkg
3065   (package
3066     (inherit (simple-texlive-package
3067               "texlive-latex-epstopdf-pkg"
3068               '("/doc/latex/epstopdf-pkg/"
3069                 "/tex/latex/epstopdf-pkg/")
3070               (base32
3071                "0zl6jiyp2cvvyqx3lwxdkcvvnkqgbwj4issq07cagf61gljq6fns")
3072               #:trivial? #t))
3073     (home-page "https://www.ctan.org/pkg/epstopdf-pkg")
3074     (synopsis "Call @command{epstopdf} \"on the fly\"")
3075     (description
3076      "The package adds support for EPS files in the @code{graphicx} package
3077 when running under pdfTeX.  If an EPS graphic is detected, the package
3078 spawns a process to convert the EPS to PDF, using the script
3079 @command{epstopdf}.")
3080     (license license:lppl1.3c+)))
3081
3082 (define-public texlive-latex-filecontents
3083   (package
3084     (name "texlive-latex-filecontents")
3085     (version (number->string %texlive-revision))
3086     (source (origin
3087               (method svn-fetch)
3088               (uri (texlive-ref "latex" "filecontents"))
3089               (file-name (string-append name "-" version "-checkout"))
3090               (sha256
3091                (base32
3092                 "1cmfigg5jx3hmdyh4gv8kwxi7dg076ldkxmr46s05xvhzjig1z9x"))))
3093     (build-system texlive-build-system)
3094     (arguments '(#:tex-directory "latex/filecontents"))
3095     (home-page "https://www.ctan.org/pkg/filecontents")
3096     (synopsis "Extended filecontents and filecontents* environments")
3097     (description
3098      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
3099 enable a LaTeX source file to generate external files as it runs through
3100 LaTeX.  However, there are two limitations of these environments: they refuse
3101 to overwrite existing files, and they can only be used in the preamble of a
3102 document.  The filecontents package removes these limitations, letting you
3103 overwrite existing files and letting you use @code{filecontents} /
3104 @code{filecontents*} anywhere.")
3105     (license license:lppl1.3c+)))
3106
3107 (define-public texlive-epsf
3108   (package
3109     (inherit (simple-texlive-package
3110               "texlive-epsf"
3111               (list "/doc/generic/epsf/"
3112                     "/tex/generic/epsf/")
3113               (base32
3114                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
3115               #:trivial? #t))
3116     (home-page "https://www.ctan.org/pkg/epsf")
3117     (synopsis "Simple macros for EPS inclusion")
3118     (description
3119      "This package provides the original (and now obsolescent) graphics
3120 inclusion macros for use with dvips, still widely used by Plain TeX users (in
3121 particular).  For LaTeX users, the package is nowadays (rather strongly)
3122 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
3123 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
3124 users, via its Plain TeX version.)")
3125     (license license:public-domain)))
3126
3127 (define-deprecated-package texlive-generic-epsf texlive-epsf)
3128
3129 (define-public texlive-latex-fancyvrb
3130   (package
3131     (inherit (simple-texlive-package
3132               "texlive-latex-fancyvrb"
3133               (list "/doc/latex/fancyvrb/README"
3134                     "/tex/latex/fancyvrb/")
3135               (base32
3136                "0pdilgpw4zc0ipp4z9kdi61nymifyjy2mfpk74xk2cw9vhynkk3w")
3137               #:trivial? #t))
3138     (home-page "https://www.ctan.org/pkg/fancyvrb")
3139     (synopsis "Sophisticated verbatim text")
3140     (description
3141      "This package provides tools for the flexible handling of verbatim text
3142 including: verbatim commands in footnotes; a variety of verbatim environments
3143 with many parameters; ability to define new customized verbatim environments;
3144 save and restore verbatim text and environments; write and read files in
3145 verbatim mode; build \"example\" environments (showing both result and
3146 verbatim source).")
3147     (license license:lppl1.0+)))
3148
3149 (define-public texlive-graphics-def
3150   (package
3151     (inherit (simple-texlive-package
3152               "texlive-graphics-def"
3153               (list "/doc/latex/graphics-def/README.md"
3154                     "/tex/latex/graphics-def/")
3155               (base32
3156                "0b66fy06safyrd717rfr476g1gz6nqfv1vqvam7ac2yy0g0djb17")
3157               #:trivial? #t))
3158     (propagated-inputs
3159      (list texlive-latex-epstopdf-pkg))
3160     (home-page "https://www.ctan.org/pkg/latex-graphics")
3161     (synopsis "Color and graphics option files")
3162     (description
3163      "This bundle is a combined distribution consisting of @file{dvips.def},
3164 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
3165 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
3166 packages.")
3167     (license license:lppl1.3c+)))
3168
3169 (define-public texlive-graphics-cfg
3170   (package
3171     (inherit (simple-texlive-package
3172               "texlive-graphics-cfg"
3173               (list "/doc/latex/graphics-cfg/README.md"
3174                     "/tex/latex/graphics-cfg/")
3175               (base32
3176                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
3177               #:trivial? #t))
3178     (home-page "https://www.ctan.org/pkg/latex-graphics")
3179     (synopsis "Sample configuration files for LaTeX color and graphics")
3180     (description
3181      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
3182 set default \"driver\" options for the color and graphics packages.")
3183     (license license:public-domain)))
3184
3185 (define-public texlive-greek-fontenc
3186   (package
3187     (inherit (simple-texlive-package
3188               "texlive-greek-fontenc"
3189               (list "doc/latex/greek-fontenc/"
3190                     "tex/latex/greek-fontenc/"
3191                     "source/latex/greek-fontenc/")
3192               (base32
3193                "1ncsvj5mlnkgllrvqdnbkv0qwpv2y7jkq3x2wdmm7d3daqq0ka5h")
3194               #:trivial? #t))
3195     (home-page "https://ctan.org/language/greek/greek-fontenc")
3196     (synopsis "LICR macros and encoding definition files for Greek")
3197     (description
3198      "The package provides Greek LICR macro definitions and encoding definition files
3199 for Greek text font encodings for use with fontenc.")
3200     (license license:lppl1.3+)))
3201
3202 (define-public texlive-latex-graphics
3203   (package
3204     (name "texlive-latex-graphics")
3205     (version (number->string %texlive-revision))
3206     (source (origin
3207               (method svn-fetch)
3208               (uri (texlive-ref "latex" "graphics"))
3209               (file-name (string-append name "-" version "-checkout"))
3210               (sha256
3211                (base32
3212                 "0fgjl58f25zvagssz4dwmmsclzw8cr7mx00kdrbx2kcnamcb7h8d"))))
3213     (build-system texlive-build-system)
3214     (arguments '(#:tex-directory "latex/graphics"))
3215     (propagated-inputs
3216      (list texlive-graphics-cfg texlive-graphics-def))
3217     (home-page "https://www.ctan.org/pkg/latex-graphics")
3218     (synopsis "LaTeX standard graphics bundle")
3219     (description
3220      "This is a collection of LaTeX packages for producing color, including
3221 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
3222 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
3223 keyval, and lscape.")
3224     (license license:lppl1.3c+)))
3225
3226 (define-public texlive-latex-hycolor
3227   (package
3228     (inherit (simple-texlive-package
3229               "texlive-latex-hycolor"
3230               (list "/doc/latex/hycolor/README.md"
3231                     "/tex/latex/hycolor/")
3232               (base32
3233                "026lfb4l7b3q8g6zc68siqandhb1x98cbycn7njknqva6s99aiqn")
3234               #:trivial? #t))
3235     (home-page "https://www.ctan.org/pkg/latex-graphics")
3236     (synopsis "Color for hyperref and bookmark")
3237     (description
3238      "This package provides the code for the @code{color} option that is
3239 used by @code{hyperref} and @code{bookmark}.")
3240     (license license:lppl1.3c+)))
3241
3242 (define-public texlive-xcolor
3243   (let ((template (simple-texlive-package
3244                    "texlive-xcolor"
3245                    (list "/doc/latex/xcolor/"
3246                          "/source/latex/xcolor/")
3247                    (base32
3248                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
3249     (package
3250       (inherit template)
3251       (arguments
3252        (substitute-keyword-arguments (package-arguments template)
3253          ((#:tex-directory _ #t)
3254           "latex/xcolor")
3255          ((#:phases phases)
3256           `(modify-phases ,phases
3257              (add-after 'unpack 'chdir
3258                (lambda _ (chdir "source/latex/xcolor") #t))
3259              (add-after 'install 'move-files
3260                (lambda* (#:key outputs #:allow-other-keys)
3261                  (let ((share (string-append (assoc-ref outputs "out")
3262                                              "/share/texmf-dist")))
3263                    (mkdir-p (string-append share "/dvips/xcolor"))
3264                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
3265                                 (string-append share "/dvips/xcolor/xcolor.pro"))
3266                    #t)))))))
3267       (home-page "https://www.ctan.org/pkg/xcolor")
3268       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
3269       (description
3270        "The package starts from the basic facilities of the colorcolor package,
3271 and provides easy driver-independent access to several kinds of color tints,
3272 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
3273 document-wide target color model and offers complete tools for conversion
3274 between eight color models.  Additionally, there is a command for alternating
3275 row colors plus repeated non-aligned material (like horizontal lines) in
3276 tables.")
3277       (license license:lppl1.2+))))
3278
3279 (define-deprecated-package texlive-latex-xcolor texlive-xcolor)
3280
3281 (define-public texlive-xmltex
3282   (let ((template (simple-texlive-package
3283                    "texlive-xmltex"
3284                    (list
3285                     "/doc/otherformats/xmltex/"
3286                     "/tex/xmltex/")
3287                    (base32
3288                     "023gv9axq05vwqz50fnkig24dzahwlc4raks2s8xc4pzrv2dv1zy"))))
3289     (package
3290       (inherit template)
3291       (arguments
3292        (substitute-keyword-arguments (package-arguments template)
3293          ((#:tex-directory _ #t)
3294           "tex/xmltex/base")
3295          ((#:phases phases '%standard-phases)
3296           `(modify-phases ,phases
3297              (add-before 'install 'generate-formats
3298                (lambda* (#:key inputs #:allow-other-keys)
3299                  (mkdir "web2c")
3300                  (for-each (lambda (f)
3301                              (copy-file f (basename f)))
3302                            (find-files "tex" "\\.(ini|tex)$"))
3303                  (invoke "fmtutil-sys" "--byfmt" "xmltex"
3304                          "--fmtdir=web2c")
3305                  (invoke "fmtutil-sys" "--byfmt" "pdfxmltex"
3306                          "--fmtdir=web2c")))
3307              (add-after 'install 'install-formats-and-wrappers
3308                (lambda* (#:key inputs outputs #:allow-other-keys)
3309                  (let* ((out (assoc-ref outputs "out"))
3310                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3311                         (pdftex (string-append texlive-bin "/bin/pdftex"))
3312                         (web2c (string-append out "/share/texmf-dist/web2c")))
3313                    (mkdir-p web2c)
3314                    (copy-recursively "web2c" web2c)
3315                    ;; Create convenience command wrappers.
3316                    (mkdir-p (string-append out "/bin"))
3317                    (symlink pdftex (string-append out "/bin/xmltex"))
3318                    (symlink pdftex (string-append out "/bin/pdfxmltex"))
3319                    #t)))))))
3320       (propagated-inputs
3321        ;; The following fonts are propagated as a texlive-updmap.cfg as the font
3322        ;; maps need to be recreated for the fonts to be usable.  They are
3323        ;; required by xmltex through mlnames.sty and unicode.sty.
3324        `(("texlive" ,(texlive-updmap.cfg
3325                       (list
3326                        texlive-amsfonts
3327                        texlive-babel
3328                        texlive-courier
3329                        texlive-helvetic
3330                        texlive-hyperref
3331                        texlive-symbol
3332                        texlive-tipa
3333                        texlive-times
3334                        texlive-zapfding
3335                        ;; The following fonts, while not required, are used if
3336                        ;; available:
3337                        texlive-stmaryrd
3338                        texlive-wasy)))))
3339       (native-inputs
3340        (list texlive-tex-ini-files))
3341       (home-page "https://www.ctan.org/pkg/xmltex/")
3342       (synopsis "Support for parsing XML documents")
3343       (description "The package provides an implementation of a parser for
3344 documents matching the XML 1.0 and XML Namespace Recommendations.  Element and
3345 attribute names, as well as character data, may use any characters allowed in
3346 XML, using UTF-8 or a suitable 8-bit encoding.")
3347       (license license:lppl1.0+))))        ;per xmltex/base/readme.txt
3348
3349 (define-public texlive-hyperref
3350   (let ((template (simple-texlive-package
3351                    "texlive-hyperref"
3352                    (list "/doc/latex/hyperref/"
3353                          "/source/latex/hyperref/"
3354                          ;; These files are not generated from the sources
3355                          "/tex/latex/hyperref/minitoc-hyper.sty"
3356                          "/tex/latex/hyperref/ntheorem-hyper.sty"
3357                          "/tex/latex/hyperref/xr-hyper.sty")
3358                    (base32
3359                     "0nmbxaq676m2y9fgdji0bxqchmrli4hwhspijaszx51b3ki6bj2h"))))
3360     (package
3361       (inherit template)
3362       (arguments
3363        (substitute-keyword-arguments (package-arguments template)
3364          ((#:tex-directory _ #t)
3365           "latex/hyperref")
3366          ((#:phases phases)
3367           `(modify-phases ,phases
3368              (add-after 'unpack 'chdir
3369                (lambda _ (chdir "source/latex/hyperref") #t))))))
3370       (propagated-inputs
3371        (list texlive-generic-atbegshi
3372              texlive-generic-bitset
3373              texlive-generic-etexcmds
3374              texlive-generic-gettitlestring
3375              texlive-generic-iftex
3376              texlive-generic-infwarerr
3377              texlive-generic-intcalc
3378              texlive-generic-kvdefinekeys
3379              texlive-generic-kvsetkeys
3380              texlive-generic-ltxcmds
3381              texlive-generic-pdfescape
3382              texlive-latex-auxhook
3383              texlive-latex-atveryend
3384              texlive-latex-hycolor
3385              texlive-latex-kvoptions
3386              texlive-latex-letltxmacro
3387              texlive-latex-pdftexcmds
3388              texlive-latex-refcount
3389              texlive-latex-rerunfilecheck
3390              texlive-url))
3391       (home-page "https://www.ctan.org/pkg/hyperref")
3392       (synopsis "Extensive support for hypertext in LaTeX")
3393       (description
3394        "The @code{hyperref} package is used to handle cross-referencing commands
3395 in LaTeX to produce hypertext links in the document.  The package provides
3396 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
3397 embedded @code{pdfmark} commands for processing by Acrobat
3398 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
3399 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
3400 pdf and HTML backends.  The package is distributed with the @code{backref} and
3401 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
3402       (license license:lppl1.3+))))
3403
3404 (define-deprecated-package texlive-latex-hyperref texlive-hyperref)
3405
3406 (define-public texlive-oberdiek
3407   (package
3408     (name "texlive-oberdiek")
3409     (version (number->string %texlive-revision))
3410     (source (origin
3411               (method svn-fetch)
3412               (uri (texlive-ref "latex" "oberdiek"))
3413               (file-name (string-append name "-" version "-checkout"))
3414               (sha256
3415                (base32
3416                 "1cadrkpdqs65gxsaszfgfd8wqp8pvpik2sjmlyq3hz5p9yna3p9m"))))
3417     (build-system texlive-build-system)
3418     (arguments
3419      '(#:tex-directory "latex/oberdiek"
3420        #:build-targets '("oberdiek.ins")
3421        #:phases
3422        (modify-phases %standard-phases
3423          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
3424          (add-after 'unpack 'do-not-process-ifpdf.ins
3425            (lambda _
3426              (substitute* "oberdiek.ins"
3427                (("ifpdf.ins") "ifpdf.dtx"))
3428              #t)))))
3429     (propagated-inputs
3430      (list texlive-generic-iftex))
3431     (home-page "https://www.ctan.org/pkg/oberdiek")
3432     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
3433     (description
3434      "The bundle comprises various LaTeX packages, providing among others:
3435 better accessibility support for PDF files; extensible chemists reaction
3436 arrows; record information about document class(es) used; and many more.")
3437     (license license:lppl1.3+)))
3438
3439 (define-deprecated-package texlive-latex-oberdiek texlive-oberdiek)
3440
3441 (define-public texlive-latex-rerunfilecheck
3442   (package
3443     (inherit (simple-texlive-package
3444               "texlive-latex-rerunfilecheck"
3445               '("/doc/latex/rerunfilecheck/"
3446                 "/tex/latex/rerunfilecheck/")
3447               (base32
3448                "1myz0d5bxhxvl4220ikywh921qld8n324kk9kscqbc5iw4063g56")
3449               #:trivial? #t))
3450     (propagated-inputs
3451      (list texlive-generic-infwarerr texlive-generic-uniquecounter
3452            texlive-latex-atveryend texlive-latex-kvoptions
3453            texlive-latex-pdftexcmds))
3454     (home-page "https://www.ctan.org/pkg/rerunfilecheck")
3455     (synopsis "Checksum based rerun checks on auxiliary files")
3456     (description
3457      "This package provides additional rerun warnings if some auxiliary
3458 files have changed.  It is based on MD5 checksum, provided by pdfTeX.")
3459     (license license:lppl1.3c+)))
3460
3461 (define-public texlive-latex-tools
3462   (package
3463     (name "texlive-latex-tools")
3464     (version (number->string %texlive-revision))
3465     (source (origin
3466               (method svn-fetch)
3467               (uri (texlive-ref "latex" "tools"))
3468               (file-name (string-append name "-" version "-checkout"))
3469               (sha256
3470                (base32
3471                 "1vm5wfyd0vbmv31a29fc7k8y14xiw00msvdx9n7dzsn9zpfjflqs"))))
3472     (build-system texlive-build-system)
3473     (arguments
3474      '(#:tex-directory "latex/tools"
3475        #:build-targets '("tools.ins")
3476        #:phases (modify-phases %standard-phases
3477                   (add-after 'install 'provide-array-2016-10-06.sty
3478                     (lambda* (#:key outputs #:allow-other-keys)
3479                       ;; XXX: array.sty does:
3480                       ;;  "DeclareRelease{}{2016-10-06}{array-2016-10-06.sty}"
3481                       ;; ...which causes some users (hypre) to look for that
3482                       ;; file specifically.  Provide it.
3483                       (with-directory-excursion (string-append
3484                                                  (assoc-ref outputs "out")
3485                                                  "/share/texmf-dist/tex"
3486                                                  "/latex/tools")
3487                         (symlink "array.sty" "array-2016-10-06.sty")))))))
3488     (home-page "https://www.ctan.org/pkg/latex-tools")
3489     (synopsis "LaTeX standard tools bundle")
3490     (description
3491      "This package is a collection of (variously) simple tools provided as
3492 part of the LaTeX required tools distribution, comprising the following
3493 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
3494 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
3495 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
3496 xr, and xspace.")
3497     (license license:lppl1.3+)))
3498
3499 (define-public texlive-url
3500   (package
3501     (inherit (simple-texlive-package
3502               "texlive-url"
3503               (list "/doc/latex/url/"
3504                     "/tex/latex/url/")
3505               (base32
3506                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
3507               #:trivial? #t))
3508     (home-page "https://www.ctan.org/pkg/url")
3509     (synopsis "Verbatim with URL-sensitive line breaks")
3510     (description "The command @code{\\url} is a form of verbatim command that
3511 allows linebreaks at certain characters or combinations of characters, accepts
3512 reconfiguration, and can usually be used in the argument to another command.
3513 The command is intended for email addresses, hypertext links,
3514 directories/paths, etc., which normally have no spaces, so by default the
3515 package ignores spaces in its argument.  However, a package option allows
3516 spaces, which is useful for operating systems where spaces are a common part
3517 of file names.")
3518     ;; The license header states that it is under LPPL version 2 or later, but
3519     ;; the latest version is 1.3c.
3520     (license license:lppl1.3c+)))
3521
3522 (define-deprecated-package texlive-latex-url texlive-url)
3523
3524 (define-public texlive-tetex
3525   (package
3526     (inherit (simple-texlive-package
3527               "texlive-tetex"
3528               (list "/dvips/tetex/"
3529                     "/fonts/enc/dvips/tetex/"
3530                     "/fonts/map/dvips/tetex/")
3531               (base32
3532                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
3533               #:trivial? #t))
3534     (home-page "https://www.ctan.org/pkg/tetex")
3535     (synopsis "Font maps originally from teTeX")
3536     (description "This package provides font maps that were originally part of
3537 the now obsolete teTeX distributions but are still used at the core of the TeX
3538 Live distribution.")
3539     (license license:public-domain)))
3540
3541 (define-public texlive-latex-l3kernel
3542   (package
3543     (name "texlive-latex-l3kernel")
3544     (version (number->string %texlive-revision))
3545     (source (origin
3546               (method svn-fetch)
3547               (uri (texlive-ref "latex" "l3kernel"))
3548               (file-name (string-append name "-" version "-checkout"))
3549               (sha256
3550                (base32
3551                 "068xkinrkl6qjf8r6a9i0msvnzp4y7a3gnd2h12ws0km1dv19r20"))))
3552     (build-system texlive-build-system)
3553     (arguments
3554      '(#:tex-directory "latex/l3kernel"
3555        #:tex-engine "tex"
3556        #:tex-format #f
3557        #:texlive-latex-base #f))
3558     (native-inputs
3559      (list texlive-docstrip))
3560     (home-page "https://www.ctan.org/pkg/l3kernel")
3561     (synopsis "LaTeX3 programmers’ interface")
3562     (description
3563      "The l3kernel bundle provides an implementation of the LaTeX3
3564 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
3565 interface provides the foundation on which the LaTeX3 kernel and other future
3566 code are built: it is an API for TeX programmers.  The packages are set up so
3567 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
3568     (license license:lppl1.3c+)))
3569
3570 (define-public texlive-latex-l3backend
3571   (package
3572     (name "texlive-latex-l3backend")
3573     (version (number->string %texlive-revision))
3574     (source (origin
3575               (method svn-fetch)
3576               (uri (texlive-ref "latex" "l3backend"))
3577               (file-name (string-append name "-" version "-checkout"))
3578               (sha256
3579                (base32
3580                 "0mlwyzssqn6wkyv9hzp24d40p8f20zrjqgvqyqs1rd7q7awan42a"))))
3581     (build-system texlive-build-system)
3582     (arguments
3583      '(#:tex-directory "latex/l3backend"
3584        #:tex-engine "tex"
3585        #:tex-format #f
3586        #:texlive-latex-base #f))
3587     (native-inputs
3588      (list texlive-docstrip))
3589     (home-page "https://www.ctan.org/pkg/l3backend")
3590     (synopsis "LaTeX3 backend drivers")
3591     (description
3592      "This package forms parts of expl3, and contains the code used to
3593 interface with backends (drivers) across the expl3 codebase. The functions
3594 here are defined differently depending on the engine in use. As such, these
3595 are distributed separately from l3kernel to allow this code to be updated on
3596 an independent schedule.")
3597     (license license:lppl1.3c+)))
3598
3599 (define-public texlive-latex-l3packages
3600   (package
3601     (name "texlive-latex-l3packages")
3602     (version (number->string %texlive-revision))
3603     (source (texlive-origin name version
3604                             '("/source/latex/l3packages/"
3605                               ;; These files have been generated with a
3606                               ;; bespoke source tree and then modified by
3607                               ;; hand. It's unfeasible to recreate them. See:
3608                               ;; https://tug.org/pipermail/tex-live/2021-June/047188.html
3609                               "/tex/latex/l3packages/xparse/xparse-2018-04-12.sty"
3610                               "/tex/latex/l3packages/xparse/xparse-2020-10-01.sty"
3611
3612                               ;; TODO: This file can be removed when using
3613                               ;; LaTeX version 2021-06-01 or newer. See:
3614                               ;; https://tug.org/pipermail/tex-live/2021-June/047180.html
3615                               "/tex/latex/l3packages/xparse/xparse-generic.tex")
3616                             (base32 "05rjxdqhhg7z1z2rmhmwj2qf09xygymayy3jzj9fdphk0pab3amm")))
3617     (build-system texlive-build-system)
3618     (arguments
3619      '(#:tex-directory "latex/l3packages"
3620        #:tex-engine "tex"
3621        #:tex-format #f
3622        #:texlive-latex-base #f
3623        ;; build-targets must be specified manually since they are in
3624        ;; sub-directories.
3625        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
3626        #:phases
3627        (modify-phases %standard-phases
3628          ;; All package sources are in sub-directories, so we need to add them
3629          ;; to TEXINPUTS.
3630          (add-after 'unpack 'set-TEXINPUTS
3631            (lambda _
3632              (let ((cwd (getcwd)))
3633                (setenv "TEXINPUTS"
3634                        (string-append cwd "/source/latex/l3packages/l3keys2e:"
3635                                       cwd "/source/latex/l3packages/xparse:"
3636                                       cwd "/source/latex/l3packages/xfrac:"
3637                                       cwd "/source/latex/l3packages/xfp:"
3638                                       cwd "/source/latex/l3packages/xtemplate"
3639                                       ;; The terminating ":" is required to include the
3640                                       ;; l3kernel input as well.
3641                                       ":")))
3642              #t))
3643          (add-after 'install 'copy-generated-files
3644            (lambda* (#:key outputs #:allow-other-keys)
3645              (let ((dest (string-append (assoc-ref outputs "out")
3646                                         "/share/texmf-dist/tex/latex/l3packages")))
3647                (copy-recursively "tex/latex/l3packages/xparse" dest)))))
3648        ))
3649     (native-inputs
3650      (list texlive-docstrip))
3651     (propagated-inputs
3652      (list texlive-latex-l3kernel))
3653     (home-page "https://www.ctan.org/pkg/l3packages")
3654     (synopsis "High-level LaTeX3 concepts")
3655     (description
3656      "This bundle holds prototype implementations of concepts for a LaTeX
3657 designer interface, to be used with the experimental LaTeX kernel as
3658 programming tools and kernel support.  Packages provided in this release are:
3659
3660 @enumerate
3661 @item l3keys2e, which makes the facilities of the kernel module l3keys
3662   available for use by LaTeX 2e packages;
3663 @item xfrac, which provides flexible splitlevel fractions;
3664 @item xparse, which provides a high-level interface for declaring document
3665   commands; and
3666 @item xtemplate, which provides a means of defining generic functions using a
3667   key-value syntax.
3668 @end enumerate\n")
3669     (license license:lppl1.3c+)))
3670
3671 (define-public texlive-dvips-l3backend
3672   (package
3673     (inherit (simple-texlive-package
3674               "texlive-dvips-l3backend"
3675               (list
3676                "/dvips/l3backend/")
3677               (base32
3678                "1hvj153h1pn93h6n76dv3mg9ai0mcz9q9mysfiqjfpqzijz9ikky")
3679               #:trivial? #t))
3680     (home-page "https://www.ctan.org/pkg/l3backend")
3681     (synopsis "LaTeX3 backend drivers for dvips")
3682     (description
3683      "This package forms parts of expl3, and contains the code used to
3684 interface with backends (drivers) across the expl3 codebase.  The functions
3685 here are defined for the dvips engine only.")
3686     (license license:lppl1.3c+)))
3687
3688 (define-public texlive-fontspec
3689   (let ((template (simple-texlive-package
3690                    "texlive-fontspec"
3691                    (list "/doc/latex/fontspec/"
3692                          "/source/latex/fontspec/"
3693                          "/tex/latex/fontspec/fontspec.cfg")
3694                    (base32
3695                     "06rms8dw1j67v3rgv6xmfykdmgbxi5rp78yxc782cy1sw07blgsg"))))
3696     (package
3697       (inherit template)
3698       (arguments
3699        (substitute-keyword-arguments (package-arguments template)
3700          ((#:tex-directory _ #t)
3701           "latex/fontspec")
3702          ((#:phases phases)
3703           `(modify-phases ,phases
3704              (add-after 'unpack 'chdir
3705                (lambda _ (chdir "source/latex/fontspec/") #t))))))
3706       (propagated-inputs
3707        (list texlive-latex-l3packages))
3708       (home-page "https://www.ctan.org/pkg/fontspec")
3709       (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3710       (description
3711        "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3712 automatic and unified interface to feature-rich AAT and OpenType fonts through
3713 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3714 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3715       (license license:lppl1.3+))))
3716
3717 (define-deprecated-package texlive-latex-fontspec texlive-fontspec)
3718
3719 (define-public texlive-grffile
3720   (let ((template (simple-texlive-package
3721                    "texlive-grffile"
3722                    (list "/doc/latex/grffile/README.md"
3723                          "/source/latex/grffile/grffile.dtx")
3724                    (base32
3725                     "1ib2n4d52faipvxdvdh4ar1p5j997h7cza26sfyd8z3qdf0naqgx"))))
3726     (package
3727       (inherit template)
3728       (arguments
3729        (substitute-keyword-arguments (package-arguments template)
3730          ((#:tex-directory _ #t)
3731           "latex/grffile")
3732          ((#:build-targets _ #t)
3733           '(list "grffile.dtx"))
3734          ((#:phases phases)
3735           `(modify-phases ,phases
3736              (add-after 'unpack 'chdir
3737                (lambda _ (chdir "source/latex/grffile/")))))))
3738       (home-page "https://www.ctan.org/pkg/grffile")
3739       (synopsis "Extended file name support for graphics (legacy package)")
3740       (description
3741        "The original grffile package extended the file name processing of the
3742 @code{graphics} package to support a larger range of file names.  The base
3743 LaTeX code now supports multiple dots and spaces, and this package by default
3744 is a stub that just loads @code{graphicx}.")
3745       (license license:lppl1.3c+))))
3746
3747 (define-public texlive-stringenc
3748   (let ((template (simple-texlive-package
3749                    "texlive-stringenc"
3750                    (list "/doc/latex/stringenc/README.md"
3751                          "/source/latex/stringenc/stringenc.dtx")
3752                    (base32
3753                     "19sfi5jxldxmy79pxmapmgmn3iknf8wjczasvlrrwv0gyycxdzhw"))))
3754     (package
3755       (inherit template)
3756       (outputs '("doc" "out"))
3757       (arguments
3758        (substitute-keyword-arguments (package-arguments template)
3759          ((#:tex-directory _ #t)
3760           "generic/stringenc")
3761          ((#:build-targets _ #t)
3762           '(list "stringenc.dtx"))
3763          ((#:phases phases)
3764           `(modify-phases ,phases
3765              (add-after 'unpack 'chdir
3766                (lambda _ (chdir "source/latex/stringenc/")))
3767              (add-after 'copy-files 'clean-up
3768                (lambda* (#:key inputs outputs #:allow-other-keys)
3769                  (delete-file-recursively
3770                   (string-append (assoc-ref outputs "out") "/share/texmf-dist/build"))
3771                  (delete-file
3772                   (string-append (assoc-ref outputs "out") "/share/texmf-dist/stringenc.dtx"))
3773                  (install-file
3774                   (string-append (assoc-ref inputs "source") "/source/latex/stringenc/stringenc.dtx")
3775                   (string-append (assoc-ref outputs "out") "/share/texmf-dist/source/latex/stringenc/"))
3776                  (install-file
3777                   (string-append (assoc-ref inputs "source") "/doc/latex/stringenc/README.md")
3778                   (string-append (assoc-ref outputs "doc") "/doc/latex/stringenc/"))))))))
3779       (home-page "https://www.ctan.org/pkg/stringenc")
3780       (synopsis "Converting a string between different encodings")
3781       (description
3782        "This package provides @code{\\StringEncodingConvert} for converting a
3783 string between different encodings.  Both LaTeX and plain-TeX are supported.")
3784       (license license:lppl1.3c+))))
3785
3786 (define-public texlive-l3build
3787   (let ((template (simple-texlive-package
3788                    "texlive-l3build"
3789                    (list "/doc/latex/l3build/"
3790                          "/doc/man/man1/l3build.1"
3791                          "/scripts/l3build/"
3792                          "/tex/latex/l3build/"
3793                          ;; TODO: The dtx file builds only the documentation.
3794                          ;; We avoid this for a simpler package definition,
3795                          ;; but it may be possible to exclude
3796                          ;; /doc/latex/l3build and the man page in the future.
3797                          "/source/latex/l3build/")
3798                    (base32
3799                     "1fcay05jj53qgp2b98jpawi0id298fs5xc4y1r5krrfr4sp4hd59")
3800                    #:trivial? #t)))
3801     (package
3802       (inherit template)
3803       (arguments
3804        (substitute-keyword-arguments (package-arguments template)
3805          ((#:phases phases)
3806           `(modify-phases ,phases
3807              (add-after 'install 'patch-shebangs-again
3808                (lambda* (#:key inputs outputs #:allow-other-keys)
3809                  ;; XXX: Since the 'patch-shebangs' phase cannot change the
3810                  ;; original source files patch the shebangs again here.
3811                  (let* ((coreutils (assoc-ref inputs "coreutils"))
3812                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3813                         (path (list (string-append coreutils "/bin")
3814                                     (string-append texlive-bin "/bin"))))
3815                    (for-each (lambda (file)
3816                                (format #t "~a~%" file)
3817                                (patch-shebang file path))
3818                              (find-files (assoc-ref outputs "out")))
3819                    #t)))))))
3820       (inputs
3821        (list coreutils texlive-bin))
3822       (home-page "https://github.com/latex3/luaotfload")
3823       (synopsis "Testing and building system for LaTeX")
3824       (description
3825        "The l3build module is designed to support the development of
3826 high-quality LaTeX code by providing: a unit testing system, automated
3827 typesetting of code sources, and a reliable packaging system for CTAN
3828 releases.  The bundle consists of a Lua script to run the tasks and a
3829 @code{.tex} file which provides the testing environment.")
3830       (license license:lppl1.3c+))))
3831
3832 (define-public texlive-lualibs
3833   (package
3834     (inherit
3835      (simple-texlive-package
3836       "texlive-lualibs"
3837       (list "doc/luatex/lualibs/"
3838             "source/luatex/lualibs/"
3839             "tex/luatex/lualibs/")
3840       (base32 "0gf60vj9y75a7dlrmpbyqgsa00s1717r6if3lm5ldm41i9fm8ywz")
3841       ;; The source dtx file only unpacks three files.  This is why we
3842       ;; install all the files as they are, because there is no clear
3843       ;; way to generate them all.
3844       #:trivial? #true))
3845     (home-page "https://ctan.org/macros/luatex/generic/lualibs")
3846     (synopsis "Additional Lua functions for LuaTeX macro programmers")
3847     (description
3848      "Lualibs is a collection of Lua modules useful for general programming.
3849 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3850 this bundle for use independent of ConTeXt.")
3851     ;; GPL version 2 only
3852     (license license:gpl2)))
3853
3854 (define-deprecated-package texlive-luatex-lualibs texlive-lualibs)
3855
3856 (define-public texlive-lua-alt-getopt
3857   (package
3858     (inherit
3859      (simple-texlive-package
3860       "texlive-lua-alt-getopt"
3861       (list "doc/support/lua-alt-getopt/" "scripts/lua-alt-getopt/")
3862       (base32 "0cizxzn33n3pn98xkqnxb8s6vdwkar3xrwhraqrs05pjfdn9d4wz")
3863       #:trivial? #t))
3864     (home-page "https://ctan.org/support/lualibs/lua-alt-getopt")
3865     (synopsis "Process application arguments the same way as getopt_long")
3866     (description
3867      "This package provides a Lua module for processing application arguments
3868 in the same way as BSD/GNU @code{getopt_long(3)} functions do.")
3869     (license license:expat)))
3870
3871 ;; TODO: We should be able to build this from the sources on Github with
3872 ;; texlive-l3build, but I haven't been able to get it to work.
3873 (define-public texlive-luaotfload
3874   (let ((template (simple-texlive-package
3875                    "texlive-luaotfload"
3876                    (list "/doc/luatex/luaotfload/"
3877                          "/doc/man/man1/luaotfload-tool.1"
3878                          "/doc/man/man5/luaotfload.conf.5"
3879                          "/source/luatex/luaotfload/fontloader-reference-load-order.lua"
3880                          "/source/luatex/luaotfload/fontloader-reference-load-order.tex"
3881                          "/scripts/luaotfload/luaotfload-tool.lua"
3882                          "/tex/luatex/luaotfload/")
3883                    (base32
3884                     "10wznvxx3qsl88n560py5vyx5r3a3914anbqfhwcmhmwg097xxl4")
3885                    #:trivial? #t)))
3886     (package
3887       (inherit template)
3888       (propagated-inputs
3889        (list texlive-lua-alt-getopt ;for luaotfload-tool
3890              texlive-lualibs))
3891       (home-page "https://github.com/lualatex/luaotfload")
3892       (synopsis "OpenType font loader for LuaTeX")
3893       (description
3894        "Luaotfload is an adaptation of the ConTeXt font loading system for the
3895 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3896 features accessible using an extended font request syntax while providing
3897 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3898 loading fonts by their proper names instead of file names.")
3899       ;; GPL version 2 only
3900       (license license:gpl2))))
3901
3902 (define-deprecated-package texlive-luatex-luaotfload texlive-luaotfload)
3903
3904 (define-public texlive-latex-amsmath
3905   (package
3906     (name "texlive-latex-amsmath")
3907     (version (number->string %texlive-revision))
3908     (source (origin
3909               (method svn-fetch)
3910               (uri (texlive-ref "latex" "amsmath"))
3911               (file-name (string-append name "-" version "-checkout"))
3912               (sha256
3913                (base32
3914                 "172zybw7rp05jca8wl6x0mh6z6gncdyi1j9wdfyjnhbvqw0z4wi4"))))
3915     ;; This package misses important files
3916     (replacement texlive-amsmath)
3917     (build-system texlive-build-system)
3918     (arguments '(#:tex-directory "latex/amsmath"))
3919     (home-page "https://www.ctan.org/pkg/amsmath")
3920     (synopsis "AMS mathematical facilities for LaTeX")
3921     (description
3922      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3923 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3924 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3925 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3926 symbols), @code{amsopnamsopn} (for operator names) and
3927 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3928 This package is part of the LaTeX required distribution; however, several
3929 contributed packages add still further to its appeal; examples are
3930 @code{empheqempheq}, which provides functions for decorating and highlighting
3931 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3932 definitions.")
3933     (license license:lppl1.3c+)))
3934
3935 (define-public texlive-amsmath
3936   (let ((template (simple-texlive-package
3937                    "texlive-amsmath"
3938                    (list "/doc/latex/amsmath/"
3939                          "/source/latex/amsmath/"
3940                          ;; These two files are not generated from any of the
3941                          ;; dtx/ins files.
3942                          "/tex/latex/amsmath/amsmath-2018-12-01.sty"
3943                          "/tex/latex/amsmath/amstex.sty")
3944                    (base32
3945                     "0gmdzhgr0h57xhsl61c5jsp4fj4pbmdr8p6k96am5jbyrbbx121q"))))
3946     (package
3947       (inherit template)
3948       (arguments
3949        (substitute-keyword-arguments (package-arguments template)
3950          ((#:tex-directory _ #t)
3951           "latex/amsmath")
3952          ((#:phases phases)
3953           `(modify-phases ,phases
3954              (add-after 'unpack 'chdir
3955                (lambda _ (chdir "source/latex/amsmath/")))
3956              (add-before 'copy-files 'unchdir
3957                (lambda _
3958                  (chdir "../../..")))
3959              (add-after 'copy-files 'delete-extra-files
3960                (lambda* (#:key outputs #:allow-other-keys)
3961                  (delete-file-recursively
3962                   (string-append (assoc-ref outputs "out")
3963                                  "/share/texmf-dist/source/latex/amsmath/build"))))))))
3964       (home-page "https://www.ctan.org/pkg/amsmath")
3965       (synopsis "AMS mathematical facilities for LaTeX")
3966       (description
3967        "This is the principal package in the AMS-LaTeX distribution.  It adapts
3968 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3969 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3970 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3971 symbols), @code{amsopnamsopn} (for operator names) and
3972 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3973 This package is part of the LaTeX required distribution; however, several
3974 contributed packages add still further to its appeal; examples are
3975 @code{empheqempheq}, which provides functions for decorating and highlighting
3976 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3977 definitions.")
3978       (license license:lppl1.3c+))))
3979
3980 (define-public texlive-amscls
3981   (let ((template (simple-texlive-package
3982                    "texlive-amscls"
3983                    (list "/doc/latex/amscls/"
3984                          "/source/latex/amscls/"
3985                          "/bibtex/bst/amscls/")
3986                    (base32
3987                     "0vw0b815slvfqfd8qffyfzb3xfvyv6k77m12xp0l67hs8p08s5b7"))))
3988     (package
3989       (inherit template)
3990       (arguments
3991        (substitute-keyword-arguments (package-arguments template)
3992          ((#:tex-directory _ #t)
3993           "latex/amscls")
3994          ((#:phases phases)
3995           `(modify-phases ,phases
3996              (add-after 'unpack 'chdir
3997                (lambda _ (chdir "source/latex/amscls/") #t))))))
3998       (home-page "https://www.ctan.org/pkg/amscls")
3999       (synopsis "AMS document classes for LaTeX")
4000       (description
4001        "This bundle contains three AMS classes: @code{amsartamsart} (for writing
4002 articles for the AMS), @code{amsbookamsbook} (for books) and
4003 @code{amsprocamsproc} (for proceedings), together with some supporting
4004 material.  The material is made available as part of the AMS-LaTeX
4005 distribution.")
4006       (license license:lppl1.3c+))))
4007
4008 (define-deprecated-package texlive-latex-amscls texlive-amscls)
4009
4010 (define-public texlive-babel
4011   (let ((template (simple-texlive-package
4012                    "texlive-babel"
4013                    (list "/doc/latex/babel/"
4014                          "/source/latex/babel/"
4015                          "/makeindex/babel/")
4016                    (base32
4017                     "0qr5vjp79g1c1l6k173qhfdfabgbky73wymzhm56pazx4a8r08wz"))))
4018     (package
4019       (inherit template)
4020       ;; TODO: This package is missing files.
4021       (replacement texlive-babel/fixed)
4022       (arguments
4023        (substitute-keyword-arguments (package-arguments template)
4024          ((#:tex-directory _ #t)
4025           "generic/babel")
4026          ((#:phases phases)
4027           `(modify-phases ,phases
4028              (add-after 'unpack 'chdir
4029                (lambda _ (chdir "source/latex/babel/") #t))
4030              ;; This package tries to produce babel.aux twice but refuses to
4031              ;; overwrite the first one.
4032              (add-before 'build 'fix-ins
4033                (lambda _
4034                  (substitute* "babel.ins"
4035                    (("askonceonly") "askforoverwritefalse"))
4036                  #t))
4037              (add-after 'install 'install-locales
4038                (lambda* (#:key outputs #:allow-other-keys)
4039                  (let ((locale-directory
4040                         (string-append (assoc-ref outputs "out")
4041                                        "/share/texmf-dist/tex/generic/babel/locale/")))
4042                    (mkdir-p locale-directory)
4043                    (invoke "unzip" "locale.zip" "-d"
4044                            locale-directory))))))))
4045       (native-inputs
4046        (list unzip))
4047       (home-page "https://www.ctan.org/pkg/babel")
4048       (synopsis "Multilingual support for Plain TeX or LaTeX")
4049       (description
4050        "The package manages culturally-determined typographical (and other)
4051 rules, and hyphenation patterns for a wide range of languages.  A document may
4052 select a single language to be supported, or it may select several, in which
4053 case the document may switch from one language to another in a variety of
4054 ways.  Babel uses contributed configuration files that provide the detail of
4055 what has to be done for each language.  Users of XeTeX are advised to use the
4056 polyglossia package rather than Babel.")
4057       (license license:lppl1.3+))))
4058
4059 (define-public texlive-babel/fixed
4060   (package
4061     (inherit texlive-babel)
4062     (name "texlive-babel-fixed")
4063     (arguments
4064      (substitute-keyword-arguments (package-arguments texlive-babel)
4065        ((#:phases phases)
4066         `(modify-phases ,phases
4067            (add-before 'copy-files 'unchdir
4068              (lambda _
4069                (chdir "../../..")))
4070            (add-after 'copy-files 'delete-extra-files
4071              (lambda* (#:key outputs #:allow-other-keys)
4072                (delete-file-recursively
4073                 (string-append (assoc-ref outputs "out")
4074                                "/share/texmf-dist/source/latex/babel/build"))
4075                (delete-file
4076                 (string-append (assoc-ref outputs "out")
4077                                "/share/texmf-dist/tex/generic/babel/bbind.ist"))
4078                (delete-file
4079                 (string-append (assoc-ref outputs "out")
4080                                "/share/texmf-dist/tex/generic/babel/bbglo.ist"))))))))))
4081
4082 (define-deprecated-package texlive-latex-babel texlive-babel)
4083
4084 (define-public texlive-generic-babel-english
4085   (package
4086     (name "texlive-generic-babel-english")
4087     (version (number->string %texlive-revision))
4088     (source (origin
4089               (method svn-fetch)
4090               (uri (texlive-ref "generic" "babel-english"))
4091               (file-name (string-append name "-" version "-checkout"))
4092               (sha256
4093                (base32
4094                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
4095     (build-system texlive-build-system)
4096     (arguments '(#:tex-directory "generic/babel-english"))
4097     (home-page "https://www.ctan.org/pkg/babel-english")
4098     (synopsis "Babel support for English")
4099     (description
4100      "This package provides the language definition file for support of
4101 English in @code{babel}.  Care is taken to select British hyphenation patterns
4102 for British English and Australian text, and default (\"american\") patterns
4103 for Canadian and USA text.")
4104     (license license:lppl1.3+)))
4105
4106 (define-public texlive-babel-french
4107   (let ((template
4108          (simple-texlive-package
4109           "texlive-babel-french"
4110           (list "doc/generic/babel-french/"
4111                 "source/generic/babel-french/"
4112                 "tex/generic/babel-french/")
4113           (base32 "0cgn4dq5wnlfh9wddjzxsf7p56pk29lyndg56zg6558y7xf67cw8"))))
4114     (package
4115       (inherit template)
4116       (outputs '("out" "doc"))
4117       (arguments
4118        (substitute-keyword-arguments (package-arguments template)
4119          ((#:tex-directory _ '())
4120           "generic/babel-french")
4121          ((#:build-targets _ '())
4122           ;; TODO: use dtx and build documentation.
4123           '(list "frenchb.ins"))
4124          ((#:phases phases)
4125           `(modify-phases ,phases
4126              (add-after 'unpack 'chdir
4127                (lambda _ (chdir "source/generic/babel-french")))
4128              (replace 'copy-files
4129                (lambda* (#:key inputs outputs #:allow-other-keys)
4130                  (let ((origin (assoc-ref inputs "source"))
4131                        (source (string-append (assoc-ref outputs "out")
4132                                               "/share/texmf-dist/source"))
4133                        (doc (string-append (assoc-ref outputs "doc")
4134                                            "/share/texmf-dist/doc")))
4135                    (copy-recursively (string-append origin "/source") source)
4136                    (copy-recursively (string-append origin "/doc") doc))))))))
4137       (home-page "https://ctan.org/macros/latex/contrib/babel-contrib/french")
4138       (synopsis "Babel contributed support for French")
4139       (description
4140        "The package, formerly known as frenchb, establishes French conventions
4141 in a document (or a subset of the conventions, if French is not the main
4142 language of the document).")
4143       (license license:lppl1.3+))))
4144
4145 (define-deprecated-package texlive-generic-babel-french texlive-babel-french)
4146
4147 (define-public texlive-generic-babel-german
4148   (package
4149     (name "texlive-generic-babel-german")
4150     (version (number->string %texlive-revision))
4151     (source (origin
4152               (method svn-fetch)
4153               (uri (texlive-ref "generic" "babel-german"))
4154               (file-name (string-append name "-" version "-checkout"))
4155               (sha256
4156                (base32
4157                 "1x9hnr9gz5mqdb97cinivn9xjnfr4qi996aa4cnr2sm2dsbhqxnp"))))
4158     (build-system texlive-build-system)
4159     (arguments '(#:tex-directory "generic/babel-german"))
4160     (home-page "https://www.ctan.org/pkg/babel-german")
4161     (synopsis "Babel support for German")
4162     (description
4163      "This package provides the language definition file for support of German
4164 in @code{babel}.  It provides all the necessary macros, definitions and
4165 settings to typeset German documents.  The bundle includes support for the
4166 traditional and reformed German orthography as well as for the Austrian and
4167 Swiss varieties of German.")
4168     (license license:lppl1.3+)))
4169
4170 (define-public texlive-babel-swedish
4171   (let ((template (simple-texlive-package
4172                    "texlive-babel-swedish"
4173                    (list "/source/generic/babel-swedish/")
4174                    (base32
4175                     "03rp4n9wkqyckman765r8v8j2pg5fg9frbfxsnhq0i2mr0yhbr6v"))))
4176     (package
4177       (inherit template)
4178       (arguments
4179        (substitute-keyword-arguments (package-arguments template)
4180          ((#:tex-directory _ '())
4181           "generic/babel-swedish")
4182          ((#:build-targets _ '())
4183           ''("swedish.ins")) ; TODO: use dtx and build documentation
4184          ((#:phases phases)
4185           `(modify-phases ,phases
4186              (add-after 'unpack 'chdir
4187                (lambda _ (chdir "source/generic/babel-swedish")))))))
4188       (home-page "https://www.ctan.org/pkg/babel-swedish")
4189       (synopsis "Babel support for Swedish")
4190       (description "This package provides the language definition file for
4191 support of Swedish in @code{babel}.  It provides all the necessary macros,
4192 definitions and settings to typeset Swedish documents.")
4193       (license license:lppl1.3c+))))
4194
4195 (define-public texlive-latex-cyrillic
4196   (package
4197     (name "texlive-latex-cyrillic")
4198     (version (number->string %texlive-revision))
4199     (source (origin
4200               (method svn-fetch)
4201               (uri (texlive-ref "latex" "cyrillic"))
4202               (file-name (string-append name "-" version "-checkout"))
4203               (sha256
4204                (base32
4205                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
4206     (build-system texlive-build-system)
4207     (arguments
4208      '(#:tex-directory "latex/cyrillic"))
4209     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
4210     (synopsis "Support for Cyrillic fonts in LaTeX")
4211     (description
4212      "This bundle of macros files provides macro support (including font
4213 encoding macros) for the use of Cyrillic characters in fonts encoded under the
4214 T2* and X2 encodings. These encodings cover (between them) pretty much every
4215 language that is written in a Cyrillic alphabet.")
4216     (license license:lppl1.3c+)))
4217
4218 (define-public texlive-psnfss
4219   (let ((template (simple-texlive-package
4220                    "texlive-psnfss"
4221                    (list "/doc/latex/psnfss/"
4222                          "/source/latex/psnfss/"
4223                          "/fonts/map/dvips/psnfss/"
4224
4225                          ;; Only the .sty files are generated from the sources.
4226                          "/tex/latex/psnfss/8rbch.fd"
4227                          "/tex/latex/psnfss/8rpag.fd"
4228                          "/tex/latex/psnfss/8rpbk.fd"
4229                          "/tex/latex/psnfss/8rpcr.fd"
4230                          "/tex/latex/psnfss/8rphv.fd"
4231                          "/tex/latex/psnfss/8rpnc.fd"
4232                          "/tex/latex/psnfss/8rppl.fd"
4233                          "/tex/latex/psnfss/8rptm.fd"
4234                          "/tex/latex/psnfss/8rput.fd"
4235                          "/tex/latex/psnfss/8rpzc.fd"
4236                          "/tex/latex/psnfss/omlbch.fd"
4237                          "/tex/latex/psnfss/omlpag.fd"
4238                          "/tex/latex/psnfss/omlpbk.fd"
4239                          "/tex/latex/psnfss/omlpcr.fd"
4240                          "/tex/latex/psnfss/omlphv.fd"
4241                          "/tex/latex/psnfss/omlpnc.fd"
4242                          "/tex/latex/psnfss/omlppl.fd"
4243                          "/tex/latex/psnfss/omlptm.fd"
4244                          "/tex/latex/psnfss/omlptmcm.fd"
4245                          "/tex/latex/psnfss/omlput.fd"
4246                          "/tex/latex/psnfss/omlpzc.fd"
4247                          "/tex/latex/psnfss/omlzplm.fd"
4248                          "/tex/latex/psnfss/omlzpple.fd"
4249                          "/tex/latex/psnfss/omlztmcm.fd"
4250                          "/tex/latex/psnfss/omsbch.fd"
4251                          "/tex/latex/psnfss/omspag.fd"
4252                          "/tex/latex/psnfss/omspbk.fd"
4253                          "/tex/latex/psnfss/omspcr.fd"
4254                          "/tex/latex/psnfss/omsphv.fd"
4255                          "/tex/latex/psnfss/omspnc.fd"
4256                          "/tex/latex/psnfss/omsppl.fd"
4257                          "/tex/latex/psnfss/omsptm.fd"
4258                          "/tex/latex/psnfss/omsput.fd"
4259                          "/tex/latex/psnfss/omspzc.fd"
4260                          "/tex/latex/psnfss/omspzccm.fd"
4261                          "/tex/latex/psnfss/omszplm.fd"
4262                          "/tex/latex/psnfss/omszpple.fd"
4263                          "/tex/latex/psnfss/omsztmcm.fd"
4264                          "/tex/latex/psnfss/omxpsycm.fd"
4265                          "/tex/latex/psnfss/omxzplm.fd"
4266                          "/tex/latex/psnfss/omxzpple.fd"
4267                          "/tex/latex/psnfss/omxztmcm.fd"
4268                          "/tex/latex/psnfss/ot1bch.fd"
4269                          "/tex/latex/psnfss/ot1pag.fd"
4270                          "/tex/latex/psnfss/ot1pbk.fd"
4271                          "/tex/latex/psnfss/ot1pcr.fd"
4272                          "/tex/latex/psnfss/ot1phv.fd"
4273                          "/tex/latex/psnfss/ot1pnc.fd"
4274                          "/tex/latex/psnfss/ot1ppl.fd"
4275                          "/tex/latex/psnfss/ot1pplj.fd"
4276                          "/tex/latex/psnfss/ot1pplx.fd"
4277                          "/tex/latex/psnfss/ot1ptm.fd"
4278                          "/tex/latex/psnfss/ot1ptmcm.fd"
4279                          "/tex/latex/psnfss/ot1put.fd"
4280                          "/tex/latex/psnfss/ot1pzc.fd"
4281                          "/tex/latex/psnfss/ot1zplm.fd"
4282                          "/tex/latex/psnfss/ot1zpple.fd"
4283                          "/tex/latex/psnfss/ot1ztmcm.fd"
4284                          "/tex/latex/psnfss/t1bch.fd"
4285                          "/tex/latex/psnfss/t1pag.fd"
4286                          "/tex/latex/psnfss/t1pbk.fd"
4287                          "/tex/latex/psnfss/t1pcr.fd"
4288                          "/tex/latex/psnfss/t1phv.fd"
4289                          "/tex/latex/psnfss/t1pnc.fd"
4290                          "/tex/latex/psnfss/t1ppl.fd"
4291                          "/tex/latex/psnfss/t1pplj.fd"
4292                          "/tex/latex/psnfss/t1pplx.fd"
4293                          "/tex/latex/psnfss/t1ptm.fd"
4294                          "/tex/latex/psnfss/t1put.fd"
4295                          "/tex/latex/psnfss/t1pzc.fd"
4296                          "/tex/latex/psnfss/ts1bch.fd"
4297                          "/tex/latex/psnfss/ts1pag.fd"
4298                          "/tex/latex/psnfss/ts1pbk.fd"
4299                          "/tex/latex/psnfss/ts1pcr.fd"
4300                          "/tex/latex/psnfss/ts1phv.fd"
4301                          "/tex/latex/psnfss/ts1pnc.fd"
4302                          "/tex/latex/psnfss/ts1ppl.fd"
4303                          "/tex/latex/psnfss/ts1pplj.fd"
4304                          "/tex/latex/psnfss/ts1pplx.fd"
4305                          "/tex/latex/psnfss/ts1ptm.fd"
4306                          "/tex/latex/psnfss/ts1put.fd"
4307                          "/tex/latex/psnfss/ts1pzc.fd"
4308                          "/tex/latex/psnfss/ufplm.fd"
4309                          "/tex/latex/psnfss/ufplmbb.fd"
4310                          "/tex/latex/psnfss/upsy.fd"
4311                          "/tex/latex/psnfss/upzd.fd")
4312                    (base32
4313                     "11f14dzhwsy4pli21acccip43d36nf3pac33ihjffnps1i2mhqkd"))))
4314     (package
4315       (inherit template)
4316       ;; TODO: This package is missing files.
4317       (replacement texlive-psnfss/fixed)
4318       (arguments
4319        (substitute-keyword-arguments (package-arguments template)
4320          ((#:tex-directory _ #t)
4321           "latex/psnfss")
4322          ((#:phases phases)
4323           `(modify-phases ,phases
4324              (add-after 'unpack 'chdir
4325                (lambda _
4326                  (chdir "source/latex/psnfss") #t))))))
4327       (native-inputs
4328        (list texlive-cm))
4329       (home-page "https://www.ctan.org/pkg/psnfss")
4330       (synopsis "Font support for common PostScript fonts")
4331       (description
4332        "The PSNFSS collection includes a set of files that provide a complete
4333 working setup of the LaTeX font selection scheme (NFSS2) for use with common
4334 PostScript fonts.  The base set of text fonts covered by PSNFSS includes the
4335 AvantGarde, Bookman, Courier, Helvetica, New Century Schoolbook, Palatino,
4336 Symbol, Times Roman and Zapf Dingbats fonts.  In addition, the fonts Bitstream
4337 Charter and Adobe Utopia are covered.  Separate packages are provided to load
4338 each font for use as the main text font.  The package @code{helvet} allows
4339 Helvetica to be loaded with its size scaled to something more appropriate for
4340 use as a Sans-Serif font to match Times, while @code{pifont} provides the
4341 means to select single glyphs from symbol fonts.  The bundle as a whole is
4342 part of the LaTeX required set of packages.")
4343       (license license:lppl1.2+))))
4344
4345 (define-public texlive-psnfss/fixed
4346   (package
4347     (inherit texlive-psnfss)
4348     (name "texlive-psnfss-fixed")
4349     (arguments
4350      (substitute-keyword-arguments (package-arguments texlive-psnfss)
4351        ((#:phases phases)
4352         `(modify-phases ,phases
4353            (add-before 'copy-files 'unchdir
4354              (lambda _
4355                (chdir "../../..")))
4356            (add-after 'copy-files 'delete-extra-files
4357              (lambda* (#:key outputs #:allow-other-keys)
4358                (delete-file-recursively
4359                 (string-append (assoc-ref outputs "out")
4360                                "/share/texmf-dist/source/latex/psnfss/build"))))))))))
4361
4362 (define-deprecated-package texlive-latex-psnfss texlive-psnfss)
4363
4364 ;; For user profiles
4365 (define-public texlive-base
4366   (let ((default-packages
4367           (list texlive-bin
4368                 texlive-dvips
4369                 texlive-fontname
4370                 texlive-cm
4371                 texlive-cm-super ; to avoid bitmap fonts
4372                 texlive-fonts-latex
4373                 texlive-metafont
4374                 texlive-latex-base
4375                 texlive-kpathsea       ;for mktex.opt
4376                 ;; LaTeX packages from the "required" set.
4377                 texlive-latex-amsmath
4378                 texlive-amscls
4379                 texlive-babel
4380                 texlive-generic-babel-english
4381                 texlive-latex-cyrillic
4382                 texlive-latex-graphics
4383                 texlive-psnfss
4384                 texlive-latex-tools
4385                 texlive-tetex)))
4386     (package
4387       (name "texlive-base")
4388       (version (number->string %texlive-revision))
4389       (source #f)
4390       (build-system trivial-build-system)
4391       (arguments
4392        '(#:builder
4393          (begin (mkdir (assoc-ref %outputs "out")))))
4394       (propagated-inputs
4395        (map (lambda (package)
4396               (list (package-name package) package))
4397             default-packages))
4398       (home-page (package-home-page texlive-bin))
4399       (synopsis "TeX Live base packages")
4400       (description "This is a very limited subset of the TeX Live distribution.
4401 It includes little more than the required set of LaTeX packages.")
4402       (license (fold (lambda (package result)
4403                        (match (package-license package)
4404                          ((lst ...)
4405                           (append lst result))
4406                          ((? license:license? license)
4407                           (cons license result))))
4408                      '()
4409                      default-packages)))))
4410
4411 (define-public texlive-default-updmap.cfg
4412   (origin
4413     (method url-fetch)
4414     (uri (string-append "https://tug.org/svn/texlive/tags/"
4415                         %texlive-tag "/Master/texmf-dist/web2c/updmap.cfg"
4416                         "?revision=" (number->string %texlive-revision)))
4417     (file-name (string-append "updmap.cfg-"
4418                               (number->string %texlive-revision)))
4419     (sha256
4420      (base32
4421       "0zhpyld702im6352fwp41f2hgfkpj2b4j1kfsjqbkijlcmvb6w2c"))))
4422
4423 ;;; TODO: Add a TeX Live profile hook computing fonts maps (and others?)
4424 ;;; configuration from the packages in the profile, similar to what's done
4425 ;;; below.
4426 (define-public texlive-updmap.cfg
4427   (lambda* (#:optional (packages '()))
4428     "Return a 'texlive-updmap.cfg' package which contains the fonts map
4429 configuration of a base set of packages plus PACKAGES."
4430     (let ((default-packages (match (package-propagated-inputs texlive-base)
4431                               (((labels packages) ...) packages))))
4432       (package
4433         (version (number->string %texlive-revision))
4434         (source (origin
4435                   (method url-fetch)
4436                   (uri (string-append "https://tug.org/svn/texlive/tags/"
4437                                       %texlive-tag
4438                                       "/Master/texmf-dist/web2c/updmap.cfg"
4439                                       "?revision=" version))
4440                   (file-name "updmap.cfg")
4441                   (sha256
4442                    (base32
4443                     "0zhpyld702im6352fwp41f2hgfkpj2b4j1kfsjqbkijlcmvb6w2c"))))
4444         (name "texlive-updmap.cfg")
4445         (build-system copy-build-system)
4446         (arguments
4447          '(#:modules ((guix build copy-build-system)
4448                       (guix build utils)
4449                       (ice-9 popen)
4450                       (ice-9 textual-ports))
4451            #:install-plan '(("updmap.cfg" "share/texmf-config/web2c/")
4452                             ("map" "share/texmf-dist/fonts/map"))
4453            #:phases
4454            (modify-phases %standard-phases
4455              (add-before 'install 'regenerate-updmap.cfg
4456                (lambda _
4457                  (make-file-writable "updmap.cfg")
4458
4459                  ;; Disable unavailable map files.
4460                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
4461                                           "--syncwithtrees"
4462                                           "--nohash"
4463                                           "--cnffile" "updmap.cfg")))
4464                    (display "Y\n" port)
4465                    (when (not (zero? (status:exit-val (close-pipe port))))
4466                      (error "failed to filter updmap.cfg")))
4467
4468                  ;; Set TEXMFSYSVAR to a sane and writable value; updmap fails
4469                  ;; if it cannot create its log file there.
4470                  (setenv "TEXMFSYSVAR" (getcwd))
4471
4472                  ;; Generate maps.
4473                  (invoke "updmap-sys"
4474                          "--cnffile"           "updmap.cfg"
4475                          "--dvipdfmxoutputdir" "map/dvipdfmx/updmap/"
4476                          "--dvipsoutputdir"    "map/dvips/updmap/"
4477                          "--pdftexoutputdir"   "map/pdftex/updmap/"))))))
4478         (propagated-inputs (map (lambda (package)
4479                                   (list (package-name package) package))
4480                                 (append default-packages packages)))
4481         (home-page (package-home-page texlive-bin))
4482         (synopsis "TeX Live fonts map configuration")
4483         (description "This package contains the fonts map configuration file
4484 generated for the base TeX Live packages as well as, optionally, user-provided
4485 ones.")
4486         (license (delete-duplicates
4487                   (fold (lambda (package result)
4488                           (match (package-license package)
4489                             ((lst ...)
4490                              (append lst result))
4491                             ((? license:license? license)
4492                              (cons license result))))
4493                         '()
4494                         (append default-packages packages))))))))
4495
4496 (define-deprecated/alias texlive-union texlive-updmap.cfg)
4497 (export texlive-union)
4498
4499 ;; For use in package definitions only
4500 (define-public texlive-tiny
4501   (package
4502     (inherit (texlive-updmap.cfg))
4503     (name "texlive-tiny")
4504     (description "This is a very limited subset of the TeX Live distribution.
4505 It includes little more than the required set of LaTeX packages.")))
4506
4507 (define-public texlive-tipa
4508   (package
4509     (inherit (simple-texlive-package
4510               "texlive-tipa"
4511               (list "/tex4ht/ht-fonts/alias/tipa/"
4512                     "/doc/fonts/tipa/"
4513                     "/fonts/map/dvips/tipa/"
4514                     "/fonts/source/public/tipa/"
4515                     "/fonts/tfm/public/tipa/"
4516                     "/fonts/type1/public/tipa/"
4517                     "/tex/latex/tipa/")
4518               (base32
4519                "0cqzf8vb10b8jw99m9gflskxa4c3rpiznxglix6chl5lai5sgw44")
4520               #:trivial? #t))
4521     (home-page "https://www.ctan.org/pkg/tipa")
4522     (synopsis "Fonts and macros for IPA phonetics characters")
4523     (description "These fonts are considered the \"ultimate answer\" to IPA
4524 typesetting.  The encoding of these 8-bit fonts has been registered as LaTeX
4525 standard encoding T3, and the set of addendum symbols as encoding
4526 TS3. \"Times-like\" Adobe Type 1 versions are provided for both the T3 and the
4527 TS3 fonts.")
4528     (license license:lppl)))
4529
4530 (define-public texlive-latex-amsrefs
4531   (package
4532     (name "texlive-latex-amsrefs")
4533     (version (number->string %texlive-revision))
4534     (source (origin
4535               (method svn-fetch)
4536               (uri (texlive-ref "latex" "amsrefs"))
4537               (file-name (string-append name "-" version "-checkout"))
4538               (sha256
4539                (base32
4540                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
4541     (build-system texlive-build-system)
4542     (arguments '(#:tex-directory "latex/amsrefs"))
4543     (home-page "https://www.ctan.org/pkg/amsrefs")
4544     (synopsis "LaTeX-based replacement for BibTeX")
4545     (description
4546      "Amsrefs is a LaTeX package for bibliographies that provides an archival
4547 data format similar to the format of BibTeX database files, but adapted to
4548 make direct processing by LaTeX easier.  The package can be used either in
4549 conjunction with BibTeX or as a replacement for BibTeX.")
4550     (license license:lppl1.3+)))
4551
4552 (define-public texlive-latex-bigfoot
4553   (package
4554     (name "texlive-latex-bigfoot")
4555     (version (number->string %texlive-revision))
4556     (source (origin
4557               (method svn-fetch)
4558               (uri (texlive-ref "latex" "bigfoot"))
4559               (file-name (string-append name "-" version "-checkout"))
4560               (sha256
4561                (base32
4562                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
4563     (build-system texlive-build-system)
4564     (arguments
4565      '(#:tex-directory "latex/bigfoot"
4566        #:phases
4567        (modify-phases %standard-phases
4568          (add-after 'unpack 'remove-generated-file
4569            (lambda _
4570              (for-each delete-file (find-files "." "\\.drv$"))
4571              #t)))))
4572     (home-page "https://www.ctan.org/pkg/bigfoot")
4573     (synopsis "Footnotes for critical editions")
4574     (description
4575      "This package aims to provide a one-stop solution to requirements for
4576 footnotes.  It offers: Multiple footnote apparatus superior to that of
4577 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
4578 into a single paragraph (this choice may be selected per footnote series);
4579 Things you might have expected (such as @code{\\verb}-like material in
4580 footnotes, and color selections over page breaks) now work.  Note that the
4581 majority of the bigfoot package's interface is identical to that of
4582 @code{manyfoot}; users should seek information from that package's
4583 documentation.  The bigfoot bundle also provides the @code{perpage} and
4584 @code{suffix} packages.")
4585     (license license:gpl2+)))
4586
4587 (define-public texlive-latex-blindtext
4588   (package
4589     (name "texlive-latex-blindtext")
4590     (version (number->string %texlive-revision))
4591     (source (origin
4592               (method svn-fetch)
4593               (uri (texlive-ref "latex" "blindtext"))
4594               (file-name (string-append name "-" version "-checkout"))
4595               (sha256
4596                (base32
4597                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
4598     (build-system texlive-build-system)
4599     (arguments '(#:tex-directory "latex/blindtext"))
4600     (home-page "https://www.ctan.org/pkg/blindtext")
4601     (synopsis "Producing 'blind' text for testing")
4602     (description
4603      "The package provides the commands @code{\\blindtext} and
4604 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
4605 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
4606 an entire random document with sections, lists, mathematics, etc.  The package
4607 supports three languages, @code{english}, @code{(n)german} and @code{latin};
4608 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
4609 ipsum\" text, see the @code{lipsum} package).")
4610     (license license:lppl)))
4611
4612 (define-public texlive-latex-dinbrief
4613   (package
4614     (name "texlive-latex-dinbrief")
4615     (version (number->string %texlive-revision))
4616     (source (origin
4617               (method svn-fetch)
4618               (uri (texlive-ref "latex" "dinbrief"))
4619               (file-name (string-append name "-" version "-checkout"))
4620               (sha256
4621                (base32
4622                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
4623     (build-system texlive-build-system)
4624     (arguments
4625      '(#:tex-directory "latex/dinbrief"
4626        #:phases
4627        (modify-phases %standard-phases
4628          (add-after 'unpack 'remove-generated-file
4629            (lambda _
4630              (delete-file "dinbrief.drv")
4631              #t))
4632          (add-after 'unpack 'fix-encoding-error
4633            (lambda _
4634              (with-fluids ((%default-port-encoding "ISO-8859-1"))
4635                (substitute* "dinbrief.dtx"
4636                  (("zur Verf.+ung. In der Pr\"aambel")
4637                   "zur Verf\"ung. In der Pr\"aambel")))
4638              #t)))))
4639     (home-page "https://www.ctan.org/pkg/dinbrief")
4640     (synopsis "German letter DIN style")
4641     (description
4642      "This package implements a document layout for writing letters according
4643 to the rules of DIN (Deutsches Institut für Normung, German standardisation
4644 institute).  A style file for LaTeX 2.09 (with limited support of the
4645 features) is part of the package.  Since the letter layout is based on a
4646 German standard, the user guide is written in German, but most macros have
4647 English names from which the user can recognize what they are used for.  In
4648 addition there are example files showing how letters may be created with the
4649 package.")
4650     (license license:lppl)))
4651
4652 (define-public texlive-latex-draftwatermark
4653   (package
4654     (name "texlive-latex-draftwatermark")
4655     (version (number->string %texlive-revision))
4656     (source (origin
4657               (method svn-fetch)
4658               (uri (texlive-ref "latex" "draftwatermark"))
4659               (file-name (string-append name "-" version "-checkout"))
4660               (sha256
4661                (base32
4662                 "0rhn74ywv000b89w8qjf1i0qsk6kd1mjapfwis14jwjvbjqgvj95"))))
4663     (build-system texlive-build-system)
4664     (arguments '(#:tex-directory "latex/draftwatermark"))
4665     (home-page "https://www.ctan.org/pkg/draftwatermark")
4666     (synopsis "Put a grey textual watermark on document pages")
4667     (description
4668      "This package provides a means to add a textual, light grey watermark on
4669 every page or on the first page of a document.  Typical usage may consist in
4670 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
4671 package performs a similar function to that of @code{draftcopy}, but its
4672 implementation is output device independent, and made very simple by relying
4673 on everypage.")
4674     (license license:lppl1.3+)))
4675
4676 (define-public texlive-latex-environ
4677   (package
4678     (name "texlive-latex-environ")
4679     (version (number->string %texlive-revision))
4680     (source (origin
4681               (method svn-fetch)
4682               (uri (texlive-ref "latex" "environ"))
4683               (file-name (string-append name "-" version "-checkout"))
4684               (sha256
4685                (base32
4686                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
4687     (build-system texlive-build-system)
4688     (arguments '(#:tex-directory "latex/environ"))
4689     (home-page "https://www.ctan.org/pkg/environ")
4690     (synopsis "New interface for environments in LaTeX")
4691     (description
4692      "This package provides the @code{\\collect@@body} command (as in
4693 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
4694 for collecting the body text of an environment.  These commands are used to
4695 define a new author interface to creating new environments.")
4696     (license license:lppl)))
4697
4698 (define-public texlive-latex-eqparbox
4699   (package
4700     (name "texlive-latex-eqparbox")
4701     (version (number->string %texlive-revision))
4702     (source (origin
4703               (method svn-fetch)
4704               (uri (texlive-ref "latex" "eqparbox"))
4705               (file-name (string-append name "-" version "-checkout"))
4706               (sha256
4707                (base32
4708                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
4709     (build-system texlive-build-system)
4710     (arguments '(#:tex-directory "latex/eqparbox"))
4711     (home-page "https://www.ctan.org/pkg/eqparbox")
4712     (synopsis "Create equal-widthed parboxes")
4713     (description
4714      "LaTeX users sometimes need to ensure that two or more blocks of text
4715 occupy the same amount of horizontal space on the page.  To that end, the
4716 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
4717 just like @code{\\parbox}, except that instead of specifying a width, one
4718 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
4719 where they are in the document---will stretch to fit the widest
4720 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
4721 for a variety of alignment purposes, as is evidenced by the examples in
4722 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
4723 also provided.")
4724     (license license:lppl1.3+)))
4725
4726 (define-public texlive-latex-etoc
4727   (package
4728     (inherit (simple-texlive-package
4729               "texlive-latex-etoc"
4730               '("/doc/latex/etoc/README.md"
4731                 "/doc/latex/etoc/etoc.pdf"
4732                 "/tex/latex/etoc/")
4733               (base32
4734                "0198cn75m1y8ggbfv1qlnif0d9275f6mxqsansyqw4np0rv6q9sv")
4735               #:trivial? #t))
4736     (home-page "https://www.ctan.org/pkg/etoc")
4737     (synopsis "Completely customisable TOCs")
4738     (description
4739      "This package gives the user complete control of how the entries of
4740 the table of contents should be constituted from the name, number, and page
4741 number of each sectioning unit.  The layout is controlled by the definition
4742 of ‘line styles’ for each sectioning level used in the document.
4743
4744 The package provides its own custom line styles (which may be used as
4745 examples), and continues to support the standard formatting inherited from
4746 the LaTeX document classes, but the package can also allow the user to
4747 delegate the details to packages dealing with list making environments (such
4748 as enumitem).  The package’s default global style typesets tables of contents
4749 in a multi-column format, with either a standard heading, or a ruled title
4750 (optionally with a frame around the table).
4751
4752 The @code{\\tableofcontents} command may be used arbitrarily many times in
4753 the same document, while @code{\\localtableofcontents} provides a ‘local’
4754 table of contents.")
4755     (license license:lppl1.3c+)))
4756
4757 (define-public texlive-latex-expdlist
4758   (package
4759     (name "texlive-latex-expdlist")
4760     (version (number->string %texlive-revision))
4761     (source (origin
4762               (method svn-fetch)
4763               (uri (texlive-ref "latex" "expdlist"))
4764               (file-name (string-append name "-" version "-checkout"))
4765               (sha256
4766                (base32
4767                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
4768     (build-system texlive-build-system)
4769     (arguments
4770      '(#:tex-directory "latex/expdlist"
4771        #:phases
4772        (modify-phases %standard-phases
4773          (add-after 'unpack 'remove-generated-file
4774            (lambda _
4775              (for-each delete-file
4776                        (find-files "." "\\.drv$"))
4777              #t)))))
4778     (home-page "https://www.ctan.org/pkg/expdlist")
4779     (synopsis "Expanded description environments")
4780     (description
4781      "The package provides additional features for the LaTeX
4782 @code{description} environment, including adjustable left margin.  The package
4783 also allows the user to \"break\" a list (for example, to interpose a comment)
4784 without affecting the structure of the list (this works for @code{itemize} and
4785 @code{enumerate} lists, and numbered lists remain in sequence).")
4786     (license license:lppl)))
4787
4788 (define-public texlive-filemod
4789   (package
4790     (inherit (simple-texlive-package
4791               "texlive-filemod"
4792               (list "/doc/latex/filemod/"
4793                     "/tex/latex/filemod/"
4794                     "/tex/generic/filemod/")
4795               (base32
4796                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
4797               #:trivial? #t))
4798     (home-page "https://www.ctan.org/pkg/filemod")
4799     (synopsis "Provide file modification times, and compare them")
4800     (description
4801      "This package provides macros to read and compare the modification dates
4802 of files.  The files may be @code{.tex} files, images or other files (as long
4803 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
4804 of pdfLaTeX to find the file modification date as PDF date string, parses the
4805 string and returns the value to the user.  The package will also work for DVI
4806 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
4807 mode.  The functionality is provided by purely expandable macros or by faster
4808 but non-expandable ones.")
4809     (license license:lppl1.3+)))
4810
4811 (define-deprecated-package texlive-latex-filemod texlive-filemod)
4812
4813 (define-public texlive-latex-hanging
4814   (package
4815     (inherit (simple-texlive-package
4816               "texlive-latex-hanging"
4817               '("/tex/latex/hanging/")
4818               (base32
4819                "0s86yaxyfv9zxf4svwg9s13by9vrw38apfg0hsfchsimsdd6gsbb")
4820               #:trivial? #t))
4821     (home-page "https://www.ctan.org/pkg/hanging")
4822     (synopsis "Typeset hanging paragraphs")
4823     (description
4824      "The @code{hanging} package facilitates the typesetting of hanging
4825 paragraphs.  The package also enables typesetting with hanging punctuation,
4826 by making punctuation characters active.")
4827     (license license:lppl1.3c+)))
4828
4829 (define-public texlive-fira
4830   (package
4831     (inherit (simple-texlive-package
4832               "texlive-fira"
4833               (list "doc/fonts/fira/"
4834                     "tex/latex/fira/"
4835                     "fonts/vf/public/fira/"
4836                     "fonts/type1/public/fira/"
4837                     "fonts/tfm/public/fira/"
4838                     "fonts/opentype/public/fira/"
4839                     "fonts/map/dvips/fira/"
4840                     "fonts/enc/dvips/fira/")
4841               (base32 "1v3688hziqz4jywfysiv19vsdzfkknrf83zfbi7lhiqpgkpsfsm2")
4842               #:trivial? #t))
4843     (build-system texlive-build-system)
4844     (home-page "https://ctan.org/fonts/fira")
4845     (synopsis "Fira fonts with LaTeX support")
4846     (description
4847      "This package provides LaTeX, pdfLaTeX, XeLaTeX and LuaLaTeX support for
4848 the Fira Sans family of fonts designed by Erik Spiekermann and Ralph du
4849 Carrois of Carrois Type Design.  Fira Sans is available in eleven weights with
4850 corresponding italics: light, regular, medium, bold, ...")
4851     (license (list license:lppl
4852                    license:silofl1.1))))
4853
4854 (define-public texlive-latex-ifplatform
4855   (package
4856     (name "texlive-latex-ifplatform")
4857     (version (number->string %texlive-revision))
4858     (source (origin
4859               (method svn-fetch)
4860               (uri (texlive-ref "latex" "ifplatform"))
4861               (file-name (string-append name "-" version "-checkout"))
4862               (sha256
4863                (base32
4864                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
4865     (build-system texlive-build-system)
4866     (arguments '(#:tex-directory "latex/ifplatform"))
4867     (home-page "https://www.ctan.org/pkg/ifplatform")
4868     (synopsis "Conditionals to test which platform is being used")
4869     (description
4870      "This package uses the (La)TeX extension @code{-shell-escape} to
4871 establish whether the document is being processed on a Windows or on a
4872 Unix-like system, or on Cygwin (Unix environment over a Windows system).
4873 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
4874 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
4875 on a Unix-like system, which may be used to distinguish between various
4876 classes of systems.")
4877     (license license:lppl)))
4878
4879 (define-public texlive-latex-natbib
4880   (package
4881     (name "texlive-latex-natbib")
4882     (version (number->string %texlive-revision))
4883     (source (origin
4884               (method svn-fetch)
4885               (uri (texlive-ref "latex" "natbib"))
4886               (file-name (string-append name "-" version "-checkout"))
4887               (sha256
4888                (base32
4889                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
4890     (build-system texlive-build-system)
4891     (arguments '(#:tex-directory "latex/natbib"))
4892     (home-page "https://www.ctan.org/pkg/natbib")
4893     (synopsis "Flexible bibliography support")
4894     (description
4895      "This bundle provides a package that implements both author-year and
4896 numbered references, as well as much detailed of support for other
4897 bibliography use.  Also provided are versions of the standard BibTeX styles
4898 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
4899 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
4900 designed from the start to be compatible with @code{natbib}.")
4901     (license license:lppl)))
4902
4903 (define-public texlive-latex-newunicodechar
4904   (package
4905     (inherit (simple-texlive-package
4906               "texlive-latex-newunicodechar"
4907               '("/doc/latex/newunicodechar/" "/tex/latex/newunicodechar/")
4908               (base32
4909                "0pwx3ylhvk5hxjnalas00grrbwla79j424i27hrm0zgflq7wsbrj")
4910               #:trivial? #t))
4911     (home-page "https://www.ctan.org/pkg/newunicodechar")
4912     (synopsis "Definitions of the meaning of Unicode characters")
4913     (description
4914      "This package provides a friendly interface for defining the meaning of
4915 Unicode characters.  The document should be processed by (pdf)LaTeX with the
4916 Unicode option of @code{inputenc} or @code{inputenx}, or by XeLaTeX/LuaLaTeX.")
4917     (license license:lppl1.3c+)))
4918
4919 (define-public texlive-latex-pdftexcmds
4920   (package
4921     (inherit (simple-texlive-package
4922               "texlive-latex-pdftexcmds"
4923               '("/doc/generic/pdftexcmds/"
4924                 "/tex/generic/pdftexcmds/")
4925               (base32
4926                "1hph0djbfc8hlwfc41rzlf8l3ccyyvc0n7a0qdrr9881jwd6iv1b")
4927               #:trivial? #t))
4928     (propagated-inputs
4929      (list texlive-generic-iftex texlive-generic-infwarerr
4930            texlive-generic-ltxcmds))
4931     (home-page "https://www.ctan.org/pkg/pdftexcmds")
4932     (synopsis "LuaTeX support for pdfTeX utility functions")
4933     (description
4934      "This package makes a number of utility functions from pdfTeX
4935 available for luaTeX by reimplementing them using Lua.")
4936     (license license:lppl1.3c+)))
4937
4938 (define-public texlive-latex-psfrag
4939   (package
4940     (name "texlive-latex-psfrag")
4941     (version (number->string %texlive-revision))
4942     (source (origin
4943               (method svn-fetch)
4944               (uri (texlive-ref "latex" "psfrag"))
4945               (file-name (string-append name "-" version "-checkout"))
4946               (sha256
4947                (base32
4948                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
4949     (build-system texlive-build-system)
4950     (arguments '(#:tex-directory "latex/psfrag"))
4951     (home-page "https://www.ctan.org/pkg/psfrag")
4952     (synopsis "Replace strings in encapsulated PostScript figures")
4953     (description
4954      "This package allows LaTeX constructions (equations, picture
4955 environments, etc.) to be precisely superimposed over Encapsulated PostScript
4956 figures, using your own favorite drawing tool to create an EPS figure and
4957 placing simple text \"tags\" where each replacement is to be placed, with
4958 PSfrag automatically removing these tags from the figure and replacing them
4959 with a user specified LaTeX construction, properly aligned, scaled, and/or
4960 rotated.")
4961     (license (license:fsf-free "file://psfrag.dtx"))))
4962
4963 (define-public texlive-pstool
4964   (package
4965     (inherit (simple-texlive-package
4966               "texlive-pstool"
4967               (list "/doc/latex/pstool/"
4968                     "/tex/latex/pstool/")
4969               (base32
4970                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
4971               #:trivial? #t))
4972     (propagated-inputs
4973      (list texlive-latex-bigfoot ; for suffix
4974            texlive-filemod
4975            texlive-latex-graphics
4976            texlive-latex-ifplatform
4977            texlive-latex-l3kernel ; for expl3
4978            texlive-oberdiek
4979            texlive-latex-psfrag
4980            texlive-latex-tools ; for shellesc
4981            texlive-latex-trimspaces
4982            texlive-latex-xkeyval))
4983     (home-page "https://www.ctan.org/pkg/pstool")
4984     (synopsis "Process PostScript graphics within pdfLaTeX documents")
4985     (description
4986      "This is a package for processing PostScript graphics with @code{psfrag}
4987 labels within pdfLaTeX documents.  Every graphic is compiled individually,
4988 drastically speeding up compilation time when only a single figure needs
4989 re-processing.")
4990     (license license:lppl)))
4991
4992 (define-deprecated-package texlive-latex-pstool texlive-pstool)
4993
4994 (define-public texlive-latex-refcount
4995   (package
4996     (inherit (simple-texlive-package
4997               "texlive-latex-refcount"
4998               (list "/doc/latex/refcount/"
4999                     "/tex/latex/refcount/")
5000               (base32
5001                "0pkmqj2qihndlv3ks33xzqw91q46jx79r3aygj68d8dflyddi583")
5002               #:trivial? #t))
5003     (home-page "https://www.ctan.org/pkg/refcount")
5004     (synopsis "Counter operations with label references")
5005     (description
5006      "This package provides the @code{\\setcounterref} and
5007 @code{\\addtocounterref} commands which use the section (or other) number
5008 from the reference as the value to put into the counter.  It also provides
5009 @code{\\setcounterpageref} and @code{\\addtocounterpageref} that do the
5010 corresponding thing with the page reference of the label.")
5011     (license license:lppl1.3c+)))
5012
5013 (define-public texlive-seminar
5014   (package
5015     (inherit (simple-texlive-package
5016               "texlive-seminar"
5017               (list "/doc/latex/seminar/"
5018                     "/tex/latex/seminar/")
5019               (base32
5020                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
5021               #:trivial? #t))
5022     (home-page "https://www.ctan.org/pkg/seminar")
5023     (synopsis "Make overhead slides")
5024     ;; TODO: This package may need fancybox and xcomment at runtime.
5025     (description
5026      "This package provides a class that produces overhead
5027 slides (transparencies), with many facilities.  Seminar is not nowadays
5028 reckoned a good basis for a presentation — users are advised to use more
5029 recent classes such as powerdot or beamer, both of which are tuned to
5030 21st-century presentation styles.")
5031     (license license:lppl1.2+)))
5032
5033 (define-deprecated-package texlive-latex-seminar texlive-seminar)
5034
5035 (define-public texlive-latex-stackengine
5036   (package
5037     (inherit (simple-texlive-package
5038               "texlive-latex-stackengine"
5039               (list "/doc/latex/stackengine/"
5040                     "/tex/latex/stackengine/")
5041               (base32
5042                "1rbw3dmb6kl3wlnpxacr8cmp2ivac1kpnb33k7r5s3lp1q59ck38")
5043               #:trivial? #t))
5044     (home-page "https://www.ctan.org/pkg/stackengine")
5045     (synopsis "Customised stacking of objects")
5046     (description
5047      "The package provides a versatile way to stack objects vertically in a
5048 variety of customizable ways.  A number of useful macros are provided, all
5049 of which make use of the @code{stackengine} core.")
5050     (license license:lppl1.3+)))
5051
5052 (define-public texlive-latex-tocloft
5053   (package
5054     (inherit (simple-texlive-package
5055               "texlive-latex-tocloft"
5056               '("/doc/latex/tocloft/" "/tex/latex/tocloft/")
5057               (base32
5058                "0mg3hpzq7wpm6mnnvb0rp3wby56zyxkyai8d2h3f4vk93zrc6awk")
5059               #:trivial? #t))
5060     (home-page "https://www.ctan.org/pkg/tocloft")
5061     (synopsis "Control table of contents")
5062     (description
5063      "This package provides control over the typography of the
5064 @dfn{Table of Contents}, @dfn{List of Figures} and @dfn{List of Tables},
5065 and the ability to create new ‘List of ...’. The ToC @code{\\parskip} may
5066 be changed.")
5067     (license license:lppl1.3c+)))
5068
5069 (define-public texlive-latex-trimspaces
5070   (package
5071     (name "texlive-latex-trimspaces")
5072     (version (number->string %texlive-revision))
5073     (source (origin
5074               (method svn-fetch)
5075               (uri (texlive-ref "latex" "trimspaces"))
5076               (file-name (string-append name "-" version "-checkout"))
5077               (sha256
5078                (base32
5079                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
5080     (build-system texlive-build-system)
5081     (arguments
5082      '(#:tex-directory "latex/trimspaces"
5083        #:tex-format "latex"
5084        #:phases
5085        (modify-phases %standard-phases
5086          (add-after 'unpack 'fix-bug
5087            (lambda _
5088              ;; The "ins" file refers to the wrong source file.
5089              (substitute* "trimspaces.ins"
5090                (("pstool.tex") "trimspaces.tex"))
5091              #t)))))
5092     (inputs
5093      (list texlive-latex-filecontents))
5094     (home-page "https://www.ctan.org/pkg/trimspaces")
5095     (synopsis "Trim spaces around an argument or within a macro")
5096     (description
5097      "This very short package allows you to expandably remove spaces around a
5098 token list (commands are provided to remove spaces before, spaces after, or
5099 both); or to remove surrounding spaces within a macro definition, or to define
5100 space-stripped macros.")
5101     (license license:lppl)))
5102
5103 (define-public texlive-calrsfs
5104   (package
5105     (inherit
5106      (simple-texlive-package
5107       "texlive-calrsfs"
5108       (list "doc/latex/calrsfs/" "tex/latex/calrsfs/")
5109       (base32 "0aqa0k0zzzicx5nynd29i9pdb7a4j6fvf1xwrbm4qg64pl55i6xa")
5110       #:trivial? #t))
5111     (home-page "https://ctan.org/macros/latex/contrib/calrsfs")
5112     (synopsis "Copperplate calligraphic letters in LaTeX")
5113     (description "This package provides a math interface to the Rsfs fonts.")
5114     (license license:public-domain)))
5115
5116 (define-public texlive-capt-of
5117   (let ((template
5118          (simple-texlive-package
5119           "texlive-capt-of"
5120           (list "doc/latex/capt-of/"
5121                 "source/latex/capt-of/"
5122                 "tex/latex/capt-of/")
5123           (base32 "0bf0cdd9ca3kkqxqqkq6jalh5ybs60l80l5gfkl2whk2v4bnzfvz"))))
5124     (package
5125       (inherit template)
5126       (outputs '("out" "doc"))
5127       (arguments
5128        (substitute-keyword-arguments (package-arguments template)
5129          ((#:tex-directory _ '())
5130           "latex/capt-of")
5131          ((#:build-targets _ '())
5132           '(list "capt-of.ins"))
5133          ((#:phases phases)
5134           `(modify-phases ,phases
5135              (add-after 'unpack 'chdir
5136                (lambda _
5137                  (chdir "source/latex/capt-of")))
5138              (replace 'copy-files
5139                (lambda* (#:key inputs outputs #:allow-other-keys)
5140                  (let ((origin (assoc-ref inputs "source"))
5141                        (source (string-append (assoc-ref outputs "out")
5142                                               "/share/texmf-dist/source"))
5143                        (doc (string-append (assoc-ref outputs "doc")
5144                                            "/share/texmf-dist/doc")))
5145                    (copy-recursively (string-append origin "/source") source)
5146                    (copy-recursively (string-append origin "/doc") doc))))))))
5147       (home-page "https://www.ctan.org/pkg/capt-of")
5148       (synopsis "Captions on more than floats")
5149       (description
5150        "This package defines a command @code{\\captionof} for putting a caption
5151 to something that's not a float.")
5152       (license license:lppl))))
5153
5154 (define-deprecated-package texlive-latex-capt-of texlive-capt-of)
5155
5156 (define-public texlive-carlisle
5157   (package
5158     (inherit (simple-texlive-package
5159               "texlive-carlisle"
5160               (list "doc/latex/carlisle/"
5161                     "source/latex/carlisle/"
5162                     "tex/latex/carlisle/")
5163               (base32 "139k4n8dv6pbal1mx4m8b239x3i9cw61f6digk9mxscbxwvxfngb")
5164               #:trivial? #t))
5165     (home-page "https://ctan.org/macros/latex/contrib/carlisle")
5166     (synopsis "David Carlisle's small packages")
5167     (description
5168      "Many of David Carlisle's more substantial packages stand on their own,
5169 or as part of the LaTeX latex-tools set; this set contains: making dotless
5170 @emph{j} characters for fonts that don't have them; a method for combining the
5171 capabilities of longtable and tabularx; an environment for including plain TeX
5172 in LaTeX documents; a jiffy to create slashed characters for physicists.")
5173     (license license:lppl)))
5174
5175 (define-public texlive-doi
5176   (package
5177     (inherit (simple-texlive-package
5178               "texlive-doi"
5179               (list "/doc/latex/doi/README.md"
5180                     "/tex/latex/doi/")
5181               (base32
5182                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
5183               #:trivial? #t))
5184     (home-page "https://www.ctan.org/pkg/doi")
5185     (synopsis "Create correct hyperlinks for DOI numbers")
5186     (description
5187      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
5188 elected to use nasty characters in their DOI numbering scheme (@code{<},
5189 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
5190 upset LaTeX, or your PDF reader.  This package contains a single user-level
5191 command @code{\\doi{}}, which takes a DOI number, and creates a correct
5192 hyperlink to the target of the DOI.")
5193     ;; Any version of the LPPL.
5194     (license license:lppl1.3+)))
5195
5196 (define-deprecated-package texlive-latex-doi texlive-doi)
5197
5198 (define-public texlive-etoolbox
5199   (package
5200     (inherit (simple-texlive-package
5201               "texlive-etoolbox"
5202               (list "/doc/latex/etoolbox/"
5203                     "/tex/latex/etoolbox/")
5204               (base32
5205                "070iaj540rglf0c80l0hjkwg6aa7qyskhh4iwyhf7n8vrg5cjjab")
5206               #:trivial? #t))
5207     (home-page "https://www.ctan.org/pkg/etoolbox")
5208     (synopsis "e-TeX tools for LaTeX")
5209     (description
5210      "This package is a toolbox of programming facilities geared primarily
5211 towards LaTeX class and package authors.  It provides LaTeX frontends to some
5212 of the new primitives provided by e-TeX as well as some generic tools which
5213 are not strictly related to e-TeX but match the profile of this package.  The
5214 package provides functions that seem to offer alternative ways of implementing
5215 some LaTeX kernel commands; nevertheless, the package will not modify any part
5216 of the LaTeX kernel.")
5217     (license license:lppl1.3+)))
5218
5219 (define-deprecated-package texlive-latex-etoolbox texlive-etoolbox)
5220
5221 (define-public texlive-latex-fncychap
5222   (package
5223     (name "texlive-latex-fncychap")
5224     (version (number->string %texlive-revision))
5225     (source (origin
5226               (method svn-fetch)
5227               (uri (svn-reference
5228                     (url (string-append "svn://www.tug.org/texlive/tags/"
5229                                         %texlive-tag "/Master/texmf-dist/"
5230                                         "/tex/latex/fncychap"))
5231                     (revision %texlive-revision)))
5232               (file-name (string-append name "-" version "-checkout"))
5233               (sha256
5234                (base32
5235                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
5236     (build-system trivial-build-system)
5237     (arguments
5238      `(#:modules ((guix build utils))
5239        #:builder
5240        (begin
5241          (use-modules (guix build utils))
5242          (let ((target (string-append (assoc-ref %outputs "out")
5243                                       "/share/texmf-dist/tex/latex/fncychap")))
5244            (mkdir-p target)
5245            (copy-recursively (assoc-ref %build-inputs "source") target)
5246            #t))))
5247     (home-page "https://www.ctan.org/pkg/fncychap")
5248     (synopsis "Seven predefined chapter heading styles")
5249     (description
5250      "This package provides seven predefined chapter heading styles.  Each
5251 style can be modified using a set of simple commands.  Optionally one can
5252 modify the formatting routines in order to create additional chapter
5253 headings.")
5254     (license license:lppl1.3+)))
5255
5256 (define-public texlive-latex-framed
5257   (package
5258     (name "texlive-latex-framed")
5259     (version (number->string %texlive-revision))
5260     (source (origin
5261               (method svn-fetch)
5262               (uri (svn-reference
5263                     (url (string-append "svn://www.tug.org/texlive/tags/"
5264                                         %texlive-tag "/Master/texmf-dist/"
5265                                         "/tex/latex/framed"))
5266                     (revision %texlive-revision)))
5267               (file-name (string-append name "-" version "-checkout"))
5268               (sha256
5269                (base32
5270                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
5271     (build-system trivial-build-system)
5272     (arguments
5273      `(#:modules ((guix build utils))
5274        #:builder
5275        (begin
5276          (use-modules (guix build utils))
5277          (let ((target (string-append (assoc-ref %outputs "out")
5278                                       "/share/texmf-dist/tex/latex/framed")))
5279            (mkdir-p target)
5280            (copy-recursively (assoc-ref %build-inputs "source") target)
5281            #t))))
5282     (home-page "https://www.ctan.org/pkg/framed")
5283     (synopsis "Framed or shaded regions that can break across pages")
5284     (description
5285      "The package creates three environments: @code{framed}, which puts an
5286 ordinary frame box around the region, @code{shaded}, which shades the region,
5287 and @code{leftbar}, which places a line at the left side.  The environments
5288 allow a break at their start (the @code{\\FrameCommand} enables creation of a
5289 title that is “attached” to the environment); breaks are also allowed in the
5290 course of the framed/shaded matter.  There is also a command
5291 @code{\\MakeFramed} to make your own framed-style environments.")
5292     ;; The header states: "These macros may be freely transmitted, reproduced,
5293     ;; or modified for any purpose provided that this notice is left intact."
5294     (license (license:fsf-free "file://framed.sty"))))
5295
5296 (define-public texlive-latex-g-brief
5297   (package
5298     (name "texlive-latex-g-brief")
5299     (version (number->string %texlive-revision))
5300     (source (origin
5301               (method svn-fetch)
5302               (uri (texlive-ref "latex" "g-brief"))
5303               (file-name (string-append name "-" version "-checkout"))
5304               (sha256
5305                (base32
5306                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
5307     (build-system texlive-build-system)
5308     (arguments
5309      '(#:tex-directory "latex/g-brief"
5310        #:phases
5311        (modify-phases %standard-phases
5312          (add-after 'unpack 'remove-generated-file
5313            (lambda _
5314              (delete-file "g-brief.drv")
5315              #t)))))
5316     (home-page "https://www.ctan.org/pkg/g-brief")
5317     (synopsis "Letter document class")
5318     (description
5319      "This package is designed for formatting formless letters in German; it
5320 can also be used for English (by those who can read the documentation).  There
5321 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
5322 \"old\" and a \"new\" version of g-brief.")
5323     (license license:lppl)))
5324
5325 (define-public texlive-latex-galois
5326   (package
5327     (name "texlive-latex-galois")
5328     (version (number->string %texlive-revision))
5329     (source (origin
5330               (method svn-fetch)
5331               (uri (texlive-ref "latex" "galois"))
5332               (file-name (string-append name "-" version "-checkout"))
5333               (sha256
5334                (base32
5335                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
5336     (build-system texlive-build-system)
5337     (arguments '(#:tex-directory "latex/galois"))
5338     (home-page "https://www.ctan.org/pkg/galois")
5339     (synopsis "Typeset Galois connections")
5340     (description
5341      "The package deals with connections in two-dimensional style, optionally
5342 in colour.")
5343     (license license:lppl)))
5344
5345 (define-public texlive-latex-gcite
5346   (package
5347     (name "texlive-latex-gcite")
5348     (version (number->string %texlive-revision))
5349     (source (origin
5350               (method svn-fetch)
5351               (uri (texlive-ref "latex" "gcite"))
5352               (file-name (string-append name "-" version "-checkout"))
5353               (sha256
5354                (base32
5355                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
5356     (build-system texlive-build-system)
5357     (arguments '(#:tex-directory "latex/gcite"))
5358     (home-page "https://www.ctan.org/pkg/gcite")
5359     (synopsis "Citations in a reader-friendly style")
5360     (description
5361      "The package allows citations in the German style, which is considered by
5362 many to be particularly reader-friendly.  The citation provides a small amount
5363 of bibliographic information in a footnote on the page where each citation is
5364 made.  It combines a desire to eliminate unnecessary page-turning with the
5365 look-up efficiency afforded by numeric citations.  The package makes use of
5366 BibLaTeX, and is considered experimental.")
5367     (license license:lppl1.3+)))
5368
5369 (define-public texlive-latex-geometry
5370   (package
5371     (name "texlive-latex-geometry")
5372     (version (number->string %texlive-revision))
5373     (source (origin
5374               (method svn-fetch)
5375               (uri (texlive-ref "latex" "geometry"))
5376               (file-name (string-append name "-" version "-checkout"))
5377               (sha256
5378                (base32
5379                 "0a9nrmiwksnpa6iaapirqid974ai56qgin2n4h9mggy9v8gp7r71"))))
5380     (build-system texlive-build-system)
5381     (arguments '(#:tex-directory "latex/geometry"))
5382     (propagated-inputs
5383      (list texlive-oberdiek)) ;for ifpdf
5384     (home-page "https://www.ctan.org/pkg/geometry")
5385     (synopsis "Flexible and complete interface to document dimensions")
5386     (description
5387      "This package provides an easy and flexible user interface to customize
5388 page layout, implementing auto-centering and auto-balancing mechanisms so that
5389 the users have only to give the least description for the page layout.  The
5390 package knows about all the standard paper sizes, so that the user need not
5391 know what the nominal \"real\" dimensions of the paper are, just its standard
5392 name (such as a4, letter, etc.).  An important feature is the package's
5393 ability to communicate the paper size it's set up to the output.")
5394     (license license:lppl)))
5395
5396 (define-public texlive-latex-mdwtools
5397   (package
5398     (name "texlive-latex-mdwtools")
5399     (version (number->string %texlive-revision))
5400     (source (origin
5401               (method svn-fetch)
5402               (uri (texlive-ref "latex" "mdwtools"))
5403               (file-name (string-append name "-" version "-checkout"))
5404               (sha256
5405                (base32
5406                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
5407     (build-system texlive-build-system)
5408     (arguments '(#:tex-directory "latex/mdwtools"))
5409     (home-page "https://www.ctan.org/pkg/mdwtools")
5410     (synopsis "Miscellaneous tools by Mark Wooding")
5411     (description
5412      "This collection of tools includes: @code{atsupport} for short commands
5413 starting with @code{@@}, macros to sanitize the OT1 encoding of the
5414 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
5415 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
5416 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
5417 array environments; verbatim handling; and syntax diagrams.")
5418     (license license:gpl3+)))
5419
5420 (define-public texlive-latex-polyglossia
5421   (package
5422     (name "texlive-latex-polyglossia")
5423     (version (number->string %texlive-revision))
5424     (source (origin
5425               (method svn-fetch)
5426               (uri (texlive-ref "latex" "polyglossia"))
5427               (file-name (string-append name "-" version "-checkout"))
5428               (sha256
5429                (base32
5430                 "1ci6hr8hx4g2x359n6wqvw6w8fv42cjjpzxxxd3pn6av5nkaiav3"))))
5431     (build-system texlive-build-system)
5432     (arguments '(#:tex-directory "latex/polyglossia"))
5433     (home-page "https://www.ctan.org/pkg/polyglossia")
5434     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
5435     (description
5436      "This package provides a complete Babel replacement for users of LuaLaTeX
5437 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
5438     (license license:lppl1.3+)))
5439
5440 (define-public texlive-latex-supertabular
5441   (package
5442     (name "texlive-latex-supertabular")
5443     (version (number->string %texlive-revision))
5444     (source (origin
5445               (method svn-fetch)
5446               (uri (texlive-ref "latex" "supertabular"))
5447               (file-name (string-append name "-" version "-checkout"))
5448               (sha256
5449                (base32
5450                 "19fd0bqxjkzc16bza3w20pnsc90gbhbllm244b3h6sink4dlnn54"))))
5451     (build-system texlive-build-system)
5452     (arguments '(#:tex-directory "latex/supertabular"))
5453     (home-page "https://www.ctan.org/pkg/supertabular")
5454     (synopsis "Multi-page tables package")
5455     (description
5456      "This package was a predecessor of @code{longtable}; the newer
5457 package (designed on quite different principles) is easier to use and more
5458 flexible, in many cases, but supertabular retains its usefulness in a few
5459 situations where longtable has problems.")
5460     (license license:lppl1.3+)))
5461
5462 (define-public texlive-tex-texinfo
5463   (package
5464     (name "texlive-tex-texinfo")
5465     (version (number->string %texlive-revision))
5466     (source (origin
5467               (method svn-fetch)
5468               (uri (svn-reference
5469                     (url (string-append "svn://www.tug.org/texlive/tags/"
5470                                         %texlive-tag "/Master/texmf-dist/"
5471                                         "/tex/texinfo"))
5472                     (revision %texlive-revision)))
5473               (file-name (string-append name "-" version "-checkout"))
5474               (sha256
5475                (base32
5476                 "1qcmcsxdsibca0mad559vhz36xaxsbkivgv1hc98vdyd90fg4y31"))))
5477     (build-system trivial-build-system)
5478     (arguments
5479      `(#:modules ((guix build utils))
5480        #:builder
5481        (begin
5482          (use-modules (guix build utils))
5483          (let ((target (string-append (assoc-ref %outputs "out")
5484                                       "/share/texmf-dist/tex/texinfo")))
5485            (mkdir-p target)
5486            (copy-recursively (assoc-ref %build-inputs "source") target)
5487            #t))))
5488     (home-page "https://www.ctan.org/pkg/texinfo")
5489     (synopsis "TeX macros to handle Texinfo files")
5490     (description
5491      "Texinfo is the preferred format for documentation in the GNU project;
5492 the format may be used to produce online or printed output from a single
5493 source.  The Texinfo macros may be used to produce printable output using TeX;
5494 other programs in the distribution offer online interactive use (with
5495 hypertext linkages in some cases).")
5496     (license license:gpl3+)))
5497
5498 (define-public texlive-textcase
5499   (package
5500     (inherit (simple-texlive-package
5501               "texlive-textcase"
5502               (list "doc/latex/textcase/"
5503                     "tex/latex/textcase/"
5504                     "source/latex/textcase/")
5505               (base32
5506                "185fibd41wd0v51gnai29ygi32snkk00p00110kcnk1bcnmpiw82")
5507               #:trivial? #t))
5508     (home-page "https://ctan.org/macros/latex/contrib/textcase")
5509     (synopsis "Case conversion ignoring mathematics, etc")
5510     (description
5511      "The textcase package offers commands @code{\\MakeTextUppercase} and
5512 @code{\\MakeTextLowercase} are similar to the standard @code{\\MakeUppercase}
5513 and @code{\\MakeLowercase}, but they do not change the case of any sections of
5514 mathematics, or the arguments of @code{\\cite}, @code{\\label} and
5515 @code{\\ref} commands within the argument.  A further command
5516 @code{\\NoCaseChange} does nothing but suppress case change within its
5517 argument, so to force uppercase of a section including an environment, one
5518 might say:
5519
5520 @example
5521 \\MakeTextUppercase{...\\NoCaseChange{\\begin{foo}} ...\\NoCaseChange{\\end{foo}}...}
5522 @end example\n")
5523     (license license:lppl)))
5524
5525 (define-public texlive-latex-upquote
5526   (package
5527     (name "texlive-latex-upquote")
5528     (version (number->string %texlive-revision))
5529     (source (origin
5530               (method svn-fetch)
5531               (uri (texlive-ref "latex" "upquote"))
5532               (file-name (string-append name "-" version "-checkout"))
5533               (sha256
5534                (base32
5535                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
5536     (build-system texlive-build-system)
5537     (arguments '(#:tex-directory "latex/upquote"))
5538     (home-page "https://www.ctan.org/pkg/upquote")
5539     (synopsis "Show \"realistic\" quotes in verbatim")
5540     (description
5541      "Typewriter-style fonts are best for program listings, but Computer
5542 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
5543 single quotes.  Other fonts, and most programming languages, print @code{`} as
5544 a grave accent and @code{'} upright; @code{'} is used both to open and to
5545 close quoted strings.  The package switches the typewriter font to Computer
5546 Modern Typewriter in OT1 encoding, and modifies the behaviour of
5547 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
5548 in the expected way.  It does this regardless of other fonts or encodings in
5549 use, so long as the package is loaded after the other fonts were.  The package
5550 does not affect @code{\\tt}, @code{\\texttt}, etc.")
5551     (license license:lppl1.2+)))
5552
5553 (define-public texlive-latex-anysize
5554   (package
5555     (name "texlive-latex-anysize")
5556     (version (number->string %texlive-revision))
5557     (source (origin
5558               (method svn-fetch)
5559               (uri (svn-reference
5560                     (url (string-append "svn://www.tug.org/texlive/tags/"
5561                                         %texlive-tag "/Master/texmf-dist/"
5562                                         "/tex/latex/anysize"))
5563                     (revision %texlive-revision)))
5564               (file-name (string-append name "-" version "-checkout"))
5565               (sha256
5566                (base32
5567                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
5568     (build-system trivial-build-system)
5569     (arguments
5570      `(#:modules ((guix build utils))
5571        #:builder
5572        (begin
5573          (use-modules (guix build utils))
5574          (let ((target (string-append (assoc-ref %outputs "out")
5575                                       "/share/texmf-dist/tex/latex/anysize")))
5576            (mkdir-p target)
5577            (copy-recursively (assoc-ref %build-inputs "source") target)
5578            #t))))
5579     (home-page "https://www.ctan.org/pkg/anysize")
5580     (synopsis "Simple package to set up document margins")
5581     (description
5582      "This is a simple package to set up document margins.  This package is
5583 considered obsolete; alternatives are the @code{typearea} package from the
5584 @code{koma-script} bundle, or the @code{geometry} package.")
5585     (license license:public-domain)))
5586
5587 (define-public texlive-latex-appendix
5588   (package
5589     (name "texlive-latex-appendix")
5590     (version (number->string %texlive-revision))
5591     (source (origin
5592               (method svn-fetch)
5593               (uri (texlive-ref "latex" "appendix"))
5594               (file-name (string-append name "-" version "-checkout"))
5595               (sha256
5596                (base32
5597                 "1gc2brr2rs495w7qi6spdva1xrza94x7a36dncjdkghnsq8r92h4"))))
5598     (build-system texlive-build-system)
5599     (arguments '(#:tex-directory "latex/appendix"))
5600     (home-page "https://www.ctan.org/pkg/appendix")
5601     (synopsis "Extra control of appendices")
5602     (description
5603      "The appendix package provides various ways of formatting the titles of
5604 appendices.  Also (sub)appendices environments are provided that can be used,
5605 for example, for per chapter/section appendices.  An @code{appendices}
5606 environment is provided which can be used instead of the @code{\\appendix}
5607 command.")
5608     (license license:lppl)))
5609
5610 (define-public texlive-latex-bookmark
5611   (package
5612     (inherit (simple-texlive-package
5613               "texlive-latex-bookmark"
5614               (list "/doc/latex/bookmark/"
5615                     "/tex/latex/bookmark/")
5616               (base32
5617                "0xwjdah0p4an0fknvgj9y5phl62sf522z6570pvy6c09hkz0j4h1")
5618               #:trivial? #t))
5619     (home-page "https://www.ctan.org/pkg/bookmark")
5620     (synopsis "Bookmark (outline) organization for hyperref")
5621     (description
5622      "This package implements a new bookmark (outline) organization for the
5623 @code{hyperref} package.  Bookmark properties such as style and color.  Other
5624 action types are available (URI, GoToR, Named).")
5625     (license license:lppl1.3c+)))
5626
5627 (define-public texlive-latex-changebar
5628   (package
5629     (name "texlive-latex-changebar")
5630     (version (number->string %texlive-revision))
5631     (source (origin
5632               (method svn-fetch)
5633               (uri (texlive-ref "latex" "changebar"))
5634               (file-name (string-append name "-" version "-checkout"))
5635               (sha256
5636                (base32
5637                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
5638     (build-system texlive-build-system)
5639     (arguments '(#:tex-directory "latex/changebar"))
5640     (home-page "https://www.ctan.org/pkg/changebar")
5641     (synopsis "Generate changebars in LaTeX documents")
5642     (description
5643      "Identify areas of text to be marked with changebars with the
5644 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
5645 package uses @code{drivers} to place the bars; the available drivers can work
5646 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
5647 drivers, and VTeX and pdfTeX.")
5648     (license license:lppl)))
5649
5650 (define-public texlive-latex-cmap
5651   (package
5652     (name "texlive-latex-cmap")
5653     (version (number->string %texlive-revision))
5654     (source (origin
5655               (method svn-fetch)
5656               (uri (svn-reference
5657                     (url (string-append "svn://www.tug.org/texlive/tags/"
5658                                         %texlive-tag "/Master/texmf-dist/"
5659                                         "/tex/latex/cmap"))
5660                     (revision %texlive-revision)))
5661               (file-name (string-append name "-" version "-checkout"))
5662               (sha256
5663                (base32
5664                 "0m4r52gw9vwsi1pzwh0cy03jxhwizymi4a2fj3jfs5rrvh105r5y"))))
5665     (build-system trivial-build-system)
5666     (arguments
5667      `(#:modules ((guix build utils))
5668        #:builder
5669        (begin
5670          (use-modules (guix build utils))
5671          (let ((target (string-append (assoc-ref %outputs "out")
5672                                       "/share/texmf-dist/tex/latex/cmap")))
5673            (mkdir-p target)
5674            (copy-recursively (assoc-ref %build-inputs "source") target)
5675            #t))))
5676     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
5677 Master/texmf-dist/tex/latex/cmap/")
5678     (synopsis "CMap support for PDF files")
5679     (description
5680      "This package embeds CMap tables into PDF files to make search and
5681 copy-and-paste functions work properly.")
5682     (license license:lppl)))
5683
5684 (define-public texlive-latex-colortbl
5685   (package
5686     (name "texlive-latex-colortbl")
5687     (version (number->string %texlive-revision))
5688     (source (origin
5689               (method svn-fetch)
5690               (uri (texlive-ref "latex" "colortbl"))
5691               (file-name (string-append name "-" version "-checkout"))
5692               (sha256
5693                (base32
5694                 "1qa0mh0fy9hcvfsmprv6q50q0qzdjjfbxi3axap26z6zg3qj68bc"))))
5695     (build-system texlive-build-system)
5696     (arguments '(#:tex-directory "latex/colortbl"))
5697     (home-page "https://www.ctan.org/pkg/colortbl")
5698     (synopsis "Add colour to LaTeX tables")
5699     (description
5700      "This package allows rows, columns, and even individual cells in LaTeX
5701 tables to be coloured.")
5702     (license license:lppl)))
5703
5704 (define-public texlive-latex-fancybox
5705   (package
5706     (name "texlive-latex-fancybox")
5707     (version (number->string %texlive-revision))
5708     (source (origin
5709               (method svn-fetch)
5710               (uri (svn-reference
5711                     (url (string-append "svn://www.tug.org/texlive/tags/"
5712                                         %texlive-tag "/Master/texmf-dist/"
5713                                         "/tex/latex/fancybox"))
5714                     (revision %texlive-revision)))
5715               (file-name (string-append name "-" version "-checkout"))
5716               (sha256
5717                (base32
5718                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
5719     (build-system trivial-build-system)
5720     (arguments
5721      `(#:modules ((guix build utils))
5722        #:builder
5723        (begin
5724          (use-modules (guix build utils))
5725          (let ((target (string-append (assoc-ref %outputs "out")
5726                                       "/share/texmf-dist/tex/latex/fancybox")))
5727            (mkdir-p target)
5728            (copy-recursively (assoc-ref %build-inputs "source") target)
5729            #t))))
5730     (home-page "https://www.ctan.org/pkg/fancybox")
5731     (synopsis "Variants of \\fbox and other games with boxes")
5732     (description
5733      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
5734 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
5735 using box macros and flexible verbatim macros.  You can box mathematics,
5736 floats, center, flushleft, and flushright, lists, and pages.")
5737     (license license:lppl1.2+)))
5738
5739 (define-public texlive-latex-fancyhdr
5740   (package
5741     (name "texlive-latex-fancyhdr")
5742     (version (number->string %texlive-revision))
5743     (source (origin
5744               (method svn-fetch)
5745               (uri (svn-reference
5746                     (url (string-append "svn://www.tug.org/texlive/tags/"
5747                                         %texlive-tag "/Master/texmf-dist/"
5748                                         "/tex/latex/fancyhdr"))
5749                     (revision %texlive-revision)))
5750               (file-name (string-append name "-" version "-checkout"))
5751               (sha256
5752                (base32
5753                 "1h2zv7cps0pknqhy2dyfclyi002lmsfshm0rn6ywfl9p4fnvh0bc"))))
5754     (build-system trivial-build-system)
5755     (arguments
5756      `(#:modules ((guix build utils))
5757        #:builder
5758        (begin
5759          (use-modules (guix build utils))
5760          (let ((target (string-append (assoc-ref %outputs "out")
5761                                       "/share/texmf-dist/tex/latex/fancyhdr")))
5762            (mkdir-p target)
5763            (copy-recursively (assoc-ref %build-inputs "source") target)
5764            #t))))
5765     (home-page "https://www.ctan.org/pkg/fancyhdr")
5766     (synopsis "Extensive control of page headers and footers in LaTeX2e")
5767     (description
5768      "The package provides extensive facilities, both for constructing headers
5769 and footers, and for controlling their use (for example, at times when LaTeX
5770 would automatically change the heading style in use).")
5771     (license license:lppl)))
5772
5773 (define-public texlive-latex-float
5774   (package
5775     (name "texlive-latex-float")
5776     (version (number->string %texlive-revision))
5777     (source (origin
5778               (method svn-fetch)
5779               (uri (texlive-ref "latex" "float"))
5780               (file-name (string-append name "-" version "-checkout"))
5781               (sha256
5782                (base32
5783                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
5784     (build-system texlive-build-system)
5785     (arguments '(#:tex-directory "latex/float"))
5786     (home-page "https://www.ctan.org/pkg/float")
5787     (synopsis "Improved interface for floating objects")
5788     (description
5789      "This package improves the interface for defining floating objects such
5790 as figures and tables.  It introduces the boxed float, the ruled float and the
5791 plaintop float.  You can define your own floats and improve the behaviour of
5792 the old ones.  The package also provides the @code{H} float modifier option of
5793 the obsolete @code{here} package.  You can select this as automatic default
5794 with @code{\\floatplacement{figure}{H}}.")
5795     (license license:lppl)))
5796
5797 (define-public texlive-latex-footmisc
5798   (package
5799     (name "texlive-latex-footmisc")
5800     (version (number->string %texlive-revision))
5801     (source (origin
5802               (method svn-fetch)
5803               (uri (texlive-ref "latex" "footmisc"))
5804               (file-name (string-append name "-" version "-checkout"))
5805               (sha256
5806                (base32
5807                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
5808     (build-system texlive-build-system)
5809     (arguments '(#:tex-directory "latex/footmisc"))
5810     (home-page "https://www.ctan.org/pkg/footmisc")
5811     (synopsis "Range of footnote options")
5812     (description
5813      "This is a collection of ways to change the typesetting of footnotes.
5814 The package provides means of changing the layout of the footnotes themselves,
5815 a way to number footnotes per page, to make footnotes disappear in a
5816 \"moving\" argument, and to deal with multiple references to footnotes from
5817 the same place.  The package also has a range of techniques for labelling
5818 footnotes with symbols rather than numbers.")
5819     (license license:lppl1.3+)))
5820
5821 (define-public texlive-latex-letltxmacro
5822   (package
5823     (inherit (simple-texlive-package
5824               "texlive-latex-letltxmacro"
5825               (list "/doc/latex/letltxmacro/"
5826                     "/tex/latex/letltxmacro/")
5827               (base32
5828                "0yy1m1jiyxq2pssp0pidaa2swx6lyxw3zwpm2r8m0v2r3lvsyyxx")
5829               #:trivial? #t))
5830     (home-page "https://www.ctan.org/pkg/letltxmacro")
5831     (synopsis "Let assignment for macros")
5832     (description
5833      "TeX’s @code{\\let} assignment does not work for LaTeX macros with
5834 optional arguments, or for macros that are defined as robust macros by
5835 @code{\\DeclareRobustCommand}.  This package defines @code{\\LetLtxMacro}
5836 that also takes care of the involved internal macros.")
5837     (license license:lppl1.3c+)))
5838
5839 (define-public texlive-listings
5840   (package
5841     (name "texlive-listings")
5842     (version (number->string %texlive-revision))
5843     (source (origin
5844               (method svn-fetch)
5845               (uri (texlive-ref "latex" "listings"))
5846               (file-name
5847                ;; TODO: Drop "latex-" on next rebuild cycle.
5848                (string-append "texlive-latex-listings-" version "-checkout"))
5849               (sha256
5850                (base32
5851                 "082zri3gp8s6p2difhk1pbix2vzmvsf6fmld2z78v35xwk3fiya0"))))
5852     (build-system texlive-build-system)
5853     (arguments
5854      '(#:tex-directory "latex/listings"
5855        #:build-targets '("listings.ins")))
5856     (home-page "https://www.ctan.org/pkg/listings")
5857     (synopsis "Typeset source code listings using LaTeX")
5858     (description
5859      "The package enables the user to typeset programs (programming code)
5860 within LaTeX; the source code is read directly by TeX---no front-end processor
5861 is needed.  Keywords, comments and strings can be typeset using different
5862 styles.  Support for @code{hyperref} is provided.")
5863     (license license:lppl1.3+)))
5864
5865 (define-public texlive-latex-listings
5866   (deprecated-package "texlive-latex-listings" texlive-listings))
5867
5868 (define-public texlive-latex-jknapltx
5869   (package
5870     (name "texlive-latex-jknapltx")
5871     (version (number->string %texlive-revision))
5872     (source (origin
5873               (method svn-fetch)
5874               (uri (svn-reference
5875                     (url (string-append "svn://www.tug.org/texlive/tags/"
5876                                         %texlive-tag "/Master/texmf-dist/"
5877                                         "/tex/latex/jknapltx"))
5878                     (revision %texlive-revision)))
5879               (file-name (string-append name "-" version "-checkout"))
5880               (sha256
5881                (base32
5882                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
5883     (build-system trivial-build-system)
5884     (arguments
5885      `(#:modules ((guix build utils))
5886        #:builder
5887        (begin
5888          (use-modules (guix build utils))
5889          (let ((target (string-append (assoc-ref %outputs "out")
5890                                       "/share/texmf-dist/tex/latex/jknapltx")))
5891            (mkdir-p target)
5892            (copy-recursively (assoc-ref %build-inputs "source") target)
5893            #t))))
5894     (home-page "https://www.ctan.org/pkg/jknappen")
5895     (synopsis "Miscellaneous packages by Joerg Knappen")
5896     (description
5897      "This package provides miscellaneous macros by Joerg Knappen, including:
5898 represent counters in greek; Maxwell's non-commutative division;
5899 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
5900 @code{inputenc} definition files that allow verbatim input in the respective
5901 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
5902 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
5903 transliterate semitic languages; patches to make (La)TeX formulae embeddable
5904 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
5905     (license license:gpl2)))
5906
5907 (define-public texlive-latex-kvoptions
5908   (package
5909     (inherit (simple-texlive-package
5910               "texlive-latex-kvoptions"
5911               (list "/doc/latex/kvoptions/"
5912                     "/tex/latex/kvoptions/")
5913               (base32
5914                "02i4n2n3j4lg68d3nam08m63kb4irc99wfhyc2z51r02lm1wwmvw")
5915               #:trivial? #t))
5916     (propagated-inputs
5917      (list texlive-generic-kvsetkeys texlive-generic-ltxcmds))
5918     (home-page "https://www.ctan.org/pkg/kvoptions")
5919     (synopsis "Key/value format for package options")
5920     (description
5921      "This package provides facilities for using key-value format in
5922 package options.")
5923     (license license:lppl1.3c+)))
5924
5925 (define-public texlive-fonts-ec
5926   (package
5927     (name "texlive-fonts-ec")
5928     (version (number->string %texlive-revision))
5929     (source (origin
5930               (method svn-fetch)
5931               (uri (svn-reference
5932                     (url (string-append "svn://www.tug.org/texlive/tags/"
5933                                         %texlive-tag "/Master/texmf-dist/"
5934                                         "/fonts/source/jknappen/ec/"))
5935                     (revision %texlive-revision)))
5936               (file-name (string-append name "-" version "-checkout"))
5937               (sha256
5938                (base32
5939                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
5940     (build-system gnu-build-system)
5941     (arguments
5942      `(#:modules ((guix build gnu-build-system)
5943                   (guix build utils)
5944                   (srfi srfi-1)
5945                   (srfi srfi-26))
5946        #:tests? #f                      ; no tests
5947        #:phases
5948        (modify-phases %standard-phases
5949          (delete 'configure)
5950          (replace 'build
5951            (lambda* (#:key inputs #:allow-other-keys)
5952              (let ((mf (assoc-ref inputs "texlive-metafont")))
5953                ;; Tell mf where to find mf.base
5954                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5955                ;; Tell mf where to look for source files
5956                (setenv "MFINPUTS"
5957                        (string-append (getcwd) ":"
5958                                       mf "/share/texmf-dist/metafont/base:"
5959                                       (assoc-ref inputs "texlive-cm")
5960                                       "/share/texmf-dist/fonts/source/public/cm")))
5961              (mkdir "build")
5962              (for-each (lambda (font)
5963                          (format #t "building font ~a\n" font)
5964                          (invoke "mf" "-progname=mf"
5965                                  "-output-directory=build"
5966                                  (string-append "\\"
5967                                                 "mode:=ljfour; "
5968                                                 "mag:=1; "
5969                                                 "batchmode; "
5970                                                 "input " (basename font ".mf"))))
5971                        (find-files "." "[0-9]+\\.mf$"))
5972              #t))
5973          (replace 'install
5974            (lambda* (#:key outputs #:allow-other-keys)
5975              (let* ((out (assoc-ref outputs "out"))
5976                     (tfm (string-append
5977                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
5978                     (mf  (string-append
5979                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
5980                (for-each (cut install-file <> tfm)
5981                          (find-files "build" "\\.*"))
5982                (for-each (cut install-file <> mf)
5983                          (find-files "." "\\.mf"))
5984                #t))))))
5985     (native-inputs
5986      (list texlive-bin texlive-metafont texlive-cm))
5987     (home-page "https://www.ctan.org/pkg/ec")
5988     (synopsis "Computer modern fonts in T1 and TS1 encodings")
5989     (description
5990      "The EC fonts are European Computer Modern Fonts, supporting the complete
5991 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
5992 These fonts are intended to be stable with no changes being made to the tfm
5993 files.  The set also contains a Text Companion Symbol font, called @code{tc},
5994 featuring many useful characters needed in text typesetting, for example
5995 oldstyle digits, currency symbols (including the newly created Euro symbol),
5996 the permille sign, copyright, trade mark and servicemark as well as a copyleft
5997 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
5998 EC fonts supersede the preliminary version released as the DC fonts.  The
5999 fonts are available in (traced) Adobe Type 1 format, as part of the
6000 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
6001 set, Latin Modern, is not actually a direct development of the EC set, and
6002 differs from the EC in a number of particulars.")
6003     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
6004 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
6005
6006 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
6007 ;; fails with obscure TeX-typical error messages.
6008 (define-public texlive-ae
6009   (package
6010     (inherit (simple-texlive-package
6011               "texlive-ae"
6012               (list "/doc/fonts/ae/"
6013                     "/source/fonts/ae/"
6014                     "/fonts/tfm/public/ae/"
6015                     "/fonts/vf/public/ae/"
6016                     "/tex/latex/ae/")
6017               (base32
6018                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
6019               #:trivial? #t))
6020     (home-page "https://www.ctan.org/pkg/ae")
6021     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
6022     (description
6023      "This package provides a set of virtual fonts which emulates T1 coded
6024 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
6025 stands for \"Almost European\".  The main use of the package was to produce
6026 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
6027 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
6028 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
6029     (license license:lppl1.3+)))
6030
6031 (define-public texlive-inconsolata
6032   (package
6033     (inherit (simple-texlive-package
6034               "texlive-inconsolata"
6035               (list "/doc/fonts/inconsolata/"
6036                     "/fonts/enc/dvips/inconsolata/"
6037                     "/fonts/map/dvips/inconsolata/"
6038                     "/fonts/opentype/public/inconsolata/"
6039                     "/fonts/tfm/public/inconsolata/"
6040                     "/fonts/type1/public/inconsolata/"
6041                     "/tex/latex/inconsolata/")
6042               (base32
6043                "19lvma52vk7x8d7j4s9ymjwm3w2k08860fh6dkzn76scgpdm4wlb")
6044               #:trivial? #t))
6045     (home-page "https://www.ctan.org/pkg/inconsolata")
6046     (synopsis "Monospaced font with support files for use with TeX")
6047     (description
6048      "Inconsolata is a monospaced font designed by Raph Levien.  This package
6049 contains the font (in both Adobe Type 1 and OpenType formats) in regular and
6050 bold weights, with additional glyphs and options to control slashed zero,
6051 upright quotes and a shapelier lower-case L, plus metric files for use with
6052 TeX, and LaTeX font definition and other relevant files.")
6053     (license (list license:lppl1.3+
6054                    license:silofl1.1
6055                    license:asl2.0))))
6056
6057 (define-public texlive-times
6058   (package
6059     (inherit (simple-texlive-package
6060               "texlive-times"
6061               (list "/dvips/times/"
6062                     "/fonts/afm/adobe/times/"
6063                     "/fonts/afm/urw/times/"
6064                     "/fonts/tfm/adobe/times/"
6065                     "/fonts/tfm/urw35vf/times/"
6066                     "/fonts/type1/urw/times/"
6067                     "/fonts/vf/adobe/times/"
6068                     "/fonts/vf/urw35vf/times/"
6069                     "/fonts/map/dvips/times/"
6070                     "/tex/latex/times/")
6071               (base32
6072                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
6073               #:trivial? #t))
6074     (home-page "https://ctan.org/pkg/urw-base35")
6075     (synopsis "URW Base 35 font pack for LaTeX")
6076     (description
6077      "This package provides a drop-in replacements for the Times font from
6078 Adobe's basic set.")
6079     ;; No license version specified.
6080     (license license:gpl3+)))
6081
6082 (define-deprecated-package texlive-fonts-adobe-times texlive-times)
6083
6084 (define-public texlive-palatino
6085   (package
6086     (inherit (simple-texlive-package
6087               "texlive-palatino"
6088               (list "/dvips/palatino/"
6089                     "/fonts/afm/adobe/palatino/"
6090                     "/fonts/afm/urw/palatino/"
6091                     "/fonts/tfm/adobe/palatino/"
6092                     "/fonts/tfm/urw35vf/palatino/"
6093                     "/fonts/type1/urw/palatino/"
6094                     "/fonts/vf/adobe/palatino/"
6095                     "/fonts/vf/urw35vf/palatino/"
6096
6097                     "/fonts/map/dvips/palatino/"
6098                     "/tex/latex/palatino/")
6099               (base32
6100                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
6101               #:trivial? #t))
6102     (home-page "https://ctan.org/pkg/urw-base35")
6103     (synopsis "URW Base 35 font pack for LaTeX")
6104     (description
6105      "This package provides a drop-in replacements for the Palatino font from
6106 Adobe's basic set.")
6107     ;; No license version specified.
6108     (license license:gpl3+)))
6109
6110 (define-deprecated-package texlive-fonts-adobe-palatino texlive-palatino)
6111
6112 (define-public texlive-zapfding
6113   (package
6114     (inherit (simple-texlive-package
6115               "texlive-zapfding"
6116               (list "/dvips/zapfding/"
6117                     "/fonts/afm/adobe/zapfding/"
6118                     "/fonts/afm/urw/zapfding/"
6119                     "/fonts/tfm/adobe/zapfding/"
6120                     "/fonts/tfm/urw35vf/zapfding/"
6121                     "/fonts/type1/urw/zapfding/"
6122                     "/fonts/map/dvips/zapfding/"
6123                     "/tex/latex/zapfding/")
6124               (base32
6125                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
6126               #:trivial? #t))
6127     (home-page "https://ctan.org/pkg/urw-base35")
6128     (synopsis "URW Base 35 font pack for LaTeX")
6129     (description
6130      "This package provides a drop-in replacements for the Zapfding font from
6131 Adobe's basic set.")
6132     ;; No license version specified.
6133     (license license:gpl3+)))
6134
6135 (define-deprecated-package texlive-fonts-adobe-zapfding texlive-zapfding)
6136
6137 (define-public texlive-fonts-rsfs
6138   (package
6139     (name "texlive-fonts-rsfs")
6140     (version (number->string %texlive-revision))
6141     (source (origin
6142               (method svn-fetch)
6143               (uri (svn-reference
6144                     (url (string-append "svn://www.tug.org/texlive/tags/"
6145                                         %texlive-tag "/Master/texmf-dist/"
6146                                         "/fonts/source/public/rsfs/"))
6147                     (revision %texlive-revision)))
6148               (file-name (string-append name "-" version "-checkout"))
6149               (sha256
6150                (base32
6151                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
6152     (build-system gnu-build-system)
6153     (arguments
6154      `(#:modules ((guix build gnu-build-system)
6155                   (guix build utils)
6156                   (srfi srfi-1)
6157                   (srfi srfi-26))
6158        #:tests? #f                      ; no tests
6159        #:phases
6160        (modify-phases %standard-phases
6161          (delete 'configure)
6162          (replace 'build
6163            (lambda* (#:key inputs #:allow-other-keys)
6164              (let ((mf (assoc-ref inputs "texlive-metafont")))
6165                ;; Tell mf where to find mf.base
6166                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
6167                ;; Tell mf where to look for source files
6168                (setenv "MFINPUTS"
6169                        (string-append (getcwd) ":"
6170                                       mf "/share/texmf-dist/metafont/base:"
6171                                       (assoc-ref inputs "texlive-cm")
6172                                       "/share/texmf-dist/fonts/source/public/cm")))
6173              (mkdir "build")
6174              (for-each (lambda (font)
6175                          (format #t "building font ~a\n" font)
6176                          (invoke "mf" "-progname=mf"
6177                                  "-output-directory=build"
6178                                  (string-append "\\"
6179                                                 "mode:=ljfour; "
6180                                                 "mag:=1; "
6181                                                 "batchmode; "
6182                                                 "input " (basename font ".mf"))))
6183                        (find-files "." "[0-9]+\\.mf$"))
6184              #t))
6185          (replace 'install
6186            (lambda* (#:key outputs #:allow-other-keys)
6187              (let* ((out (assoc-ref outputs "out"))
6188                     (tfm (string-append
6189                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
6190                     (mf  (string-append
6191                           out "/share/texmf-dist/fonts/source/public/rsfs")))
6192                (for-each (cut install-file <> tfm)
6193                          (find-files "build" "\\.*"))
6194                (for-each (cut install-file <> mf)
6195                          (find-files "." "\\.mf"))
6196                #t))))))
6197     (native-inputs
6198      (list texlive-bin texlive-metafont texlive-cm))
6199     (home-page "https://www.ctan.org/pkg/rsfs")
6200     (synopsis "Ralph Smith's Formal Script font")
6201     (description
6202      "The fonts provide uppercase formal script letters for use as symbols in
6203 scientific and mathematical typesetting (in contrast to the informal script
6204 fonts such as that used for the calligraphic symbols in the TeX maths symbol
6205 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
6206 format.  LaTeX support, for using these fonts in mathematics, is available via
6207 one of the packages @code{calrsfs} and @code{mathrsfs}.")
6208     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
6209
6210 (define-public texlive-latex-eso-pic
6211   (package
6212     (name "texlive-latex-eso-pic")
6213     (version (number->string %texlive-revision))
6214     (source (origin
6215               (method svn-fetch)
6216               (uri (texlive-ref "latex" "eso-pic"))
6217               (file-name (string-append name "-" version "-checkout"))
6218               (sha256
6219                (base32
6220                 "12f7pbhiav4iz3rra5vq85v9f14h8j1ybi42kvnkzgjsay87p7gf"))))
6221     (build-system texlive-build-system)
6222     (arguments '(#:tex-directory "latex/eso-pic"))
6223     (home-page "https://www.ctan.org/pkg/eso-pic")
6224     (synopsis "Add picture commands (or backgrounds) to every page")
6225     (description
6226      "The package adds one or more user commands to LaTeX's @code{shipout}
6227 routine, which may be used to place the output at fixed positions.  The
6228 @code{grid} option may be used to find the correct places.")
6229     (license license:lppl1.3+)))
6230
6231 (define-public texlive-latex-eepic
6232   (package
6233     (name "texlive-latex-eepic")
6234     (version (number->string %texlive-revision))
6235     (source (origin
6236               (method svn-fetch)
6237               (uri (svn-reference
6238                     (url (string-append "svn://www.tug.org/texlive/tags/"
6239                                         %texlive-tag "/Master/texmf-dist/"
6240                                         "/tex/latex/eepic"))
6241                     (revision %texlive-revision)))
6242               (file-name (string-append name "-" version "-checkout"))
6243               (sha256
6244                (base32
6245                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
6246     (build-system trivial-build-system)
6247     (arguments
6248      `(#:modules ((guix build utils))
6249        #:builder
6250        (begin
6251          (use-modules (guix build utils))
6252          (let ((target (string-append (assoc-ref %outputs "out")
6253                                       "/share/texmf-dist/tex/latex/eepic")))
6254            (mkdir-p target)
6255            (copy-recursively (assoc-ref %build-inputs "source") target)
6256            #t))))
6257     (home-page "https://www.ctan.org/pkg/eepic")
6258     (synopsis "Extensions to epic and the LaTeX drawing tools")
6259     (description
6260      "Extensions to @code{epic} and the LaTeX picture drawing environment,
6261 include the drawing of lines at any slope, the drawing of circles in any
6262 radii, and the drawing of dotted and dashed lines much faster with much less
6263 TeX memory, and providing several new commands for drawing ellipses, arcs,
6264 splines, and filled circles and ellipses.  The package uses @code{tpic}
6265 @code{\\special} commands.")
6266     (license license:public-domain)))
6267
6268 (define-public texlive-enumitem
6269   (package
6270     (inherit
6271      (simple-texlive-package
6272       "texlive-enumitem"
6273       (list "doc/latex/enumitem/" "tex/latex/enumitem/")
6274       (base32 "0qwbyjb4a82qjxrfmz06v3w5vly75id4ix4sw7lz2az68kz080dv")
6275       #:trivial? #t))
6276     (home-page "https://www.ctan.org/pkg/enumitem")
6277     (synopsis "Customize basic list environments")
6278     (description
6279      "This package is intended to ease customizing the three basic list
6280 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
6281 extends their syntax to allow an optional argument where a set of parameters
6282 in the form @code{key=value} are available, for example:
6283 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
6284     (license license:lppl1.3+)))
6285
6286 (define-deprecated-package texlive-latex-enumitem texlive-enumitem)
6287
6288 (define-public texlive-latex-multirow
6289   (package
6290     (name "texlive-latex-multirow")
6291     (version (number->string %texlive-revision))
6292     (source (origin
6293               (method svn-fetch)
6294               (uri (texlive-ref "latex" "multirow"))
6295               (file-name (string-append name "-" version "-checkout"))
6296               (sha256
6297                (base32
6298                 "1kak9i6nwz6vc4xjj6lbvkb69s49pis6qynjzvsjraxbdw28y2dq"))))
6299     (build-system texlive-build-system)
6300     (arguments '(#:tex-directory "latex/multirow"))
6301     (home-page "https://www.ctan.org/pkg/multirow")
6302     (synopsis "Create tabular cells spanning multiple rows")
6303     (description
6304      "The package provides tools for creating tabular cells spanning multiple
6305 rows.  It has a lot of flexibility, including an option for specifying an
6306 entry at the \"natural\" width of its text.")
6307     (license license:lppl1.3+)))
6308
6309 (define-public texlive-latex-overpic
6310   (package
6311     (name "texlive-latex-overpic")
6312     (version (number->string %texlive-revision))
6313     (source (origin
6314               (method svn-fetch)
6315               (uri (svn-reference
6316                     (url (string-append "svn://www.tug.org/texlive/tags/"
6317                                         %texlive-tag "/Master/texmf-dist/"
6318                                         "/tex/latex/overpic"))
6319                     (revision %texlive-revision)))
6320               (file-name (string-append name "-" version "-checkout"))
6321               (sha256
6322                (base32
6323                 "1ygsr0rsdabj61zask3346xrwiphz5i6f1nfb9k4d3234psh09kb"))))
6324     (build-system trivial-build-system)
6325     (arguments
6326      `(#:modules ((guix build utils))
6327        #:builder
6328        (begin
6329          (use-modules (guix build utils))
6330          (let ((target (string-append (assoc-ref %outputs "out")
6331                                       "/share/texmf-dist/tex/latex/overpic")))
6332            (mkdir-p target)
6333            (copy-recursively (assoc-ref %build-inputs "source") target)
6334            #t))))
6335     (home-page "https://www.ctan.org/pkg/overpic")
6336     (synopsis "Combine LaTeX commands over included graphics")
6337     (description
6338      "The @code{overpic} environment is a cross between the LaTeX
6339 @code{picture} environment and the @code{\\includegraphics} command of
6340 @code{graphicx}.  The resulting picture environment has the same dimensions as
6341 the included graphic.  LaTeX commands can be placed on the graphic at defined
6342 positions; a grid for orientation is available.")
6343     (license license:lppl1.0+)))
6344
6345 (define-public texlive-latex-parskip
6346   (package
6347     (name "texlive-latex-parskip")
6348     (version (number->string %texlive-revision))
6349     (source (origin
6350               (method svn-fetch)
6351               (uri (svn-reference
6352                     (url (string-append "svn://www.tug.org/texlive/tags/"
6353                                         %texlive-tag "/Master/texmf-dist/"
6354                                         "/tex/latex/parskip"))
6355                     (revision %texlive-revision)))
6356               (file-name (string-append name "-" version "-checkout"))
6357               (sha256
6358                (base32
6359                 "1zll8jci8lsd7y44j567akf6y8fp2p7qq23rs527zhr0br9mn3sh"))))
6360     (build-system trivial-build-system)
6361     (arguments
6362      `(#:modules ((guix build utils))
6363        #:builder
6364        (begin
6365          (use-modules (guix build utils))
6366          (let ((target (string-append (assoc-ref %outputs "out")
6367                                       "/share/texmf-dist/tex/latex/parskip")))
6368            (mkdir-p target)
6369            (copy-recursively (assoc-ref %build-inputs "source") target)
6370            #t))))
6371     (home-page "https://www.ctan.org/pkg/parskip")
6372     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
6373     (description
6374      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
6375 that is untidy; this package (though it is no substitute for a properly
6376 designed class) helps alleviate this untidiness.")
6377     (license license:lppl)))
6378
6379 (define-public texlive-latex-pdfpages
6380   (package
6381     (name "texlive-latex-pdfpages")
6382     (version (number->string %texlive-revision))
6383     (source (origin
6384               (method svn-fetch)
6385               (uri (texlive-ref "latex" "pdfpages"))
6386               (file-name (string-append name "-" version "-checkout"))
6387               (sha256
6388                (base32
6389                 "140kl8r7g2ak2frjn5pmwiwibfynyfwp897r9vk8pypmn390lzr2"))))
6390     (build-system texlive-build-system)
6391     (arguments '(#:tex-directory "latex/pdfpages"))
6392     (home-page "https://www.ctan.org/pkg/pdfpages")
6393     (synopsis "Include PDF documents in LaTeX")
6394     (description
6395      "This package simplifies the inclusion of external multi-page PDF
6396 documents in LaTeX documents.  Pages may be freely selected and it is possible
6397 to put several logical pages onto each sheet of paper.  Furthermore a lot of
6398 hypertext features like hyperlinks and article threads are provided.  The
6399 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
6400 use this package to insert PostScript files, in addition to PDF files.")
6401     (license license:lppl1.3+)))
6402
6403 (define-public texlive-stmaryrd
6404   (let ((template (simple-texlive-package
6405                    "texlive-stmaryrd"
6406                    (list "/fonts/afm/public/stmaryrd/"
6407                          "/fonts/map/dvips/stmaryrd/"
6408                          "/fonts/source/public/stmaryrd/"
6409                          "/fonts/tfm/public/stmaryrd/"
6410                          "/fonts/type1/public/stmaryrd/"
6411                          "/source/fonts/stmaryrd/"
6412                          "/doc/fonts/stmaryrd/")
6413                    (base32
6414                     "0yn0yl6x1z9ab5gb56lhvkqabd2agz3ggxifwxkiysrj5780j29z"))))
6415     (package
6416       (inherit template)
6417       ;; TODO: This package is missing files.
6418       (replacement texlive-stmaryrd/fixed)
6419       (arguments (substitute-keyword-arguments (package-arguments template)
6420                    ((#:tex-directory _ #t)
6421                     "latex/stmaryrd")
6422                    ((#:phases phases)
6423                     `(modify-phases ,phases
6424                        (add-after 'unpack 'chdir
6425                          (lambda _
6426                            (chdir "source/fonts/stmaryrd")
6427                            #t))
6428                        (add-after 'chdir 'patch-ins
6429                          (lambda _
6430                            (substitute* "stmaryrd.ins"
6431                              (("^%% LaTeX2e.*") "\\input docstrip\n")
6432                              (("fontdef\\}\\}" line)
6433                               (string-append line "\n\\endbatchfile")))
6434                            #t))))))
6435       (home-page "https://www.ctan.org/pkg/stmaryrd")
6436       (synopsis "St Mary Road symbols for theoretical computer science")
6437       (description
6438        "The fonts were originally distributed as Metafont sources only, but
6439 Adobe Type 1 versions are also now available.  Macro support is provided for
6440 use under LaTeX; the package supports the @code{only} option (provided by the
6441 @code{somedefs} package) to restrict what is loaded, for those who don't need
6442 the whole font.")
6443       (license license:lppl))))
6444
6445 (define-public texlive-stmaryrd/fixed
6446   (package
6447     (inherit texlive-stmaryrd)
6448     (name "texlive-stmaryrd-fixed")
6449     (arguments
6450      (substitute-keyword-arguments (package-arguments texlive-stmaryrd)
6451        ((#:tex-directory _ #t)
6452         "latex/stmaryrd")
6453        ((#:phases phases)
6454         `(modify-phases ,phases
6455            (add-before 'copy-files 'unchdir
6456              (lambda _
6457                (chdir "../../..")))
6458            (add-after 'copy-files 'delete-extra-files
6459              (lambda* (#:key outputs #:allow-other-keys)
6460                (delete-file-recursively
6461                 (string-append (assoc-ref outputs "out")
6462                                "/share/texmf-dist/source/fonts/stmaryrd/build"))))))))))
6463
6464 (define-deprecated-package texlive-fonts-stmaryrd texlive-stmaryrd)
6465
6466 (define-public texlive-latex-subfigure
6467   (package
6468     (name "texlive-latex-subfigure")
6469     (version (number->string %texlive-revision))
6470     (source (origin
6471               (method svn-fetch)
6472               (uri (texlive-ref "latex" "subfigure"))
6473               (file-name (string-append name "-" version "-checkout"))
6474               (sha256
6475                (base32
6476                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
6477     (build-system texlive-build-system)
6478     (arguments '(#:tex-directory "latex/subfigure"))
6479     (home-page "https://www.ctan.org/pkg/subfigure")
6480     (synopsis "Figures divided into subfigures")
6481     (description
6482      "This (deprecated) package provides support for the manipulation and
6483 reference of small or \"sub\" figures and tables within a single figure or
6484 table environment.  It is convenient to use this package when your subfigures
6485 are to be separately captioned, referenced, or are to be included in the
6486 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
6487 used inside a figure environment for each subfigure.  An optional first
6488 argument is used as the caption for that subfigure.  The package is now
6489 considered obsolete: it was superseded by @code{subfig}, but users may find
6490 the more recent @code{subcaption} package more satisfactory.")
6491     (license license:lppl)))
6492
6493 (define-public texlive-latex-tabulary
6494   (package
6495     (name "texlive-latex-tabulary")
6496     (version (number->string %texlive-revision))
6497     (source (origin
6498               (method svn-fetch)
6499               (uri (texlive-ref "latex" "tabulary"))
6500               (file-name (string-append name "-" version "-checkout"))
6501               (sha256
6502                (base32
6503                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
6504     (build-system texlive-build-system)
6505     (arguments '(#:tex-directory "latex/tabulary"))
6506     (home-page "https://www.ctan.org/pkg/tabulary")
6507     (synopsis "Tabular with variable width columns balanced")
6508     (description
6509      "The package defines a @code{tabular*}-like environment, @code{tabulary},
6510 taking a \"total width\" argument as well as the column specifications.  The
6511 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
6512 variable width columns (@code{\\raggedright}, @code{\\centering},
6513 @code{\\raggedleft}, and normally justified).  In contrast to
6514 @code{tabularx}'s @code{X} columns, the width of each column is weighted
6515 according to the natural width of the widest cell in the column.")
6516     (license license:lppl)))
6517
6518 (define-public texlive-latex-threeparttable
6519   (package
6520     (name "texlive-latex-threeparttable")
6521     (version (number->string %texlive-revision))
6522     (source (origin
6523               (method svn-fetch)
6524               (uri (svn-reference
6525                     (url (string-append "svn://www.tug.org/texlive/tags/"
6526                                         %texlive-tag "/Master/texmf-dist/"
6527                                         "/tex/latex/threeparttable"))
6528                     (revision %texlive-revision)))
6529               (file-name (string-append name "-" version "-checkout"))
6530               (sha256
6531                (base32
6532                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
6533     (build-system trivial-build-system)
6534     (arguments
6535      `(#:modules ((guix build utils))
6536        #:builder
6537        (begin
6538          (use-modules (guix build utils))
6539          (let ((target (string-append (assoc-ref %outputs "out")
6540                                       "/share/texmf-dist/tex/latex/threeparttable")))
6541            (mkdir-p target)
6542            (copy-recursively (assoc-ref %build-inputs "source") target)
6543            #t))))
6544     (home-page "https://www.ctan.org/pkg/threeparttable")
6545     (synopsis "Tables with captions and notes all the same width")
6546     (description
6547      "This package facilitates tables with titles (captions) and notes.  The
6548 title and notes are given a width equal to the body of the table (a
6549 @code{tabular} environment).  By itself, a @code{threeparttable} does not
6550 float, but you can put it in a @code{table} or a @code{table*} or some other
6551 environment.")
6552     (license (license:fsf-free "file://threeparttable.sty"))))
6553
6554 (define-public texlive-txfonts
6555   (package
6556     (inherit (simple-texlive-package
6557               "texlive-txfonts"
6558               (list "/doc/fonts/txfonts/"
6559
6560                     "/fonts/afm/public/txfonts/"
6561                     "/fonts/tfm/public/txfonts/"
6562                     "/fonts/type1/public/txfonts/"
6563                     "/fonts/vf/public/txfonts/"
6564
6565                     "/fonts/map/dvips/txfonts/"
6566                     "/fonts/enc/dvips/txfonts/"
6567                     "/tex/latex/txfonts/")
6568               (base32
6569                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
6570               #:trivial? #t))
6571     (home-page "https://www.ctan.org/pkg/txfonts")
6572     (synopsis "Times-like fonts in support of mathematics")
6573     (description
6574      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
6575 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
6576 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
6577 providing all the symbols of the Computer Modern and AMS fonts, including all
6578 the Greek capital letters from CMR; and additional maths fonts of various
6579 other symbols.
6580
6581 The set is complemented by a sans-serif set of text fonts, based on
6582 Helvetica/NimbusSanL, and a monospace set.
6583
6584 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
6585 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
6586     ;; Any version of the GPL with font exception.
6587     (license license:gpl3+)))
6588
6589 (define-deprecated-package texlive-fonts-txfonts texlive-txfonts)
6590
6591 (define-public texlive-fonts-iwona
6592   (package
6593     (name "texlive-fonts-iwona")
6594     (version "0.995b")
6595     (source (origin
6596               (method url-fetch)
6597               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
6598                                   (string-map (lambda (c)
6599                                                 (if (char=? c #\.)
6600                                                     #\_ c))
6601                                               version)
6602                                   ".zip"))
6603               (sha256
6604                (base32
6605                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
6606     (build-system trivial-build-system)
6607     (arguments
6608      `(#:modules ((guix build utils))
6609        #:builder
6610        (begin
6611          (use-modules (guix build utils))
6612          (let ((target (string-append (assoc-ref %outputs "out")
6613                                       "/share/texmf-dist/"))
6614                (unzip  (search-input-file %build-inputs "/bin/unzip")))
6615            (invoke unzip (assoc-ref %build-inputs "source"))
6616            (mkdir-p target)
6617            (copy-recursively "iwona" target)
6618            #t))))
6619     (native-inputs
6620      (list unzip))
6621     (home-page "http://jmn.pl/en/kurier-i-iwona/")
6622     (synopsis "Sans-serif typeface for TeX")
6623     (description "Iwona is a two-element sans-serif typeface. It was created
6624 as an alternative version of the Kurier typeface, which was designed in 1975
6625 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
6626 supervision of Roman Tomaszewski.  Kurier was designed for linotype
6627 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
6628 alternative version of the Kurier fonts.  The difference lies in the absence
6629 of ink traps which typify the Kurier font.")
6630     (license license:gfl1.0)))
6631
6632 (define-public texlive-jknappen
6633   (package
6634     (inherit (simple-texlive-package
6635               "texlive-jknappen"
6636               (list "/fonts/source/jknappen/"
6637                     "/fonts/tfm/jknappen/"
6638                     "/tex4ht/ht-fonts/alias/jknappen/"
6639                     "/tex4ht/ht-fonts/unicode/jknappen/")
6640               (base32
6641                "0xvy3c845jc7iw1h9rcm1r2yvm1ni1sm9r9k9j2cfc82xy43rwij")
6642               #:trivial? #t))
6643     (home-page "https://www.ctan.org/pkg/jknappen")
6644     (synopsis "Miscellaneous packages by Jörg Knappen")
6645     (description
6646      "This package contains a collection of macros by Jörg Knappen:
6647 @table @code
6648 @item greekctr
6649 New counterstyles @code{\\greek} and @code{\\Greek}.
6650 @item holtpolt
6651 Non-commutative fractions
6652 @item latin1jk
6653 @itemx latin2jk
6654 @itemx latin3jk
6655 Inputenc definition files that allow verbatim input in the respective ISO
6656 Latin codes.
6657 @item mathbol
6658 Blackboard bold fonts for use in maths.
6659 @item mathrsfs
6660 Mathematical script letters, as traditionally used in physics for Lagrangian,
6661 Hamiltonian, path integral measures, etc.
6662 @item parboxx
6663 New alignment options for parboxen at top and bottom of the box.
6664 @item sans
6665 Interchanges the roles of sans serif and roman fonts throughout the document.
6666 @item semtrans
6667 Support for special latin letters and diacritics used in transliteration of
6668 semitic languages
6669 @item smartmn
6670 Intelligent hyphen/minus, which guesses whether to render as hyphen or minus.
6671 @item sgmlcmpt
6672 Commands replacing the characters <, >, and &.
6673 @item tccompat
6674 A compatibility package for users of the older versions of the textcomp package.
6675 @item young
6676 Simple Young tableaux.
6677 @end table")
6678     (license license:gpl2)))                    ;per the 00readme_txt file.
6679
6680 (define-public texlive-jadetex
6681   (let ((template (simple-texlive-package
6682                    "texlive-jadetex"
6683                    (list "/doc/man/man1/jadetex.1"
6684                          "/doc/man/man1/jadetex.man1.pdf"
6685                          "/doc/man/man1/pdfjadetex.1"
6686                          "/doc/man/man1/pdfjadetex.man1.pdf"
6687                          "/source/jadetex/base/"
6688                          ;; The following files are not generated from
6689                          ;; sources.
6690                          "/tex/jadetex/base/jadetex.ini"
6691                          "/tex/jadetex/base/pdfjadetex.ini"
6692                          "/tex/jadetex/base/uentities.sty")
6693                    (base32
6694                     "03chyc3vjqgxcj985gy4k0bd0lf1n4a6sgbhc7k84jparjk3hx4i"))))
6695     (package
6696       (inherit template)
6697       (arguments
6698        (substitute-keyword-arguments (package-arguments template)
6699          ((#:tex-directory _ #t)
6700           "jadetex/base")
6701          ((#:phases phases)
6702           `(modify-phases ,phases
6703              (add-after 'unpack 'unify-source-directory
6704                (lambda _
6705                  (chdir "source/jadetex/base")
6706                  (for-each (lambda (f)
6707                              (copy-file f (basename f)))
6708                            (find-files "../../../tex/jadetex/base"))
6709                  #t))
6710              (add-after 'build 'generate-formats
6711                (lambda* (#:key inputs #:allow-other-keys)
6712                  (mkdir "web2c")
6713                  (for-each (lambda (f)
6714                              (symlink f (basename f)))
6715                            (find-files "build"))
6716                  (invoke "fmtutil-sys" "--byfmt" "jadetex"
6717                          "--fmtdir=web2c")
6718                  (invoke "fmtutil-sys" "--byfmt" "pdfjadetex"
6719                          "--fmtdir=web2c")))
6720              (add-after 'install 'install-formats-and-wrappers
6721                (lambda* (#:key inputs outputs #:allow-other-keys)
6722                  (let* ((out (assoc-ref outputs "out"))
6723                         (texlive-bin (assoc-ref inputs "texlive-bin"))
6724                         (pdftex (string-append texlive-bin "/bin/pdftex"))
6725                         (web2c (string-append out "/share/texmf-dist/web2c")))
6726                    (mkdir-p web2c)
6727                    (copy-recursively "web2c" web2c)
6728                    ;; Create convenience command wrappers.
6729                    (mkdir-p (string-append out "/bin"))
6730                    (symlink pdftex (string-append out "/bin/jadetex"))
6731                    (symlink pdftex (string-append out "/bin/pdfjadetex"))
6732                    #t)))))))
6733       (propagated-inputs
6734        ;; Propagate the texlive-updmap.cfg input used by xmltex, which provides the
6735        ;; required fonts for its use.
6736        (list texlive-xmltex texlive-kpathsea)) ;for fmtutil.cnf template
6737       (native-inputs
6738        (list texlive-cm ;for cmex10 and others
6739              texlive-fonts-latex ;for lasy6
6740              ;; The t1cmr.fd file of texlive-latex-base refers to the ecrm font,
6741              ;; provided by the jknappen package collection.
6742              texlive-jknappen
6743              texlive-hyperref
6744              texlive-latex-colortbl
6745              texlive-latex-fancyhdr
6746              texlive-latex-graphics ;for color.sty
6747              texlive-latex-tools ;for array.sty
6748              texlive-marvosym
6749              texlive-tex-ini-files ;for pdftexconfig
6750              texlive-ulem))
6751       (home-page "https://www.ctan.org/pkg/jadetex/")
6752       (synopsis "TeX macros to produce TeX output using OpenJade")
6753       (description "JadeTeX is a companion package to the OpenJade DSSSL
6754 processor.  OpenJade applies a DSSSL stylesheet to an SGML or XML document.
6755 The output of this process can be in a number of forms, including a set of
6756 high level LaTeX macros.  It is the task of the JadeTeX package to transform
6757 these macros into DVI/PostScript (using the @command{jadetex} command) or
6758 Portable Document Format (PDF) form (using the @command{pdfjadetex}
6759 command).")
6760       ;; The license text is found at the header of the jadetex.dtx file.
6761       (license license:expat))))
6762
6763 (define-public texlive-libertine
6764   (package
6765     (inherit (simple-texlive-package
6766               "texlive-libertine"
6767               (list "/doc/fonts/libertine/"
6768
6769                     "/fonts/enc/dvips/libertine/"
6770                     "/fonts/map/dvips/libertine/"
6771                     "/fonts/opentype/public/libertine/"
6772                     "/fonts/tfm/public/libertine/"
6773                     "/fonts/type1/public/libertine/"
6774                     "/fonts/vf/public/libertine/"
6775
6776                     "/tex/latex/libertine/")
6777               (base32
6778                "1d5r80isyvs2v3i8pzlhsn7ns6bn8ldkbs82g25widraixlhg6yg")
6779               #:trivial? #t))
6780     (home-page "https://www.ctan.org/pkg/libertine")
6781     (synopsis "Use Linux Libertine and Biolinum fonts with LaTeX")
6782     (description
6783      "The package provides the Libertine and Biolinum fonts in both Type 1 and
6784 OTF styles, together with support macros for their use.  Monospaced and
6785 display fonts, and the \"keyboard\" set are also included, in OTF style, only.
6786 The @code{mweights} package is used to manage the selection of font weights.
6787 The package supersedes both the @code{libertineotf} and the
6788 @code{libertine-legacy} packages.")
6789     (license (list license:gpl2+        ; with font exception
6790                    license:silofl1.1
6791                    license:lppl))))
6792
6793 (define-public texlive-dejavu
6794   (package
6795     (inherit (simple-texlive-package
6796               "texlive-dejavu"
6797               (list "/doc/fonts/dejavu/"
6798
6799                     "/fonts/enc/dvips/dejavu/"
6800                     "/fonts/map/dvips/dejavu/"
6801
6802                     "/fonts/afm/public/dejavu/"
6803                     "/fonts/tfm/public/dejavu/"
6804                     "/fonts/truetype/public/dejavu/"
6805                     "/fonts/type1/public/dejavu/"
6806                     "/fonts/vf/public/dejavu/"
6807
6808                     "/tex/latex/dejavu/")
6809               (base32
6810                "0y4qf5jl0xncah9nkcaalmy69wwq02n3j895zp71n2p0nfi24aka")
6811               #:trivial? #t))
6812     (home-page "https://www.ctan.org/pkg/libertine")
6813     (synopsis "LaTeX support for the DejaVu fonts")
6814     (description
6815      "The package contains LaTeX support for the DejaVu fonts, which are
6816 derived from the Vera fonts but contain more characters and styles.  The fonts
6817 are included in the original TrueType format, and in converted Type 1 format.
6818 The (currently) supported encodings are: OT1, T1, IL2, TS1, T2*, X2, QX, and
6819 LGR.  The package doesn't (currently) support mathematics.")
6820     (license license:lppl)))
6821
6822 (define-public texlive-latex-titlesec
6823   (package
6824     (name "texlive-latex-titlesec")
6825     (version (number->string %texlive-revision))
6826     (source (origin
6827               (method svn-fetch)
6828               (uri (svn-reference
6829                     (url (string-append "svn://www.tug.org/texlive/tags/"
6830                                         %texlive-tag "/Master/texmf-dist/"
6831                                         "/tex/latex/titlesec"))
6832                     (revision %texlive-revision)))
6833               (file-name (string-append name "-" version "-checkout"))
6834               (sha256
6835                (base32
6836                 "1kw7dvxvdfbf31zw0n8r0g5xak3vcdf25n33fqw93j59zpc5nvbl"))))
6837     (build-system trivial-build-system)
6838     (arguments
6839      `(#:modules ((guix build utils))
6840        #:builder
6841        (begin
6842          (use-modules (guix build utils))
6843          (let ((target (string-append (assoc-ref %outputs "out")
6844                                       "/share/texmf-dist/tex/latex/titlesec")))
6845            (mkdir-p target)
6846            (copy-recursively (assoc-ref %build-inputs "source") target)
6847            #t))))
6848     (home-page "https://www.ctan.org/pkg/titlesec")
6849     (synopsis "Select alternative section titles")
6850     (description
6851      "This package provides an interface to sectioning commands for selection
6852 from various title styles, e.g. for marginal titles and to change the font of
6853 all headings with a single command, also providing simple one-step page
6854 styles.  It also includes a package to change the page styles when there are
6855 floats in a page.  You may assign headers/footers to individual floats, too.")
6856     (license license:lppl)))
6857
6858 (define-public texlive-latex-type1cm
6859   (package
6860     (name "texlive-latex-type1cm")
6861     (version (number->string %texlive-revision))
6862     (source (origin
6863               (method svn-fetch)
6864               (uri (texlive-ref "latex" "type1cm"))
6865               (file-name (string-append name "-" version "-checkout"))
6866               (sha256
6867                (base32
6868                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
6869     (build-system texlive-build-system)
6870     (arguments '(#:tex-directory "latex/type1cm"))
6871     (home-page "https://www.ctan.org/pkg/type1cm")
6872     (synopsis "Arbitrary size font selection in LaTeX")
6873     (description
6874      "LaTeX, by default, restricts the sizes at which you can use its default
6875 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
6876 specified by Knuth).  The @code{type1cm} package removes this restriction;
6877 this is particularly useful when using scalable versions of the CM
6878 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
6879 PCTeX, etc.).  In fact, since modern distributions will automatically generate
6880 any bitmap font you might need, @code{type1cm} has wider application than just
6881 those using scalable versions of the fonts.  Note that the LaTeX distribution
6882 now contains a package @code{fix-cm},f which performs the task of
6883 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
6884 @code{ec} fonts.")
6885     (license license:lppl)))
6886
6887 (define-public texlive-lh
6888   (let ((template (simple-texlive-package
6889                    "texlive-lh"
6890                    (list "/doc/fonts/lh/"
6891                          "/source/fonts/lh/"
6892                          "/source/latex/lh/"
6893                          "/fonts/source/lh/"
6894                          "/tex/plain/lh/")
6895                    (base32
6896                     "0vw75i52asi5sssp8k9r8dy4ihvqbvmbsl3dini3ls8cky15lz37"))))
6897     (package
6898       (inherit template)
6899       (outputs '("out" "doc"))
6900       (arguments
6901        (substitute-keyword-arguments (package-arguments template)
6902          ((#:tex-directory _ #t)
6903           "latex/lh")
6904          ((#:build-targets _ '())
6905           ''("nfssfox.ins" "lcyfonts.ins" "ot2fonts.ins" "t2ccfonts.ins"))
6906          ((#:phases phases)
6907           `(modify-phases ,phases
6908              (add-after 'unpack 'chdir
6909                (lambda _ (chdir "source/latex/lh")))
6910              (replace 'copy-files
6911                (lambda* (#:key inputs outputs #:allow-other-keys)
6912                  (let* ((source (assoc-ref inputs "source"))
6913                         (doc (string-append (assoc-ref outputs "doc")
6914                                            "/share/texmf-dist/doc"))
6915                         (target (string-append (assoc-ref outputs "out")
6916                                                "/share/texmf-dist"))
6917                         (tex (string-append target "/tex/latex/lh/")))
6918                    (copy-recursively "build/" tex)
6919                    (copy-recursively (string-append source "/fonts/source/lh")
6920                                      (string-append target "/fonts/source/lh"))
6921                    (copy-recursively (string-append source "/tex/plain/lh")
6922                                      (string-append target "/tex/plain/lh"))
6923                    (copy-recursively (string-append source "/doc")
6924                                      doc))))))))
6925       (home-page "https://www.ctan.org/pkg/lh")
6926       (synopsis "Cyrillic fonts that support LaTeX standard encodings")
6927       (description
6928        "The LH fonts address the problem of the wide variety of alphabets that
6929 are written with Cyrillic-style characters.  The fonts are the original basis
6930 of the set of T2* and X2 encodings that are now used when LaTeX users need to
6931 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
6932 offered through the latex-cyrillic and t2 bundles, and the package itself
6933 offers support for other (more traditional) encodings.  The fonts, in the
6934 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
6935 CM-Super family of fonts.  The package also offers its own LaTeX support for
6936 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
6937       (license license:lppl))))
6938
6939 (define-deprecated-package texlive-latex-lh texlive-lh)
6940
6941 (define-public texlive-marvosym
6942   (package
6943     (inherit (simple-texlive-package
6944               "texlive-marvosym"
6945               (list "/doc/fonts/marvosym/"
6946                     "/fonts/afm/public/marvosym/"
6947                     "/fonts/map/dvips/marvosym/"
6948                     "/fonts/tfm/public/marvosym/"
6949                     "/fonts/truetype/public/marvosym/"
6950                     "/fonts/type1/public/marvosym/"
6951                     "/tex/latex/marvosym/")
6952               (base32
6953                "0m3bbg06cia8ni86fjhvb7x4a5qcxgnpqcvicfms91w2px9ysc46")
6954               #:trivial? #t))
6955     (home-page "https://martinvogel.de/blog/index.php?\
6956 /archives/131-Marvosym.ttf.html")
6957     (synopsis "Martin Vogel's Symbols (marvosym) font")
6958     (description "The Martin Vogel’s Symbols fonts (marvosym) contains the
6959 Euro currency symbol as defined by the European commission, along with symbols
6960 for structural engineering, symbols for steel cross-sections, astronomy
6961 signs (sun, moon, planets), the 12 signs of the zodiac, scissor symbols, CE
6962 sign and others.  This package contains both the original TrueType font and
6963 the derived Type 1 font, together with support files for TeX (LaTeX).")
6964     (license (list license:lppl          ;for TeX support files
6965                    license:silofl1.1)))) ;for fonts
6966
6967 (define-public texlive-metapost
6968   (package
6969     (name "texlive-metapost")
6970     (version (number->string %texlive-revision))
6971     (source (origin
6972               (method svn-fetch)
6973               (uri (svn-reference
6974                     (url (string-append "svn://www.tug.org/texlive/tags/"
6975                                         %texlive-tag "/Master/texmf-dist/"
6976                                         "/metapost"))
6977                     (revision %texlive-revision)))
6978               (file-name (string-append name "-" version "-checkout"))
6979               (sha256
6980                (base32
6981                 "140k9dz2g2vj5ypgyqx3px9c1y9a820y8kq139p96lw0yk6839aw"))))
6982     (build-system trivial-build-system)
6983     (arguments
6984      `(#:modules ((guix build utils))
6985        #:builder
6986        (begin
6987          (use-modules (guix build utils))
6988          (let ((target (string-append (assoc-ref %outputs "out")
6989                                       "/share/texmf-dist/metapost")))
6990            (mkdir-p target)
6991            (copy-recursively (assoc-ref %build-inputs "source") target)
6992            #t))))
6993     (home-page "https://www.ctan.org/pkg/metapost")
6994     (synopsis "Create scalable illustrations")
6995     (description
6996      "MetaPost uses a language based on that of Metafont to produce precise
6997 technical illustrations.  Its output is scalable PostScript or SVG, rather
6998 than the bitmaps Metafont creates.")
6999     (license license:lppl)))
7000
7001 (define-public texlive-latex-acmart
7002   (package
7003     (name "texlive-latex-acmart")
7004     (version "1.60")
7005     (source (origin
7006               (method svn-fetch)
7007               (uri (texlive-ref "latex" "acmart"))
7008               (sha256
7009                (base32
7010                 "12wxav9r6v7dlfja9myrwz7famgfpcfwd292qzmgg283xgngh9kd"))
7011               (file-name (string-append name "-" version "-checkout"))))
7012     (build-system texlive-build-system)
7013     (arguments '(#:tex-directory "latex/acmart"))
7014     (home-page "https://www.ctan.org/pkg/acmart")
7015     (synopsis "Class for typesetting publications of ACM")
7016     (description
7017      "This package provides a class for typesetting publications of the
7018 Association for Computing Machinery (ACM).")
7019     (license license:lppl1.3+)))
7020
7021 (define-public texlive-latex-varwidth
7022   (package
7023     (name "texlive-latex-varwidth")
7024     (version (number->string %texlive-revision))
7025     (source (origin
7026               (method svn-fetch)
7027               (uri (svn-reference
7028                     (url (string-append "svn://www.tug.org/texlive/tags/"
7029                                         %texlive-tag "/Master/texmf-dist/"
7030                                         "/tex/latex/varwidth"))
7031                     (revision %texlive-revision)))
7032               (file-name (string-append name "-" version "-checkout"))
7033               (sha256
7034                (base32
7035                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
7036     (build-system trivial-build-system)
7037     (arguments
7038      `(#:modules ((guix build utils))
7039        #:builder
7040        (begin
7041          (use-modules (guix build utils))
7042          (let ((target (string-append (assoc-ref %outputs "out")
7043                                       "/share/texmf-dist/tex/latex/varwidth")))
7044            (mkdir-p target)
7045            (copy-recursively (assoc-ref %build-inputs "source") target)
7046            #t))))
7047     (home-page "https://www.ctan.org/pkg/varwidth")
7048     (synopsis "Variable-width minipage")
7049     (description
7050      "The @code{varwidth} environment is superficially similar to
7051 @code{minipage}, but the specified width is just a maximum value — the box may
7052 get a narrower “natural” width.")
7053     (license license:lppl)))
7054
7055 (define-public texlive-varwidth
7056   (package
7057     (inherit (simple-texlive-package
7058               "texlive-varwidth"
7059               (list "doc/latex/varwidth/" "tex/latex/varwidth/")
7060               (base32 "0jcrv4klcjpl17ml0zyqfvkrq6qwn2imxv8syqs5m6qk0fk7hg6l")
7061               #:trivial? #t))
7062     (home-page "https://ctan.org/macros/latex/contrib/varwidth")
7063     (synopsis "Variable-width minipage LaTeX environment")
7064     (description
7065      "The varwidth environment is superficially similar to minipage, but the
7066 specified width is just a maximum value --- the box may get a narrower natural
7067 width.")
7068     (license license:lppl)))
7069
7070 (define-public texlive-wasy
7071   (package
7072     (inherit (simple-texlive-package
7073               "texlive-wasy"
7074               (list "/fonts/source/public/wasy/"
7075                     "/fonts/tfm/public/wasy/"
7076                     "/tex/plain/wasy/"
7077                     "/doc/fonts/wasy/")
7078               (base32
7079                "1swzxgld3lndi5q0q6zkwbw06ndh13fvp04as7zpwyhh646s0hbx")
7080               #:trivial? #t))
7081     (home-page "https://www.ctan.org/pkg/wasy")
7082     (synopsis "Waldi symbol fonts")
7083     (description "This package provides the @code{wasy} (Waldi symbol) fonts,
7084 in the Metafont and Adobe Type 1 formats.  Support under LaTeX is provided by
7085 the @code{wasysym} package.")
7086     (license license:public-domain)))
7087
7088 (define-public texlive-wasysym
7089   (package
7090     (name "texlive-wasysym")
7091     (version (number->string %texlive-revision))
7092     (source (origin
7093               (method svn-fetch)
7094               (uri (texlive-ref "latex" "wasysym"))
7095               (file-name (string-append name "-" version "-checkout"))
7096               (sha256
7097                (base32
7098                 "0zxcf0pfqf439cfwl0r5dd93b0v4pbiih36n2pwshdlvnmy0nr50"))))
7099     (build-system texlive-build-system)
7100     (arguments '(#:tex-directory "latex/wasysym"))
7101     (home-page "https://www.ctan.org/pkg/wasysym")
7102     (synopsis "LaTeX support file to use the @code{wasy} fonts")
7103     (description
7104      "The @code{wasy} (Waldi Symbol) font by Roland Waldi provides many glyphs like
7105 male and female symbols and astronomical symbols, as well as the complete
7106 @code{lasy} font set and other odds and ends.  The @code{wasysym} package
7107 implements an easy to use interface for these symbols.")
7108     (license license:lppl)))
7109
7110 (define-deprecated-package texlive-latex-wasysym texlive-wasysym)
7111
7112 (define-public texlive-wrapfig
7113   (package
7114     (inherit
7115      (simple-texlive-package
7116       "texlive-wrapfig"
7117       (list "doc/latex/wrapfig/" "tex/latex/wrapfig/")
7118       (base32 "0wk1vp0dqsp597xzsqbwj8xk80v7d77qmpjir84n54f920rf9ka9")
7119       #:trivial? #t))
7120     (home-page "https://ctan.org/macros/latex/contrib/wrapfig")
7121     (synopsis "Produces figures which text can flow around")
7122     (description
7123      "This package allows figures or tables to have text wrapped around them.
7124 It does not work in combination with list environments, but can be used in a
7125 @code{parbox} or @code{minipage}, and in two-column format.")
7126     (license license:lppl)))
7127
7128 (define-deprecated-package texlive-latex-wrapfig texlive-wrapfig)
7129
7130 (define-public texlive-latex-ucs
7131   (package
7132     (name "texlive-latex-ucs")
7133     (version (number->string %texlive-revision))
7134     (source (origin
7135               (method svn-fetch)
7136               (uri (svn-reference
7137                     (url (string-append "svn://www.tug.org/texlive/tags/"
7138                                         %texlive-tag "/Master/texmf-dist/"
7139                                         "/tex/latex/ucs"))
7140                     (revision %texlive-revision)))
7141               (file-name (string-append name "-" version "-checkout"))
7142               (sha256
7143                (base32
7144                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
7145     (build-system trivial-build-system)
7146     (arguments
7147      `(#:modules ((guix build utils))
7148        #:builder
7149        (begin
7150          (use-modules (guix build utils))
7151          (let ((target (string-append (assoc-ref %outputs "out")
7152                                       "/share/texmf-dist/tex/latex/ucs")))
7153            (mkdir-p target)
7154            (copy-recursively (assoc-ref %build-inputs "source") target)
7155            #t))))
7156     (home-page "https://www.ctan.org/pkg/ucs")
7157     (synopsis "Extended UTF-8 input encoding support for LaTeX")
7158     (description
7159      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
7160 together with a large number of support files.  The @code{utf8x.def}
7161 definition file for use with @code{inputenc} covers a wider range of Unicode
7162 characters than does @code{utf8.def} in the LaTeX distribution.  The package
7163 provides facilities for efficient use of its large sets of Unicode characters.
7164 Glyph production may be controlled by various options, which permits use of
7165 non-ASCII characters when coding mathematical formulae.  Note that the bundle
7166 previously had an alias “unicode”; that alias has now been withdrawn, and no
7167 package of that name now exists.")
7168     (license license:lppl1.3+)))
7169
7170 (define-public texlive-latex-preview
7171   (package
7172     (name "texlive-latex-preview")
7173     (version (number->string %texlive-revision))
7174     (source (origin
7175               (method svn-fetch)
7176               (uri (texlive-ref "latex" "preview"))
7177               (file-name (string-append name "-" version "-checkout"))
7178               (sha256
7179                (base32
7180                 "0hnf821yvki9bzfkz79ns9m1msjp3yvd4dhf3268wrpr1zjx6w8v"))))
7181     (build-system texlive-build-system)
7182     (arguments
7183      '(#:tex-directory "latex/preview"
7184        #:phases
7185        (modify-phases %standard-phases
7186          (add-after 'unpack 'remove-generated-file
7187            (lambda _
7188              (delete-file "preview.drv")
7189              #t)))))
7190     (home-page "https://www.ctan.org/pkg/preview")
7191     (synopsis "Extract bits of a LaTeX source for output")
7192     (description
7193      "The main purpose of the preview package is the extraction of selected
7194 elements from a LaTeX source, like formulas or graphics, into separate
7195 pages of a DVI file.  A flexible and convenient interface allows it to
7196 specify what commands and constructs should be extracted.  This works
7197 with DVI files postprocessed by either Dvips and Ghostscript or
7198 dvipng, but it also works when you are using PDFTeX for generating PDF
7199 files.")
7200     (license license:gpl3+)))
7201
7202 (define-public texlive-latex-acronym
7203   (package
7204     (name "texlive-latex-acronym")
7205     (version (number->string %texlive-revision))
7206     (source (origin
7207               (method svn-fetch)
7208               (uri (texlive-ref "latex" "acronym"))
7209               (file-name (string-append name "-" version "-checkout"))
7210               (sha256
7211                (base32
7212                 "09pd4wynksg1y1ddxnqbhk2dc185zw5nyi794d86n3qx8l014ijy"))))
7213     (build-system texlive-build-system)
7214     (arguments '(#:tex-directory "latex/acronym"))
7215     (home-page "https://www.ctan.org/pkg/acronym")
7216     (synopsis "Expand acronyms at least once")
7217     (description
7218      "This package ensures that all acronyms used in the text are spelled out
7219 in full at least once.  It also provides an environment to build a list of
7220 acronyms used.  The package is compatible with PDF bookmarks.  The package
7221 requires the suffix package, which in turn requires that it runs under
7222 e-TeX.")
7223     (license license:lppl1.3+)))
7224
7225 (define-public texlive-pdftex
7226   (package
7227     (inherit (simple-texlive-package
7228               "texlive-pdftex"
7229               (list "/doc/pdftex/"
7230                     "/doc/man/man1/pdftex.1"
7231                     "/doc/man/man1/pdfetex.1"
7232                     "/fonts/map/dvips/dummy-space/dummy-space.map"
7233                     "/fonts/tfm/public/pdftex/dummy-space.tfm"
7234                     "/fonts/type1/public/pdftex/dummy-space.pfb"
7235                     "/scripts/simpdftex/simpdftex"
7236                     "/tex/generic/config/pdftex-dvi.tex"
7237                     "/tex/generic/pdftex/glyphtounicode.tex"
7238                     "/tex/generic/pdftex/pdfcolor.tex")
7239               (base32
7240                "1wx928rqsv0x1a8vc7aq49w3nglr4bmlhl822slqglymfxrmb91b")
7241               #:trivial? #t))
7242     ;; TODO: add this missing package:
7243     ;; dehyph
7244     (propagated-inputs
7245      (list texlive-cm
7246            texlive-etex
7247            texlive-knuth-lib
7248            texlive-hyphen-base
7249            texlive-kpathsea
7250            texlive-tex-ini-files
7251            texlive-tex-plain))
7252     (home-page "https://www.ctan.org/pkg/pdftex")
7253     (synopsis "TeX extension for direct creation of PDF")
7254     (description
7255      "This package provides an extension of TeX which can be configured to
7256 directly generate PDF documents instead of DVI.")
7257     (license license:gpl2+)))
7258
7259 (define-deprecated-package texlive-generic-pdftex texlive-pdftex)
7260
7261 (define texlive-texmf
7262   (package
7263    (name "texlive-texmf")
7264    (version "20210325")
7265    (source texlive-texmf-src)
7266    (build-system gnu-build-system)
7267    (inputs
7268     `(("texlive-bin" ,texlive-bin)
7269       ("lua" ,lua)
7270       ("perl" ,perl)
7271       ("python" ,python)
7272       ("ruby" ,ruby)
7273       ("tcsh" ,tcsh)))
7274    (arguments
7275     `(#:modules ((guix build gnu-build-system)
7276                  (guix build utils)
7277                  (srfi srfi-26))
7278
7279       ;; This package takes 4 GiB, which we can't afford to distribute from
7280       ;; our servers.
7281       #:substitutable? #f
7282
7283       #:phases
7284         (modify-phases (map (cut assq <> %standard-phases)
7285                             '(set-paths unpack patch-source-shebangs))
7286           (add-after 'unpack 'unset-environment-variables
7287             (lambda _
7288               (unsetenv "TEXMF")
7289               (unsetenv "TEXMFCNF")
7290               #t))
7291           (add-after 'patch-source-shebangs 'install
7292             (lambda* (#:key outputs #:allow-other-keys)
7293               (let ((share (string-append (assoc-ref outputs "out") "/share")))
7294                 (mkdir-p share)
7295                 (invoke "mv" "texmf-dist" share))))
7296           (add-after 'install 'texmf-config
7297             (lambda* (#:key inputs outputs #:allow-other-keys)
7298               (let* ((out (assoc-ref outputs "out"))
7299                      (share (string-append out "/share"))
7300                      (texmfroot (string-append share "/texmf-dist/web2c"))
7301                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
7302                      (fmtutilcnf (string-append texmfroot "/fmtutil.cnf"))
7303                      (texlive-bin (assoc-ref inputs "texlive-bin"))
7304                      (texbin (string-append texlive-bin "/bin"))
7305                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
7306                 ;; LuaJIT is not ported to powerpc64* yet.
7307                 (if ,(target-ppc64le?)
7308                     (substitute* fmtutilcnf
7309                       (("^(luajittex|luajithbtex|mfluajit)" m)
7310                        (string-append "#! " m))))
7311                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
7312                 (substitute* texmfcnf
7313                   (("TEXMFROOT = \\$SELFAUTOPARENT")
7314                    (string-append "TEXMFROOT = " share))
7315                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
7316                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
7317                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
7318                 ;; Register paths in texmfcnf.lua, needed for context.
7319                 (substitute* (string-append texmfroot "/texmfcnf.lua")
7320                   (("selfautodir:") out)
7321                   (("selfautoparent:") (string-append share "/")))
7322                 ;; Set path to TeXLive Perl modules
7323                 (setenv "PERL5LIB"
7324                         (string-append (getenv "PERL5LIB") ":" tlpkg))
7325                 ;; Configure the texmf-dist tree; inspired from
7326                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
7327                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
7328                 (setenv "TEXMFCNF" texmfroot)
7329                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
7330                 (invoke "mktexlsr")
7331                 (invoke "fmtutil-sys" "--all")))))))
7332    (properties `((max-silent-time . 9600))) ; don't time out while grafting
7333    (synopsis "TeX Live, a package of the TeX typesetting system")
7334    (description
7335     "TeX Live provides a comprehensive TeX document production system.
7336 It includes all the major TeX-related programs, macro packages, and fonts
7337 that are free software, including support for many languages around the
7338 world.
7339
7340 This package contains the complete tree of texmf-dist data.")
7341    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
7342    (home-page "https://www.tug.org/texlive/")))
7343
7344 (define-public texlive
7345   (package
7346    (name "texlive")
7347    (version "20210325")
7348    (source #f)
7349    (build-system trivial-build-system)
7350    (inputs `(("bash" ,bash-minimal)     ;for wrap-program
7351              ("texlive-bin" ,texlive-bin)
7352              ("texlive-texmf" ,texlive-texmf)))
7353    (native-search-paths
7354     (list (search-path-specification
7355            (variable "TEXMFLOCAL")
7356            (files '("share/texmf-local")))))
7357    (arguments
7358     `(#:modules ((guix build utils))
7359       #:builder
7360         ;; Build the union of texlive-bin and texlive-texmf, but take the
7361         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
7362         (begin
7363           (use-modules (guix build utils))
7364           (let ((out (assoc-ref %outputs "out"))
7365                 (bin (assoc-ref %build-inputs "texlive-bin"))
7366                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
7367                 (bash (assoc-ref %build-inputs "bash")))
7368                (mkdir out)
7369                (with-directory-excursion out
7370                  (for-each
7371                    (lambda (name)
7372                      (symlink (string-append bin "/" name) name))
7373                    '("include" "lib"))
7374                  (mkdir "bin")
7375                  (with-directory-excursion "bin"
7376                    (setenv "PATH" (string-append bash "/bin"))
7377                    (for-each
7378                      (lambda (name)
7379                        (symlink name (basename name))
7380                        (wrap-program
7381                          (basename name)
7382                          `("TEXMFCNF" =
7383                            (,(string-append texmf "/share/texmf-dist/web2c")))))
7384                      (find-files (string-append bin "/bin/") "")))
7385                  (mkdir "share")
7386                  (with-directory-excursion "share"
7387                    (for-each
7388                      (lambda (name)
7389                        (symlink (string-append bin "/share/" name) name))
7390                      '("info" "man" "tlpkg"))
7391                    (for-each
7392                      (lambda (name)
7393                        (symlink (string-append texmf "/share/" name) name))
7394                      '("texmf-dist" "texmf-var"))))
7395                #t))))
7396    (synopsis "TeX Live, a package of the TeX typesetting system")
7397    (description
7398     "TeX Live provides a comprehensive TeX document production system.
7399 It includes all the major TeX-related programs, macro packages, and fonts
7400 that are free software, including support for many languages around the
7401 world.
7402
7403 This package contains the complete TeX Live distribution.")
7404    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
7405    (home-page "https://www.tug.org/texlive/")))
7406
7407 (define-public perl-text-bibtex
7408   (package
7409     (name "perl-text-bibtex")
7410     (version "0.88")
7411     (source
7412      (origin
7413        (method url-fetch)
7414        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
7415                            version ".tar.gz"))
7416        (sha256
7417         (base32
7418          "0b7lmjvfmypps1nw6nsdikgaakm0n0g4186glaqazg5xd1p5h55h"))))
7419     (build-system perl-build-system)
7420     (arguments
7421      `(#:phases
7422        (modify-phases %standard-phases
7423          (add-after 'unpack 'add-output-directory-to-rpath
7424            (lambda* (#:key outputs #:allow-other-keys)
7425              (substitute* "inc/MyBuilder.pm"
7426                (("-Lbtparse" line)
7427                 (string-append "-Wl,-rpath="
7428                                (assoc-ref outputs "out") "/lib " line)))
7429              #t))
7430          (add-after 'unpack 'install-libraries-to-/lib
7431            (lambda* (#:key outputs #:allow-other-keys)
7432              (substitute* "Build.PL"
7433                (("lib64") "lib"))
7434              #t)))))
7435     (native-inputs
7436      (list perl-capture-tiny perl-config-autoconf perl-extutils-libbuilder
7437            perl-module-build))
7438     (home-page "https://metacpan.org/release/Text-BibTeX")
7439     (synopsis "Interface to read and parse BibTeX files")
7440     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
7441 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
7442 at many different levels: you may work with BibTeX entries as simple field to
7443 string mappings, or get at the original form of the data as a list of simple
7444 values (strings, macros, or numbers) pasted together.")
7445     (license license:perl-license)))
7446
7447 (define-public biber
7448   (package
7449     ;; Note: When updating Biber, make sure it matches our BibLaTeX version by
7450     ;; checking the Biber/BibLaTeX compatibility matrix in the BibLaTeX manual
7451     ;; at <https://ctan.org/pkg/biblatex>.
7452     (name "biber")
7453     (version "2.16")
7454     (source (origin
7455               (method git-fetch)
7456               (uri (git-reference
7457                     (url "https://github.com/plk/biber/")
7458                     (commit (string-append "v" version))))
7459               (file-name (git-file-name name version))
7460               (sha256
7461                (base32
7462                 "0586q8y1f2k23mvb02ccm3qsb35cwskafksixsjaih7a7xcf5gxx"))))
7463     (build-system perl-build-system)
7464     (arguments
7465      `(#:phases
7466        (modify-phases %standard-phases
7467          (add-after 'install 'wrap-programs
7468            (lambda* (#:key outputs #:allow-other-keys)
7469              (let* ((out (assoc-ref outputs "out"))
7470                     (perl5lib (getenv "PERL5LIB")))
7471                (wrap-program (string-append out "/bin/biber")
7472                  `("PERL5LIB" ":" prefix
7473                    (,(string-append perl5lib ":" out
7474                                     "/lib/perl5/site_perl")))))
7475              #t)))))
7476     (inputs
7477      (list perl-autovivification
7478            perl-class-accessor
7479            perl-data-dump
7480            perl-data-compare
7481            perl-data-uniqid
7482            perl-datetime-format-builder
7483            perl-datetime-calendar-julian
7484            perl-file-slurper
7485            perl-io-string
7486            perl-ipc-cmd
7487            perl-ipc-run3
7488            perl-list-allutils
7489            perl-list-moreutils
7490            perl-mozilla-ca
7491            perl-regexp-common
7492            perl-log-log4perl
7493            perl-parse-recdescent
7494            perl-unicode-collate
7495            perl-unicode-normalize
7496            perl-unicode-linebreak
7497            perl-encode-eucjpascii
7498            perl-encode-jis2k
7499            perl-encode-hanextra
7500            perl-xml-libxml
7501            perl-xml-libxml-simple
7502            perl-xml-libxslt
7503            perl-xml-writer
7504            perl-sort-key
7505            perl-text-csv
7506            perl-text-csv-xs
7507            perl-text-roman
7508            perl-uri
7509            perl-text-bibtex
7510            perl-libwww
7511            perl-lwp-protocol-https
7512            perl-business-isbn
7513            perl-business-issn
7514            perl-business-ismn
7515            perl-lingua-translit))
7516     (native-inputs
7517      `(("perl-config-autoconf" ,perl-config-autoconf)
7518        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
7519        ("perl-module-build" ,perl-module-build)
7520        ;; for tests
7521        ("perl-file-which" ,perl-file-which)
7522        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
7523        ("perl-test-differences" ,perl-test-differences)))
7524     (home-page "http://biblatex-biber.sourceforge.net/")
7525     (synopsis "Backend for the BibLaTeX citation management tool")
7526     (description "Biber is a BibTeX replacement for users of biblatex.  Among
7527 other things it comes with full Unicode support.")
7528     (license license:artistic2.0)))
7529
7530 (define-public rubber
7531   (package
7532     (name "rubber")
7533     (version "1.5.1")
7534     (source (origin
7535               (method url-fetch)
7536               (uri (list (string-append "https://launchpad.net/rubber/trunk/"
7537                                         version "/+download/rubber-"
7538                                         version ".tar.gz")
7539                          (string-append "http://ebeffara.free.fr/pub/rubber-"
7540                                         version ".tar.gz")))
7541               (sha256
7542                (base32
7543                 "178dmrp0mza5gqjiqgk6dqs0c10s0c517pk6k9pjbam86vf47a1p"))))
7544     (build-system python-build-system)
7545     (arguments
7546      '(#:tests? #f ; no `check' target
7547        #:phases
7548        (modify-phases %standard-phases
7549          (delete 'build)
7550          (replace 'install
7551            (lambda* (#:key outputs #:allow-other-keys)
7552              ;; texlive is required to build the PDF documentation; do not
7553              ;; build it.
7554              (invoke "python" "setup.py" "build" "--pdf=False" "install"
7555                      (string-append "--prefix=" (assoc-ref outputs "out"))))))))
7556     (native-inputs (list texinfo))
7557     (home-page "https://launchpad.net/rubber")
7558     (synopsis "Wrapper for LaTeX and friends")
7559     (description
7560      "Rubber is a program whose purpose is to handle all tasks related to the
7561 compilation of LaTeX documents.  This includes compiling the document itself,
7562 of course, enough times so that all references are defined, and running BibTeX
7563 to manage bibliographic references.  Automatic execution of dvips to produce
7564 PostScript documents is also included, as well as usage of pdfLaTeX to produce
7565 PDF documents.")
7566     (license license:gpl2+)))
7567
7568 (define-public texmaker
7569   (package
7570     (name "texmaker")
7571     (version "5.0.4")
7572     (source (origin
7573               (method url-fetch)
7574               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
7575                                   version ".tar.bz2"))
7576               (sha256
7577                (base32
7578                 "1qnh5g8zkjpjmw2l8spcynpfgs3wpcfcla5ms2kkgvkbdlzspqqx"))))
7579     (build-system gnu-build-system)
7580     (arguments
7581      `(#:phases
7582        (modify-phases %standard-phases
7583          ;; Qt has its own configuration utility.
7584          (replace 'configure
7585            (lambda* (#:key outputs #:allow-other-keys)
7586              (let ((out (assoc-ref outputs "out")))
7587                (invoke "qmake"
7588                        (string-append "PREFIX=" out)
7589                        (string-append "DESKTOPDIR=" out "/share/applications")
7590                        (string-append "ICONDIR=" out "/share/pixmaps")
7591                        (string-append "METAINFODIR=" out "/share/metainfo")
7592                        "texmaker.pro")))))))
7593     (inputs
7594      (list poppler-qt5 qtbase-5 qtscript zlib))
7595     (native-inputs
7596      (list pkg-config))
7597     (home-page "http://www.xm1math.net/texmaker/")
7598     (synopsis "LaTeX editor")
7599     (description "Texmaker is a program that integrates many tools needed to
7600 develop documents with LaTeX, in a single application.")
7601     (license license:gpl2+)))
7602
7603 (define-public teximpatient
7604   (package
7605     (name "teximpatient")
7606     (version "2.4")
7607     (source (origin
7608               (method url-fetch/tarbomb)
7609               (uri (string-append "mirror://gnu/" name "/" name "-"
7610                                   version ".tar.gz"))
7611               (sha256
7612                (base32
7613                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
7614     (build-system gnu-build-system)
7615     (arguments
7616      `(#:tests? #f ; there are none
7617        #:phases
7618        (modify-phases %standard-phases
7619          (add-after 'unpack 'fix-packaging-error
7620            (lambda* (#:key inputs #:allow-other-keys)
7621              ;; This file should have been part of the tarball.
7622              (install-file (car
7623                             (find-files
7624                              (assoc-ref inputs "automake")
7625                              "^install-sh$"))
7626                            ".")
7627              ;; Remove generated file.
7628              (delete-file "book.pdf")
7629              #t)))))
7630     (native-inputs
7631      `(("texlive" ,(texlive-updmap.cfg (list texlive-amsfonts
7632                                         texlive-palatino
7633                                         texlive-zapfding
7634                                         texlive-knuth-lib
7635                                         texlive-mflogo-font
7636                                         texlive-pdftex)))
7637        ("automake" ,automake)))
7638     (home-page "https://www.gnu.org/software/teximpatient/")
7639     (synopsis "Book on TeX, plain TeX and Eplain")
7640     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
7641 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
7642 and Karl Berry.")
7643     (license license:fdl1.3+)))
7644
7645 (define-public lyx
7646   (package
7647     (name "lyx")
7648     (version "2.3.6.1")
7649     (source (origin
7650               (method url-fetch)
7651               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
7652                                   (version-major+minor version) ".x/"
7653                                   "lyx-" version ".tar.xz"))
7654               (sha256
7655                (base32
7656                 "0y7sx804ral14py5jwmb3icvyd6rsw806dfclw0qx28r6iix5gn6"))
7657               (modules '((guix build utils)))
7658               (snippet
7659                '(begin
7660                   (delete-file-recursively "3rdparty")
7661                   #t))))
7662     (build-system qt-build-system)
7663     (arguments
7664      (list #:configure-flags
7665            #~(list "-DLYX_USE_QT=QT5"
7666                    "-DLYX_EXTERNAL_BOOST=1"
7667                    "-DLYX_INSTALL=1"
7668                    "-DLYX_RELEASE=1"
7669                    "-DLYX_PROGRAM_SUFFIX=OFF"
7670                    (string-append "-DLYX_INSTALL_PREFIX=" #$output))
7671            #:phases
7672            #~(modify-phases %standard-phases
7673                (add-after 'unpack 'patch-python
7674                  (lambda* (#:key inputs #:allow-other-keys)
7675                    (substitute* '("lib/configure.py"
7676                                   "src/support/ForkedCalls.cpp"
7677                                   "src/support/Systemcall.cpp"
7678                                   "src/support/os.cpp"
7679                                   "src/support/filetools.cpp")
7680                      (("\"python ")
7681                       (string-append "\""
7682                                      (assoc-ref inputs "python")
7683                                      "/bin/python3 ")))))
7684                (add-after 'unpack 'add-missing-test-file
7685                  (lambda _
7686                    ;; Create missing file that would cause tests to fail.
7687                    (with-output-to-file "src/tests/check_layout.cmake"
7688                      (const #t)))))))
7689     (inputs
7690      (list boost
7691            hunspell ; Note: Could also use aspell instead.
7692            libx11
7693            mythes
7694            python
7695            qtbase-5
7696            qtsvg
7697            zlib))
7698     (propagated-inputs
7699      `(("texlive" ,(texlive-updmap.cfg (list texlive-fonts-ec)))))
7700     (native-inputs
7701      (list python pkg-config))
7702     (home-page "https://www.lyx.org/")
7703     (synopsis "Document preparation system with GUI")
7704     (description "LyX is a document preparation system.  It excels at letting
7705 you create complex technical and scientific articles with mathematics,
7706 cross-references, bibliographies, indexes, etc.  It is very good for working
7707 with documents of any length in which the usual processing abilities are
7708 required: automatic sectioning and pagination, spell checking and so forth.")
7709     (license license:gpl2+)))
7710
7711 (define-public texlive-latex-media9
7712   (package
7713     (name "texlive-latex-media9")
7714     (version (number->string %texlive-revision))
7715     (source (origin
7716               (method svn-fetch)
7717               (uri (svn-reference
7718                     (url (string-append "svn://www.tug.org/texlive/tags/"
7719                                         %texlive-tag "/Master/texmf-dist/"
7720                                         "/tex/latex/media9"))
7721                     (revision %texlive-revision)))
7722               (file-name (string-append name "-" version "-checkout"))
7723               (sha256
7724                (base32
7725                 "0a1v70k6231323y1lazfda1y9568w8hn7c8jhc7rblkhdfv3slw7"))))
7726     (build-system trivial-build-system)
7727     (arguments
7728      `(#:modules ((guix build utils))
7729        #:builder
7730        (begin
7731          (use-modules (guix build utils))
7732          (let ((target (string-append (assoc-ref %outputs "out")
7733                                       "/share/texmf-dist/tex/latex/media9")))
7734            (mkdir-p target)
7735            (copy-recursively (assoc-ref %build-inputs "source") target)
7736            #t))))
7737     (home-page "https://www.ctan.org/pkg/media9")
7738     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
7739     (description
7740      "The package provides an interface to embed interactive Flash (SWF) and 3D
7741 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
7742 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
7743 compatibility.  Playback of multimedia files uses the built-in Flash Player of
7744 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
7745 supports the efficient H.264 codec for video compression.
7746
7747 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
7748 specification.  It replaces the now obsolete @code{movie15} package.")
7749     (license license:lppl)))
7750
7751 (define-public texlive-latex-ocgx2
7752   (package
7753     (name "texlive-latex-ocgx2")
7754     (version (number->string %texlive-revision))
7755     (source (origin
7756               (method svn-fetch)
7757               (uri (svn-reference
7758                     (url (string-append "svn://www.tug.org/texlive/tags/"
7759                                         %texlive-tag "/Master/texmf-dist/"
7760                                         "/tex/latex/ocgx2"))
7761                     (revision %texlive-revision)))
7762               (file-name (string-append name "-" version "-checkout"))
7763               (sha256
7764                (base32
7765                 "1mrz1mj59m27bfya52vi4lm84ifisaf30pmf8id1biqwcq4jyynh"))))
7766     (build-system trivial-build-system)
7767     (arguments
7768      `(#:modules ((guix build utils))
7769        #:builder
7770        (begin
7771          (use-modules (guix build utils))
7772          (let ((target (string-append (assoc-ref %outputs "out")
7773                                       "/share/texmf-dist/tex/latex/ogcx2")))
7774            (mkdir-p target)
7775            (copy-recursively (assoc-ref %build-inputs "source") target)
7776            #t))))
7777     (home-page "https://www.ctan.org/pkg/ocgx2")
7778     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
7779     (description
7780      "This package provides OCG (Optional Content Groups) support within a PDF
7781 document.
7782
7783 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
7784 @code{ocg-p} packages and adds support for all known engines and back-ends
7785 including:
7786
7787 @itemize
7788 @item LaTeX → dvips → @code{ps2pdf}/Distiller
7789 @item (Xe)LaTeX(x) → @code{dvipdfmx}
7790 @item pdfLaTeX and LuaLaTeX .
7791 @end itemize
7792
7793 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
7794     (license license:lppl)))
7795
7796 (define-public texlive-latex-ms
7797   (package
7798     (name "texlive-latex-ms")
7799     (version (number->string %texlive-revision))
7800     (source (origin
7801               (method svn-fetch)
7802               (uri (texlive-ref "latex" "ms"))
7803               (file-name (string-append name "-" version "-checkout"))
7804               (sha256
7805                (base32
7806                 "04ww5abfm7dx81d21yr2gwy9jswaalnfm2384xp4cyx7srd9spfv"))))
7807     (build-system texlive-build-system)
7808     (arguments
7809      '(#:tex-directory "latex/ms"
7810        #:tex-format "latex"))
7811     (home-page "https://ctan.org/pkg/ms")
7812     (synopsis "Various LATEX packages by Martin Schröder")
7813     (description
7814      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
7815
7816 @itemize
7817 @item @command{count1to}, make use of fixed TEX counters;
7818 @item @command{everysel}, set commands to execute every time a font is selected;
7819 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
7820 @item @command{multitoc}, typeset the table of contents in multiple columns;
7821 @item @command{prelim2e}, mark typeset pages as preliminary; and
7822 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
7823 @end itemize\n")
7824     (license license:lppl1.3c+)))
7825
7826 (define-public texlive-numprint
7827   (let ((template
7828          (simple-texlive-package
7829           "texlive-numprint"
7830           (list "doc/latex/numprint/"
7831                 "source/latex/numprint/"
7832                 "tex/latex/numprint/")
7833           (base32 "1rqbqj4ffcfxxxxbs100pdslaiimwzgg19mf2qzcmm5snxwrf7zj"))))
7834     (package
7835       (inherit template)
7836       (outputs '("out" "doc"))
7837       (arguments
7838        (substitute-keyword-arguments (package-arguments template)
7839          ((#:tex-directory _ '())
7840           "latex/numprint")
7841          ((#:build-targets _ '())
7842           '(list "numprint.ins"))
7843          ((#:phases phases)
7844           `(modify-phases ,phases
7845              (add-after 'unpack 'chdir
7846                (lambda _
7847                  (chdir "source/latex/numprint")))
7848              (replace 'copy-files
7849                (lambda* (#:key inputs outputs #:allow-other-keys)
7850                  (let ((origin (assoc-ref inputs "source"))
7851                        (source (string-append (assoc-ref outputs "out")
7852                                               "/share/texmf-dist/source"))
7853                        (doc (string-append (assoc-ref outputs "doc")
7854                                            "/share/texmf-dist/doc")))
7855                    (copy-recursively (string-append origin "/source") source)
7856                    (copy-recursively (string-append origin "/doc") doc))))))))
7857       (home-page "https://www.ctan.org/pkg/numprint")
7858       (synopsis "Print numbers with separators and exponent if necessary")
7859       (description
7860        "The package numprint prints numbers with a separator every three
7861 digits and converts numbers given as 12345.6e789 to 12\\,345,6\\cdot
7862 10^{789}.  Numbers are printed in the current mode (text or math) in
7863 order to use the correct font.
7864
7865 Many things, including the decimal sign, the thousand separator, as
7866 well as the product sign can be changed by the user, e.g., to reach
7867 12,345.6\\times 10^{789}.
7868
7869 If an optional argument is given it is printed upright as unit.
7870 Numbers can be rounded to a given number of digits.  The package
7871 supports an automatic, language-dependent change of the number format.
7872
7873 Tabular alignment using the tabular, array, tabularx, and longtable
7874 environments (similar to the dcolumn and rccol packages) is supported
7875 using all features of numprint.  Additional text can be added before
7876 and after the formatted number.")
7877       (license license:lppl))))
7878
7879 (define-deprecated-package texlive-latex-numprint texlive-numprint)
7880
7881 (define-public texlive-latex-needspace
7882   (package
7883     (name "texlive-latex-needspace")
7884     (version (number->string %texlive-revision))
7885     (source (origin
7886               (method svn-fetch)
7887               (uri (texlive-ref "latex" "needspace"))
7888               (file-name (string-append name "-" version "-checkout"))
7889               (sha256
7890                (base32
7891                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
7892     (build-system texlive-build-system)
7893     (arguments
7894      '(#:tex-directory "latex/needspace"
7895        #:tex-format "latex"))
7896     (inputs
7897      (list texlive-latex-filecontents))
7898     (home-page "https://www.ctan.org/pkg/needspace")
7899     (synopsis "Insert pagebreak if not enough space")
7900     (description
7901      "Provides commands to disable pagebreaking within a given vertical
7902 space.  If there is not enough space between the command and the bottom of the
7903 page, a new page will be started.")
7904     (license license:lppl)))
7905
7906 (define-public texlive-latex-changepage
7907   (package
7908     (name "texlive-latex-changepage")
7909     (version (number->string %texlive-revision))
7910     (source
7911      (origin
7912        (method svn-fetch)
7913        (uri (texlive-ref "latex" "changepage"))
7914        (file-name (string-append name "-" version "-checkout"))
7915        (sha256
7916         (base32
7917          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
7918     (build-system texlive-build-system)
7919     (arguments
7920      '(#:tex-directory "latex/changepage"
7921        #:tex-format "latex"))
7922     (inputs
7923      (list texlive-latex-filecontents))
7924     (home-page "https://www.ctan.org/pkg/changepage")
7925     (synopsis "Margin adjustment and detection of odd/even pages")
7926     (description
7927      "The package provides commands to change the page layout in the middle of
7928 a document, and to robustly check for typesetting on odd or even pages.
7929 Instructions for use are at the end of the file.  The package is an extraction
7930 of code from the @code{memoir} class, whose user interface it shares.")
7931     (license license:lppl1.3+)))
7932
7933 (define-public texlive-latex-eukdate
7934   (package
7935     (name "texlive-latex-eukdate")
7936     (version (number->string %texlive-revision))
7937     (source
7938      (origin
7939        (method svn-fetch)
7940        (uri (svn-reference
7941              (url (string-append "svn://www.tug.org/texlive/tags/"
7942                                  %texlive-tag "/Master/texmf-dist/"
7943                                  "/tex/latex/eukdate"))
7944              (revision %texlive-revision)))
7945        (file-name (string-append name "-" version "-checkout"))
7946        (sha256
7947         (base32
7948          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
7949     (build-system trivial-build-system)
7950     (arguments
7951      `(#:modules ((guix build utils))
7952        #:builder
7953        (begin
7954          (use-modules (guix build utils))
7955          (let ((target (string-append (assoc-ref %outputs "out")
7956                                       "/share/texmf-dist/tex/latex/eukdate")))
7957            (mkdir-p target)
7958            (copy-recursively (assoc-ref %build-inputs "source") target)
7959            #t))))
7960     (home-page "https://www.ctan.org/pkg/eukdate")
7961     (synopsis "UK format dates, with weekday")
7962     (description
7963      "The package is used to change the format of @code{\\today}’s date,
7964 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
7965 is preferred in many parts of the world, as distinct from that which is used in
7966 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
7967     (license license:lppl)))
7968
7969 (define-public texlive-ulem
7970   (package
7971     (inherit (simple-texlive-package
7972               "texlive-ulem"
7973               (list "doc/generic/ulem/" "tex/generic/ulem/")
7974               (base32 "0wcfnw5h6lsg2ilvkkf7mns8jgcn0n5sh45iznfsb49pfb4mming")
7975               #:trivial? #t))
7976     (home-page "https://www.ctan.org/pkg/ulem")
7977     (synopsis "Underline text in TeX")
7978     (description
7979      "The package provides an @code{\\ul} (underline) command which will break
7980 over line ends; this technique may be used to replace @code{\\em} (both in that
7981 form and as the @code{\\emph} command), so as to make output look as if it comes
7982 from a typewriter.  The package also offers double and wavy underlining, and
7983 striking out (line through words) and crossing out (/// over words).")
7984     (license license:lppl1.3c+)))
7985
7986 (define-deprecated-package texlive-generic-ulem texlive-ulem)
7987
7988 (define-public texlive-pgf
7989   (package
7990     (name "texlive-pgf")
7991     (version (number->string %texlive-revision))
7992     (source
7993      (origin
7994        (method svn-fetch)
7995        (uri (svn-reference
7996              (url (string-append "svn://www.tug.org/texlive/tags/"
7997                                  %texlive-tag "/Master/texmf-dist/"
7998                                  "/tex/latex/pgf"))
7999              (revision %texlive-revision)))
8000        (file-name (string-append name "-" version "-checkout"))
8001        (sha256
8002         (base32
8003          "1jk10rxz5f8vh46am11b40hxhhikk67h9jr3z877q5qc8kwppgza"))))
8004     (build-system trivial-build-system)
8005     (native-inputs
8006      `(("texlive-latex-pgf-generic"
8007         ,(origin
8008            (method svn-fetch)
8009            (uri (svn-reference
8010              (url (string-append "svn://www.tug.org/texlive/tags/"
8011                                  %texlive-tag "/Master/texmf-dist/"
8012                                  "/tex/generic/pgf"))
8013              (revision %texlive-revision)))
8014            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
8015            (sha256
8016             (base32
8017              "05zdq7y3am109m5534ahqqp9x5iar3ha68v1r4zkrdly2mijxz2j"))))))
8018     (propagated-inputs
8019      (list texlive-xcolor))
8020     (arguments
8021      `(#:modules ((guix build utils))
8022        #:builder
8023        (begin
8024          (use-modules (guix build utils))
8025          (let ((target-generic (string-append (assoc-ref %outputs "out")
8026                                               "/share/texmf-dist/tex/generic/pgf"))
8027                (target-latex (string-append (assoc-ref %outputs "out")
8028                                             "/share/texmf-dist/tex/latex/pgf")))
8029            (mkdir-p target-generic)
8030            (mkdir-p target-latex)
8031            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
8032            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
8033            #t))))
8034     (home-page "https://www.ctan.org/pkg/tikz")
8035     (synopsis "Create PostScript and PDF graphics in TeX")
8036     (description
8037      "PGF is a macro package for creating graphics.  It is platform- and
8038 format-independent and works together with the most important TeX backend
8039 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
8040 called TikZ.
8041
8042 Its usage is similar to pstricks and the standard picture environment.  PGF
8043 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
8044 produce either PostScript or PDF output.")
8045     (license license:lppl1.3c+)))
8046
8047 (define-public texlive-latex-pgf
8048   (deprecated-package "texlive-latex-pgf" texlive-pgf))
8049
8050 (define-public texlive-latex-koma-script
8051   (package
8052     (name "texlive-latex-koma-script")
8053     (version (number->string %texlive-revision))
8054     (source (origin
8055               (method svn-fetch)
8056               (uri (svn-reference
8057                     (url (string-append "svn://www.tug.org/texlive/tags/"
8058                                         %texlive-tag "/Master/texmf-dist/"
8059                                         "/tex/latex/koma-script"))
8060                     (revision %texlive-revision)))
8061               (file-name (string-append name "-" version "-checkout"))
8062               (sha256
8063                (base32
8064                 "1m6i8162r6ka19q517llrf0lax80rrsq564qirwk1chv5dqsmnfi"))))
8065     (build-system trivial-build-system)
8066     (arguments
8067      `(#:modules ((guix build utils))
8068        #:builder
8069        (begin
8070          (use-modules (guix build utils)
8071                       (ice-9 match))
8072          (let ((root (string-append (assoc-ref %outputs "out")
8073                                     "/share/texmf-dist/"))
8074                (pkgs '(("source" . "tex/latex/koma-script"))))
8075            (for-each (match-lambda
8076                        ((pkg . dir)
8077                         (let ((target (string-append root dir)))
8078                           (mkdir-p target)
8079                           (copy-recursively (assoc-ref %build-inputs pkg)
8080                                             target))))
8081                      pkgs)
8082            #t))))
8083     (home-page "https://www.ctan.org/pkg/koma-script")
8084     (synopsis "Bundle of versatile classes and packages")
8085     (description
8086      "The KOMA-Script bundle provides replacements for the article, report, and
8087 book classes with emphasis on typography and versatility.  There is also a
8088 letter class.
8089
8090 The bundle also offers:
8091
8092 @itemize
8093 @item a package for calculating type areas in the way laid down by the
8094 typographer Jan Tschichold,
8095 @item packages for easily changing and defining page styles,
8096 @item a package scrdate for getting not only the current date but also the name
8097 of the day, and
8098 @item a package scrtime for getting the current time.
8099 @end itemize
8100
8101 All these packages may be used not only with KOMA-Script classes but also with
8102 the standard classes.
8103
8104 Since every package has its own version number, the version number quoted only
8105 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
8106 typearea (which are the main parts of the bundle).")
8107     (license license:lppl1.3+)))
8108
8109 (define-public texlive-generic-atbegshi
8110   (package
8111     (inherit (simple-texlive-package
8112               "texlive-generic-atbegshi"
8113               '("/doc/latex/atbegshi/"
8114                 "/tex/generic/atbegshi/")
8115               (base32
8116                "184fr5kd3wl44ix63lwb3ll7dhiikkyw1czbnzrl4am4rx0zh4d8")
8117               #:trivial? #t))
8118     (home-page "https://www.ctan.org/pkg/atbegshi")
8119     (synopsis "Execute commands at @code{\\shipout} time")
8120     (description
8121      "This package is a modern reimplementation of package @code{everyshi},
8122 providing various commands to be executed before a @code{\\shipout} command.
8123 It makes use of e-TeX’s facilities if they are available.  The package may
8124 be used either with LaTeX or with plain TeX.")
8125     (license license:lppl1.3c+)))
8126
8127 (define-public texlive-generic-bigintcalc
8128   (package
8129     (inherit (simple-texlive-package
8130               "texlive-generic-bigintcalc"
8131               '("/doc/latex/bigintcalc/README.md"
8132                 "/tex/generic/bigintcalc/")
8133               (base32
8134                "19grk4p1dh566hgpzhnjyjnrw57hpjijcpr7ci401n9jszcc1xkz")
8135               #:trivial? #t))
8136     (propagated-inputs
8137      (list texlive-latex-pdftexcmds))
8138     (home-page "https://www.ctan.org/pkg/bigintcalc")
8139     (synopsis "Integer calculations on very large numbers")
8140     (description
8141      "This package provides expandable arithmetic operations with big
8142 integers that can exceed TeX's number limits.")
8143     (license license:lppl1.3c+)))
8144
8145 (define-public texlive-generic-bitset
8146   (package
8147     (inherit (simple-texlive-package
8148               "texlive-generic-bitset"
8149               '("/doc/latex/bitset/README.md"
8150                 "/tex/generic/bitset/")
8151               (base32
8152                "0inj6qpzizvsbxdfsaijnl4iq976kyrnchnm3gc1kc2w389zrn1l")
8153               #:trivial? #t))
8154     (propagated-inputs
8155      (list texlive-generic-infwarerr texlive-generic-intcalc
8156            texlive-generic-bigintcalc))
8157     (home-page "https://www.ctan.org/pkg/bitset")
8158     (synopsis "Handle bit-vector datatype")
8159     (description
8160      "This package defines and implements the data type bit set, a vector
8161 of bits.  The size of the vector may grow dynamically.  Individual bits
8162 can be manipulated.")
8163     (license license:lppl1.3c+)))
8164
8165 (define-public texlive-generic-etexcmds
8166   (package
8167     (inherit (simple-texlive-package
8168               "texlive-generic-etexcmds"
8169               '("/doc/latex/etexcmds/README.md"
8170                 "/tex/generic/etexcmds/")
8171               (base32
8172                "11y6pnlq13bp0ybi7c82g8ds8085zv1zaslgqv3dzhgi3dklpc0c")
8173               #:trivial? #t))
8174     (propagated-inputs
8175      (list texlive-generic-infwarerr texlive-generic-iftex))
8176     (home-page "https://www.ctan.org/pkg/etexcmds")
8177     (synopsis "Avoid name clashes with e-TeX commands")
8178     (description
8179      "New primitive commands are introduced in e-TeX; sometimes the names
8180 collide with existing macros.  This package solves the name clashes by
8181 adding a prefix to e-TeX’s commands.  For example, ε-TeX’s
8182 @code{\\unexpanded} is provided as @code{\\etex@@unexpanded}.")
8183     (license license:lppl1.3c+)))
8184
8185 (define-public texlive-generic-gettitlestring
8186   (package
8187     (inherit (simple-texlive-package
8188               "texlive-generic-gettitlestring"
8189               '("/doc/latex/gettitlestring/"
8190                 "/tex/generic/gettitlestring/")
8191               (base32
8192                "1p4hg9mac03rzvj9dw0ws3zdh55fy1ns954f912algw9f2aq4xgp")
8193               #:trivial? #t))
8194     (home-page "https://www.ctan.org/pkg/gettitlestring")
8195     (synopsis "Clean up title references")
8196     (description
8197      "This package provides commands for cleaning up the title string
8198 (such as removing @code{\\label} commands) for packages that typeset such
8199 strings.")
8200     (license license:lppl1.3c+)))
8201
8202 (define-public texlive-generic-infwarerr
8203   (package
8204     (inherit (simple-texlive-package
8205               "texlive-generic-infwarerr"
8206               '("/tex/generic/infwarerr/")
8207               (base32
8208                "19nlrbfmqbkjrrx9x75s9nd6crg1lzimb2fr3hfblaivj6lx8p4r")
8209               #:trivial? #t))
8210     (home-page "https://www.ctan.org/pkg/infwarerr")
8211     (synopsis "Information/warning/error macros")
8212     (description
8213      "This package provides a complete set of macros for information,
8214 warning and error messages.  Under LaTeX, the commands are wrappers for
8215 the corresponding LaTeX commands; under Plain TeX they are available as
8216 complete implementations.")
8217     (license license:lppl1.3c+)))
8218
8219 (define-public texlive-generic-intcalc
8220   (package
8221     (inherit (simple-texlive-package
8222               "texlive-generic-intcalc"
8223               '("/tex/generic/intcalc/")
8224               (base32
8225                "0llrnayqwdqxi91yh7panbbiljina3bynv2hxhi6sssaw3pyd92l")
8226               #:trivial? #t))
8227     (home-page "https://www.ctan.org/pkg/intcalc")
8228     (synopsis "Expandable arithmetic operations with integers")
8229     (description
8230      "This package provides expandable arithmetic operations with integers,
8231 using the e-TeX extension @code{\\numexpr} if it is available.")
8232     (license license:lppl1.3c+)))
8233
8234 (define-public texlive-generic-kvdefinekeys
8235   (package
8236     (inherit (simple-texlive-package
8237               "texlive-generic-kvdefinekeys"
8238               '("/tex/generic/kvdefinekeys/")
8239               (base32
8240                "12nn74skhwiszbdhawqds31caz6d59a5pjmwar0r8lmk4f1jr3xh")
8241               #:trivial? #t))
8242     (home-page "https://www.ctan.org/pkg/kvdefinekeys")
8243     (synopsis "Define keys for use in the @code{kvsetkeys} package")
8244     (description
8245      "This package provides the @code{\\kv@@define@@key} (analogous to
8246 keyval’s @code{\\define@@key}, to define keys for use by @code{kvsetkeys}.")
8247     (license license:lppl1.3c+)))
8248
8249 (define-public texlive-generic-kvsetkeys
8250   (package
8251     (inherit (simple-texlive-package
8252               "texlive-generic-kvsetkeys"
8253               '("/tex/generic/kvsetkeys/")
8254               (base32
8255                "149vpmv4vms269dzq4sghlngg380sasvxnb3sx9rfs7d9j0finvi")
8256               #:trivial? #t))
8257     (home-page "https://www.ctan.org/pkg/kvsetkeys")
8258     (synopsis "Key value parser with default handler support")
8259     (description
8260      "This package provides @code{\\kvsetkeys}, a variant of @code{\\setkeys}
8261 from the @code{keyval} package.  Users can specify a handler that deals with
8262 unknown options.  Active commas and equal signs may be used, and only one
8263 level of curly braces are removed from the values.")
8264     (license license:lppl1.3c+)))
8265
8266 (define-public texlive-generic-listofitems
8267   (package
8268     (name "texlive-generic-listofitems")
8269     (version (number->string %texlive-revision))
8270     (source (origin
8271               (method svn-fetch)
8272               (uri (svn-reference
8273                     (url (string-append "svn://www.tug.org/texlive/tags/"
8274                                         %texlive-tag "/Master/texmf-dist/"
8275                                         "/tex/generic/listofitems"))
8276                     (revision %texlive-revision)))
8277               (file-name (string-append name "-" version "-checkout"))
8278               (sha256
8279                (base32
8280                 "1wnbnfrhi6hgqa78jsw6hljzi03i5x99mlr5n2419hgws52hk67y"))))
8281     (build-system trivial-build-system)
8282     (arguments
8283      `(#:modules ((guix build utils))
8284        #:builder
8285        (begin
8286          (use-modules (guix build utils))
8287          (let ((target (string-append (assoc-ref %outputs "out")
8288                                       "/share/texmf-dist/tex/generic/listofitems")))
8289            (mkdir-p target)
8290            (copy-recursively (assoc-ref %build-inputs "source") target)
8291            #t))))
8292     (home-page "https://www.ctan.org/pkg/listofitems")
8293     (synopsis "Grab items in lists using user-specified separation character")
8294     (description
8295      "This package allows one to capture all the items of a list, for which
8296 the parsing character has been selected by the user, and to access any of
8297 these items with a simple syntax.")
8298     (license license:lppl1.3c+)))
8299
8300 (define-public texlive-generic-ltxcmds
8301   (package
8302     (inherit (simple-texlive-package
8303               "texlive-generic-ltxcmds"
8304               '("/tex/generic/ltxcmds/")
8305               (base32
8306                "1lr77yai2qivlx26s5094czpfxmg96bhxps5wbm8xn7cpsw0zbd9")
8307               #:trivial? #t))
8308     (home-page "https://www.ctan.org/pkg/ltxcmds")
8309     (synopsis "LaTeX kernel commands extracted for general use")
8310     (description
8311      "This package exports some utility macros from the LaTeX kernel into
8312 a separate namespace and also makes them available for other formats such
8313 as plain TeX.")
8314     (license license:lppl1.3c+)))
8315
8316 (define-public texlive-generic-pdfescape
8317   (package
8318     (inherit (simple-texlive-package
8319               "texlive-generic-pdfescape"
8320               '("/tex/generic/pdfescape/")
8321               (base32
8322                "1vbdjmm9bi9ngzz2z1b8jnf6nzf9xsaj5pvyswg13y4dr00mnz6n")
8323               #:trivial? #t))
8324     (home-page "https://www.ctan.org/pkg/pdfescape")
8325     (synopsis "pdfTeX's escape features for plain TeX")
8326     (description
8327      "This package implements pdfTeX's escape features (@code{\\pdfescapehex},
8328 @code{\\pdfunescapehex}, @code{\\pdfescapename}, @code{\\pdfescapestring})
8329 using TeX or e-TeX.")
8330     (license license:lppl1.3c+)))
8331
8332 (define-public texlive-generic-uniquecounter
8333   (package
8334     (inherit (simple-texlive-package
8335               "texlive-generic-uniquecounter"
8336               '("/doc/latex/uniquecounter/"
8337                 "/tex/generic/uniquecounter/")
8338               (base32
8339                "1bjh8vwiqlkmjqndnh4xp116524x4m3hdcyq2s231jiqy8il8dcc")
8340               #:trivial? #t))
8341     (propagated-inputs
8342      (list texlive-generic-bigintcalc texlive-generic-infwarerr))
8343     (home-page "https://www.ctan.org/pkg/uniquecounter")
8344     (synopsis "Unlimited unique counter")
8345     (description
8346      "This package provides a kind of counter that provides unique number
8347 values.  Several counters can be created with different names.  The numeric
8348 values are not limited.")
8349     (license license:lppl1.3c+)))
8350
8351 (define-public texlive-latex-readarray
8352   (package
8353     (name "texlive-latex-readarray")
8354     (version (number->string %texlive-revision))
8355     (source (origin
8356               (method svn-fetch)
8357               (uri (svn-reference
8358                     (url (string-append "svn://www.tug.org/texlive/tags/"
8359                                         %texlive-tag "/Master/texmf-dist/"
8360                                         "/tex/latex/readarray"))
8361                     (revision %texlive-revision)))
8362               (file-name (string-append name "-" version "-checkout"))
8363               (sha256
8364                (base32
8365                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
8366     (build-system trivial-build-system)
8367     (arguments
8368      `(#:modules ((guix build utils))
8369        #:builder
8370        (begin
8371          (use-modules (guix build utils))
8372          (let ((target (string-append (assoc-ref %outputs "out")
8373                                       "/share/texmf-dist/tex/latex/readarray")))
8374            (mkdir-p target)
8375            (copy-recursively (assoc-ref %build-inputs "source") target)
8376            #t))))
8377     (propagated-inputs
8378      (list texlive-generic-listofitems))
8379     (home-page "https://www.ctan.org/pkg/readarray")
8380     (synopsis "Read, store and recall array-formatted data")
8381     (description
8382      "This package allows the user to input formatted data into elements of a
8383 2-D or 3-D array and to recall that data at will by individual cell number.
8384 The data can be but need not be numerical in nature.  It can be, for example,
8385 formatted text.")
8386     (license license:lppl1.3)))
8387
8388 (define-public texlive-latex-verbatimbox
8389   (package
8390     (name "texlive-latex-verbatimbox")
8391     (version (number->string %texlive-revision))
8392     (source (origin
8393               (method svn-fetch)
8394               (uri (svn-reference
8395                     (url (string-append "svn://www.tug.org/texlive/tags/"
8396                                         %texlive-tag "/Master/texmf-dist/"
8397                                         "/tex/latex/verbatimbox"))
8398                     (revision %texlive-revision)))
8399               (file-name (string-append name "-" version "-checkout"))
8400               (sha256
8401                (base32
8402                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
8403     (build-system trivial-build-system)
8404     (arguments
8405      `(#:modules ((guix build utils))
8406        #:builder
8407        (begin
8408          (use-modules (guix build utils))
8409          (let ((target (string-append (assoc-ref %outputs "out")
8410                                       "/share/texmf-dist/tex/latex/verbatimbox")))
8411            (mkdir-p target)
8412            (copy-recursively (assoc-ref %build-inputs "source") target)
8413            #t))))
8414     (propagated-inputs
8415      (list texlive-latex-readarray))
8416     (home-page "https://www.ctan.org/pkg/verbatimbox")
8417     (synopsis "Deposit verbatim text in a box")
8418     (description
8419      "The package provides a @code{verbbox} environment to place its contents
8420 into a globally available box, or into a box specified by the user.  The
8421 global box may then be used in a variety of situations (for example, providing
8422 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
8423 in places where the standard @code{verbatim} environment (which is based on a
8424 @code{trivlist}) may not appear.")
8425     (license license:lppl1.3+)))
8426
8427 (define-public texlive-latex-examplep
8428   (package
8429     (name "texlive-latex-examplep")
8430     (version (number->string %texlive-revision))
8431     (source (origin
8432               (method svn-fetch)
8433               (uri (svn-reference
8434                     (url (string-append "svn://www.tug.org/texlive/tags/"
8435                                         %texlive-tag "/Master/texmf-dist/"
8436                                         "/tex/latex/examplep"))
8437                     (revision %texlive-revision)))
8438               (file-name (string-append name "-" version "-checkout"))
8439               (sha256
8440                (base32
8441                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
8442     (build-system trivial-build-system)
8443     (arguments
8444      `(#:modules ((guix build utils))
8445        #:builder
8446        (begin
8447          (use-modules (guix build utils))
8448          (let ((target (string-append (assoc-ref %outputs "out")
8449                                       "/share/texmf-dist/tex/latex/examplep")))
8450            (mkdir-p target)
8451            (copy-recursively (assoc-ref %build-inputs "source") target)
8452            #t))))
8453     (home-page "https://www.ctan.org/pkg/examplep")
8454     (synopsis "Verbatim phrases and listings in LaTeX")
8455     (description
8456      "Examplep provides sophisticated features for typesetting verbatim source
8457 code listings, including the display of the source code and its compiled LaTeX
8458 or METAPOST output side-by-side, with automatic width detection and enabled
8459 page breaks (in the source), without the need for specifying the source twice.
8460 Special care is taken that section, page and footnote numbers do not interfere
8461 with the main document.  For typesetting short verbatim phrases, a replacement
8462 for the @code{\\verb} command is also provided in the package, which can be
8463 used inside tables and moving arguments such as footnotes and section
8464 titles.")
8465     ;; No version of the GPL is specified.
8466     (license license:gpl3+)))
8467
8468 (define-public texlive-xypic
8469   (let ((template (simple-texlive-package
8470                    "texlive-xypic"
8471                    (list "/doc/generic/xypic/"
8472                          "/dvips/xypic/xy389dict.pro"
8473                          "/fonts/enc/dvips/xypic/"
8474                          "/fonts/map/dvips/xypic/xypic.map"
8475
8476                          "/fonts/source/public/xypic/"
8477                          "/fonts/afm/public/xypic/"
8478                          "/fonts/tfm/public/xypic/"
8479                          "/fonts/type1/public/xypic/"
8480                          "/tex/generic/xypic/")
8481                    (base32
8482                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
8483                    #:trivial? #t)))
8484     (package
8485       (inherit template)
8486       (arguments
8487        (substitute-keyword-arguments (package-arguments template)
8488          ((#:phases phases)
8489           `(modify-phases ,phases
8490              (delete 'reset-gzip-timestamps)))))
8491       (home-page "https://www.ctan.org/pkg/xypic")
8492       (synopsis "Flexible diagramming macros")
8493       (description "This is a package for typesetting a variety of graphs and
8494 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
8495 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
8496 @code{diag} package, which was previously distributed stand-alone.")
8497       (license license:gpl3+))))
8498
8499 (define-deprecated-package texlive-fonts-xypic texlive-xypic)
8500
8501 (define-deprecated-package texlive-generic-xypic texlive-xypic)
8502
8503 (define-public texlive-bibtex
8504   (package
8505     (name "texlive-bibtex")
8506     (version (number->string %texlive-revision))
8507     (source
8508      (origin
8509        (method svn-fetch)
8510        (uri (svn-reference
8511              (url (string-append "svn://www.tug.org/texlive/tags/"
8512                                  %texlive-tag "/Master/texmf-dist/"
8513                                  "/bibtex"))
8514              (revision %texlive-revision)))
8515        (file-name (string-append name "-" version "-checkout"))
8516        (sha256
8517         (base32
8518          "0fr0s3jhrvplddb42if570dxllz54fa0pf4d2am27h8m385nghbf"))))
8519     (build-system trivial-build-system)
8520     (arguments
8521      `(#:modules ((guix build utils))
8522        #:builder
8523        (begin
8524          (use-modules (guix build utils))
8525          (let ((target (string-append (assoc-ref %outputs "out")
8526                                       "/share/texmf-dist/bibtex")))
8527            (mkdir-p target)
8528            (copy-recursively (assoc-ref %build-inputs "source") target)
8529            #t))))
8530     (home-page "https://www.ctan.org/pkg/bibtex")
8531     (synopsis "Process bibliographies for LaTeX")
8532     (description
8533      "BibTeX allows the user to store his citation data in generic form, while
8534 printing citations in a document in the form specified by a BibTeX style, to
8535 be specified in the document itself (one often needs a LaTeX citation-style
8536 package, such as @command{natbib} as well).")
8537     (license license:knuth)))
8538
8539 (define-public texlive-charter
8540   (package
8541     (inherit (simple-texlive-package
8542               "texlive-charter"
8543               (list "/doc/fonts/charter/readme.charter"
8544                     "/fonts/afm/bitstrea/charter/"
8545                     "/fonts/tfm/bitstrea/charter/"
8546                     "/fonts/type1/bitstrea/charter/"
8547                     "/fonts/vf/bitstrea/charter/")
8548               (base32
8549                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
8550               #:trivial? #t))
8551     ;; This provides charter.map.
8552     (propagated-inputs
8553      (list texlive-psnfss))
8554     (home-page "https://www.ctan.org/pkg/charter")
8555     (synopsis "Charter fonts for TeX")
8556     (description "This package provides a copy of the Charter Type-1 fonts
8557 which Bitstream contributed to the X consortium, renamed for use with TeX.
8558 Support for use with LaTeX is available in @code{freenfss}, part of
8559 @command{psnfss}.")
8560     (license (license:non-copyleft
8561               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
8562
8563 (define-deprecated-package texlive-fonts-charter texlive-charter)
8564
8565 (define-public texlive-context
8566   (package
8567     (inherit (simple-texlive-package
8568               "texlive-context"
8569               (list "/doc/context/"
8570                     "/doc/man/man1/context.1"
8571                     "/doc/man/man1/luatools.1"
8572                     "/doc/man/man1/mtx-babel.1"
8573                     "/doc/man/man1/mtx-base.1"
8574                     "/doc/man/man1/mtx-bibtex.1"
8575                     "/doc/man/man1/mtx-cache.1"
8576                     "/doc/man/man1/mtx-chars.1"
8577                     "/doc/man/man1/mtx-check.1"
8578                     "/doc/man/man1/mtx-colors.1"
8579                     "/doc/man/man1/mtx-context.1"
8580                     "/doc/man/man1/mtx-dvi.1"
8581                     "/doc/man/man1/mtx-epub.1"
8582                     "/doc/man/man1/mtx-evohome.1"
8583                     "/doc/man/man1/mtx-fcd.1"
8584                     "/doc/man/man1/mtx-flac.1"
8585                     "/doc/man/man1/mtx-fonts.1"
8586                     "/doc/man/man1/mtx-grep.1"
8587                     "/doc/man/man1/mtx-interface.1"
8588                     "/doc/man/man1/mtx-metapost.1"
8589                     "/doc/man/man1/mtx-modules.1"
8590                     "/doc/man/man1/mtx-package.1"
8591                     "/doc/man/man1/mtx-pdf.1"
8592                     "/doc/man/man1/mtx-plain.1"
8593                     "/doc/man/man1/mtx-profile.1"
8594                     "/doc/man/man1/mtx-rsync.1"
8595                     "/doc/man/man1/mtx-scite.1"
8596                     "/doc/man/man1/mtx-server.1"
8597                     "/doc/man/man1/mtx-texworks.1"
8598                     "/doc/man/man1/mtx-timing.1"
8599                     "/doc/man/man1/mtx-tools.1"
8600                     "/doc/man/man1/mtx-unicode.1"
8601                     "/doc/man/man1/mtx-unzip.1"
8602                     "/doc/man/man1/mtx-update.1"
8603                     "/doc/man/man1/mtx-watch.1"
8604                     "/doc/man/man1/mtx-youless.1"
8605
8606                     "/bibtex/bst/context/"
8607                     "/context/"
8608
8609                     "/fonts/afm/hoekwater/context/contnav.afm"
8610                     "/fonts/cid/fontforge/Adobe-CNS1-4.cidmap"
8611                     "/fonts/cid/fontforge/Adobe-GB1-4.cidmap"
8612                     "/fonts/cid/fontforge/Adobe-Identity-0.cidmap"
8613                     "/fonts/cid/fontforge/Adobe-Japan1-5.cidmap"
8614                     "/fonts/cid/fontforge/Adobe-Japan1-6.cidmap"
8615                     "/fonts/cid/fontforge/Adobe-Japan2-0.cidmap"
8616                     "/fonts/cid/fontforge/Adobe-Korea1-2.cidmap"
8617                     "/fonts/enc/dvips/context/"
8618                     "/fonts/map/dvips/context/"
8619                     "/fonts/map/luatex/context/"
8620                     "/fonts/map/pdftex/context/"
8621                     "/fonts/misc/xetex/fontmapping/context/"
8622                     "/fonts/tfm/hoekwater/context/"
8623                     "/fonts/type1/hoekwater/context/"
8624                     "/metapost/context/"
8625                     "/scripts/context/"
8626                     "/tex/context/base/"
8627                     "/tex/context/bib/"
8628                     "/tex/context/colors/"
8629                     "/tex/context/fonts/"
8630                     "/tex/context/interface/"
8631                     "/tex/context/modules/"
8632                     "/tex/context/patterns/"
8633                     "/tex/context/sample/"
8634                     "/tex/context/test/"
8635                     "/tex/context/user/"
8636                     "/tex/generic/context/"
8637                     "/tex/latex/context/")
8638               (base32
8639                "1rsw760f52rj62i7ms89xgxdi0qw6hag5fs5hb667nclr4kdkam8")
8640               #:trivial? #t))
8641     ;; TODO: add these missing packages:
8642     ;; xetex, luatex, lm-math, manfnt-font, and mptopdf
8643     (propagated-inputs
8644      (list texlive-amsfonts
8645            texlive-lm
8646            texlive-pdftex
8647            texlive-metapost
8648            texlive-stmaryrd
8649            texlive-mflogo-font))
8650     (home-page "https://www.ctan.org/pkg/context")
8651     (synopsis "Full featured, parameter driven macro package for TeX")
8652     (description "ConTeXt is a full featured, parameter driven macro package,
8653 which fully supports advanced interactive documents.  See the ConTeXt garden
8654 for a wealth of support information.")
8655     ;; The GPL applies to all code; alternatively, the LaTeX license may be used.
8656     ;; The CC-BY-SA license applies to all documentation.
8657     (license (list license:lppl1.3c+
8658                    license:gpl2+
8659                    license:cc-by-sa4.0))))
8660
8661 (define-deprecated-package texlive-context-base texlive-context)
8662
8663 (define-public texlive-beamer
8664   (package
8665     (inherit (simple-texlive-package
8666               "texlive-beamer"
8667               (list "/doc/latex/beamer/"
8668                     "/tex/latex/beamer/")
8669               (base32
8670                "091n27n4l3iac911bvmpp735ffryyzaq46mkclgn3q9jsvc4ngiv")
8671               #:trivial? #t))
8672     (propagated-inputs
8673      (list texlive-hyperref texlive-oberdiek texlive-etoolbox
8674            texlive-pgf))
8675     (home-page "https://www.ctan.org/pkg/beamer")
8676     (synopsis "LaTeX class for producing presentations and slides")
8677     (description "The beamer LaTeX class can be used for producing slides.
8678 The class works in both PostScript and direct PDF output modes, using the
8679 @code{pgf} graphics system for visual effects.  Content is created in the
8680 @code{frame} environment, and each frame can be made up of a number of slides
8681 using a simple notation for specifying material to appear on each slide within
8682 a frame.  Short versions of title, authors, institute can also be specified as
8683 optional parameters.  Whole frame graphics are supported by plain frames.  The
8684 class supports @code{figure} and @code{table} environments, transparency
8685 effects, varying slide transitions and animations.")
8686     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
8687     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
8688     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
8689
8690 (define-deprecated-package texlive-latex-beamer texlive-beamer)
8691
8692 (define-public texlive-latex-xmpincl
8693   (package
8694     (name "texlive-latex-xmpincl")
8695     (version (number->string %texlive-revision))
8696     (source
8697      (origin
8698        (method svn-fetch)
8699        (uri (texlive-ref "latex" "xmpincl"))
8700        (file-name (string-append name "-" version "-checkout"))
8701        (sha256
8702         (base32
8703          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
8704     (build-system texlive-build-system)
8705     (arguments '(#:tex-directory "latex/xmpincl"))
8706     (home-page "http://www.ctan.org/pkg/xmpincl")
8707     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
8708     (description
8709      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
8710 digital material to enhance the workflow in publication.  The essence is that
8711 the metadata is stored in an XML file, and this XML stream is then embedded in
8712 the file to which it applies.")
8713     (license license:gpl3+)))
8714
8715 (define-public texlive-pdfx
8716   (let ((template (simple-texlive-package
8717                    "texlive-pdfx"
8718                    (list "/doc/latex/pdfx/"
8719                          "/source/latex/pdfx/"
8720                          "/tex/latex/pdfx/")
8721                    (base32
8722                     "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
8723     (package
8724       (inherit template)
8725       (arguments
8726        (substitute-keyword-arguments (package-arguments template)
8727          ((#:tex-directory _ #t)
8728           "latex/pdfx")
8729          ((#:phases phases)
8730           `(modify-phases ,phases
8731              (add-after 'unpack 'delete-generated-file
8732                (lambda _
8733                  ;; Generate this file from sources
8734                  (delete-file "tex/latex/pdfx/pdfx.sty")
8735                  #t))
8736              (add-after 'delete-generated-file 'chdir
8737                (lambda _ (chdir "source/latex/pdfx") #t))
8738              (add-after 'chdir 'fix-encoding
8739                (lambda _
8740                  (substitute* "pdfx.dtx"
8741                    (("    .+umaczy") "umaczy"))
8742                  #t))))))
8743       (propagated-inputs
8744        (list texlive-pdftex))
8745       (home-page "https://www.ctan.org/pkg/pdfx")
8746       (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
8747       (description
8748        "This package helps LaTeX users to create PDF/X, PDF/A and other
8749 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
8750       (license license:lppl1.2+))))
8751
8752 (define-deprecated-package texlive-latex-pdfx texlive-pdfx)
8753
8754 (define-public texlive-ydoc
8755   (let ((template (simple-texlive-package
8756                    "texlive-ydoc"
8757                    (list "/doc/latex/ydoc/"
8758                          "/source/latex/ydoc/")
8759                    (base32
8760                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
8761                    #:trivial? #f)))
8762     (package
8763       (inherit template)
8764       (outputs '("out" "doc"))
8765       (arguments
8766        (substitute-keyword-arguments (package-arguments template)
8767          ((#:tex-directory _ #t)
8768           "latex/ydoc")
8769          ((#:build-targets _ #t)
8770           ''("ydoc.dtx"))
8771          ((#:phases phases)
8772           `(modify-phases ,phases
8773              (add-after 'unpack 'chdir
8774                (lambda _ (chdir "source/latex/ydoc") #t))
8775              (add-after 'copy-files 'move-files
8776                (lambda* (#:key inputs outputs #:allow-other-keys)
8777                  (let ((source (assoc-ref inputs "source"))
8778                        (doc (string-append (assoc-ref outputs "doc")
8779                                            "/share/texmf-dist/doc")))
8780                    (copy-recursively (string-append source "/doc")  doc))))))))
8781       (home-page "http://www.ctan.org/pkg/ydoc")
8782       (synopsis "Macros for documentation of LaTeX classes and packages")
8783       (description "The package provides macros and environments to document
8784 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
8785 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
8786 provide a different layout and more modern styles (using the @code{xcolor},
8787 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
8788 not (yet) be used with other packages, since the implementation might
8789 change.")
8790       (license license:lppl1.3+))))
8791
8792 (define-public texlive-pstricks
8793   (let ((template (simple-texlive-package
8794                    "texlive-pstricks"
8795                    (list "/doc/generic/pstricks/"
8796                          "/dvips/pstricks/"
8797                          "/tex/generic/pstricks/"
8798                          "/tex/latex/pstricks/")
8799                    (base32
8800                     "15c9iqfq2y9c8c78cvqb6vzd5a5rm7qq5x7m05jq1hb8sgqrqb0j")
8801                    #:trivial? #t)))
8802     (package
8803       (inherit template)
8804       (arguments
8805        (substitute-keyword-arguments (package-arguments template)
8806          ((#:phases phases)
8807           `(modify-phases ,phases
8808              (delete 'reset-gzip-timestamps)))))
8809       (home-page "http://www.ctan.org/pkg/pstricks")
8810       (synopsis "PostScript macros for TeX")
8811       (description "PSTricks offers an extensive collection of macros for
8812 generating PostScript that is usable with most TeX macro formats, including
8813 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
8814 graphics, pie charts, rotation, trees and overlays.  It has many special
8815 features, including a wide variety of graphics (picture drawing) macros, with
8816 a flexible interface and with colour support.  There are macros for colouring
8817 or shading the cells of tables.")
8818       (license license:lppl1.3+))))
8819
8820 (define-public texlive-pst-text
8821   (let ((template (simple-texlive-package
8822                    "texlive-pst-text"
8823                    (list "/doc/generic/pst-text/"
8824                          "/dvips/pst-text/pst-text.pro"
8825                          "/tex/generic/pst-text/"
8826                          "/tex/latex/pst-text/")
8827                    (base32
8828                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
8829                    #:trivial? #t)))
8830     (package
8831       (inherit template)
8832       (propagated-inputs
8833        (list texlive-pstricks))
8834       (home-page "http://www.ctan.org/pkg/pst-text")
8835       (synopsis "Text and character manipulation in PSTricks")
8836       (description "Pst-text is a PSTricks based package for plotting text along
8837 a different path and manipulating characters.  It includes the functionality
8838 of the old package @code{pst-char}.")
8839       (license license:lppl))))
8840
8841 (define-public texlive-marginnote
8842   (let ((template (simple-texlive-package
8843                    "texlive-marginnote"
8844                    (list "/source/latex/marginnote/marginnote.dtx")
8845                    (base32
8846                     "152bwxhnssj40rr72r6cfirvqbnc0h7xnagfrbz58v2xck53qhg1"))))
8847     (package
8848       (inherit template)
8849       (home-page "http://www.ctan.org/pkg/marginnote")
8850       (arguments
8851        (substitute-keyword-arguments (package-arguments template)
8852          ((#:tex-directory _ '())
8853           "latex/marginnote")
8854          ((#:build-targets _ '())
8855           ''("marginnote.dtx"))
8856          ((#:phases phases)
8857           `(modify-phases ,phases
8858              (add-after 'unpack 'chdir
8859                (lambda _ (chdir "source/latex/marginnote") #t))))))
8860       (synopsis "Notes in the margin")
8861       (description "This package provides the command @code{\\marginnote} that
8862 may be used instead of @code{\\marginpar} at almost every place where
8863 @code{\\marginpar} cannot be used, e.g., inside floats, footnotes, or in
8864 frames made with the @code{framed} package.")
8865       (license license:lppl1.3c+))))
8866
8867 (define-public texlive-generic-iftex
8868   (let ((template (simple-texlive-package
8869                    "texlive-generic-iftex"
8870                    (list "/doc/generic/iftex/"
8871                          "/tex/generic/iftex/")
8872                    (base32
8873                     "147xa5kl4kjs05nj8v3kd7dpr5xkz3xp3gdvjih32ccd7527f5vp")
8874                    #:trivial? #t)))
8875     (package
8876       (inherit template)
8877       (home-page "http://www.ctan.org/pkg/iftex")
8878       (synopsis "Determine the currently used TeX engine")
8879       (description "This package, which works both for Plain TeX and for
8880 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
8881 conditionals for testing which engine is being used for typesetting.  The
8882 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
8883 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
8884 LuaTeX (respectively) is not the engine in use.")
8885       (license license:lppl1.3+))))
8886
8887 (define-deprecated-package texlive-iftex texlive-generic-iftex)
8888
8889 (define-deprecated-package texlive-generic-ifxetex texlive-generic-iftex)
8890
8891 (define-public texlive-tabu
8892   (let ((template
8893          (simple-texlive-package
8894           "texlive-tabu"
8895           (list "doc/latex/tabu/"
8896                 "source/latex/tabu/"
8897                 "tex/latex/tabu/")
8898           (base32 "0mixyrqavipq4ni38z42x3579cdjbz54cp2qqb4q4yhfbl0a4pka"))))
8899     (package
8900       (inherit template)
8901       (outputs '("out" "doc"))
8902       (arguments
8903        (substitute-keyword-arguments (package-arguments template)
8904          ((#:tex-directory _ '())
8905           "latex/tabu")
8906          ((#:build-targets _ '())
8907           '(list "tabu.dtx"))
8908          ((#:phases phases)
8909           `(modify-phases ,phases
8910              (add-after 'unpack 'chdir
8911                (lambda _ (chdir "source/latex/tabu")))
8912              (replace 'copy-files
8913                (lambda* (#:key inputs outputs #:allow-other-keys)
8914                  (let ((origin (assoc-ref inputs "source"))
8915                        (source (string-append (assoc-ref outputs "out")
8916                                               "/share/texmf-dist/source"))
8917                        (doc (string-append (assoc-ref outputs "doc")
8918                                            "/share/texmf-dist/doc")))
8919                    (copy-recursively (string-append origin "/source") source)
8920                    (copy-recursively (string-append origin "/doc") doc))))))))
8921       (propagated-inputs (list texlive-varwidth))
8922       (home-page "https://ctan.org/macros/latex/contrib/tabu")
8923       (synopsis "Flexible LaTeX tabulars")
8924       (description
8925        "The package provides an environment, tabu, which will make any sort of
8926 tabular, and an environment longtabu which provides the facilities of tabu in
8927 a modified longtable environment.  The package requires array, xcolor for
8928 coloured rules in tables, and colortbl for coloured cells.  The longtabu
8929 environment further requires that longtable be loaded.  The package itself
8930 does not load any of these packages for the user.  The tabu environment may be
8931 used in place of @code{tabular}, @code{tabular*} and @code{tabularx}
8932 environments, as well as the @code{array} environment in maths mode.")
8933       (license license:lppl1.3+))))
8934
8935 (define-public texlive-tools
8936   (let ((template (simple-texlive-package
8937                    "texlive-tools"
8938                    (list "/doc/latex/tools/"
8939                          "/source/latex/tools/")
8940                    (base32
8941                     "1xas0b69r3d5x4zhcqysgybyqaikd9avv6r1bdckb947id3iaz58"))))
8942     (package
8943       (inherit template)
8944       (arguments
8945        (substitute-keyword-arguments (package-arguments template)
8946          ((#:tex-directory _ '())
8947           "latex/tools")
8948          ((#:build-targets _ '())
8949           ''("tools.ins"))
8950          ((#:phases phases)
8951           `(modify-phases ,phases
8952              (add-after 'unpack 'chdir
8953                (lambda _ (chdir "source/latex/tools") #t))))))
8954       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
8955       (synopsis "LaTeX standard tools bundle")
8956       (description "This package provides a collection of simple tools that
8957 are part of the LaTeX required tools distribution, comprising the packages:
8958 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
8959 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
8960 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
8961 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
8962 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
8963 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
8964       (license license:lppl1.3+))))
8965
8966 (define-public texlive-latex-xkeyval
8967   (package
8968     (name "texlive-latex-xkeyval")
8969     (version (number->string %texlive-revision))
8970     (source (origin
8971               (method svn-fetch)
8972               (uri (texlive-ref "latex" "xkeyval"))
8973               (file-name (string-append name "-" version "-checkout"))
8974               (sha256
8975                (base32
8976                 "0w4x82wmdvcmy8z3p55xvpz5q7jac1q1j591hi8mngfyqa8rda1c"))))
8977     (build-system texlive-build-system)
8978     (arguments
8979      '(#:tex-directory "latex/xkeyval"
8980        #:build-targets '("xkeyval.dtx")
8981        #:tex-format "latex" ; won't build with luatex
8982        #:phases
8983        (modify-phases %standard-phases
8984          ;; This package cannot be built out of tree as it expects to find
8985          ;; built files in the working directory.
8986          (add-before 'build 'fix-build
8987            (lambda _
8988              (setenv "TEXINPUTS"
8989                      (string-append (getcwd) "/build:"))
8990              (substitute* "xkeyval.dtx"
8991                (("usepackage\\{xcolor\\}")
8992                 "usepackage[dvips]{xcolor}"))
8993              #t))
8994          ;; FIXME: We don't have a package for this font yet.
8995          (add-after 'unpack 'remove-dependency-on-fourier
8996            (lambda _
8997              (substitute* "xkeyval.dtx"
8998                (("\\\\usepackage\\{fourier\\}") ""))
8999              #t))
9000          (add-after 'install 'move-files
9001            (lambda* (#:key outputs #:allow-other-keys)
9002              (let* ((out (assoc-ref outputs "out"))
9003                     (share (string-append out "/share/texmf-dist"))
9004                     (source (string-append share "/tex/latex/xkeyval/"))
9005                     (target (string-append share "/tex/generic/xkeyval/")))
9006                (mkdir-p target)
9007                (for-each (lambda (file)
9008                            (rename-file (string-append source file)
9009                                         (string-append target file)))
9010                          '("keyval.tex"
9011                            "pst-xkey.tex"
9012                            "xkeyval.tex"
9013                            "xkvex1.tex"
9014                            "xkvex2.tex"
9015                            "xkvex3.tex"
9016                            "xkvex4.tex"
9017                            "xkvtxhdr.tex"
9018                            "xkvutils.tex"))
9019                #t))))))
9020     (native-inputs
9021      (list texlive-latex-base
9022            texlive-cm
9023            texlive-lm
9024            texlive-url
9025            texlive-graphics-def
9026            texlive-xcolor
9027            texlive-latex-footmisc
9028
9029            ;; TODO: Use non-deprecated name on next rebuild cycle.
9030            texlive-latex-listings
9031
9032            texlive-generic-iftex
9033            texlive-pstricks
9034            texlive-pst-text
9035            texlive-tools
9036
9037            ;; TODO: Use non-deprecated name on next rebuild cycle.
9038            texlive-latex-pgf))
9039     (home-page "http://www.ctan.org/pkg/xkeyval")
9040     (synopsis "Extension of the keyval package")
9041     (description
9042      "This package is an extension of the keyval package and offers additional
9043 macros for setting keys and declaring and setting class or package options.
9044 The package allows the programmer to specify a prefix to the name of the
9045 macros it defines for keys, and to define families of key definitions; these
9046 all help use in documents where several packages define their own sets of
9047 keys.")
9048     (license license:lppl1.3+)))
9049
9050 (define-public texlive-standalone
9051   (package
9052     (name "texlive-standalone")
9053     (version (number->string %texlive-revision))
9054     (source
9055      (origin
9056        (method svn-fetch)
9057        (uri (texlive-ref "latex" "standalone"))
9058        (file-name (string-append name "-" version "-checkout"))
9059        (sha256
9060         (base32
9061          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
9062     (build-system texlive-build-system)
9063     (arguments '(#:tex-directory "latex/standalone"))
9064     (propagated-inputs
9065      (list texlive-latex-xkeyval))
9066     (native-inputs
9067      (list texlive-ydoc))
9068     (home-page "http://www.ctan.org/pkg/standalone")
9069     (synopsis "Compile TeX pictures stand-alone or as part of a document")
9070     (description "A class and package is provided which allows TeX pictures or
9071 other TeX code to be compiled standalone or as part of a main document.
9072 Special support for pictures with beamer overlays is also provided.  The
9073 package is used in the main document and skips extra preambles in sub-files.
9074 The class may be used to simplify the preamble in sub-files.  By default the
9075 @code{preview} package is used to display the typeset code without margins.
9076 The behaviour in standalone mode may adjusted using a configuration file
9077 @code{standalone.cfg} to redefine the standalone environment.")
9078     (license license:lppl1.3+)))
9079
9080 (define-public texlive-siunitx
9081   (package
9082     (name "texlive-siunitx")
9083     (version (number->string %texlive-revision))
9084     (source (texlive-origin
9085              name version
9086              (list "/source/latex/siunitx/siunitx.dtx"
9087                    "/doc/latex/siunitx/README.md")
9088              (base32
9089               "05kl7yid2npp2gbfshnv2xd08w81fkh5h2n5wd9xcpbhlqjzx9sj")))
9090     (build-system texlive-build-system)
9091     (arguments
9092      '(#:tex-directory "latex/siunitx"
9093        #:build-targets '("siunitx.dtx")
9094        #:phases
9095        (modify-phases %standard-phases
9096          (add-after 'unpack 'chdir
9097            (lambda _ (chdir "source/latex/siunitx") #t)))))
9098     (propagated-inputs
9099      (list texlive-latex-l3kernel texlive-latex-l3packages))
9100     (home-page "http://www.ctan.org/pkg/siunitx")
9101     (synopsis "Comprehensive SI units package")
9102     (description
9103      "Typesetting values with units requires care to ensure that the combined
9104 mathematical meaning of the value plus unit combination is clear.  In
9105 particular, the SI units system lays down a consistent set of units with rules
9106 on how they are to be used.  However, different countries and publishers have
9107 differing conventions on the exact appearance of numbers (and units).  A
9108 number of LaTeX packages have been developed to provide consistent application
9109 of the various rules.  The @code{siunitx} package takes the best from the
9110 existing packages, and adds new features and a consistent interface.  A number
9111 of new ideas have been incorporated, to fill gaps in the existing provision.
9112 The package also provides backward-compatibility with @code{SIunits},
9113 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
9114 package to handle all of the possible unit-related needs of LaTeX users.")
9115     (license license:lppl1.3c)))
9116
9117 (define-public texlive-booktabs
9118   (package
9119     (name "texlive-booktabs")
9120     (version (number->string %texlive-revision))
9121     (source
9122      (origin
9123        (method svn-fetch)
9124        (uri (texlive-ref "latex" "booktabs"))
9125        (file-name (string-append name "-" version "-checkout"))
9126        (sha256
9127         (base32
9128          "1mycxzl761p2zzmva8xsjbxbvrxx3vhi5p160mh9kiqwhrs5biz5"))))
9129     (build-system texlive-build-system)
9130     (arguments '(#:tex-directory "latex/booktabs"))
9131     (home-page "http://www.ctan.org/pkg/booktabs")
9132     (synopsis "Publication quality tables in LaTeX")
9133     (description
9134      "This package enhances the quality of tables in LaTeX, providing extra
9135 commands as well as behind-the-scenes optimisation.  Guidelines are given as
9136 to what constitutes a good table in this context.  The package offers
9137 @code{longtable} compatibility.")
9138     (license license:lppl1.3+)))
9139
9140 (define-public texlive-csquotes
9141   (let ((template (simple-texlive-package
9142                    "texlive-csquotes"
9143                    (list "/doc/latex/csquotes/"
9144                          "/tex/latex/csquotes/")
9145                    (base32
9146                     "17y5mrmjmi7n0cgq4cnqr55f4bni6lx1pfdv5pzsmbrzha3mhbfg")
9147                    #:trivial? #t)))
9148     (package
9149       (inherit template)
9150       (propagated-inputs
9151        (list texlive-etoolbox))
9152       (home-page "https://www.ctan.org/pkg/csquotes")
9153       (synopsis "Context sensitive quotation facilities")
9154       (description "This package provides advanced facilities for inline and
9155 display quotations.  It is designed for a wide range of tasks ranging from the
9156 most simple applications to the more complex demands of formal quotations.
9157 The facilities include commands, environments, and user-definable 'smart
9158 quotes' which dynamically adjust to their context.  Quotation marks are
9159 switched automatically if quotations are nested and they can be adjusted to
9160 the current language if the babel package is available.  There are additional
9161 facilities designed to cope with the more specific demands of academic
9162 writing, especially in the humanities and the social sciences.  All quote
9163 styles as well as the optional active quotes are freely configurable.")
9164       (license license:lppl1.3c+))))
9165
9166 (define-public texlive-logreq
9167   (let ((template (simple-texlive-package
9168                    "texlive-logreq"
9169                    (list "/doc/latex/logreq/"
9170                          "/tex/latex/logreq/")
9171                    (base32
9172                     "13difccs3cxlkqlnhw286yb0c7mifrxfd402a2x5wwxv0m1kgfqd")
9173                    #:trivial? #t)))
9174     (package
9175       (inherit template)
9176       (propagated-inputs
9177        (list texlive-etoolbox))
9178       (home-page "https://www.ctan.org/pkg/logreq")
9179       (synopsis "Support for automation of the LaTeX workflow")
9180       (description "The package helps to automate a typical LaTeX
9181 workflow that involves running LaTeX several times and running tools
9182 such as BibTeX or makeindex.  It will log requests like \"please rerun
9183 LaTeX\" or \"please run BibTeX on file X\" to an external file in a
9184 machine-readable format.  Compiler scripts and integrated LaTeX
9185 editing environments may parse this file to determine the next steps
9186 in the workflow.  In sum, the package will do two things:
9187
9188 @enumerate
9189 @item
9190 enable package authors to use LaTeX commands to issue requests, and
9191
9192 @item
9193 collect all requests from all packages and write them to an external
9194 XML file.
9195 @end enumerate\n")
9196       (license license:lppl1.3c))))
9197
9198 (define-public texlive-biblatex
9199   (let ((template (simple-texlive-package
9200                    "texlive-biblatex"
9201                    (list "/doc/latex/biblatex/"
9202                          "/tex/latex/biblatex/")
9203                    (base32
9204                     "091cz2vrq22d1fr05wljd8vbllsz95q2hn2p8hhrwb2l2xrmxwn8")
9205                    #:trivial? #t)))
9206     (package
9207       (inherit template)
9208       (propagated-inputs
9209        (list texlive-logreq texlive-url))
9210       (home-page "https://www.ctan.org/pkg/biblatex")
9211       (synopsis "Sophisticated bibliographies in LaTeX")
9212       (description "BibLaTeX is a complete reimplementation of the
9213 bibliographic facilities provided by LaTeX.  Formatting of the
9214 bibliography is entirely controlled by LaTeX macros, facilitating the
9215 design of new bibliography and citation styles.  BibLaTeX uses its own
9216 data backend program \"biber\" to read and process the bibliographic
9217 data.  With biber, the range of features provided by biblatex
9218 includes:
9219
9220 @enumerate
9221 @item
9222 full unicode support,
9223
9224 @item
9225 customisable bibliography labels,
9226
9227 @item
9228 multiple bibliographies in the same document, and
9229
9230 @item
9231 subdivided bibliographies, such as bibliographies per chapter or
9232 section.
9233 @end enumerate\n")
9234       (license license:lppl1.3c))))
9235
9236 (define-public texlive-todonotes
9237   (let ((template (simple-texlive-package
9238                    "texlive-todonotes"
9239                    (list "/doc/latex/todonotes/"
9240                          "/tex/latex/todonotes/")
9241                    (base32
9242                     "1jqw8jy73488bdr971w0dnlggsvicagpnpx8ddqkma920ba8rabp")
9243                    #:trivial? #t)))
9244     (package
9245       (inherit template)
9246       (propagated-inputs
9247        (list texlive-pgf texlive-latex-xkeyval))
9248       (home-page "http://www.ctan.org/pkg/todonotes")
9249       (synopsis "Marking things to do in a LaTeX document")
9250       (description "The @code{todonotes} package lets the user mark
9251 things to do later, in a simple and visually appealing way.  The
9252 package takes several options to enable customization and finetuning
9253 of the visual appearance.")
9254       (license license:lppl1.3+))))
9255
9256 (define-public texlive-units
9257   (let ((template (simple-texlive-package
9258                    "texlive-units"
9259                    (list "/doc/latex/units/"
9260                          "/tex/latex/units/")
9261                    (base32
9262                     "1ia1vzy8dp7pdvmawwnmh9lmkajmpnnh62dixrjpb6mnxq118bfd")
9263                    #:trivial? #t)))
9264     (package
9265       (inherit template)
9266       (home-page "http://www.ctan.org/pkg/units")
9267       (synopsis "Typeset physical units and fractions")
9268       (description "@code{units} is a package for typesetting physical
9269 units in a standard-looking way.  The package is based upon
9270 @code{nicefrac}, a package for typing fractions.  @code{nicefrac} is
9271 included in the @code{units} bundle.")
9272       (license license:gpl3+))))
9273
9274 (define-public texlive-microtype
9275   (let ((template (simple-texlive-package
9276                    "texlive-microtype"
9277                    (list "/doc/latex/microtype/"
9278                          "/tex/latex/microtype/")
9279                    (base32
9280                     "07861ixrjzxm0l24z82ivhaj4v6xm4ijbaabp66jxsf8s8h7dq9n")
9281                    #:trivial? #t)))
9282     (package
9283       (inherit template)
9284       (home-page "http://www.ctan.org/pkg/microtype")
9285       (synopsis "Subliminal refinements towards typographical perfection")
9286       (description "@code{microtype} provides a LaTeX interface to the
9287 micro-typographic extensions that were introduced by pdfTeX and have
9288 since propagated to XeTeX and LuaTeX: most prominently character
9289 protrusion and font expansion, the adjustment of kerning and interword
9290 spacing, hyphenatable letterspacing and the possibility to disable all
9291 or selected ligatures.  These features may be applied to customisable
9292 sets of fonts.  All micro-typographic aspects of the fonts can be
9293 configured in a straight-forward and flexible way.  Settings for
9294 various fonts are provided.  An alternative package
9295 @code{letterspace}, which also works with plain TeX, is included in
9296 the bundle.")
9297       (license license:lppl1.3c))))
9298
9299 (define-public texlive-caption
9300   (let ((template (simple-texlive-package
9301                    "texlive-caption"
9302                    (list "/doc/latex/caption/"
9303                          "/tex/latex/caption/")
9304                    (base32
9305                     "1isnn375d14xsx398j3m8rbb0pdk12kijw4xcgl82xici170klwq")
9306                    #:trivial? #t)))
9307     (package
9308       (inherit template)
9309       (home-page "http://www.ctan.org/pkg/caption")
9310       (synopsis "Customising captions in floating environments")
9311       (description "The @code{caption} package provides many ways to
9312 customise the captions in floating environments like figure and table.
9313 Facilities include rotating captions, sideways captions and continued
9314 captions (for tables or figures that come in several parts).  A list
9315 of compatibility notes, for other packages, is provided in the
9316 documentation.  The package also provides the \"caption outside
9317 float\" facility, in the same way that simpler packages like
9318 @code{capt-ofcapt-of} do.  The package supersedes @code{caption2}.
9319 Packages @code{bicaption}, @code{ltcaption}, @code{newfloat},
9320 @code{subcaption} and @code{totalcount} are included in the bundle.")
9321       (license license:lppl1.3+))))
9322
9323 (define-public texlive-symbol
9324   (package
9325     (inherit (simple-texlive-package
9326               "texlive-symbol"
9327               (list "/dvips/symbol/"
9328                     "/fonts/afm/adobe/symbol/"
9329                     "/fonts/afm/urw/symbol/"
9330                     "/fonts/tfm/adobe/symbol/"
9331                     "/fonts/tfm/urw35vf/symbol/"
9332                     "/fonts/type1/urw/symbol/"
9333                     "/fonts/map/dvips/symbol/"
9334                     "/tex/latex/symbol/")
9335               (base32
9336                "01xiygb88xwi7rfvh1zrlxzi5pqb5fvylws5zzszg379iz4pyzwj")
9337               #:trivial? #t))
9338     (home-page "https://ctan.org/pkg/urw-base35")
9339     (synopsis "URW Base 35 font pack for LaTeX")
9340     (description "This package provides a drop-in replacement for the
9341 Symbol font from Adobe's basic set.")
9342     (license license:gpl2)))
9343
9344 (define-public texlive-mathpazo
9345   (package
9346     (inherit (simple-texlive-package
9347               "texlive-mathpazo"
9348               (list "/doc/latex/mathpazo/"
9349                     "/fonts/afm/public/mathpazo/"
9350                     "/fonts/tfm/public/mathpazo/"
9351                     "/fonts/type1/public/mathpazo/"
9352                     "/fonts/vf/public/mathpazo/")
9353               (base32
9354                "02in6hdnbnkz216mpy8g6fk3wmlls8nh5982vmg37vhbj77lk0rh")
9355               #:trivial? #t))
9356     (home-page "http://www.ctan.org/pkg/mathpazo")
9357     (synopsis "Fonts to typeset mathematics to match Palatino")
9358     (description "The Pazo Math fonts are a family of PostScript fonts
9359 suitable for typesetting mathematics in combination with the Palatino
9360 family of text fonts.  The Pazo Math family is made up of five fonts
9361 provided in Adobe Type 1 format.  These contain glyphs that are
9362 usually not available in Palatino and for which Computer Modern looks
9363 odd when combined with Palatino.  These glyphs include the uppercase
9364 Greek alphabet in upright and slanted shapes, the lowercase Greek
9365 alphabet in slanted shape, several mathematical glyphs and the
9366 uppercase letters commonly used to represent various number sets.
9367 LaTeX macro support is provided in package @code{psnfss}.")
9368     (license license:gpl3+)))
9369
9370 (define-public texlive-fpl
9371   (package
9372     (inherit (simple-texlive-package
9373               "texlive-fpl"
9374               (list "/doc/fonts/fpl/"
9375                     "/source/fonts/fpl/"
9376                     "/fonts/afm/public/fpl/"
9377                     "/fonts/type1/public/fpl/")
9378               (base32
9379                "02gkl516z9kn8xqs269pdkqn37sxm8ib0pcs43s4rs2rhyyl5z68")
9380               #:trivial? #t))
9381     (home-page "https://www.ctan.org/pkg/fpl")
9382     (synopsis "SC and OsF fonts for URW Palladio L")
9383     (description "The FPL Fonts provide a set of SC/OsF fonts for URW
9384 Palladio L which are compatible with the Palatino SC/OsF fonts from
9385 Adobe.  LaTeX use is enabled by the mathpazo package, which is part of
9386 the @code{psnfss} distribution.")
9387     ;; Either LPPL version 1.0 or later, or GPL version 2
9388     (license (list license:lppl1.0+ license:gpl2))))
9389
9390 (define-public texlive-arev
9391   (package
9392     (inherit (simple-texlive-package
9393               "texlive-arev"
9394               (list "/doc/fonts/arev/"
9395                     "/fonts/afm/public/arev/"
9396                     "/fonts/enc/dvips/arev/"
9397                     "/fonts/map/dvips/arev/"
9398                     "/fonts/tfm/public/arev/"
9399                     "/fonts/type1/public/arev/"
9400                     "/fonts/vf/public/arev/"
9401                     "/tex/latex/arev/")
9402               (base32
9403                "15wkgc48r52mjpymv6l7j9bl99kwxbvg3g1mi3qyq7nfm799dkxy")
9404               #:trivial? #t))
9405     (home-page "https://www.ctan.org/pkg/arev")
9406     (synopsis "Fonts and LaTeX support files for Arev Sans")
9407     (description "The @code{arev} package provides type 1 fonts,
9408 virtual fonts and LaTeX packages for using Arev Sans in both text and
9409 mathematics.  Arev Sans is a derivative of Bitstream Vera Sans, adding
9410 support for Greek and Cyrillic characters and a few variant letters
9411 appropriate for mathematics.  The font is primarily used in LaTeX for
9412 presentations, particularly when using a computer projector.  Arev
9413 Sans has large x-height, \"open letters\", wide spacing and thick
9414 stems.  The style is very similar to the SliTeX font lcmss but
9415 heavier.  Arev is one of a very small number of sans-font mathematics
9416 support packages.  Others are cmbright, hvmath and kerkis.")
9417     (license (list license:silofl1.1 ;for Arev Sans
9418                    license:lppl1.3a  ;for TeX support files
9419                    license:gpl2))))  ;for ams-mdbch.sty
9420
9421 (define-public texlive-mathdesign
9422   (package
9423     (inherit (simple-texlive-package
9424               "texlive-mathdesign"
9425               (list "/doc/fonts/mathdesign/"
9426                     "/dvips/mathdesign/"
9427                     "/fonts/enc/dvips/mathdesign/"
9428                     "/fonts/map/dvips/mathdesign/"
9429                     "/fonts/tfm/public/mathdesign/"
9430                     "/fonts/type1/public/mathdesign/"
9431                     "/fonts/vf/public/mathdesign/"
9432                     "/tex/latex/mathdesign/")
9433               (base32
9434                "0jcby2sd0l3ank2drxc0qcf5d1cwa8idzh4g91h4nxk8zrzxj8nr")
9435               #:trivial? #t))
9436     (home-page "https://www.ctan.org/pkg/mathdesign")
9437     (synopsis "Mathematical fonts to fit with particular text fonts")
9438     (description "The Math Design project offers free mathematical
9439 fonts that match with existing text fonts.  To date, three free font
9440 families are available: Adobe Utopia, URW Garamond and Bitstream
9441 Charter.  Mathdesign covers the whole LaTeX glyph set including AMS
9442 symbols.  Both roman and bold versions of these symbols can be used.
9443 Moreover, there is a choice between three greek fonts (two of them
9444 created by the Greek Font Society).")
9445     (license license:gpl2+)))
9446
9447 (define-public texlive-bera
9448   (package
9449     (inherit (simple-texlive-package
9450               "texlive-bera"
9451               (list "/doc/fonts/bera/"
9452                     "/fonts/afm/public/bera/"
9453                     "/fonts/map/dvips/bera/"
9454                     "/fonts/tfm/public/bera/"
9455                     "/fonts/type1/public/bera/"
9456                     "/fonts/vf/public/bera/"
9457                     "/tex/latex/bera/")
9458               (base32
9459                "1pkmhhr6ah44xhipjr7nianv03hr4w4bn45xcvp264yw6ymqzqwr")
9460               #:trivial? #t))
9461     (home-page "https://www.ctan.org/pkg/bera")
9462     (synopsis "Bera fonts")
9463     (description "The @code{bera} package contains the Bera Type 1
9464 fonts and files to use the fonts with LaTeX.  Bera is a set of three
9465 font families: Bera Serif (a slab-serif Roman), Bera Sans (a Frutiger
9466 descendant) and Bera Mono (monospaced/typewriter).  The Bera family is
9467 a repackaging, for use with TeX, of the Bitstream Vera family.")
9468     (license license:silofl1.1)))
9469
9470 (define-public texlive-fourier
9471   (package
9472     (inherit (simple-texlive-package
9473               "texlive-fourier"
9474               (list "/doc/fonts/fourier/"
9475                     "/fonts/afm/public/fourier/"
9476                     "/fonts/map/dvips/fourier/"
9477                     "/fonts/tfm/public/fourier/"
9478                     "/fonts/type1/public/fourier/"
9479                     "/fonts/vf/public/fourier/"
9480                     "/tex/latex/fourier/")
9481               (base32
9482                "04d575nd4yvl58g9dfab9mrjxiv4792bdkz4bjvlkx6x257vlfzn")
9483               #:trivial? #t))
9484     (home-page "https://www.ctan.org/pkg/fourier")
9485     (synopsis "Utopia fonts for LaTeX documents")
9486     (description "Fourier-GUTenberg is a LaTeX typesetting system
9487 which uses Adobe Utopia as its standard base font.  Fourier-GUTenberg
9488 provides all complementary typefaces needed to allow Utopia based TeX
9489 typesetting including an extensive mathematics set and several other
9490 symbols.  The system is absolutely stand-alone; apart from Utopia and
9491 Fourier no other typefaces are required.  Utopia is a registered
9492 trademark of Adobe Systems Incorporated.")
9493     (license license:lppl)))
9494
9495 (define-public texlive-utopia
9496   (package
9497     (inherit (simple-texlive-package
9498               "texlive-utopia"
9499               (list "/doc/fonts/utopia/"
9500                     "/fonts/afm/adobe/utopia/"
9501                     "/fonts/tfm/adobe/utopia/"
9502                     "/fonts/type1/adobe/utopia/"
9503                     "/fonts/vf/adobe/utopia/")
9504               (base32
9505                "113wgkfz4z0ls2grxxfj17l42a1yv9r5ipcd0156xnfsrqvqzxfc")
9506               #:trivial? #t))
9507     (home-page "https://www.ctan.org/pkg/utopia")
9508     (synopsis "Adobe Utopia fonts")
9509     (description "The Adobe Standard Encoding set of the Utopia font
9510 family, as contributed to the X Consortium.  The set comprises upright
9511 and italic shapes in medium and bold weights.  Macro support and
9512 matching maths fonts are provided by the @code{fourier} and
9513 @code{mathdesign} font packages.")
9514     (license (license:fsf-free
9515               "http://mirrors.ctan.org/fonts/utopia/README"))))
9516
9517 (define-public texlive-fontaxes
9518   (package
9519     (name "texlive-fontaxes")
9520     (version "1.0e")
9521     (source
9522      (origin
9523        (method svn-fetch)
9524        (uri (texlive-ref "latex" "fontaxes"))
9525        (file-name (string-append name "-" version "-checkout"))
9526        (sha256
9527         (base32
9528          "0j3w1y66pkf3bjl9dh5xy3lfg33rg08s4wx37a3jcndvcji20j3f"))))
9529     (build-system texlive-build-system)
9530     (arguments '(#:tex-directory "latex/fontaxes"))
9531     (home-page "http://www.ctan.org/pkg/fontaxes")
9532     (synopsis "Additional font axes for LaTeX")
9533     (description "The @code{fontaxes} package adds several new font
9534 axes on top of LaTeX's New Font Selection Scheme (NFSS).  In
9535 particular, it splits the shape axis into a primary and a secondary
9536 shape axis and it adds three new axes to deal with the different
9537 figure versions offered by many professional fonts.")
9538     (license license:lppl1.3+)))
9539
9540 (define-public texlive-preprint
9541   (package
9542     (name "texlive-preprint")
9543     (version "1.0e")
9544     (source
9545      (origin
9546        (method svn-fetch)
9547        (uri (texlive-ref "latex" "preprint"))
9548        (file-name (string-append name "-" version "-checkout"))
9549        (sha256
9550         (base32
9551          "173ik9xad3zih6gcdwdkzyljarh06ky6c5d2x1yjs22qqi75py5a"))))
9552     (build-system texlive-build-system)
9553     (arguments '(#:tex-directory "latex/preprint"))
9554     (home-page "http://www.ctan.org/pkg/preprint")
9555     (synopsis "Bundle of modules for preprints")
9556     (description "The bundle comprises: @code{authblk}, which permits
9557 footnote style author/affiliation input in the @command{\\author} command,
9558 @code{balance}, to balance the end of @command{\\twocolumn} pages,
9559 @code{figcaps}, to send figure captions, etc., to end document,
9560 @code{fullpage}, to set narrow page margins and set a fixed page style, and
9561 @code{sublabel}, which permits counters to be subnumbered.")
9562     (license license:lppl1.3+)))
9563
9564 (define-public texlive-mweights
9565   (package
9566     (inherit (simple-texlive-package
9567               "texlive-mweights"
9568               (list "/doc/latex/mweights/"
9569                     "/tex/latex/mweights/")
9570               (base32
9571                "12493g3yz06mhiybnphqbp49fjzy36clzw63b74mkfhsg1pq7h1b")
9572               #:trivial? #t))
9573     (home-page "https://www.ctan.org/pkg/mweights")
9574     (synopsis "Support for multiple-weight font packages")
9575     (description "Many font families available for use with LaTeX are
9576 available at multiple weights.  Many Type 1-oriented support packages
9577 for such fonts re-define the standard @code{\\mddefault} or
9578 @code{\\bfdefault} macros.  This can create difficulties if the weight
9579 desired for one font family is not available for another font family,
9580 or if it differs from the weight desired for another font family.  The
9581 @code{mweights} package provides a solution to these difficulties.")
9582     (license license:lppl)))
9583
9584 (define-public texlive-cabin
9585   (package
9586     (inherit (simple-texlive-package
9587               "texlive-cabin"
9588               (list "/doc/fonts/cabin/"
9589                     "/fonts/enc/dvips/cabin/"
9590                     "/fonts/map/dvips/cabin/"
9591                     "/fonts/opentype/impallari/cabin/"
9592                     "/fonts/tfm/impallari/cabin/"
9593                     "/fonts/type1/impallari/cabin/"
9594                     "/fonts/vf/impallari/cabin/"
9595                     "/tex/latex/cabin/")
9596               (base32
9597                "1gqqqbj7i18fs1ss5n3axd821hzq5kbv1dl7dqxp4gba619f1rli")
9598               #:trivial? #t))
9599     (home-page "https://www.ctan.org/pkg/cabin")
9600     (synopsis "Humanist Sans Serif font with LaTeX support")
9601     (description "Cabin is a humanist sans with four weights, true
9602 italics and small capitals.  According to its designer, Pablo
9603 Impallari, Cabin was inspired by the typefaces of Edward Johnston and
9604 Eric Gill.  Cabin incorporates modern proportions, optical adjustments
9605 and some elements of the geometric sans.  @code{cabin.sty} supports
9606 use of the font under LaTeX, pdfLaTeX, XeLaTeX and LuaLaTeX.  It uses
9607 the @code{mweights} package to manage the user's view of all those
9608 font weights.  An @code{sfdefault} option is provided to enable Cabin
9609 as the default text font.  The @code{fontaxes} package is required for
9610 use with [pdf]LaTeX.")
9611     (license (list license:silofl1.1 ;for Cabin
9612                    license:lppl))))  ;for support files
9613
9614 (define-public texlive-newtx
9615   (package
9616     (inherit (simple-texlive-package
9617               "texlive-newtx"
9618               (list "/doc/fonts/newtx/"
9619                     "/fonts/afm/public/newtx/"
9620                     "/fonts/enc/dvips/newtx/"
9621                     "/fonts/map/dvips/newtx/"
9622                     "/fonts/opentype/public/newtx/"
9623                     "/fonts/tfm/public/newtx/"
9624                     "/fonts/type1/public/newtx/"
9625                     "/fonts/vf/public/newtx/"
9626                     "/tex/latex/newtx/")
9627               (base32
9628                "0h0wm3cd0wxag5x7vy3vgr42jd8m6ffkl90pnkvqdxzbnfdjv3l6")
9629               #:trivial? #t))
9630     (home-page "https://www.ctan.org/pkg/newtx")
9631     (synopsis "Repackaging of the TX fonts with improved metrics")
9632     (description "The @code{newtx} bundle splits
9633 @code{txfonts.sty} (from the TX fonts distribution) into two
9634 independent packages, @code{newtxtext.sty} and @code{newtxmath.sty},
9635 each with fixes and enhancements.  @code{newtxmath}'s metrics have
9636 been re-evaluated to provide a less tight appearance and to provide a
9637 @code{libertine} option that substitutes Libertine italic and Greek
9638 letters for the existing math italic and Greek glyphs, making a
9639 mathematics package that matches Libertine text quite well.")
9640     (license license:lppl1.3)))
9641
9642 (define-public texlive-xcharter
9643   (package
9644     (inherit (simple-texlive-package
9645               "texlive-xcharter"
9646               (list "/doc/fonts/xcharter/"
9647                     "/fonts/afm/public/xcharter/"
9648                     "/fonts/enc/dvips/xcharter/"
9649                     "/fonts/map/dvips/xcharter/"
9650                     "/fonts/opentype/public/xcharter/"
9651                     "/fonts/tfm/public/xcharter/"
9652                     "/fonts/type1/public/xcharter/"
9653                     "/fonts/vf/public/xcharter/"
9654                     "/tex/latex/xcharter/")
9655               (base32
9656                "0d8rvcmvxrlxqqxpirxqbhmiijpsz5y4vvldh1jnc018aannjlhm")
9657               #:trivial? #t))
9658     (home-page "https://www.ctan.org/pkg/xcharter")
9659     (synopsis "Extension of the Bitstream Charter fonts")
9660     (description "@code{xcharter} repackages Bitstream Charter with an
9661 extended set of features.  The extension provides small caps, oldstyle
9662 figures and superior figures in all four styles, accompanied by LaTeX
9663 font support files.  The fonts themselves are provided in both Adobe
9664 Type 1 and OTF formats, with supporting files as necessary.")
9665     (license (list (license:fsf-free
9666                     "http://mirrors.ctan.org/fonts/xcharter/README")
9667                    license:lppl1.3))))
9668
9669 (define-public texlive-ly1
9670   (package
9671     (inherit (simple-texlive-package
9672               "texlive-ly1"
9673               (list "/doc/fonts/ly1/"
9674                     "/fonts/enc/dvips/ly1/"
9675                     "/fonts/map/dvips/ly1/"
9676                     "/fonts/tfm/adobe/ly1/"
9677                     "/fonts/vf/adobe/ly1/"
9678                     "/tex/latex/ly1/")
9679               (base32
9680                "0wjyw0risgvrq97zfciglwy1f4msvfslln6pz0q8yzzx8wsv3zgq")
9681               #:trivial? #t))
9682     (home-page "https://www.ctan.org/pkg/ly1")
9683     (synopsis "Support for LY1 LaTeX encoding")
9684     (description "The legacy @emph{texnansi} (TeX and ANSI) encoding
9685 is known in the LaTeX scheme of things as @emph{LY1} encoding.  The
9686 @code{ly1} bundle includes metrics and LaTeX macros to use the three
9687 basic Adobe Type 1 fonts (Times, Helvetica and Courier) in LaTeX using
9688 LY1 encoding.")
9689     (license license:lppl1.0+)))
9690
9691 (define-public texlive-sectsty
9692   (let ((template (simple-texlive-package
9693                    "texlive-sectsty"
9694                    (list "/doc/latex/sectsty/"
9695                          "/source/latex/sectsty/")
9696                    (base32
9697                     "08m90j7cg6w46vnwgsp10clpj4l6c9a6l8dad20q3mnd32l84hbl"))))
9698     (package
9699       (inherit template)
9700       (arguments
9701        (substitute-keyword-arguments (package-arguments template)
9702          ((#:tex-directory _ '())
9703           "latex/sectsty")
9704          ((#:build-targets _ '())
9705           ''("sectsty.ins"))
9706          ((#:tex-format _ "latex") "latex")
9707          ((#:phases phases)
9708           `(modify-phases ,phases
9709              (add-after 'unpack 'chdir
9710                (lambda _ (chdir "source/latex/sectsty")))))))
9711       (home-page "https://www.ctan.org/pkg/sectsty")
9712       (synopsis "Control sectional headers")
9713       (description "This is a LaTeX2ε package to help change the style of any or
9714 all of LaTeX's sectional headers in the article, book, or report classes.
9715 Examples include the addition of rules above or below a section title.")
9716       (license license:lppl1.2+))))
9717
9718 (define-public texlive-morefloats
9719   (let ((template (simple-texlive-package
9720                    "texlive-morefloats"
9721                    (list "/doc/latex/morefloats/"
9722                          "/source/latex/morefloats/")
9723                    (base32
9724                     "0n0405fjxyjlbjspzfvhl0wjkwiqicj3hk8fa0g7agw72wlxscpl"))))
9725     (package
9726       (inherit template)
9727       (arguments
9728        (substitute-keyword-arguments (package-arguments template)
9729          ((#:tex-directory _ '())
9730           "latex/morefloats")
9731          ((#:build-targets _ '())
9732           ''("morefloats.ins"))
9733          ((#:phases phases)
9734           `(modify-phases ,phases
9735              (add-after 'unpack 'chdir
9736                (lambda _ (chdir "source/latex/morefloats")))))))
9737       (home-page "https://www.ctan.org/pkg/morefloats")
9738       (synopsis "Increase the number of simultaneous LaTeX floats")
9739       (description "LaTeX can, by default, only cope with 18 outstanding floats;
9740 any more, and you get the error “too many unprocessed floats”.  This package
9741 releases the limit; TeX itself imposes limits (which are independent of the
9742 help offered by e-TeX).
9743
9744 However, if your floats can’t be placed anywhere, extending the number of
9745 floats merely delays the arrival of the inevitable error message.")
9746       (license license:lppl1.3c+))))
9747
9748 (define-public texlive-ifmtarg
9749   (let ((template (simple-texlive-package
9750                    "texlive-ifmtarg"
9751                    (list "/doc/latex/ifmtarg/"
9752                          "/source/latex/ifmtarg/")
9753                    (base32
9754                     "0cwjn4bhq9zyfxr1595hgyc1d7rcsf9lva55x98q81xy5xrrmrb2"))))
9755     (package
9756       (inherit template)
9757       (arguments
9758        (substitute-keyword-arguments (package-arguments template)
9759          ((#:tex-directory _ '())
9760           "latex/ifmtarg")
9761          ((#:build-targets _ '())
9762           ''("ifmtarg.ins"))
9763          ((#:tex-format _ "latex") "latex")
9764          ((#:phases phases)
9765           `(modify-phases ,phases
9766              (add-after 'unpack 'chdir
9767                (lambda _ (chdir "source/latex/ifmtarg")))))))
9768       (inputs
9769        (list texlive-latex-filecontents))
9770       (home-page "https://www.ctan.org/pkg/ifmtarg")
9771       (synopsis "If-then-else command for processing potentially empty arguments")
9772       (description "This package provides a command for the LaTeX programmer for
9773 testing whether an argument is empty.")
9774       (license license:lppl1.3c+))))
9775
9776 (define-public texlive-pagenote
9777   (let ((template (simple-texlive-package
9778                    "texlive-pagenote"
9779                    (list "/doc/latex/pagenote/"
9780                          "/source/latex/pagenote/")
9781                    (base32
9782                     "0cqfqrfvnzq7ldaf255hcvi8xsfx8h7iha3hs8p9gdi3cfzbcmjm"))))
9783     (package
9784       (inherit template)
9785       (arguments
9786        (substitute-keyword-arguments (package-arguments template)
9787          ((#:tex-directory _ '())
9788           "latex/pagenote")
9789          ((#:build-targets _ '())
9790           ''("pagenote.ins"))
9791          ((#:phases phases)
9792           `(modify-phases ,phases
9793              (add-after 'unpack 'chdir
9794                (lambda _ (chdir "source/latex/pagenote")))))))
9795       (propagated-inputs
9796        (list texlive-ifmtarg))
9797       (home-page "https://www.ctan.org/pkg/pagenote")
9798       (synopsis "Notes at end of document")
9799       (description "The pagenote package provides tagged notes on a separate
9800 page (also known as ‘end notes’).")
9801       (license license:lppl1.3c+))))
9802
9803 (define-public texlive-titling
9804   (let ((template (simple-texlive-package
9805                    "texlive-titling"
9806                    (list "/doc/latex/titling/"
9807                          "/source/latex/titling/")
9808                    (base32
9809                     "0pc3806kc9p2dizdghis0p0b00xs0gmlh2nmf94f5wasz5mkw6bk"))))
9810     (package
9811       (inherit template)
9812       (arguments
9813        (substitute-keyword-arguments (package-arguments template)
9814          ((#:tex-directory _ '())
9815           "latex/titling")
9816          ((#:build-targets _ '())
9817           ''("titling.ins"))
9818          ((#:tex-format _ "latex") "latex")
9819          ((#:phases phases)
9820           `(modify-phases ,phases
9821              (add-after 'unpack 'chdir
9822                (lambda _ (chdir "source/latex/titling")))))))
9823       (native-inputs
9824        (list texlive-cm))
9825       (home-page "https://www.ctan.org/pkg/titling")
9826       (synopsis "Control typesetting of the \\maketitle command")
9827       (description "The @code{titling} package provides control over the
9828 typesetting of the @code{\\maketitle} command and @code{\\thanks} commands,
9829 and makes the \title, @code{\\author} and @code{\\date} information
9830 permanently available.  Multiple titles are allowed in a single document.  New
9831 titling elements can be added and a @code{titlepage} title can be centered on
9832 a physical page.")
9833       (license license:lppl))))
9834
9835 (define-public texlive-ifoddpage
9836   (let ((template (simple-texlive-package
9837                    "texlive-ifoddpage"
9838                    (list "/source/latex/ifoddpage/")
9839                    (base32
9840                     "14x0haj3xjsk9dn2djg117sl7x5nbwgbivhjj3ichnxlgrlf1bis"))))
9841     (package
9842       (inherit template)
9843       (arguments
9844        (substitute-keyword-arguments (package-arguments template)
9845          ((#:tex-directory _ '())
9846           "latex/ifoddpage")
9847          ((#:build-targets _ '())
9848           ''("ifoddpage.ins"))
9849          ((#:phases phases)
9850           `(modify-phases ,phases
9851              (add-after 'unpack 'chdir
9852                (lambda _ (chdir "source/latex/ifoddpage")))))))
9853       (native-inputs
9854        (list texlive-ydoc))
9855       (home-page "https://www.ctan.org/pkg/ifoddpage")
9856       (synopsis "Determine if the current page is odd or even")
9857       (description "This package provides an @code{\\ifoddpage} conditional to
9858 determine if the current page is odd or even.  The macro @code{\\checkoddpage}
9859 must be used directly before to check the page number using a label.  Two
9860 compiler runs are therefore required to achieve correct results.  In addition,
9861 the conditional @code{\\ifoddpageoronside} is provided which is also true in
9862 @code{oneside} mode where all pages use the odd page layout.")
9863       (license license:lppl1.3))))
9864
9865 (define-public texlive-storebox
9866   (let ((template (simple-texlive-package
9867                    "texlive-storebox"
9868                    (list "/source/latex/storebox/")
9869                    (base32
9870                     "1ybpjfrria57fwvr9kriiw6y76ivwvsyb6ayp0bi750smsv8k5n1"))))
9871     (package
9872       (inherit template)
9873       (arguments
9874        (substitute-keyword-arguments (package-arguments template)
9875          ((#:tex-directory _ '())
9876           "latex/storebox")
9877          ((#:build-targets _ '())
9878           ''("storebox.ins"))
9879          ((#:phases phases)
9880           `(modify-phases ,phases
9881              (add-after 'unpack 'chdir
9882                (lambda _ (chdir "source/latex/storebox")))))))
9883       (native-inputs
9884        (list texlive-ydoc))
9885       (home-page "https://www.ctan.org/pkg/storebox")
9886       (synopsis "Storing information for reuse")
9887       (description "The package provides \"store boxes\" whose user interface
9888 matches that of normal LaTeX \"save boxes\", except that the content of a
9889 store box appears at most once in the output PDF file, however often it is
9890 used.  The present version of the package supports pdfLaTeX and LuaLaTeX; when
9891 DVI is output, store boxes behave the same as save boxes.")
9892       (license license:lppl1.3))))
9893
9894 (define-public texlive-collectbox
9895   (let ((template (simple-texlive-package
9896                    "texlive-collectbox"
9897                    (list "/source/latex/collectbox/")
9898                    (base32
9899                     "1k0bbphvr20k9hgpr3dv869h9ygxx3g8vjapkc63nq8i13crpsvz"))))
9900     (package
9901       (inherit template)
9902       (arguments
9903        (substitute-keyword-arguments (package-arguments template)
9904          ((#:tex-directory _ '())
9905           "latex/collectbox")
9906          ((#:build-targets _ '())
9907           ''("collectbox.ins"))
9908          ((#:phases phases)
9909           `(modify-phases ,phases
9910              (add-after 'unpack 'chdir
9911                (lambda _ (chdir "source/latex/collectbox")))))))
9912       (native-inputs
9913        (list texlive-ydoc))
9914       (home-page "https://www.ctan.org/pkg/collectbox")
9915       (synopsis "Collect and process macro arguments as boxes")
9916       (description "The package provides macros to collect and process a macro
9917 argument (i.e., something which looks like a macro argument) as a horizontal
9918 box rather than as a real macro argument.  The \"arguments\" are stored as if
9919 they had been saved by @code{\\savebox} or by the @code{lrbox} environment.
9920 Grouping tokens @code{\\bgroup} and @code{\\egroup} may be used, which allows
9921 the user to have the beginning and end of a group in different macro
9922 invocations, or to place them in the begin and end code of an environment.
9923 Arguments may contain verbatim material or other special use of characters.
9924 The macros were designed for use within other macros.")
9925       (license license:lppl1.3))))
9926
9927 (define-public texlive-grfext
9928   (let ((template (simple-texlive-package
9929                    "texlive-grfext"
9930                    (list "/doc/latex/grfext/README.md"
9931                          "/source/latex/grfext/grfext.dtx")
9932                    (base32
9933                     "1cdvjp9gcnixxlbl8ibwz1yr799gwax5hm686hwmwsigdgafhzgq"))))
9934     (package
9935       (inherit template)
9936       (arguments
9937        (substitute-keyword-arguments (package-arguments template)
9938          ((#:tex-directory _ '())
9939           "latex/grfext")
9940          ((#:build-targets _ '())
9941           ''("grfext.dtx"))
9942          ((#:phases phases)
9943           `(modify-phases ,phases
9944              (add-after 'unpack 'chdir
9945                (lambda _ (chdir "source/latex/grfext")))))))
9946       (home-page "https://github.com/ho-tex/grfext")
9947       (synopsis "Manipulate the graphics package's list of extensions")
9948       (description "This package provides macros for adding to, and reordering
9949 the list of graphics file extensions recognised by package graphics.")
9950       (license license:lppl1.3c+))))
9951
9952 (define-public texlive-adjustbox
9953   (let ((template (simple-texlive-package
9954                    "texlive-adjustbox"
9955                    (list "/doc/latex/adjustbox/"
9956                          "/source/latex/adjustbox/")
9957                    (base32
9958                     "074nxbnl184b6iwhis5n85pilq3b2pld3bbrq0wc30hw462m898k"))))
9959     (package
9960       (inherit template)
9961       (arguments
9962        (substitute-keyword-arguments (package-arguments template)
9963          ((#:tex-directory _ '())
9964           "latex/adjustbox")
9965          ((#:build-targets _ '())
9966           ''("adjustbox.ins"))
9967          ((#:phases phases)
9968           `(modify-phases ,phases
9969              (add-after 'unpack 'chdir
9970                (lambda _ (chdir "source/latex/adjustbox")))))))
9971       (native-inputs
9972        (list texlive-ydoc))
9973       (propagated-inputs
9974        (list texlive-pgf
9975              texlive-latex-varwidth
9976              texlive-latex-xkeyval
9977              texlive-collectbox
9978              texlive-ifoddpage
9979              texlive-storebox))
9980       (home-page "https://www.ctan.org/pkg/adjustbox")
9981       (synopsis "Graphics package-alike macros for “general” boxes")
9982       (description "The package provides several macros to adjust boxed
9983 content.  One purpose is to supplement the standard @code{graphics} package,
9984 which defines the macros @code{\\resizebox}, @code{\\scalebox} and
9985 @code{\\rotatebox} , with the macros @code{\\trimbox} and @code{\\clipbox}.
9986 The main feature is the general @code{\\adjustbox} macro which extends the
9987 @code{key=value} interface of @code{\\includegraphics} from the
9988 @code{graphics} package and applies it to general text content.  Additional
9989 provided box macros are @code{\\lapbox}, @code{\\marginbox},
9990 @code{\\minsizebox}, @code{\\maxsizebox} and @code{\\phantombox}.")
9991       (license license:lppl1.3))))
9992
9993 (define-public texlive-tcolorbox
9994   (let ((template (simple-texlive-package
9995                    "texlive-tcolorbox"
9996                    (list "/doc/latex/tcolorbox/"
9997                          "/tex/latex/tcolorbox/")
9998                    (base32
9999                     "1qnsbblkadzdn1fx2k21xnlwcb35pg9xya24chkm66jmidi22qp0")
10000                    #:trivial? #true)))
10001     (package
10002       (inherit template)
10003       (propagated-inputs
10004        (list texlive-etoolbox texlive-latex-environ texlive-pgf
10005              texlive-latex-tools))
10006       (home-page "https://www.ctan.org/pkg/tcolorbox")
10007       (synopsis "Colored boxes, for LaTeX examples and theorems, etc")
10008       (description "This package provides an environment for colored and
10009 framed text boxes with a heading line.  Optionally, such a box may be split in
10010 an upper and a lower part; thus the package may be used for the setting of
10011 LaTeX examples where one part of the box displays the source code and the
10012 other part shows the output.  Another common use case is the setting of
10013 theorems.  The package supports saving and reuse of source code and text
10014 parts.")
10015       (license license:lppl1.3c+))))
10016
10017 (define-public texlive-latex-ebproof
10018   (package
10019     (name "texlive-latex-ebproof")
10020     (version "2.1.1")
10021     (source
10022      (origin
10023        (method git-fetch)
10024        (uri (git-reference
10025              (url "https://framagit.org/manu/ebproof")
10026              (commit version)))
10027        (file-name (git-file-name name version))
10028        (sha256
10029         (base32
10030          "1zkrfaf343js0yc1x7m3d8hzbh5izn0lb01jrmdpjm51kdbh30xq"))))
10031     (build-system texlive-build-system)
10032     (arguments '(#:tex-directory "latex/ebproof"))
10033     (propagated-inputs
10034      (list texlive-latex-l3kernel))
10035     (home-page "http://www.ctan.org/pkg/ebproof")
10036     (synopsis
10037      "Formal proofs in the style of sequent calculus")
10038     (description
10039      "This package provides commands to typeset proof trees in the style of
10040 sequent calculus and related systems.  The commands allow for writing
10041 inferences with any number of premises and alignment of successive formulas on
10042 an arbitrary point.  Various options allow complete control over spacing,
10043 styles of inference rules, placement of labels, etc.")
10044     (license license:lppl1.3+)))
10045
10046 (define-public texlive-latex-bussproofs
10047   (let ((template (simple-texlive-package
10048                    "texlive-latex-bussproofs"
10049                    (list "/doc/latex/bussproofs/"
10050                          "/tex/latex/bussproofs/")
10051                    (base32
10052                     "1gb8y9g89fqw1kix4d2vb7mj440vlb8hnpsa3jqpk9yicndwcyk6"))))
10053     (package
10054       (inherit template)
10055       (arguments
10056        (substitute-keyword-arguments (package-arguments template)
10057          ((#:tex-directory _ '())
10058           "latex/bussproofs")
10059          ((#:build-targets _ '())
10060           ''()) ; "bussproofs.sty"
10061          ((#:phases phases)
10062           `(modify-phases ,phases
10063              (add-after 'unpack 'chdir
10064                (lambda _ (chdir "tex/latex/bussproofs")))))))
10065       (home-page "https://www.math.ucsd.edu/~sbuss/ResearchWeb/bussproofs/index.html")
10066       (synopsis "Formal proofs in the style of sequent calculus")
10067       (description
10068        "This package provides commands to typeset proof trees in the style of
10069 sequent calculus and related systems.")
10070       (license license:lppl1.3+))))
10071
10072 (define-public texlive-eurosym
10073   (let ((template (simple-texlive-package
10074                    "texlive-eurosym"
10075                    (list "/doc/fonts/eurosym/"
10076                          "/fonts/map/dvips/eurosym/"
10077                          "/fonts/source/public/eurosym/"
10078                          "/fonts/tfm/public/eurosym/"
10079                          "/fonts/type1/public/eurosym/"
10080                          "/tex/latex/eurosym/eurosym.sty")
10081                    (base32
10082                     "0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")
10083                    #:trivial? #true)))
10084     (package
10085       (inherit template)
10086       (home-page "https://www.ctan.org/pkg/eurosym")
10087       (synopsis "METAFONT and macros for Euro sign")
10088       (description "This package provides the European currency symbol for the
10089 Euro implemented in METAFONT, using the official European Commission
10090 dimensions, and providing several shapes (normal, slanted, bold, outline).
10091 The package also includes a LaTeX package which defines the macro,
10092 pre-compiled font files, and documentation.")
10093       (license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING")))))
10094
10095 (define-public texlive-kastrup
10096   (package
10097     (name "texlive-kastrup")
10098     (version (number->string %texlive-revision))
10099     (source
10100      (origin
10101        (method svn-fetch)
10102        (uri (texlive-ref "generic" "kastrup"))
10103        (file-name (string-append name "-" version "-checkout"))
10104        (sha256
10105         (base32
10106          "1kkshc48brkq2nx3rlbv78a2130izykbf33ri1q2shqr8pjfmmq8"))))
10107     (build-system texlive-build-system)
10108     (arguments
10109      '(#:tex-directory "generic/kastrup"
10110        #:phases
10111        (modify-phases %standard-phases
10112          (add-after 'unpack 'remove-generated-file
10113            (lambda _
10114              (delete-file "binhex.drv")
10115              #t)))))
10116     (home-page "http://www.ctan.org/pkg/binhex")
10117     (synopsis "Convert numbers into binary, octal and hexadecimal")
10118     (description "The @code{kastrup} package provides the
10119 @emph{binhex.tex} file.  This file provides expandable macros for both
10120 fixed-width and minimum-width numbers to bases 2, 4, 8 and 16.  All
10121 constructs TeX accepts as arguments to its @code{\\number} primitive
10122 are valid as arguments for the macros.  The package may be used under
10123 LaTeX and plain TeX.")
10124     (license (license:fsf-free "file:/binhex.dtx"))))
10125
10126 (define-public texlive-translator
10127   (package
10128     (inherit (simple-texlive-package
10129               "texlive-translator"
10130               (list "doc/latex/translator/"
10131                     "tex/latex/translator/")
10132               (base32 "13rxdqhvgwc5lz2wsw4jwsb92614wlxsa90rmzxyrc6xjz1jypnk")
10133               #:trivial? #t))
10134     (build-system texlive-build-system)
10135     (home-page "https://ctan.org/macros/latex/contrib/translator")
10136     (synopsis "Easy translation of strings in LaTeX")
10137     (description
10138      "This LaTeX package provides a flexible mechanism for translating
10139 individual words into different languages.  For example, it can be used to
10140 translate a word like \"figure\" into, say, the German word \"Abbildung\".
10141 Such a translation mechanism is useful when the author of some package would
10142 like to localize the package such that texts are correctly translated into the
10143 language preferred by the user.  This package is not intended to be used to
10144 automatically translate more than a few words.")
10145     (license (list license:lppl license:gpl1+))))
10146
10147 (define-public texlive-latex-textpos
10148   (package
10149     (inherit (simple-texlive-package
10150               "texlive-latex-textpos"
10151               (list "doc/latex/textpos/"
10152                     "tex/latex/textpos/")
10153               (base32 "0sqm3pr9jyf9sf432qawscbf50glj58acwcfzyk58ijic2g01hzl")
10154               #:trivial? #t))
10155     (build-system texlive-build-system)
10156     (home-page "https://ctan.org/pkg/textpos")
10157     (synopsis "Absolute positioning of text on the LaTeX page")
10158     (description
10159      "This package facilitates placing boxes at absolute positions on the
10160 LaTeX page.  There are several reasons why this might be useful, but the main
10161 one (or at least my motivating one) is to help produce a large-format
10162 conference poster.
10163
10164 This package provides a single environment, plus a starred variant, which
10165 contains the text (or graphics, or table, or whatever) which is to be placed
10166 on the page, and which specifies where it is to be placed.  The environment is
10167 accompanied by various configuration commands.")
10168     (license license:lppl)))
10169
10170 (define-public texlive-xifthen
10171   (package
10172     (inherit (simple-texlive-package
10173               "texlive-xifthen"
10174               (list "doc/latex/xifthen/"
10175                     "tex/latex/xifthen/")
10176               (base32
10177                "0b33mlmnxsj5mi06v2w2zgamk51mgv1lxdr1cax8nkpn9g7n9axw")
10178               #:trivial? #t))
10179     (build-system texlive-build-system)
10180     (home-page "https://ctan.org/pkg/xifthen")
10181     (synopsis "Extended conditional commands")
10182     (description
10183      "This package extends the @code{ifthen} package by implementing new
10184 commands to go within the first argument of @code{\\\\ifthenelse}: to test
10185 whether a string is void or not, if a command is defined or equivalent to
10186 another.  The package also enables use of complex expressions as introduced by
10187 the package @code{calc}, together with the ability of defining new commands to
10188 handle complex tests.")
10189     (license license:lppl)))
10190
10191 (define-public bibtool
10192   (package
10193     (name "bibtool")
10194     (version "2.68")
10195     (source
10196      (origin
10197        (method git-fetch)
10198        (uri
10199         (git-reference
10200          (url "https://github.com/ge-ne/bibtool")
10201          (commit (string-append
10202                   "BibTool_"
10203                   (string-map (lambda (c) (if (char=? c #\.) #\_ c))
10204                               version)))))
10205        (file-name (git-file-name name version))
10206        (sha256
10207         (base32 "0grnmqj8w5018nd7r6drnq2yvfhf22gj9i3rj8ilhzm7zmz3zn0g"))))
10208     (build-system gnu-build-system)
10209     (arguments
10210      `(#:test-target "test"))
10211     (native-inputs
10212      (list perl))
10213     (home-page "http://www.gerd-neugebauer.de/software/TeX/BibTool/en")
10214     (synopsis "Tool for manipulating BibTeX databases")
10215     (description
10216      "BibTool manipulates BibTeX files.  The possibilities of BibTool include
10217 sorting and merging of BibTeX databases, generation of uniform reference keys,
10218 and selecting references used in a publication.")
10219     (license license:gpl2+)))