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 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 packages)
  42   #:use-module (guix download)
  43   #:use-module (guix build-system copy)
  44   #:use-module (guix build-system gnu)
  45   #:use-module (guix build-system perl)
  46   #:use-module (guix build-system python)
  47   #:use-module (guix build-system qt)
  48   #:use-module (guix build-system trivial)
  49   #:use-module (guix build-system texlive)
  50   #:use-module (guix utils)
  51   #:use-module (guix deprecation)
  52   #:use-module (guix git-download)
  53   #:use-module (guix svn-download)
  54   #:use-module (gnu packages)
  55   #:use-module (gnu packages algebra)
  56   #:use-module (gnu packages autotools)
  57   #:use-module (gnu packages bash)
  58   #:use-module (gnu packages boost)
  59   #:use-module (gnu packages compression)
  60   #:use-module (gnu packages fontutils)
  61   #:use-module (gnu packages gd)
  62   #:use-module (gnu packages ghostscript)
  63   #:use-module (gnu packages graphviz)
  64   #:use-module (gnu packages gtk)
  65   #:use-module (gnu packages icu4c)
  66   #:use-module (gnu packages image)
  67   #:use-module (gnu packages libreoffice)
  68   #:use-module (gnu packages lua)
  69   #:use-module (gnu packages multiprecision)
  70   #:use-module (gnu packages pdf)
  71   #:use-module (gnu packages perl)
  72   #:use-module (gnu packages perl-check)
  73   #:use-module (gnu packages pkg-config)
  74   #:use-module (gnu packages python)
  75   #:use-module (gnu packages python-xyz)
  76   #:use-module (gnu packages qt)
  77   #:use-module (gnu packages ruby)
  78   #:use-module (gnu packages shells)
  79   #:use-module (gnu packages base)
  80   #:use-module (gnu packages gawk)
  81   #:use-module (gnu packages web)
  82   #:use-module (gnu packages xml)
  83   #:use-module (gnu packages xorg)
  84   #:use-module (gnu packages xdisorg)
  85   #:use-module (gnu packages texinfo)
  86   #:use-module (ice-9 ftw)
  87   #:use-module (ice-9 match)
  88   #:use-module ((srfi srfi-1) #:hide (zip)))
  89
  90 (define* (simple-texlive-package name locations hash
  91                                  #:key trivial?)
  92   "Return a template for a simple TeX Live package with the given NAME,
  93 downloading from a list of LOCATIONS in the TeX Live repository, and expecting
  94 the provided output HASH.  If TRIVIAL? is provided, all files will simply be
  95 copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
  96   (define with-documentation?
  97     (and trivial?
  98          (any (lambda (location)
  99                 (string-prefix? "/doc" location))
 100               locations)))
 101   (package
 102     (name name)
 103     (version (number->string %texlive-revision))
 104     (source (texlive-origin name version
 105                             locations hash))
 106     (outputs (if with-documentation?
 107                  '("out" "doc")
 108                  '("out")))
 109     (build-system (if trivial?
 110                       gnu-build-system
 111                       texlive-build-system))
 112     (arguments
 113      (let ((copy-files
 114             `(lambda* (#:key outputs inputs #:allow-other-keys)
 115                (let (,@(if with-documentation?
 116                            `((doc (string-append (assoc-ref outputs "doc")
 117                                                  "/share/texmf-dist/")))
 118                            '())
 119                      (out (string-append (assoc-ref outputs "out")
 120                                          "/share/texmf-dist/")))
 121                  ,@(if with-documentation?
 122                        '((mkdir-p doc)
 123                          (copy-recursively
 124                           (string-append (assoc-ref inputs "source") "/doc")
 125                           (string-append doc "/doc")))
 126                        '())
 127                  (mkdir-p out)
 128                  (copy-recursively "." out)
 129                  ,@(if with-documentation?
 130                        '((delete-file-recursively (string-append out "/doc")))
 131                        '())
 132                  #t))))
 133        (if trivial?
 134            `(#:tests? #f
 135              #:phases
 136              (modify-phases %standard-phases
 137                (delete 'configure)
 138                (replace 'build (const #t))
 139                (replace 'install ,copy-files)))
 140            `(#:phases
 141              (modify-phases %standard-phases
 142                (add-after 'install 'copy-files ,copy-files))))))
 143     (home-page #f)
 144     (synopsis #f)
 145     (description #f)
 146     (license #f)))
 147
 148 (define hyph-utf8-scripts
 149   (origin
 150     (method svn-fetch)
 151     (uri (texlive-ref "generic" "hyph-utf8"))
 152     (file-name (string-append "hyph-utf8-scripts-"
 153                               (number->string %texlive-revision)
 154                               "-checkout"))
 155     (sha256
 156      (base32
 157       "04xzf5gr3ylyh3ls09imrx4mwq3qp1k97r9njzlan6hlff875rx2"))))
 158
 159 (define (texlive-hyphen-package name code locations hash)
 160   "Return a TeX Live hyphenation package with the given NAME, using source
 161 files from LOCATIONS with expected checksum HASH.  CODE is not currently in use."
 162   (let ((parent (simple-texlive-package
 163                  name locations hash #:trivial? #t)))
 164     (package
 165       (inherit parent)
 166       (arguments
 167        (substitute-keyword-arguments (package-arguments parent)
 168          ((#:phases phases)
 169           `(modify-phases ,phases
 170              (replace 'build
 171                (lambda* (#:key inputs outputs #:allow-other-keys)
 172                  (let* ((out (assoc-ref outputs "out"))
 173                         (root (string-append out "/share/texmf-dist"))
 174                         (patterns
 175                          (string-append root "/tex/generic/hyph-utf8/patterns/txt/"))
 176                         (loaders
 177                          (string-append root "/tex/generic/hyph-utf8/loadhyph"))
 178                         (ptex
 179                          (string-append root "/tex/generic/hyph-utf8/patterns/ptex"))
 180                         (quote
 181                          (string-append root "/tex/generic/hyph-utf8/patterns/quote")))
 182                    (mkdir "scripts")
 183                    (copy-recursively
 184                     (assoc-ref inputs "hyph-utf8-scripts") "scripts")
 185
 186                    ;; Prepare target directories
 187                    (mkdir-p patterns)
 188                    (mkdir-p loaders)
 189                    (mkdir-p ptex)
 190                    (mkdir-p quote)
 191
 192                    ;; Generate plain patterns
 193                    (with-directory-excursion "scripts"
 194                      (substitute* "lib/tex/hyphen/path.rb"
 195                        (("^([[:blank:]]+)TeXROOT = .*" _ indent)
 196                         (string-append indent "TeXROOT = \""
 197                                        (getcwd) "/..\"\n")))
 198
 199                      (substitute* "generate-plain-patterns.rb"
 200                        ;; Ruby 2 does not need this.
 201                        (("require 'unicode'") "")
 202                        ;; Write directly to the output directory
 203                        (("File\\.join\\(PATH::TXT")
 204                         (string-append "File.join(\"" patterns "\""))
 205                        (("File\\.join\\(PATH::QUOTE")
 206                         (string-append "File.join(\"" quote "\"")))
 207                      (invoke "ruby" "generate-plain-patterns.rb")
 208
 209                      ;; Build pattern loaders
 210                      (substitute* "generate-pattern-loaders.rb"
 211                        (("File\\.join\\(PATH::LOADER")
 212                         (string-append "File.join(\"" loaders "\"")))
 213
 214                      (invoke "ruby" "generate-pattern-loaders.rb")
 215
 216                      ;; Build ptex patterns
 217                      (substitute* "generate-ptex-patterns.rb"
 218                        (("File\\.join\\(PATH::PTEX")
 219                         (string-append "File.join(\"" ptex "\"")))
 220                      (invoke "ruby" "generate-ptex-patterns.rb")))))))))
 221       (native-inputs
 222        `(("ruby" ,ruby)
 223          ("ruby-hydra" ,ruby-hydra)
 224          ("hyph-utf8-scripts" ,hyph-utf8-scripts)))
 225       (home-page "https://ctan.org/pkg/hyph-utf8"))))
 226
 227 (define texlive-extra-src
 228   (origin
 229     (method url-fetch)
 230     (uri "ftp://tug.org/historic/systems/texlive/2021/texlive-20210325-extra.tar.xz")
 231     (sha256 (base32
 232              "171kg1n9zapw3d2g47d8l0cywa99bl9m54xkqvp9625ks22z78s6"))))
 233
 234 (define texlive-texmf-src
 235   (origin
 236     (method url-fetch)
 237     (uri "ftp://tug.org/historic/systems/texlive/2021/texlive-20210325-texmf.tar.xz")
 238     (sha256 (base32
 239              "070gczcm1h9rx29w2f02xd3nhd84c4k28nfmm8qgp69yq8vd84pz"))))
 240
 241 (define-public texlive-bin
 242   (package
 243     (name "texlive-bin")
 244     (version "20210325")
 245     (source
 246      (origin
 247        (method url-fetch)
 248        (uri (string-append "ftp://tug.org/historic/systems/texlive/2021/"
 249                            "texlive-" version "-source.tar.xz"))
 250        (sha256
 251         (base32
 252          "0jsq1p66l46k2qq0gbqmx25flj2nprsz4wrd1ybn286p11kdkvvs"))
 253        (modules '((guix build utils)
 254                   (ice-9 ftw)))
 255        (snippet
 256         '(begin
 257            (with-directory-excursion "libs"
 258              (let ((preserved-directories '("." ".." "lua53" "luajit" "pplib" "xpdf")))
 259                ;; Delete bundled software, except Lua which cannot easily be
 260                ;; used as an external dependency, pplib and xpdf which aren't
 261                ;; supported as system libraries (see m4/kpse-xpdf-flags.m4).
 262                (for-each delete-file-recursively
 263                          (scandir "."
 264                                   (lambda (file)
 265                                     (and (not (member file preserved-directories))
 266                                          (eq? 'directory (stat:type (stat file)))))))))
 267            ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
 268            #t))))
 269     (build-system gnu-build-system)
 270     (inputs
 271      `(("texlive-extra-src" ,texlive-extra-src)
 272        ("config" ,config)
 273        ("texlive-scripts"
 274         ,(origin
 275            (method svn-fetch)
 276            (uri (svn-reference
 277                  (url (string-append "svn://www.tug.org/texlive/tags/"
 278                                      %texlive-tag "/Master/texmf-dist/"
 279                                      "/scripts/texlive"))
 280                  (revision %texlive-revision)))
 281            (file-name (string-append "texlive-scripts-"
 282                                      (number->string %texlive-revision)
 283                                      "-checkout"))
 284            (sha256
 285             (base32
 286              "10xpa4nnz1biap7qfv7fb0zk6132ki5g1j8w0bqwkggfncdfl07d"))))
 287        ("cairo" ,cairo)
 288        ("fontconfig" ,fontconfig)
 289        ("fontforge" ,fontforge)
 290        ("freetype" ,freetype)
 291        ("gd" ,gd)
 292        ("gmp" ,gmp)
 293        ("ghostscript" ,ghostscript)
 294        ("graphite2" ,graphite2)
 295        ("harfbuzz" ,harfbuzz)
 296        ("icu4c" ,icu4c)
 297        ("libpaper" ,libpaper)
 298        ("libpng" ,libpng)
 299        ("libxaw" ,libxaw)
 300        ("libxt" ,libxt)
 301        ("mpfr" ,mpfr)
 302        ("perl" ,perl)
 303        ("pixman" ,pixman)
 304        ("potrace" ,potrace)
 305        ("python" ,python)
 306        ("ruby" ,ruby)
 307        ("tcsh" ,tcsh)
 308        ("teckit" ,teckit)
 309        ("zlib" ,zlib)
 310        ("zziplib" ,zziplib)))
 311     (native-inputs
 312      `(("pkg-config" ,pkg-config)))
 313     (arguments
 314      `(#:modules ((guix build gnu-build-system)
 315                   (guix build utils)
 316                   (ice-9 ftw)
 317                   (srfi srfi-1)
 318                   (srfi srfi-26))
 319        #:out-of-source? #t
 320        #:configure-flags
 321        '("--disable-static"
 322          "--disable-native-texlive-build"
 323          "--enable-shared"
 324          "--with-banner-add=/GNU Guix"
 325          "--with-system-cairo"
 326          "--with-system-freetype2"
 327          "--with-system-gd"
 328          "--with-system-gmp"
 329          "--with-system-graphite2"
 330          "--with-system-harfbuzz"
 331          "--with-system-icu"
 332          "--with-system-libgs"
 333          "--with-system-libpaper"
 334          "--with-system-libpng"
 335          "--with-system-mpfr"
 336          "--with-system-pixman"
 337          "--with-system-potrace"
 338          "--with-system-teckit"
 339          "--with-system-zlib"
 340          "--with-system-zziplib"
 341          ;; LuaJIT is not ported to powerpc64le* yet.
 342          ,@(if (string-prefix? "powerpc64le" (or (%current-target-system)
 343                                                  (%current-system)))
 344                '("--disable-luajittex"
 345                  "--disable-luajithbtex"
 346                  "--disable-mfluajit")
 347                '()))
 348
 349       ;; Disable tests on some architectures to cope with a failure of
 350       ;; luajiterr.test.
 351       ;; XXX FIXME fix luajit properly on these architectures.
 352       #:tests? ,(let ((s (or (%current-target-system)
 353                              (%current-system))))
 354                   (not (or (string-prefix? "aarch64" s)
 355                            (string-prefix? "mips64" s)
 356                            (string-prefix? "powerpc64le" s))))
 357
 358        #:phases
 359        (modify-phases %standard-phases
 360          (add-after 'unpack 'configure-ghostscript-executable
 361            ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows,
 362            ;; and the "gs" ghostscript executable on Unix. It detects Unix by
 363            ;; checking for the existence of the /usr/bin directory. Since
 364            ;; Guix System does not have /usr/bin, it is also detected as Windows.
 365            (lambda* (#:key inputs #:allow-other-keys)
 366              (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl"
 367                (("gswin32c") "gs"))
 368              (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
 369                (("\"gs\"")
 370                 (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))
 371              #t))
 372          (add-after 'unpack 'patch-dvisvgm-build-files
 373            (lambda _
 374              ;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so
 375              ;; the appropriate linker flags are not added.
 376              (substitute* "texk/dvisvgm/configure"
 377                (("^have_libgs=yes" all)
 378                 (string-append all "\nHAVE_LIBGS=1")))
 379              #t))
 380          (add-after 'unpack 'disable-failing-test
 381            (lambda _
 382              ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
 383              ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
 384              (substitute* "texk/web2c/omegafonts/check.test"
 385                (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
 386                 "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))
 387              #t))
 388          ,@(if (target-ppc32?)
 389              ;; Some mendex tests fail on some architectures.
 390              `((add-after 'unpack 'skip-mendex-tests
 391                  (lambda _
 392                    (substitute* '("texk/mendexk/tests/mendex.test"
 393                                   "texk/upmendex/tests/upmendex.test")
 394                      (("srcdir/tests/pprecA-0.ind pprecA-0.ind1 \\|\\| exit 1")
 395                       "srcdir/tests/pprecA-0.ind pprecA-0.ind1 || exit 77")))))
 396              '())
 397          (add-after 'unpack 'unpack-texlive-extra
 398            (lambda* (#:key inputs #:allow-other-keys)
 399              (mkdir "texlive-extra")
 400              (with-directory-excursion "texlive-extra"
 401                (apply (assoc-ref %standard-phases 'unpack)
 402                       (list #:source (assoc-ref inputs "texlive-extra-src"))))))
 403          (add-after 'unpack-texlive-extra 'unpack-texlive-scripts
 404            (lambda* (#:key inputs #:allow-other-keys)
 405              (mkdir "texlive-scripts")
 406              (with-directory-excursion "texlive-scripts"
 407                (apply (assoc-ref %standard-phases 'unpack)
 408                       (list #:source (assoc-ref inputs "texlive-scripts"))))))
 409          (add-after 'unpack-texlive-scripts 'patch-scripts
 410            (lambda _
 411              (let* ((scripts (append (find-files "texk/kpathsea" "^mktex")
 412                                      (find-files "texk/texlive/linked_scripts"
 413                                                  "\\.sh$")
 414                                      (find-files "texlive-scripts" "\\.sh$")))
 415                     (commands '("awk" "basename" "cat" "grep" "mkdir" "rm"
 416                                 "sed" "sort" "uname"))
 417                     (command-regexp (format #f "\\b(~a)\\b"
 418                                             (string-join commands "|")))
 419                     (iso-8859-1-encoded-scripts
 420                      '("texk/texlive/linked_scripts/texlive-extra/rubibtex.sh"
 421                        "texk/texlive/linked_scripts/texlive-extra/rumakeindex.sh")))
 422
 423                (define (substitute-commands scripts)
 424                  (substitute* scripts
 425                    ((command-regexp dummy command)
 426                     (which command))))
 427
 428                (substitute-commands (lset-difference string= scripts
 429                                                      iso-8859-1-encoded-scripts))
 430
 431                (with-fluids ((%default-port-encoding "ISO-8859-1"))
 432                  (substitute-commands iso-8859-1-encoded-scripts))
 433
 434                #t)))
 435          (add-after 'check 'customize-texmf.cnf
 436            ;; The default texmf.cnf is provided by this package, texlive-bin.
 437            ;; Every variable of interest is set relatively to the GUIX_TEXMF
 438            ;; environment variable defined via a search path specification
 439            ;; further below.  The configuration file is patched after the test
 440            ;; suite has run, as it relies on the default configuration to find
 441            ;; its paths (and the GUIX_TEXMF variable isn't set yet).
 442            (lambda _
 443              ;; The current directory is build/ because of the out-of-tree
 444              ;; build.
 445              (let* ((source    (first (scandir ".." (cut string-suffix?
 446                                                          "source" <>))))
 447                     (texmf.cnf (string-append "../" source
 448                                               "/texk/kpathsea/texmf.cnf")))
 449                (substitute* texmf.cnf
 450                  (("^TEXMFROOT = .*")
 451                   "TEXMFROOT = {$GUIX_TEXMF}/..\n")
 452                  (("^TEXMF = .*")
 453                   "TEXMF = {$GUIX_TEXMF}\n")
 454                  (("^%TEXMFCNF = .*")
 455                   "TEXMFCNF = {$GUIX_TEXMF}/web2c\n")
 456                  ;; Don't truncate lines.
 457                  (("^error_line = .*$") "error_line = 254\n")
 458                  (("^half_error_line = .*$") "half_error_line = 238\n")
 459                  (("^max_print_line = .*$") "max_print_line = 1000\n")))
 460              #t))
 461          (add-after 'install 'post-install
 462            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
 463              (let* ((out (assoc-ref outputs "out"))
 464                     (patch-source-shebangs (assoc-ref %standard-phases
 465                                                       'patch-source-shebangs))
 466                     (share (string-append out "/share"))
 467                     (scripts (string-append share
 468                                             "/texmf-dist/scripts/texlive"))
 469                     (source (string-append
 470                              "../" (first (scandir ".." (cut string-suffix?
 471                                                              "source" <>)))))
 472                     (tl-extra-root (string-append source "/texlive-extra"))
 473                     (tl-extra-dir (first
 474                                    (scandir tl-extra-root
 475                                             (negate
 476                                              (cut member <> '("." ".."))))))
 477                     (tlpkg-src (string-append tl-extra-root "/" tl-extra-dir
 478                                               "/tlpkg"))
 479                     (config.guess (search-input-file inputs
 480                                                      "/bin/config.guess")))
 481
 482                ;; Create symbolic links for the latex variants and their
 483                ;; man pages.
 484                (with-directory-excursion (string-append out "/bin/")
 485                  (for-each symlink
 486                            '("pdftex" "pdftex"   "xetex"   "luatex")
 487                            '("latex"  "pdflatex" "xelatex" "lualatex")))
 488                (with-directory-excursion (string-append share "/man/man1/")
 489                  (symlink "luatex.1" "lualatex.1"))
 490
 491                ;; Install tlpkg.
 492                (copy-recursively tlpkg-src (string-append share "/tlpkg"))
 493
 494                ;; Install texlive-scripts.
 495                (copy-recursively (string-append
 496                                   source "/texlive-scripts/source/")
 497                                  scripts)
 498
 499                ;; Make sure that fmtutil can find its Perl modules.
 500                (substitute* (string-append scripts "/fmtutil.pl")
 501                  (("\\$TEXMFROOT/")
 502                   (string-append share "/")))
 503
 504                ;; Likewise for updmap.pl.
 505                (substitute* (string-append scripts "/updmap.pl")
 506                  (("\\$TEXMFROOT/tlpkg")
 507                   (string-append share "/tlpkg")))
 508
 509                ;; Likewise for the tlmgr.
 510                (substitute* (string-append scripts "/tlmgr.pl")
 511                  ((".*\\$::installerdir = \\$Master.*" all)
 512                   (format #f "  $Master = ~s;~%~a" share all)))
 513
 514                ;; Install the config.guess script, required by tlmgr.
 515                (with-directory-excursion share
 516                  (mkdir-p "tlpkg/installer/")
 517                  (symlink config.guess "tlpkg/installer/config.guess"))
 518
 519                ;; texlua shebangs are not patched by the patch-source-shebangs
 520                ;; phase because the texlua executable does not exist at that
 521                ;; time.
 522                (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
 523                (with-directory-excursion out
 524                  (patch-source-shebangs))))))))
 525     (native-search-paths
 526      (list (search-path-specification
 527             (variable "GUIX_TEXMF")
 528             (files '("share/texmf-dist")))))
 529     (synopsis "TeX Live, a package of the TeX typesetting system")
 530     (description
 531      "TeX Live provides a comprehensive TeX document production system.
 532 It includes all the major TeX-related programs, macro packages, and fonts
 533 that are free software, including support for many languages around the
 534 world.
 535
 536 This package contains the binaries.")
 537     (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
 538     (home-page "https://www.tug.org/texlive/")))
 539
 540 (define-public texlive-libkpathsea
 541   (package/inherit texlive-bin
 542     (name "texlive-libkpathsea")
 543     (source
 544      (origin
 545        (inherit (package-source texlive-bin))
 546        (snippet
 547         `(begin
 548            ,(origin-snippet (package-source texlive-bin))
 549            (with-directory-excursion "texk"
 550              (let ((preserved-directories '("." ".." "kpathsea")))
 551                (for-each
 552                 delete-file-recursively
 553                 (scandir "."
 554                          (lambda (file)
 555                            (and (not (member file preserved-directories))
 556                                 (eq? 'directory (stat:type (stat file)))))))))))))
 557     (arguments
 558      (substitute-keyword-arguments (package-arguments texlive-bin)
 559        ((#:configure-flags flags)
 560         `(cons* "--disable-all-pkgs" "--enable-kpathsea"
 561                 "--enable-shared" ,flags))
 562        ((#:phases phases)
 563         `(modify-phases %standard-phases
 564            (add-after 'install 'post-install
 565              (lambda* (#:key inputs outputs #:allow-other-keys)
 566                (with-directory-excursion "texk/kpathsea"
 567                  (invoke "make" "install"))))))))
 568     (inputs '())
 569     (synopsis "Path searching library")
 570     (description "kpathsea is a library, whose purpose is to return a filename
 571 from a list of user-specified directories similar to how shells look up
 572 executables.  It is maintained as a part of TeX Live.")))
 573
 574 (define-syntax-rule (define-deprecated-package old-name name)
 575   "Define OLD-NAME as a deprecated package alias for NAME."
 576   (define-deprecated/public old-name name
 577     (deprecated-package (symbol->string 'old-name) name)))
 578
 579 \f
 580 (define texlive-docstrip
 581   (package
 582     (inherit (simple-texlive-package
 583               "texlive-docstrip"
 584               (list "/tex/latex/base/docstrip.tex")
 585               (base32
 586                "1pxbqbia0727vg01xv8451szm55z2w8sb0vv3kf4iqx5ibb6m0d2")
 587               #:trivial? #t))
 588     (home-page "https://www.ctan.org/texlive")
 589     (synopsis "Utility to strip documentation from TeX files.")
 590     (description "This package provides the docstrip utility to strip
 591 documentation from TeX files.  It is part of the LaTeX base.")
 592     (license license:lppl1.3+)))
 593
 594 (define-public texlive-unicode-data
 595   (package
 596     (inherit (simple-texlive-package
 597               "texlive-unicode-data"
 598               (list "/tex/generic/unicode-data/"
 599                     "/doc/generic/unicode-data/")
 600               (base32
 601                "1d41zvjsig7sqf2j2m89dnbv3gicpb16r04b4ikps4gabhbky83k")
 602               #:trivial? #t))
 603     (home-page "https://www.ctan.org/pkg/unicode-data")
 604     (synopsis "Unicode data and loaders for TeX")
 605     (description "This bundle provides generic access to Unicode Consortium
 606 data for TeX use.  It contains a set of text files provided by the Unicode
 607 Consortium which are currently all from Unicode 8.0.0, with the exception of
 608 @code{MathClass.txt} which is not currently part of the Unicode Character
 609 Database.  Accompanying these source data are generic TeX loader files
 610 allowing this data to be used as part of TeX runs, in particular in building
 611 format files.  Currently there are two loader files: one for general character
 612 set up and one for initializing XeTeX character classes as has been carried
 613 out to date by @code{unicode-letters.tex}. ")
 614     (license license:lppl1.3c+)))
 615
 616 (define-deprecated-package texlive-generic-unicode-data texlive-unicode-data)
 617
 618 (define-public texlive-hyphen-base
 619   (package
 620     (inherit (simple-texlive-package
 621               "texlive-hyphen-base"
 622               (list "/tex/generic/config/language.dat"
 623                     "/tex/generic/config/language.dat.lua"
 624                     "/tex/generic/config/language.def"
 625                     "/tex/generic/config/language.us"
 626                     "/tex/generic/config/language.us.def"
 627                     "/tex/generic/config/language.us.lua"
 628                     "/tex/generic/hyphen/dumyhyph.tex"
 629                     "/tex/generic/hyphen/hyphen.tex"
 630                     "/tex/generic/hyphen/hypht1.tex"
 631                     "/tex/generic/hyphen/zerohyph.tex")
 632               (base32
 633                "1sagn9aybs34m1s6m3zwya5g5kbiwfnw8ifcgxssygmzzs88dgjp")
 634               #:trivial? #t))
 635     (home-page "https://tug.org/texlive/")
 636     (synopsis "Core hyphenation support files")
 637     (description "This package includes Knuth's original @file{hyphen.tex},
 638 @file{zerohyph.tex} to disable hyphenation, @file{language.us} which starts
 639 the autogenerated files @file{language.dat} and @file{language.def} (and
 640 default versions of those), etc.")
 641     (license license:knuth)))
 642
 643 (define-public texlive-dvips
 644   (package
 645     (inherit (simple-texlive-package
 646               "texlive-dvips"
 647               (list "/doc/man/man1/afm2tfm.1"
 648                     "/doc/man/man1/dvips.1"
 649                     "/dvips/base/"
 650                     "/dvips/config/"
 651                     "/fonts/enc/dvips/base/"
 652                     "/tex/generic/dvips/")
 653               (base32
 654                "0rns1hpjy4fmsskmkwx197j8qbgdmyj0j9214sq9vhpa6nv7czm3")
 655               #:trivial? #t))
 656     (home-page "https://www.ctan.org/pkg/dvips")
 657     (synopsis "DVI to PostScript drivers")
 658     (description "This package provides files needed for converting DVI files
 659 to PostScript.")
 660     (license license:lppl)))
 661
 662 (define-public texlive-tex-ini-files
 663   (package
 664     (inherit (simple-texlive-package
 665               "texlive-tex-ini-files"
 666               (list "/tex/generic/tex-ini-files/")
 667               (base32
 668                "0q1g62jg0qiqslm93ycvm30bw8ydmssjdshzsnzl7n2vpd62qfi2")
 669               #:trivial? #t))
 670     (home-page "https://www.ctan.org/pkg/tex-ini-files")
 671     (synopsis "Files for creating TeX formats")
 672     (description "This bundle provides a collection of model \".ini\" files
 673 for creating TeX formats.  These files are commonly used to introduced
 674 distribution-dependent variations in formats.  They are also used to
 675 allow existing format source files to be used with newer engines, for example
 676 to adapt the plain e-TeX source file to work with XeTeX and LuaTeX.")
 677     (license license:public-domain)))
 678
 679 (define-deprecated-package texlive-generic-tex-ini-files texlive-tex-ini-files)
 680
 681 (define-public texlive-metafont
 682   (package
 683     (name "texlive-metafont")
 684     (version (number->string %texlive-revision))
 685     (source (origin
 686               (method svn-multi-fetch)
 687               (uri (svn-multi-reference
 688                     (url (string-append "svn://www.tug.org/texlive/tags/"
 689                                         %texlive-tag "/Master/texmf-dist"))
 690                     (locations '("/metafont/"
 691                                  "/fonts/source/public/modes/"))
 692                     (revision %texlive-revision)))
 693               (file-name (string-append name "-" version "-checkout"))
 694               (sha256
 695                (base32
 696                 "17y72xmz5a36vdsq7pfrwj0j4c7llrm9j5kcq349cpaas7r32lmb"))))
 697     (build-system gnu-build-system)
 698     (arguments
 699      `(#:tests? #f ; no test target
 700        #:phases
 701        (modify-phases %standard-phases
 702          (delete 'configure)
 703          (replace 'build
 704            (lambda* (#:key inputs #:allow-other-keys)
 705              (let* ((cwd (getcwd))
 706                     (mf (string-append cwd "/metafont"))
 707                     (modes (string-append cwd "/fonts/source/public/modes")))
 708                (setenv "MFINPUTS"
 709                        (string-append modes ":"
 710                                       mf "/base:"
 711                                       mf "/misc:"
 712                                       mf "/roex:"
 713                                       mf "/feynmf:"
 714                                       mf "/mfpic:"
 715                                       mf "/config")))
 716              (mkdir "build")
 717              (with-directory-excursion "build"
 718                (invoke "inimf" "mf.mf"))))
 719          (replace 'install
 720            (lambda* (#:key outputs #:allow-other-keys)
 721              (let* ((out  (assoc-ref outputs "out"))
 722                     (base (string-append out "/share/texmf-dist/web2c"))
 723                     (mf   (string-append out "/share/texmf-dist/metafont/")))
 724                (mkdir-p base)
 725                (mkdir-p mf)
 726                (install-file "build/mf.base" base)
 727                (with-directory-excursion "metafont"
 728                  (for-each (lambda (where)
 729                              (copy-recursively where (string-append mf where)))
 730                            (list "base" "misc" "config")))))))))
 731     (native-inputs
 732      `(("texlive-bin" ,texlive-bin)))
 733     (home-page "https://www.ctan.org/pkg/metafont")
 734     (synopsis "Metafont base files")
 735     (description "This package provides the Metafont base files needed to
 736 build fonts using the Metafont system.")
 737     (license license:knuth)))
 738
 739 (define-deprecated-package texlive-metafont-base texlive-metafont)
 740
 741 (define-public texlive-fontinst
 742   (let ((template (simple-texlive-package
 743                    "texlive-fontinst"
 744                    (list "/doc/fonts/fontinst/"
 745                          "/doc/man/man1/fontinst.1"
 746                          "/doc/man/man1/fontinst.man1.pdf"
 747
 748                          ;; This is used to build parts of
 749                          ;; /tex/fontinst/{base,misc}/ and
 750                          ;; /tex/latex/fontinst/fontdoc.sty.
 751                          "/source/fontinst/base/"
 752
 753                          ;; These are not generated.
 754                          "/tex/fontinst/base/bbox.sty"
 755                          "/tex/fontinst/base/multislot.sty"
 756                          "/tex/fontinst/misc/glyphbox.mtx"
 757                          "/tex/fontinst/misc/glyphoff.mtx"
 758                          "/tex/fontinst/misc/glyphon.mtx"
 759                          "/tex/fontinst/misc/kernoff.mtx"
 760                          "/tex/fontinst/misc/kernon.mtx"
 761
 762                          "/tex/fontinst/latinetx/"
 763                          "/tex/fontinst/latinmtx/"
 764                          "/tex/fontinst/mathmtx/"
 765                          "/tex/fontinst/smblmtx/")
 766                    (base32
 767                     "195jsijrpv828pqy99gm13j31nsc8bsa58zlbln2r0h5j9l44b5g")
 768                    #:trivial? #t)))
 769     (package
 770       (inherit template)
 771       (arguments
 772        (substitute-keyword-arguments (package-arguments template)
 773          ((#:modules _ '())
 774           '((guix build gnu-build-system)
 775             (guix build utils)
 776             (ice-9 match)))
 777          ((#:phases phases)
 778           `(modify-phases ,phases
 779              (replace 'build
 780                (lambda* (#:key inputs #:allow-other-keys)
 781                  (setenv "TEXINPUTS"
 782                          (string-append (getcwd) "//:"
 783                                         (getcwd) "/source/fontinst/base//:"
 784                                         (assoc-ref inputs "texlive-docstrip") "//"))
 785                  (mkdir "build")
 786                  (invoke "tex" "-ini" "-interaction=scrollmode"
 787                          "-output-directory=build"
 788                          "fontinst.ins")))
 789              ;; Since we're using docstrip without LaTeX we can't set \UseTDS
 790              ;; or \BaseDirectory, so the generated files are just dumped in
 791              ;; the "build" directory.
 792              (add-after 'install 'install-generated-files
 793                (lambda* (#:key outputs #:allow-other-keys)
 794                  (let* ((out (assoc-ref outputs "out"))
 795                         (root (string-append out "/share/texmf-dist")))
 796                    (for-each (match-lambda
 797                                ((dir files ...)
 798                                 (for-each (lambda (file)
 799                                             (install-file
 800                                              (string-append "build/" file)
 801                                              (string-append root dir)))
 802                                           files)))
 803                              '(("/tex/fontinst/base"
 804                                 "fontinst.sty"
 805                                 "cfntinst.sty"
 806                                 "xfntinst.sty"
 807                                 "finstmsc.sty"
 808                                 "fontinst.ini")
 809                                ("/tex/fontinst/misc"
 810                                 "csc2x.tex"
 811                                 "csckrn2x.tex"
 812                                 "osf2x.tex")
 813                                ("/tex/latex/fontinst"
 814                                 "fontdoc.sty")))
 815                    #t)))))))
 816       (native-inputs
 817        `(("texlive-bin" ,texlive-bin)
 818          ("texlive-docstrip" ,texlive-docstrip)))
 819       (home-page "https://www.ctan.org/pkg/fontinst")
 820       (synopsis "Tools for converting and installing fonts for TeX and LaTeX")
 821       (description "This package provides TeX macros for converting Adobe Font
 822 Metric files to TeX metric and virtual font format.  Fontinst helps mainly
 823 with the number crunching and shovelling parts of font installation.  This
 824 means in practice that it creates a number of files which give the TeX
 825 metrics (and related information) for a font family that TeX needs to do any
 826 typesetting in these fonts.")
 827       (license license:lppl1.1+))))
 828
 829 (define-deprecated-package texlive-tex-fontinst-base texlive-fontinst)
 830
 831 (define-public texlive-fontname
 832   (package
 833     (inherit (simple-texlive-package
 834               "texlive-fontname"
 835               (list "/doc/fonts/fontname/fontname.texi"
 836                     "/fonts/map/fontname/")
 837               (base32
 838                "009qvjpw48lajp0gxpvdk10n5qw3q41cpq05ycns67mxwkcaywq6")
 839               #:trivial? #t))
 840     (home-page "https://www.ctan.org/pkg/fontname")
 841     (synopsis "Scheme for naming fonts in TeX")
 842     (description "This is Fontname, a naming scheme for (the base part of)
 843 external TeX font filenames.  This makes at most eight-character names
 844 from (almost) arbitrarily complex font names, thus helping portability of TeX
 845 documents.")
 846     (license license:public-domain)))
 847
 848 (define-public texlive-cm
 849   (let ((template (simple-texlive-package
 850                    "texlive-cm"
 851                    (list "/fonts/source/public/cm/"
 852                          "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
 853                          "/doc/fonts/cm/")
 854                    (base32
 855                     "1ky4gvcn8qn3d61bvb39512b8r92igv6il7vh02hw04223yj6q8i")
 856                    #:trivial? #t)))
 857     (package
 858       (inherit template)
 859       (arguments
 860        (substitute-keyword-arguments (package-arguments template)
 861          ((#:modules modules '())
 862           '((guix build gnu-build-system)
 863             (guix build utils)
 864             (srfi srfi-26)))
 865          ((#:phases phases)
 866           `(modify-phases ,phases
 867              (replace 'build
 868                (lambda* (#:key inputs #:allow-other-keys)
 869                  (let ((mf (assoc-ref inputs "texlive-metafont")))
 870                    ;; Tell mf where to find mf.base
 871                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 872                    ;; Tell mf where to look for source files
 873                    (setenv "MFINPUTS"
 874                            (string-append (getcwd) "/fonts/source/public/cm/:"
 875                                           mf "/share/texmf-dist/metafont/base")))
 876                  (for-each make-file-writable
 877                            (cons "fonts/source/public/cm/"
 878                                  (find-files "fonts/source/public/cm/" ".*")))
 879                  (let ((build (string-append (getcwd) "/build"))
 880                        (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
 881                    (mkdir-p pkdir)
 882                    (mkdir-p build)
 883                    (with-directory-excursion "fonts/source/public/cm/"
 884                      (for-each (lambda (font)
 885                                  (format #t "building font ~a\n" font)
 886                                  (invoke "mf" "-progname=mf"
 887                                          (string-append "-output-directory=" build)
 888                                          (string-append "\\"
 889                                                         "mode:=ljfour; "
 890                                                         "mag:=1+0/600; "
 891                                                         "scrollmode; "
 892                                                         "input "
 893                                                         (basename font ".mf")))
 894                                  (invoke "gftopk"
 895                                          (string-append build "/"
 896                                                         (basename font ".mf") ".600gf")
 897                                          (string-append pkdir "/"
 898                                                         (basename font ".mf") ".pk")))
 899                                (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
 900                  #t))
 901              (add-after 'install 'install-generated-fonts
 902                (lambda* (#:key inputs outputs #:allow-other-keys)
 903                  (let* ((out    (assoc-ref outputs "out"))
 904                         (fonts  (string-append out "/share/texmf-dist/fonts/"))
 905                         (pk     (string-append fonts "pk"))
 906                         (tfm    (string-append fonts "tfm/public/cm")))
 907                    (for-each (cut install-file <> tfm)
 908                              (find-files "build" "\\.*"))
 909                    (copy-recursively "pk" pk)
 910                    #t)))))))
 911       (native-inputs
 912        `(("texlive-bin" ,texlive-bin)
 913          ("texlive-metafont" ,texlive-metafont)))
 914       (home-page "https://www.ctan.org/pkg/cm")
 915       (synopsis "Computer Modern fonts for TeX")
 916       (description "This package provides the Computer Modern fonts by Donald
 917 Knuth.  The Computer Modern font family is a large collection of text,
 918 display, and mathematical fonts in a range of styles, based on Monotype Modern
 919 8A.")
 920       (license license:knuth))))
 921
 922 (define-deprecated-package texlive-fonts-cm texlive-cm)
 923
 924 (define-public texlive-cm-super
 925   (let ((template (simple-texlive-package
 926                    "texlive-cm-super"
 927                    (list "/doc/fonts/cm-super/"
 928                          "/dvips/cm-super/"
 929                          "/fonts/afm/public/cm-super/"
 930                          "/fonts/enc/dvips/cm-super/"
 931                          "/fonts/map/dvips/cm-super/"
 932                          "/fonts/map/vtex/cm-super/"
 933                          "/fonts/type1/public/cm-super/"
 934                          "/tex/latex/cm-super/")
 935                    (base32
 936                     "1k3afl0x0bqbr5mnawbnp7rr2126dwn0vwnxzibm9ggvzqilnkm6")
 937                    #:trivial? #t)))
 938     (package
 939       (inherit template)
 940       (arguments
 941        (substitute-keyword-arguments (package-arguments template)
 942          ((#:phases phases)
 943           `(modify-phases ,phases
 944              (delete 'reset-gzip-timestamps)))))
 945       (home-page "https://www.ctan.org/pkg/cm-super")
 946       (synopsis "Computer Modern Super family of fonts")
 947       (description "The CM-Super family provides Adobe Type 1 fonts that replace
 948 the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete,
 949 T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European
 950 languages except Greek), and bringing many ameliorations in typesetting
 951 quality.  The fonts exhibit the same metrics as the METAFONT-encoded
 952 originals.")
 953       ;; With font exception
 954       (license license:gpl2+))))
 955
 956 (define-deprecated-package texlive-fonts-cm-super texlive-cm-super)
 957
 958 (define-public texlive-courier
 959   (package
 960     (inherit (simple-texlive-package
 961               "texlive-courier"
 962               (list "/dvips/courier/"
 963                     "/fonts/afm/adobe/courier/"
 964                     "/fonts/afm/urw/courier/"
 965                     "/fonts/map/dvips/courier/"
 966                     "/fonts/tfm/adobe/courier/"
 967                     "/fonts/tfm/urw35vf/courier/"
 968                     "/fonts/type1/adobe/courier/"
 969                     "/fonts/type1/urw/courier/"
 970                     "/fonts/vf/adobe/courier/"
 971                     "/fonts/vf/urw35vf/courier/"
 972                     "/tex/latex/courier/"
 973                     "/tex4ht/ht-fonts/alias/adobe/courier/"
 974                     "/tex4ht/ht-fonts/unicode/adobe/courier/")
 975               (base32
 976                "05lglavi073glj26k9966351hka5ac22g4vim61dkfy001vz4i7r")
 977               #:trivial? #t))
 978     (home-page "https://ctan.org/pkg/urw-base35")
 979     (synopsis "URW Base 35 font pack for LaTeX")
 980     (description "This package provides a drop-in replacements for the Courier
 981 font from Adobe's basic set.")
 982     ;; No license version specified.
 983     (license license:gpl3+)))
 984
 985 (define-public texlive-tex-gyre
 986   (package
 987     (inherit (simple-texlive-package
 988               "texlive-tex-gyre"
 989               '("/doc/fonts/tex-gyre/GUST-FONT-LICENSE.txt"
 990                 "/fonts/afm/public/tex-gyre/"
 991                 "/fonts/enc/dvips/tex-gyre/"
 992                 "/fonts/map/dvips/tex-gyre/"
 993                 "/fonts/opentype/public/tex-gyre/"
 994                 "/fonts/tfm/public/tex-gyre/"
 995                 "/fonts/type1/public/tex-gyre/"
 996                 "/tex/latex/tex-gyre/")
 997               (base32
 998                "1ldnlmclghm3gnyv02r8a6cqybygz2ifq07mhykhf43h1pw3aq7k")
 999               #:trivial? #t))
1000     (home-page "https://ctan.org/pkg/tex-gyre")
1001     (synopsis "TeX fonts extending URW fonts")
1002     (description
1003      "The TeX-GYRE bundle consist of multiple font families:
1004 @itemize @bullet
1005 @item Adventor, based on the URW Gothic L family of fonts;
1006 @item Bonum, based on the URW Bookman L family;
1007 @item Chorus, based on URW Chancery L Medium Italic;
1008 @item Cursor, based on URW Nimbus Mono L;
1009 @item Heros, based on URW Nimbus Sans L;
1010 @item Pagella, based on URW Palladio L;
1011 @item Schola, based on the URW Century Schoolbook L family;
1012 @item Termes, based on the URW Nimbus Roman No9 L family of fonts.
1013 @end itemize
1014
1015 The constituent standard faces of each family have been greatly extended
1016 (though Chorus omits Greek support and has no small-caps family).  Each
1017 family is available in Adobe Type 1 and Open Type formats, and LaTeX
1018 support (for use with a variety of encodings) is provided.")
1019     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
1020     ;; Public License (LPPL), version 1.3c or later, but comes with an
1021     ;; additional but not legally binding clause.
1022     (license license:lppl1.3c+)))
1023
1024 (define-public texlive-lm
1025   (package
1026     (inherit (simple-texlive-package
1027               "texlive-lm"
1028               (list "/doc/fonts/lm/"
1029                     "/fonts/afm/public/lm/"
1030                     "/fonts/enc/dvips/lm/"
1031                     "/fonts/map/dvipdfm/lm/"
1032                     "/fonts/map/dvips/lm/"
1033                     "/fonts/opentype/public/lm/"
1034                     "/fonts/tfm/public/lm/"
1035                     "/fonts/type1/public/lm/"
1036                     "/tex/latex/lm/")
1037               (base32
1038                "0yyk0dr4yms82mwy4dc03zf5igyhgcb65icdah042rk23rlpxygv")
1039               #:trivial? #t))
1040     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
1041     (synopsis "Latin Modern family of fonts")
1042     (description "The Latin Modern fonts are derived from the famous Computer
1043 Modern fonts designed by Donald E. Knuth and described in Volume E of his
1044 Computers & Typesetting series.")
1045     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
1046     ;; Public License (LPPL), version 1.3c or later, but comes with an
1047     ;; additional but not legally binding clause.
1048     (license license:lppl1.3c+)))
1049
1050 (define-deprecated-package texlive-fonts-lm texlive-lm)
1051
1052 (define-public texlive-knuth-lib
1053   (let ((template (simple-texlive-package
1054                    "texlive-knuth-lib"
1055                    (list "/fonts/source/public/knuth-lib/"
1056                          "/tex/generic/knuth-lib/"
1057                          "/tex/plain/knuth-lib/")
1058                    (base32
1059                     "1cxyqqprp8sj2j4zp9l0wry8cq2awpz3a8i5alzpc4ndg7a6pgdf")
1060                    #:trivial? #t)))
1061     (package
1062       (inherit template)
1063       (arguments
1064        (substitute-keyword-arguments (package-arguments template)
1065          ((#:modules _ '())
1066           '((guix build gnu-build-system)
1067             (guix build utils)
1068             (srfi srfi-26)))
1069          ((#:phases phases '())
1070           `(modify-phases ,phases
1071              (replace 'build
1072                (lambda* (#:key inputs #:allow-other-keys)
1073                  (with-directory-excursion "fonts/source/public/knuth-lib"
1074                    (let ((mf (assoc-ref inputs "texlive-metafont")))
1075                      ;; Tell mf where to find mf.base
1076                      (setenv "MFBASES"
1077                              (string-append mf "/share/texmf-dist/web2c"))
1078                      ;; Tell mf where to look for source files
1079                      (setenv "MFINPUTS"
1080                              (string-append (getcwd) ":"
1081                                             mf "/share/texmf-dist/metafont/base")))
1082                    (mkdir "build")
1083                    (for-each (lambda (font)
1084                                (format #t "building font ~a\n" font)
1085                                (invoke "mf" "-progname=mf"
1086                                        "-output-directory=build"
1087                                        (string-append "\\"
1088                                                       "mode:=ljfour; "
1089                                                       "mag:=1; "
1090                                                       "batchmode; "
1091                                                       "input " font)))
1092                              (find-files "." "(manfnt|logo.+)\\.mf$")))
1093                  #t))
1094              (add-after 'install 'install-fonts
1095                (lambda* (#:key outputs #:allow-other-keys)
1096                  (with-directory-excursion "fonts/source/public/knuth-lib"
1097                    (let* ((out (assoc-ref outputs "out"))
1098                           (tfm (string-append
1099                                 out "/share/texmf-dist/fonts/tfm/public/knuth-lib")))
1100                      (for-each (cut install-file <> tfm)
1101                                (find-files "build" "\\.tfm"))
1102                      #t))))))))
1103       (native-inputs
1104        `(("texlive-bin" ,texlive-bin)
1105          ("texlive-metafont" ,texlive-metafont)))
1106       (home-page "https://www.ctan.org/pkg/knuth-lib")
1107       (synopsis "Small library of METAFONT sources")
1108       (description "This is a collection of core TeX and METAFONT macro files
1109 from Donald Knuth, including the plain format, plain base, and the MF logo
1110 fonts.")
1111       (license license:knuth))))
1112
1113 (define-deprecated-package texlive-fonts-knuth-lib texlive-knuth-lib)
1114
1115 (define-public texlive-fonts-latex
1116   (package
1117     (name "texlive-fonts-latex")
1118     (version (number->string %texlive-revision))
1119     (source (origin
1120               (method svn-fetch)
1121               (uri (svn-reference
1122                     (url (string-append "svn://www.tug.org/texlive/tags/"
1123                                         %texlive-tag "/Master/texmf-dist/"
1124                                         "/fonts/source/public/latex-fonts"))
1125                     (revision %texlive-revision)))
1126               (file-name (string-append name "-" version "-checkout"))
1127               (sha256
1128                (base32
1129                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
1130     (build-system gnu-build-system)
1131     (arguments
1132      `(#:modules ((guix build gnu-build-system)
1133                   (guix build utils)
1134                   (srfi srfi-1)
1135                   (srfi srfi-26))
1136        #:tests? #f                      ; no tests
1137        #:phases
1138        (modify-phases %standard-phases
1139          (delete 'configure)
1140          (replace 'build
1141            (lambda* (#:key inputs #:allow-other-keys)
1142              (let ((mf (assoc-ref inputs "texlive-metafont")))
1143                ;; Tell mf where to find mf.base
1144                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1145                ;; Tell mf where to look for source files
1146                (setenv "MFINPUTS"
1147                        (string-append (getcwd) ":"
1148                                       mf "/share/texmf-dist/metafont/base:"
1149                                       (assoc-ref inputs "texlive-cm")
1150                                       "/share/texmf-dist/fonts/source/public/cm")))
1151              (mkdir "build")
1152              (for-each (lambda (font)
1153                          (format #t "building font ~a\n" font)
1154                          (invoke "mf" "-progname=mf"
1155                                  "-output-directory=build"
1156                                  (string-append "\\"
1157                                                 "mode:=ljfour; "
1158                                                 "mag:=1; "
1159                                                 "batchmode; "
1160                                                 "input " font)))
1161                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
1162                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
1163                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
1164                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
1165                          "line10" "linew10"))
1166              #t))
1167          (replace 'install
1168            (lambda* (#:key outputs #:allow-other-keys)
1169              (let* ((out (assoc-ref outputs "out"))
1170                     (tfm (string-append
1171                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
1172                     (mf  (string-append
1173                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
1174                (for-each (cut install-file <> tfm)
1175                          (find-files "build" "\\.*"))
1176                (for-each (cut install-file <> mf)
1177                          (find-files "." "\\.mf"))
1178                #t))))))
1179     (native-inputs
1180      `(("texlive-bin" ,texlive-bin)
1181        ("texlive-metafont" ,texlive-metafont)
1182        ("texlive-cm" ,texlive-cm)))
1183     (home-page "https://www.ctan.org/pkg/latex-fonts")
1184     (synopsis "Collection of fonts used in LaTeX distributions")
1185     (description "This is a collection of fonts for use with standard LaTeX
1186 packages and classes. It includes invisible fonts (for use with the slides
1187 class), line and circle fonts (for use in the picture environment) and LaTeX
1188 symbol fonts.")
1189     (license license:lppl1.2+)))
1190
1191 (define-public texlive-mflogo
1192   (let ((template (simple-texlive-package
1193                    "texlive-mflogo"
1194                    (list "/doc/latex/mflogo/"
1195                          "/source/latex/mflogo/"
1196                          "/fonts/source/public/mflogo/logosl8.mf")
1197                    (base32
1198                     "1vb4mg7fh4k54g7nqwiw3qm4iir8whpfnspis76l4sddzar1amh7"))))
1199     (package
1200       (inherit template)
1201       (arguments
1202        (substitute-keyword-arguments (package-arguments template)
1203          ((#:modules _ '())
1204           '((guix build texlive-build-system)
1205             (guix build utils)
1206             (srfi srfi-1)
1207             (srfi srfi-26)))
1208          ((#:tex-directory _ #t)
1209           "latex/mflogo")
1210          ((#:phases phases '())
1211           `(modify-phases ,phases
1212              (add-after 'unpack 'chdir
1213                (lambda _
1214                  (chdir "source/latex/mflogo") #t))
1215              (add-after 'build 'build-font-metrics
1216                (lambda* (#:key inputs #:allow-other-keys)
1217                  (let ((root "../../..")
1218                        (mf (assoc-ref inputs "texlive-metafont"))
1219                        (kl (assoc-ref inputs "texlive-knuth-lib")))
1220                    ;; Tell mf where to find mf.base
1221                    (setenv "MFBASES"
1222                            (string-append mf "/share/texmf-dist/web2c"))
1223                    ;; Tell mf where to look for source files
1224                    (setenv "MFINPUTS"
1225                            (string-append root ":"
1226                                           mf "/share/texmf-dist/metafont/base:"
1227                                           kl "/share/texmf-dist/fonts/source/public/knuth-lib:"
1228                                           root "/fonts/source/public/mflogo/"))
1229                    (for-each (lambda (font)
1230                                (format #t "building font ~a\n" font)
1231                                (invoke "mf" "-progname=mf"
1232                                        "-output-directory=build"
1233                                        (string-append "\\"
1234                                                       "mode:=ljfour; "
1235                                                       "mag:=1; "
1236                                                       "scrollmode; "
1237                                                       "input " (basename font))))
1238                              (find-files (string-append root
1239                                                         "/fonts/source/public/mflogo/")
1240                                          "\\.mf$")))
1241                  #t))
1242              (add-before 'install 'install-fonts
1243                (lambda* (#:key outputs #:allow-other-keys)
1244                  (let* ((out (assoc-ref outputs "out"))
1245                         (tfm (string-append
1246                               out "/share/texmf-dist/fonts/tfm/public/mflogo")))
1247                    (for-each (lambda (file)
1248                                (install-file file tfm)
1249                                (delete-file file))
1250                              (find-files "build" "\\.tfm"))
1251                    #t)))))))
1252       (native-inputs
1253        `(("texlive-bin" ,texlive-bin)
1254          ("texlive-metafont" ,texlive-metafont)
1255          ("texlive-knuth-lib" ,texlive-knuth-lib)))
1256       (home-page "http://www.ctan.org/pkg/mflogo")
1257       (synopsis "LaTeX support for Metafont logo fonts")
1258       (description
1259        "This package provides LaTeX and font definition files to access the
1260 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1261 logos in LaTeX documents.")
1262       (license license:lppl))))
1263
1264 (define-deprecated-package texlive-latex-mflogo texlive-mflogo)
1265
1266 (define-public texlive-mflogo-font
1267   (package
1268     (inherit (simple-texlive-package
1269               "texlive-mflogo-font"
1270               (list "/doc/fonts/mflogo-font/README"
1271                     "/fonts/afm/hoekwater/mflogo-font/"
1272                     "/fonts/map/dvips/mflogo-font/"
1273                     "/fonts/type1/hoekwater/mflogo-font/")
1274               (base32
1275                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1276               #:trivial? #t))
1277     (home-page "https://www.ctan.org/pkg/mflogo-font")
1278     (synopsis "Metafont logo font")
1279     (description
1280      "These fonts were created in METAFONT by Knuth, for his own publications.
1281 At some stage, the letters P and S were added, so that the METAPOST logo could
1282 also be expressed.  The fonts were originally issued (of course) as METAFONT
1283 source; they have since been autotraced and reissued in Adobe Type 1 format by
1284 Taco Hoekwater.")
1285     (license license:knuth)))
1286
1287 (define-deprecated-package texlive-fonts-mflogo-font texlive-mflogo-font)
1288
1289 (define-public texlive-amsfonts
1290   (let ((template (simple-texlive-package
1291                    "texlive-amsfonts"
1292                    (list "/source/latex/amsfonts/"
1293                          "/fonts/source/public/amsfonts/"
1294                          "/fonts/type1/public/amsfonts/"
1295                          "/fonts/afm/public/amsfonts/"
1296                          "/fonts/map/dvips/amsfonts/"
1297                          "/tex/plain/amsfonts/"
1298                          "/doc/fonts/amsfonts/")
1299                    (base32
1300                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1301     (package
1302       (inherit template)
1303       (arguments
1304        (substitute-keyword-arguments (package-arguments template)
1305          ((#:build-targets _ #t)
1306           '(list "amsfonts.ins"))
1307          ((#:tex-directory _ #t)
1308           "latex/amsfonts")
1309          ((#:modules modules '())
1310           `((guix build texlive-build-system)
1311             (guix build utils)
1312             (ice-9 match)
1313             (srfi srfi-1)
1314             (srfi srfi-26)))
1315          ((#:phases phases)
1316           `(modify-phases ,phases
1317              (add-before 'build 'build-fonts
1318                (lambda* (#:key inputs #:allow-other-keys)
1319                  ;; Allow self fonts sources and other resources to be
1320                  ;; discovered.
1321                  (setenv "GUIX_TEXMF" (string-append (getenv "GUIX_TEXMF")
1322                                                      ":" (getcwd)))
1323
1324                  (let ((build (string-append (getcwd) "/build-fonts")))
1325                    (mkdir-p build)
1326                    (with-directory-excursion "fonts/source/public/amsfonts"
1327                      (for-each (lambda (font)
1328                                  (format #t "building font ~a\n" (basename font ".mf"))
1329                                  (with-directory-excursion (dirname font)
1330                                    (invoke "mf" "-progname=mf"
1331                                            (string-append "-output-directory=" build)
1332                                            (string-append "\\"
1333                                                           "mode:=ljfour; "
1334                                                           "mag:=1; "
1335                                                           "nonstopmode; "
1336                                                           "input "
1337                                                           (getcwd) "/"
1338                                                           (basename font ".mf")))))
1339                                (find-files "." "[0-9]+\\.mf$"))))
1340
1341                  ;; There are no metafont sources for the Euler fonts, so we
1342                  ;; convert the afm files instead.
1343                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1344                    (mkdir build)
1345                    (with-directory-excursion "fonts/afm/public/amsfonts/euler"
1346                      (for-each (lambda (font)
1347                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1348                                  (invoke "afm2tfm" font
1349                                          (string-append build "/"
1350                                                         (basename font ".tfm"))))
1351                                (find-files "(cmextra|cyrillic|dummy|euler|symbols)"
1352                                            "\\.afm$")))
1353
1354                    ;; Frustratingly, not all fonts can be created this way.  To
1355                    ;; generate eufm8.tfm, for example, we first scale down
1356                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1357                    ;; the pl file.
1358                    (setenv "TEXINPUTS"
1359                            (string-append ":" build "//:"
1360                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1361                                           (getcwd) "/source/latex/amsfonts//:"))
1362                    (with-directory-excursion build
1363                      (for-each (match-lambda
1364                                  (((target-base target-size)
1365                                    (source-base source-size))
1366                                   (let ((factor (number->string
1367                                                  (truncate/ (* 1000 target-size)
1368                                                             source-size))))
1369                                     (invoke "tex"
1370                                             "-interaction=scrollmode"
1371                                             (string-append "\\input fontinst.sty "
1372                                                            "\\transformfont{" target-base "}"
1373                                                            "{\\scalefont{" factor "}"
1374                                                            "{\\fromafm{" source-base "}}} "
1375                                                            "\\bye")))
1376                                   (invoke "pltotf"
1377                                           (string-append target-base ".pl")
1378                                           (string-append target-base ".tfm"))
1379                                   (delete-file (string-append target-base ".pl"))))
1380
1381                                '((("eufm8" 8) ("eufm10" 10))
1382
1383                                  (("eufb6" 6) ("eufb7" 7))
1384                                  (("eufb8" 8) ("eufb10" 10))
1385                                  (("eufb9" 9) ("eufb10" 10))
1386
1387                                  (("eufm6" 6) ("eufb7" 7))
1388                                  (("eufm9" 9) ("eufb10" 10))
1389
1390                                  (("eurb6" 6) ("eurb7" 7))
1391                                  (("eurb8" 8) ("eurb10" 10))
1392                                  (("eurb9" 9) ("eurb10" 10))
1393
1394                                  (("eurm6" 6) ("eurm7" 7))
1395                                  (("eurm8" 8) ("eurm10" 10))
1396                                  (("eurm9" 9) ("eurm10" 10))))))))
1397              (add-after 'install 'install-generated-fonts
1398                (lambda* (#:key inputs outputs #:allow-other-keys)
1399                  (copy-recursively "build-fonts"
1400                                    (string-append
1401                                     (assoc-ref outputs "out")
1402                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))))))))
1403       (native-inputs
1404        `(("texlive-updmap.cfg" ,(texlive-updmap.cfg
1405                                  (list texlive-fontinst)))))
1406       (home-page "https://www.ctan.org/pkg/amsfonts")
1407       (synopsis "TeX fonts from the American Mathematical Society")
1408       (description
1409        "This package provides an extended set of fonts for use in mathematics,
1410 including: extra mathematical symbols; blackboard bold letters (uppercase
1411 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1412 letters; subscript sizes of large symbols such as sum and product; added sizes
1413 of the Computer Modern small caps font; cyrillic fonts (from the University of
1414 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1415 files, and all except the Euler fonts are provided as Metafont source.  The
1416 distribution also includes the canonical Type 1 versions of the Computer
1417 Modern family of fonts.  The Euler fonts are supported by separate packages;
1418 details can be found in the documentation.")
1419       (license license:silofl1.1))))
1420
1421 (define-deprecated-package texlive-fonts-amsfonts texlive-amsfonts)
1422
1423 (define-deprecated-package texlive-latex-amsfonts texlive-amsfonts)
1424
1425 (define-public texlive-mkpattern
1426   (package
1427     (inherit (simple-texlive-package
1428               "texlive-mkpattern"
1429               (list "/doc/plain/mkpattern/README"
1430                     "/doc/plain/mkpattern/mkpatdoc.tex"
1431                     "/doc/plain/mkpattern/mkpatter.pdf"
1432                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1433                     "/tex/plain/mkpattern/mkpatter.tex")
1434               (base32
1435                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1436               #:trivial? #t))
1437     (home-page "https://ctan.org/pkg/mkpattern")
1438     (synopsis "Utility for making hyphenation patterns")
1439     (description "Mkpattern is a general purpose program for the generation of
1440 hyphenation patterns, with definition of letter sets and template-like
1441 constructions.  It also provides an easy way to handle different input and
1442 output encodings, and features generation of clean UTF-8 patterns.")
1443     (license license:lppl)))
1444
1445 ;; This provides etex.src which is needed to build various formats, including
1446 ;; luatex.fmt and pdflatex.fmt
1447 (define-public texlive-etex
1448   (let ((template (simple-texlive-package
1449                    "texlive-etex"
1450                    (list "/doc/etex/base/"
1451                          "/doc/man/man1/etex.1"
1452                          "/doc/man/man1/etex.man1.pdf"
1453                          "/tex/plain/etex/"
1454                          "/fonts/source/public/etex/")
1455                    (base32
1456                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1457                    #:trivial? #t)))
1458     (package
1459       (inherit template)
1460       (arguments
1461        (substitute-keyword-arguments (package-arguments template)
1462          ((#:phases phases)
1463           `(modify-phases ,phases
1464              ;; Build tfm font.
1465              (replace 'build
1466                (lambda* (#:key inputs #:allow-other-keys)
1467                  (let ((mf (assoc-ref inputs "texlive-metafont")))
1468                    ;; Tell mf where to find mf.base
1469                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1470                    ;; Tell mf where to look for source files
1471                    (setenv "MFINPUTS"
1472                            (string-append (getcwd)
1473                                           "/fonts/source/public/etex/:"
1474                                           mf "/share/texmf-dist/metafont/base:"
1475                                           (assoc-ref inputs "texlive-cm")
1476                                           "/share/texmf-dist/fonts/source/public/cm")))
1477                  (invoke "mf" "-progname=mf"
1478                          (string-append "\\"
1479                                         "mode:=ljfour; "
1480                                         "mag:=1; "
1481                                         "scrollmode; "
1482                                         "input xbmc10"))
1483                  #t))
1484              (add-after 'install 'install-font
1485                (lambda* (#:key outputs #:allow-other-keys)
1486                  (install-file
1487                   "xbmc10.tfm"
1488                   (string-append (assoc-ref outputs "out")
1489                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1490                  #t))))))
1491       (native-inputs
1492        `(("texlive-bin" ,texlive-bin)
1493          ("texlive-metafont" ,texlive-metafont)
1494          ("texlive-cm" ,texlive-cm)))
1495       (home-page "https://www.ctan.org/pkg/etex")
1496       (synopsis "Extended version of TeX")
1497       (description
1498        "This package provides an extended version of TeX (which is capable of
1499 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1500 team as the engine for the development of LaTeX2e; as a result, LaTeX
1501 programmers may assume e-TeX functionality.  The pdftex engine directly
1502 incorporates the e-TeX extensions.")
1503       (license license:knuth))))
1504
1505 (define-public texlive-tex-plain
1506   (package
1507     (inherit (simple-texlive-package
1508               "texlive-tex-plain"
1509               (list "/tex/plain/")
1510               (base32
1511                "0gwygkm8i2jmpf7bfg6fb6824rl7fq4a2s0wni73v0fz6s4chr1n")
1512               #:trivial? #t))
1513     (home-page "https://www.ctan.org/pkg/plain")
1514     (synopsis "Plain TeX format and supporting files")
1515     (description
1516      "This package contains files used to build the Plain TeX format, as
1517 described in the TeXbook, together with various supporting files (some also
1518 discussed in the book).")
1519     (license license:knuth)))
1520
1521 (define-public texlive-helvetic
1522   (package
1523     (inherit (simple-texlive-package
1524               "texlive-helvetic"
1525               (list "/dvips/helvetic/"
1526                     "/fonts/afm/adobe/helvetic/"
1527                     "/fonts/afm/urw/helvetic/"
1528                     "/fonts/map/dvips/helvetic/"
1529                     "/fonts/tfm/adobe/helvetic/"
1530                     "/fonts/tfm/monotype/helvetic/"
1531                     "/fonts/tfm/urw35vf/helvetic/"
1532                     "/fonts/type1/urw/helvetic/"
1533                     "/fonts/vf/adobe/helvetic/"
1534                     "/fonts/vf/monotype/helvetic/"
1535                     "/fonts/vf/urw35vf/helvetic/"
1536                     "/tex/latex/helvetic/")
1537               (base32
1538                "0c3f1ly7y6404z0akbfbbfql13sz717v0n0g69qjpr69hi4n0nsl")
1539               #:trivial? #t))
1540     (home-page "https://ctan.org/pkg/urw-base35")
1541     (synopsis "URW Base 35 font pack for LaTeX")
1542     (description "This package provides a drop-in replacements for the Helvetica
1543 font from Adobe's basic set.")
1544     ;; No license version specified.
1545     (license license:gpl3+)))
1546
1547 (define-public texlive-hyphen-afrikaans
1548   (package
1549     (inherit (texlive-hyphen-package
1550               "texlive-hyphen-afrikaans" "af"
1551               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1552               (base32
1553                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1554     (synopsis "Hyphenation patterns for Afrikaans")
1555     (description "The package provides hyphenation patterns for the Afrikaans
1556 language.")
1557     (license license:lppl1.3+)))
1558
1559 (define-public texlive-hyphen-ancientgreek
1560   (package
1561     (inherit (texlive-hyphen-package
1562               "texlive-hyphen-ancientgreek" "grc"
1563               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1564                     "/tex/generic/hyphen/grahyph5.tex"
1565                     "/tex/generic/hyphen/ibyhyph.tex")
1566               (base32
1567                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1568     (synopsis "Hyphenation patterns for ancient Greek")
1569     (description "The package provides hyphenation patterns for ancient
1570 Greek.")
1571     (license license:lppl1.3+)))
1572
1573 (define-public texlive-hyphen-armenian
1574   (let ((template (texlive-hyphen-package
1575                    "texlive-hyphen-armenian" "hy"
1576                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1577                    (base32
1578                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1579     (package
1580       (inherit template)
1581       (synopsis "Hyphenation patterns for Armenian")
1582       (description "The package provides hyphenation patterns for the Armenian
1583 language.")
1584       ;; Any version of the LGPL.
1585       (license license:lgpl3+))))
1586
1587 (define-public texlive-hyphen-basque
1588   (let ((template (texlive-hyphen-package
1589                     "texlive-hyphen-basque" "eu"
1590                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1591                     (base32
1592                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1593     (package
1594       (inherit template)
1595       (synopsis "Hyphenation patterns for Basque")
1596       (description "The package provides hyphenation patterns for the Basque
1597 language.")
1598       ;; Similar to Unicode license.
1599       (license (license:fsf-free
1600                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1601
1602 (define-public texlive-hyphen-belarusian
1603   (package
1604     (inherit (texlive-hyphen-package
1605               "texlive-hyphen-belarusian" "be"
1606               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1607               (base32
1608                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1609     (synopsis "Hyphenation patterns for Belarusian")
1610     (description "The package provides hyphenation patterns for the Belarusian
1611 language.")
1612     (license license:expat)))
1613
1614 (define-public texlive-hyphen-bulgarian
1615   (package
1616     (inherit (texlive-hyphen-package
1617               "texlive-hyphen-bulgarian" "bg"
1618               '("/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1619               (base32
1620                "0m254y71j3qrb71klvfalfmic3kjy31l85b9cgpdm5yznlsq3i8d")))
1621     (synopsis "Hyphenation patterns for Bulgarian")
1622     (description "The package provides hyphenation patterns for the Bulgarian
1623 language in T2A and UTF-8 encodings.")
1624     (license (license:non-copyleft
1625               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1626               "Ancestral BSD variant"))))
1627
1628 (define-public texlive-hyphen-catalan
1629   (package
1630     (inherit (texlive-hyphen-package
1631               "texlive-hyphen-catalan" "ca"
1632               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1633               (base32
1634                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1635     (synopsis "Hyphenation patterns for Catalan")
1636     (description "The package provides hyphenation patterns for Catalan in
1637 T1/EC and UTF-8 encodings.")
1638     (license license:lppl1.0+)))
1639
1640 (define-public texlive-hyphen-chinese
1641   (package
1642     (inherit (texlive-hyphen-package
1643               "texlive-hyphen-chinese" "zh-latn-pinyin"
1644               '("/tex/generic/hyph-utf8/patterns/ptex/hyph-zh-latn-pinyin.ec.tex"
1645                 "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1646               (base32
1647                "1hhh30hcjymm2igpllly04cavsfmd6xrjkd9zax6b2wdxn3ka4pm")))
1648     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1649     (description "The package provides hyphenation patterns for unaccented
1650 Chinese pinyin T1/EC and UTF-8 encodings.")
1651     (license license:gpl2+)))
1652
1653 (define-public texlive-hyphen-churchslavonic
1654   (package
1655     (inherit (texlive-hyphen-package
1656               "texlive-hyphen-churchslavonic" "cu"
1657               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1658               (base32
1659                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1660     (synopsis "Hyphenation patterns for Church Slavonic")
1661     (description "The package provides hyphenation patterns for Church
1662 Slavonic in UTF-8 encoding.")
1663     (license license:expat)))
1664
1665 (define-public texlive-hyphen-coptic
1666   (package
1667     (inherit (texlive-hyphen-package
1668               "texlive-hyphen-coptic" "cop"
1669               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1670                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1671               (base32
1672                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1673     (synopsis "Hyphenation patterns for Coptic")
1674     (description "The package provides hyphenation patterns for Coptic in
1675 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1676     ;; No explicit license declaration, so we use the project license.
1677     (license license:lppl)))
1678
1679 (define-public texlive-hyphen-croatian
1680   (package
1681     (inherit (texlive-hyphen-package
1682               "texlive-hyphen-croatian" "hr"
1683               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1684               (base32
1685                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1686     (synopsis "Hyphenation patterns for Croatian")
1687     (description "The package provides hyphenation patterns for Croatian in
1688 T1/EC and UTF-8 encodings.")
1689     (license license:lppl1.0+)))
1690
1691 (define-public texlive-hyphen-czech
1692   (package
1693     (inherit (texlive-hyphen-package
1694               "texlive-hyphen-czech" "cs"
1695               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1696               (base32
1697                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1698     (synopsis "Hyphenation patterns for Czech")
1699     (description "The package provides hyphenation patterns for Czech in T1/EC
1700 and UTF-8 encodings.")
1701     (license license:gpl2+)))
1702
1703 (define-public texlive-hyphen-danish
1704   (package
1705     (inherit (texlive-hyphen-package
1706               "texlive-hyphen-danish" "da"
1707               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1708               (base32
1709                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1710     (synopsis "Hyphenation patterns for Danish")
1711     (description "The package provides hyphenation patterns for Danish in
1712 T1/EC and UTF-8 encodings.")
1713     ;; Either LPPL 1.3 or later, or Expat
1714     (license (list license:lppl1.3+ license:expat))))
1715
1716 (define-public texlive-hyphen-dutch
1717   (package
1718     (inherit (texlive-hyphen-package
1719               "texlive-hyphen-dutch" "nl"
1720               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1721               (base32
1722                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1723     (synopsis "Hyphenation patterns for Dutch")
1724     (description "The package provides hyphenation patterns for Dutch in T1/EC
1725 and UTF-8 encodings.")
1726     (license license:lppl1.0+)))
1727
1728 (define-public texlive-hyphen-english
1729   (package
1730     (inherit (texlive-hyphen-package
1731               "texlive-hyphen-english" '("en-gb" "en-us")
1732               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1733                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1734               (base32
1735                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1736     (synopsis "Hyphenation patterns for American and British English")
1737     (description "The package provides additional hyphenation patterns for
1738 American and British English in ASCII encoding.")
1739     (license (license:non-copyleft
1740               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1741               "FSF all permissive license"))))
1742
1743 (define-public texlive-hyphen-esperanto
1744   (package
1745     (inherit (texlive-hyphen-package
1746               "texlive-hyphen-esperanto" "eo"
1747               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1748               (base32
1749                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1750     (synopsis "Hyphenation patterns for Esperanto")
1751     (description "The package provides hyphenation patterns for Esperanto ISO
1752 Latin 3 and UTF-8 encodings.")
1753     (license license:lppl1.0+)))
1754
1755 (define-public texlive-hyphen-estonian
1756   (package
1757     (inherit (texlive-hyphen-package
1758               "texlive-hyphen-estonian" "et"
1759               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1760               (base32
1761                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1762     (synopsis "Hyphenation patterns for Estonian")
1763     (description "The package provides hyphenation patterns for Estonian in
1764 T1/EC and UTF-8 encodings.")
1765     ;; Dual licensed under either license.
1766     (license (list license:lppl1.3+ license:expat))))
1767
1768 (define-public texlive-hyphen-ethiopic
1769   (let ((template (texlive-hyphen-package
1770                    "texlive-hyphen-ethiopic" "mul-ethi"
1771                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1772                    (base32
1773                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1774     (package
1775       (inherit template)
1776       (synopsis "Hyphenation patterns for Ethiopic scripts")
1777       (description "The package provides hyphenation patterns for languages
1778 written using the Ethiopic script for Unicode engines.  They are not supposed
1779 to be linguistically relevant in all cases and should, for proper typography,
1780 be replaced by files tailored to individual languages.")
1781       (license license:expat))))
1782
1783 (define-public texlive-hyphen-finnish
1784   (package
1785     (inherit (texlive-hyphen-package
1786               "texlive-hyphen-finnish" "fi"
1787               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1788               (base32
1789                "1pa8sjs9zvnv1y6dma4s60sf9cr4zrvhxwm6i8cnshm84q16w4bc")))
1790     (synopsis "Hyphenation patterns for Finnish")
1791     (description "The package provides hyphenation patterns for Finnish in
1792 T1/EC and UTF-8 encodings.")
1793     (license license:public-domain)))
1794
1795 (define-public texlive-hyphen-schoolfinnish
1796   (package
1797     (inherit (texlive-hyphen-package
1798               "texlive-hyphen-schoolfinnish" "fi-x-school"
1799               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi-x-school.tex")
1800               (base32
1801                "1w5n6gaclgifbbnafg32vz3mfaibyldvh4yh1ya3sq9fwfmv035c")))
1802     (synopsis "Hyphenation patterns for Finnish for school")
1803     (description "The package provides hyphenation patterns for Finnish for
1804 school in T1/EC and UTF-8 encodings.")
1805     (license license:public-domain)))
1806
1807 (define-public texlive-hyphen-french
1808   (package
1809     (inherit (texlive-hyphen-package
1810               "texlive-hyphen-french" "fr"
1811               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1812               (base32
1813                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1814     (synopsis "Hyphenation patterns for French")
1815     (description "The package provides hyphenation patterns for French in
1816 T1/EC and UTF-8 encodings.")
1817     (license license:expat)))
1818
1819 (define-public texlive-hyphen-friulan
1820   (package
1821     (inherit (texlive-hyphen-package
1822               "texlive-hyphen-friulan" "fur"
1823               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1824               (base32
1825                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1826     (synopsis "Hyphenation patterns for Friulan")
1827     (description "The package provides hyphenation patterns for Friulan in
1828 ASCII encodings.")
1829     (license license:lppl1.3+)))
1830
1831 (define-public texlive-hyphen-galician
1832   (let ((template (texlive-hyphen-package
1833                    "texlive-hyphen-galician" "gl"
1834                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1835                    (base32
1836                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1837     (package
1838       (inherit template)
1839       (synopsis "Hyphenation patterns for Galician")
1840       (description "The package provides hyphenation patterns for Galician in
1841 T1/EC and UTF-8 encodings.")
1842       (license license:lppl1.3))))
1843
1844 (define-public texlive-hyphen-georgian
1845   (package
1846     (inherit (texlive-hyphen-package
1847               "texlive-hyphen-georgian" "ka"
1848               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1849               (base32
1850                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1851     (synopsis "Hyphenation patterns for Georgian")
1852     (description "The package provides hyphenation patterns for Georgian in
1853 T8M, T8K, and UTF-8 encodings.")
1854     (license license:lppl1.3+)))
1855
1856 (define-public texlive-hyphen-german
1857   (package
1858     (inherit (texlive-hyphen-package
1859               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1860               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1861                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1862                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1863                     "/tex/generic/dehyph/dehyphn.tex"
1864                     "/tex/generic/dehyph/dehypht.tex"
1865                     "/tex/generic/dehyph/dehyphtex.tex"
1866                     "/tex/generic/dehyph/README")
1867               (base32
1868                "17cc5hd0fr3ykpgly9nxaiz4sik3kmfn2wyxz1fkdnqqhl3i41a0")))
1869     (synopsis "Hyphenation patterns for German")
1870     (description "This package provides hyphenation patterns for German in
1871 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1872 Swiss German.")
1873     ;; The patterns are released under the Expat license; the dehyph* files
1874     ;; are released under the LPPL version 1 or later.
1875     (license (list license:expat license:lppl1.0+))))
1876
1877 (define-public texlive-hyphen-greek
1878   (package
1879     (inherit (texlive-hyphen-package
1880               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1881               (list "/doc/generic/elhyphen/"
1882                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1883                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1884                     "/tex/generic/hyphen/grmhyph5.tex"
1885                     "/tex/generic/hyphen/grphyph5.tex")
1886               (base32
1887                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1888     (synopsis "Hyphenation patterns for Greek")
1889     (description "This package provides hyphenation patterns for Modern Greek
1890 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1891     (license license:lppl)))
1892
1893 (define-public texlive-hyphen-hungarian
1894   (package
1895     (inherit (texlive-hyphen-package
1896               "texlive-hyphen-hungarian" "hu"
1897               (list "/doc/generic/huhyphen/"
1898                     "/doc/generic/hyph-utf8/languages/hu/"
1899                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1900               (base32
1901                "006d2290lcsqzh9ljansbaj9k52s17zgkw0kpsspn5l7a8n00zcl")))
1902     (synopsis "Hyphenation patterns for Hungarian")
1903     (description "This package provides hyphenation patterns for Hungarian in
1904 T1/EC and UTF-8 encodings.")
1905     ;; Any of these licenses
1906     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1907
1908 (define-public texlive-hyphen-icelandic
1909   (package
1910     (inherit (texlive-hyphen-package
1911               "texlive-hyphen-icelandic" "is"
1912               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1913               (base32
1914                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1915     (synopsis "Hyphenation patterns for Icelandic")
1916     (description "This package provides hyphenation patterns for Icelandic in
1917 T1/EC and UTF-8 encodings.")
1918     (license license:lppl1.2+)))
1919
1920 (define-public texlive-hyphen-indic
1921   (package
1922     (inherit (texlive-hyphen-package
1923               "texlive-hyphen-indic"
1924               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
1925               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
1926                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
1927                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
1928                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
1929                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
1930                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
1931                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
1932                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
1933                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
1934                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
1935                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
1936               (base32
1937                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
1938     (synopsis "Indic hyphenation patterns")
1939     (description "This package provides hyphenation patterns for Assamese,
1940 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
1941 and Telugu for Unicode engines.")
1942     (license license:expat)))
1943
1944 (define-public texlive-hyphen-indonesian
1945   (package
1946     (inherit (texlive-hyphen-package
1947               "texlive-hyphen-indonesian" "id"
1948               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
1949               (base32
1950                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
1951     (synopsis "Indonesian hyphenation patterns")
1952     (description "This package provides hyphenation patterns for
1953 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
1954 usable for Malay (Bahasa Melayu).")
1955     (license license:gpl2)))
1956
1957 (define-public texlive-hyphen-interlingua
1958   (package
1959     (inherit (texlive-hyphen-package
1960               "texlive-hyphen-interlingua" "ia"
1961               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
1962               (base32
1963                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
1964     (synopsis "Interlingua hyphenation patterns")
1965     (description "This package provides hyphenation patterns for Interlingua
1966 in ASCII encoding.")
1967     (license license:lppl1.3+)))
1968
1969 (define-public texlive-hyphen-irish
1970   (package
1971     (inherit (texlive-hyphen-package
1972               "texlive-hyphen-irish" "ga"
1973               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
1974               (base32
1975                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
1976     (synopsis "Irish hyphenation patterns")
1977     (description "This package provides hyphenation patterns for
1978 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
1979     ;; Either of these licenses
1980     (license (list license:gpl2+ license:expat))))
1981
1982 (define-public texlive-hyphen-italian
1983   (package
1984     (inherit (texlive-hyphen-package
1985               "texlive-hyphen-italian" "it"
1986               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
1987               (base32
1988                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
1989     (synopsis "Italian hyphenation patterns")
1990     (description "This package provides hyphenation patterns for Italian in
1991 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
1992 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
1993 UNI).")
1994     (license license:lppl1.3+)))
1995
1996 (define-public texlive-hyphen-kurmanji
1997   (package
1998     (inherit (texlive-hyphen-package
1999               "texlive-hyphen-kurmanji" "kmr"
2000               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
2001               (base32
2002                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
2003     (synopsis "Kurmanji hyphenation patterns")
2004     (description "This package provides hyphenation patterns for
2005 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
2006 Europe, in T1/EC and UTF-8 encodings.")
2007     (license license:lppl1.3)))
2008
2009 (define-public texlive-hyphen-latin
2010   (package
2011     (inherit (texlive-hyphen-package
2012               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
2013               '("/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
2014                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
2015                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex"
2016                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-la-x-classic.ec.tex")
2017               (base32
2018                "119rf6sk1f639ky6zr9njn21nsxzgfmjci94y26745qs8w08ilkl")))
2019     (synopsis "Liturgical Latin hyphenation patterns")
2020     (description "This package provides hyphenation patterns for Latin in
2021 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
2022 when v is needed), medieval spelling with the ligatures @code{\\ae} and
2023 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
2024 Apparently there is no conflict between the patterns of modern Latin and those
2025 of medieval Latin.  It also includes hyphenation patterns for the Classical
2026 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
2027 different from those of 'plain' Latin, the latter being more adapted to modern
2028 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
2029 T1/EC and UTF-8 encodings.")
2030     ;; Either of these licenses
2031     (license (list license:lppl1.0+ license:expat))))
2032
2033 (define-public texlive-hyphen-latvian
2034   (package
2035     (inherit (texlive-hyphen-package
2036               "texlive-hyphen-latvian" "lv"
2037               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
2038               (base32
2039                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
2040     (synopsis "Latvian hyphenation patterns")
2041     (description "This package provides hyphenation patterns for Latvian in
2042 L7X and UTF-8 encodings.")
2043     ;; Either of these licenses.
2044     (license (list license:gpl2 license:lgpl2.1))))
2045
2046 (define-public texlive-hyphen-lithuanian
2047   (package
2048     (inherit (texlive-hyphen-package
2049               "texlive-hyphen-lithuanian" "lt"
2050               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
2051               (base32
2052                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
2053     (synopsis "Lithuanian hyphenation patterns")
2054     (description "This package provides hyphenation patterns for Lithuanian in
2055 L7X and UTF-8 encodings.")
2056     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
2057     ;; the hyph-utf8 package we choose the LPPL license.
2058     (license license:lppl)))
2059
2060 (define-public texlive-hyphen-macedonian
2061   (package
2062     (inherit (texlive-hyphen-package
2063               "texlive-hyphen-macedonian" "mk"
2064               '("/tex/generic/hyph-utf8/patterns/tex/hyph-mk.tex"
2065                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-mk.macedonian.tex")
2066               (base32
2067                "1fv6y8gpic5ciw8cclfxc8h3wr5xir1j0a7shixja1pmdyz7db2b")))
2068     (synopsis "Macedonian hyphenation patterns")
2069     (description "This package provides hypenation patterns for Macedonian.")
2070     ;; XXX: License just says 'GPL'.  Assume GPL2 since the file predates GPL3.
2071     (license license:gpl2+)))
2072
2073 (define-public texlive-hyphen-mongolian
2074   (package
2075     (inherit (texlive-hyphen-package
2076               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
2077               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
2078                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
2079               (base32
2080                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
2081     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
2082     (description "This package provides hyphenation patterns for Mongolian in
2083 T2A, LMC and UTF-8 encodings.")
2084     ;; Either of these licenses
2085     (license (list license:lppl1.3+ license:expat))))
2086
2087 (define-public texlive-hyphen-norwegian
2088   (package
2089     (inherit (texlive-hyphen-package
2090               "texlive-hyphen-norwegian" '("nb" "nn" "no")
2091               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
2092                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
2093                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
2094               (base32
2095                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
2096     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
2097     (description "This package provides hyphenation patterns for Norwegian
2098 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
2099     (license (license:non-copyleft
2100               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
2101               "FSF All permissive license"))))
2102
2103 (define-public texlive-hyphen-occitan
2104   (package
2105     (inherit (texlive-hyphen-package
2106               "texlive-hyphen-occitan" "oc"
2107               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
2108               (base32
2109                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
2110     (synopsis "Occitan hyphenation patterns")
2111     (description "This package provides hyphenation patterns for Occitan in
2112 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
2113 variants spoken and written in the wide area called 'Occitanie' by the French.
2114 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
2115 Alps encompassing the southern half of the French pentagon.")
2116     (license license:lppl1.0+)))
2117
2118 (define-public texlive-hyphen-pali
2119   (package
2120     (inherit (texlive-hyphen-package
2121               "texlive-hyphen-pali" "pi"
2122               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
2123               (base32
2124                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
2125     (synopsis "Panjabi hyphenation patterns")
2126     (description "This package provides hyphenation patterns for Panjabi in
2127 T1/EC encoding.")
2128     ;; Can be used with either license.
2129     (license (list license:expat license:lgpl3+ license:gpl3+))))
2130
2131 (define-public texlive-hyphen-piedmontese
2132   (package
2133     (inherit (texlive-hyphen-package
2134               "texlive-hyphen-piedmontese" "pms"
2135               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
2136               (base32
2137                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
2138     (synopsis "Piedmontese hyphenation patterns")
2139     (description "This package provides hyphenation patterns for Piedmontese
2140 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
2141 Camillo Brero.")
2142     (license license:lppl1.3+)))
2143
2144 (define-public texlive-hyphen-polish
2145   (package
2146     (inherit (texlive-hyphen-package
2147               "texlive-hyphen-polish" "pl"
2148               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
2149               (base32
2150                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
2151     (synopsis "Polish hyphenation patterns")
2152     (description "This package provides hyphenation patterns for Polish in QX
2153 and UTF-8 encodings.")
2154     ;; No differing license declared, so we choose the project license.
2155     (license license:lppl)))
2156
2157 (define-public texlive-hyphen-portuguese
2158   (package
2159     (inherit (texlive-hyphen-package
2160               "texlive-hyphen-portuguese" "pt"
2161               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
2162               (base32
2163                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
2164     (synopsis "Portuguese hyphenation patterns")
2165     (description "This package provides hyphenation patterns for Portuguese in
2166 T1/EC and UTF-8 encodings.")
2167     (license license:bsd-3)))
2168
2169 (define-public texlive-hyphen-romanian
2170   (package
2171     (inherit (texlive-hyphen-package
2172               "texlive-hyphen-romanian" "ro"
2173               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
2174               (base32
2175                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
2176     (synopsis "Romanian hyphenation patterns")
2177     (description "This package provides hyphenation patterns for Romanian in
2178 T1/EC and UTF-8 encodings.")
2179     ;; No differing license declared, so we choose the project license.
2180     (license license:lppl)))
2181
2182 (define-public texlive-hyphen-romansh
2183   (package
2184     (inherit (texlive-hyphen-package
2185               "texlive-hyphen-romansh" "rm"
2186               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
2187               (base32
2188                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
2189     (synopsis "Romansh hyphenation patterns")
2190     (description "This package provides hyphenation patterns for Romansh in
2191 ASCII encodings.  They are supposed to comply with the rules indicated by the
2192 Lia Rumantscha (Romansh language society).")
2193     (license license:lppl1.3+)))
2194
2195 (define-public texlive-hyphen-russian
2196   (package
2197     (inherit (texlive-hyphen-package
2198               "texlive-hyphen-russian" "ru"
2199               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
2200               (base32
2201                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
2202     (synopsis "Russian hyphenation patterns")
2203     (description "This package provides hyphenation patterns for Russian in
2204 T2A and UTF-8 encodings.")
2205     (license license:lppl1.2+)))
2206
2207 (define-public texlive-hyphen-sanskrit
2208   (package
2209     (inherit (texlive-hyphen-package
2210               "texlive-hyphen-sanskrit" "sa"
2211               (list "/doc/generic/hyph-utf8/languages/sa/hyphenmin.txt"
2212                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
2213               (base32
2214                "1bkzj8swj4lbswf1vr4pb1jg6dixzs7p8h8zm8s8as52h442aida")))
2215     (synopsis "Sanskrit hyphenation patterns")
2216     (description "This package provides hyphenation patterns for Sanskrit and
2217 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
2218 Malayalam longdesc and Telugu scripts for Unicode engines.")
2219     ;; "You may freely use, copy, modify and/or distribute this file."
2220     (license (license:non-copyleft
2221               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
2222
2223 (define-public texlive-hyphen-serbian
2224   (package
2225     (inherit (texlive-hyphen-package
2226               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
2227               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
2228                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
2229                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
2230               (base32
2231                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
2232     (synopsis "Serbian hyphenation patterns")
2233     (description "This package provides hyphenation patterns for Serbian in
2234 T1/EC, T2A and UTF-8 encodings.")
2235     ;; Any version of the GPL.
2236     (license license:gpl3+)))
2237
2238 (define-public texlive-hyphen-slovak
2239   (package
2240     (inherit (texlive-hyphen-package
2241               "texlive-hyphen-slovak" "sk"
2242               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
2243               (base32
2244                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
2245     (synopsis "Slovak hyphenation patterns")
2246     (description "This package provides hyphenation patterns for Slovak in
2247 T1/EC and UTF-8 encodings.")
2248     (license license:gpl2+)))
2249
2250 (define-public texlive-hyphen-slovenian
2251   (package
2252     (inherit (texlive-hyphen-package
2253               "texlive-hyphen-slovenian" "sl"
2254               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
2255               (base32
2256                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
2257     (synopsis "Slovenian hyphenation patterns")
2258     (description "This package provides hyphenation patterns for Slovenian in
2259 T1/EC and UTF-8 encodings.")
2260     ;; Either license
2261     (license (list license:lppl1.0+ license:expat))))
2262
2263 (define-public texlive-hyphen-spanish
2264   (package
2265     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
2266     ;; generate obsolete hyphenation patterns, which aren't included in a
2267     ;; default TeX Live distribution, so we don't include them either.
2268     (inherit (texlive-hyphen-package
2269               "texlive-hyphen-spanish" "es"
2270               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
2271               (base32
2272                "05lbvjkj304xxghyihk8js0kmg97ddlgijld3bp81bc28h4cav0v")))
2273     (synopsis "Hyphenation patterns for Spanish")
2274     (description "The package provides hyphenation patterns for Spanish in
2275 T1/EC and UTF-8 encodings.")
2276     (license license:expat)))
2277
2278 (define-public texlive-hyphen-swedish
2279   (package
2280     (inherit (texlive-hyphen-package
2281               "texlive-hyphen-swedish" "sv"
2282               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2283               (base32
2284                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2285     (synopsis "Swedish hyphenation patterns")
2286     (description "This package provides hyphenation patterns for Swedish in
2287 T1/EC and UTF-8 encodings.")
2288     (license license:lppl1.2+)))
2289
2290 (define-public texlive-hyphen-thai
2291   (package
2292     (inherit (texlive-hyphen-package
2293               "texlive-hyphen-thai" "th"
2294               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2295               (base32
2296                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2297     (synopsis "Thai hyphenation patterns")
2298     (description "This package provides hyphenation patterns for Thai in LTH
2299 and UTF-8 encodings.")
2300     (license license:lppl1.3+)))
2301
2302 (define-public texlive-hyphen-turkish
2303   (let ((template (texlive-hyphen-package
2304                    "texlive-hyphen-turkish" "tr"
2305                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2306                    (base32
2307                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2308     (package
2309       (inherit template)
2310       (synopsis "Hyphenation patterns for Turkish")
2311       (description "The package provides hyphenation patterns for Turkish in
2312 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2313 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2314 and Ottoman Turkish in Latin script, however the required character set didn't
2315 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2316 compatibility with 8-bit engines.")
2317       (license license:lppl1.0+))))
2318
2319 (define-public texlive-hyphen-turkmen
2320   (let ((template (texlive-hyphen-package
2321                    "texlive-hyphen-turkmen" "tk"
2322                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2323                    (base32
2324                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2325     (package
2326       (inherit template)
2327       (synopsis "Hyphenation patterns for Turkmen")
2328       (description "The package provides hyphenation patterns for Turkmen in
2329 T1/EC and UTF-8 encodings.")
2330       (license license:expat))))
2331
2332 (define-public texlive-hyphen-ukrainian
2333   (package
2334     (inherit (texlive-hyphen-package
2335               "texlive-hyphen-ukrainian" "uk"
2336               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2337               (base32
2338                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2339     (synopsis "Ukrainian hyphenation patterns")
2340     (description "This package provides hyphenation patterns for Ukrainian in
2341 T2A and UTF-8 encodings.")
2342     ;; No version specified
2343     (license license:lppl)))
2344
2345 (define-public texlive-hyphen-uppersorbian
2346   (package
2347     (inherit (texlive-hyphen-package
2348               "texlive-hyphen-uppersorbian" "hsb"
2349               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2350               (base32
2351                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2352     (synopsis "Upper Sorbian hyphenation patterns")
2353     (description "This package provides hyphenation patterns for Upper Sorbian
2354 in T1/EC and UTF-8 encodings.")
2355     (license license:lppl1.3a+)))
2356
2357 (define-public texlive-hyphen-welsh
2358   (package
2359     (inherit (texlive-hyphen-package
2360               "texlive-hyphen-welsh" "cy"
2361               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2362               (base32
2363                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2364     (synopsis "Welsh hyphenation patterns")
2365     (description "This package provides hyphenation patterns for Welsh in
2366 T1/EC and UTF-8 encodings.")
2367     ;; Either license
2368     (license (list license:lppl1.0+ license:expat))))
2369
2370 (define-public texlive-hyph-utf8
2371   (package
2372     (inherit (simple-texlive-package
2373               "texlive-hyph-utf8"
2374               (list "/source/generic/hyph-utf8/"
2375                     "/source/luatex/hyph-utf8/"
2376                     "/doc/luatex/hyph-utf8/"
2377                     "/tex/luatex/hyph-utf8/etex.src"
2378                     ;; Used to extract luatex-hyphen.lua
2379                     "/tex/latex/base/docstrip.tex"
2380
2381                     ;; Documentation; we can't use the whole directory because
2382                     ;; it includes files from other packages.
2383                     "/doc/generic/hyph-utf8/CHANGES"
2384                     "/doc/generic/hyph-utf8/HISTORY"
2385                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2386                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2387                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2388                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2389                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2390                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2391               (base32
2392                "0rgp0zn36gwzqwpmjb9h01ns3m19v3r7lpw1h0pc9bx115w6c9jx")))
2393     (outputs '("out" "doc"))
2394     (build-system gnu-build-system)
2395     (arguments
2396      `(#:tests? #f ; there are none
2397        #:modules ((guix build gnu-build-system)
2398                   (guix build utils)
2399                   (ice-9 match))
2400        #:make-flags
2401        (list "-C" "source/luatex/hyph-utf8/"
2402              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2403              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2404              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2405              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2406              (string-append "UNPACKED = $(NAME).lua"))
2407        #:phases
2408        (modify-phases %standard-phases
2409          ;; TeX isn't usable at this point, so we first need to generate the
2410          ;; tex.fmt.
2411          (replace 'configure
2412            (lambda* (#:key inputs outputs #:allow-other-keys)
2413              ;; Target directories must exist.
2414              (mkdir-p (string-append (assoc-ref %outputs "out")
2415                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2416              (mkdir-p (string-append (assoc-ref %outputs "doc")
2417                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2418
2419              ;; We cannot build the documentation because that requires a
2420              ;; fully functional pdflatex, which depends on this package.
2421              (substitute* "source/luatex/hyph-utf8/Makefile"
2422                (("all: .*") "all: $(RUNFILES)\n"))
2423
2424              ;; Find required fonts for building tex.fmt
2425              (setenv "TFMFONTS"
2426                      (string-append (assoc-ref inputs "texlive-cm")
2427                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2428                                     (assoc-ref inputs "texlive-knuth-lib")
2429                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2430              ;; ...and find all tex files in this environment.
2431              (setenv "TEXINPUTS"
2432                      (string-append
2433                       (getcwd) ":"
2434                       (string-join
2435                        (map (match-lambda ((_ . dir) dir)) inputs)
2436                        "//:")))
2437
2438              ;; Generate tex.fmt.
2439              (let ((where "source/luatex/hyph-utf8"))
2440                (mkdir-p where)
2441                (with-directory-excursion where
2442                  (invoke "tex" "-ini"
2443                          (string-append (assoc-ref inputs "texlive-tex-plain")
2444                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2445          (add-before 'build 'build-loaders-and-converters
2446            (lambda* (#:key outputs #:allow-other-keys)
2447              (let* ((root (string-append (assoc-ref outputs "out")
2448                                          "/share/texmf-dist"))
2449                     (conv
2450                      (string-append root
2451                                     "/tex/generic/hyph-utf8/conversions")))
2452
2453                ;; Build converters
2454                (mkdir-p conv)
2455                (with-directory-excursion "source/generic/hyph-utf8"
2456                  (substitute* "generate-converters.rb"
2457                    (("\\$path_root=File.*")
2458                     (string-append "$path_root=\"" root "\"\n"))
2459                    ;; Avoid error with newer Ruby.
2460                    (("#1\\{%") "#1{%%"))
2461                  (invoke "ruby" "generate-converters.rb"))
2462                #t)))
2463          (replace 'install
2464            (lambda* (#:key source outputs #:allow-other-keys)
2465              (let ((doc (assoc-ref outputs "doc"))
2466                    (out (assoc-ref outputs "out")))
2467                (mkdir-p doc)
2468                (copy-recursively
2469                 (string-append source "/doc")
2470                 (string-append doc "/doc"))
2471                (install-file
2472                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2473                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2474              #t)))))
2475     (native-inputs
2476      `(("ruby" ,ruby)
2477        ("texlive-bin" ,texlive-bin)
2478        ;; The following packages are needed for build "tex.fmt", which we need
2479        ;; for a working "tex".
2480        ("texlive-tex-plain" ,texlive-tex-plain)
2481        ("texlive-cm" ,texlive-cm)
2482        ("texlive-knuth-lib" ,texlive-knuth-lib)
2483        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2484     (home-page "https://ctan.org/pkg/hyph-utf8")
2485     (synopsis "Hyphenation patterns expressed in UTF-8")
2486     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2487 hyphenation patterns in UTF-8 format, whereas older systems require
2488 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2489 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2490 etc).  The present package offers a collection of conversions of existing
2491 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2492 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2493 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2494 converters, will completely supplant the older patterns.")
2495     ;; Individual files each have their own license.  Most of these files are
2496     ;; independent hyphenation patterns.
2497     (license (list license:lppl1.0+
2498                    license:lppl1.2+
2499                    license:lppl1.3
2500                    license:lppl1.3+
2501                    license:lppl1.3a+
2502                    license:lgpl2.1
2503                    license:lgpl2.1+
2504                    license:lgpl3+
2505                    license:gpl2+
2506                    license:gpl3+
2507                    license:mpl1.1
2508                    license:asl2.0
2509                    license:expat
2510                    license:bsd-3
2511                    license:cc0
2512                    license:public-domain
2513                    license:wtfpl2))))
2514
2515 (define-deprecated-package texlive-generic-hyph-utf8 texlive-hyph-utf8)
2516
2517 (define-public texlive-dehyph-exptl
2518   (package
2519     (inherit (simple-texlive-package
2520               "texlive-dehyph-exptl"
2521               (list "/tex/generic/dehyph-exptl/"
2522                     "/doc/generic/dehyph-exptl/")
2523               (base32
2524                "0l57a0r4gycp94kz6lrxqvh9m57j2shmbr2laf5zjb0qnrisq46d")
2525               #:trivial? #t))
2526     (propagated-inputs
2527      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2528        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2529     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2530     (synopsis "Hyphenation patterns for German")
2531     (description "The package provides experimental hyphenation patterns for
2532 the German language, covering both traditional and reformed orthography.  The
2533 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2534 bundle.")
2535     ;; Hyphenation patterns are under the Expat license; documentation is
2536     ;; under LPPL.
2537     (license (list license:expat license:lppl))))
2538
2539 (define-deprecated-package texlive-generic-dehyph-exptl texlive-dehyph-exptl)
2540
2541 (define-public texlive-ukrhyph
2542   (package
2543     (inherit (simple-texlive-package
2544               "texlive-ukrhyph"
2545               (list "/doc/generic/ukrhyph/"
2546                     "/tex/generic/ukrhyph/")
2547               (base32
2548                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2549               #:trivial? #t))
2550     (home-page "https://www.ctan.org/pkg/ukrhyph")
2551     (synopsis "Hyphenation patterns for Ukrainian")
2552     (description "The package provides a range of hyphenation patterns for
2553 Ukrainian, depending on the encoding of the output font including the standard
2554 T2A.")
2555     (license license:lppl)))
2556
2557 (define-public texlive-ruhyphen
2558   (let ((template (simple-texlive-package
2559                    "texlive-ruhyphen"
2560                    (list "/source/generic/ruhyphen/"
2561                          "/tex/generic/ruhyphen/")
2562                    (base32
2563                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2564                    #:trivial? #t)))
2565     (package
2566       (inherit template)
2567       (arguments
2568        (substitute-keyword-arguments (package-arguments template)
2569          ((#:phases phases)
2570           `(modify-phases ,phases
2571              (replace 'build
2572                (lambda _
2573                  (let ((cwd (getcwd)))
2574                    ;; Remove generated files.
2575                    (for-each delete-file
2576                              (find-files "tex/generic/ruhyphen/"
2577                                          "^cyry.*.tex$"))
2578                    (substitute* "source/generic/ruhyphen/Makefile"
2579                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2580                    (with-directory-excursion "tex/generic/ruhyphen"
2581                      (invoke "make" "-f"
2582                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2583       (native-inputs
2584        `(("coreutils" ,coreutils)
2585          ("gawk" ,gawk)
2586          ("sed" ,sed)
2587          ("grep" ,grep)
2588          ("perl" ,perl)))
2589       (home-page "https://www.ctan.org/pkg/ruhyphen")
2590       (synopsis "Hyphenation patterns for Russian")
2591       (description "The package provides a collection of Russian hyphenation
2592 patterns supporting a number of Cyrillic font encodings, including T2,
2593 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2594       (license license:lppl))))
2595
2596 (define-public texlive-kpathsea
2597   (package
2598     (inherit (simple-texlive-package
2599               "texlive-kpathsea"
2600               (list "/web2c/amiga-pl.tcx"
2601                     "/web2c/cp1250cs.tcx"
2602                     "/web2c/cp1250pl.tcx"
2603                     "/web2c/cp1250t1.tcx"
2604                     "/web2c/cp227.tcx"
2605                     "/web2c/cp852-cs.tcx"
2606                     "/web2c/cp852-pl.tcx"
2607                     "/web2c/cp8bit.tcx"
2608                     "/web2c/empty.tcx"
2609                     "/web2c/fmtutil.cnf"
2610                     "/web2c/il1-t1.tcx"
2611                     "/web2c/il2-cs.tcx"
2612                     "/web2c/il2-pl.tcx"
2613                     "/web2c/il2-t1.tcx"
2614                     "/web2c/kam-cs.tcx"
2615                     "/web2c/kam-t1.tcx"
2616                     "/web2c/macce-pl.tcx"
2617                     "/web2c/macce-t1.tcx"
2618                     "/web2c/maz-pl.tcx"
2619                     "/web2c/mktex.cnf"
2620                     "/web2c/mktex.opt"
2621                     "/web2c/mktexdir"
2622                     "/web2c/mktexdir.opt"
2623                     "/web2c/mktexnam"
2624                     "/web2c/mktexnam.opt"
2625                     "/web2c/mktexupd"
2626                     "/web2c/natural.tcx"
2627                     "/web2c/tcvn-t5.tcx"
2628                     "/web2c/viscii-t5.tcx")
2629               (base32
2630                "00q2nny7lw7jxyln6ch4h0alygbrzk8yynliyc291m53kds1h0mr")
2631               #:trivial? #t))
2632     (home-page "https://www.tug.org/texlive/")
2633     (synopsis "Files related to the path searching library for TeX")
2634     (description "Kpathsea is a library and utility programs which provide
2635 path searching facilities for TeX file types, including the self-locating
2636 feature required for movable installations, layered on top of a general search
2637 mechanism.  This package provides supporting files.")
2638     (license license:lgpl3+)))
2639
2640 (define-public texlive-latexconfig
2641   (package
2642     (inherit (simple-texlive-package
2643               "texlive-latexconfig"
2644               (list "/tex/latex/latexconfig/")
2645               (base32
2646                "10ynmd8b9b9l1wl1mva23yz4zir53p6r5z31s39wmxz19pj12qvx")
2647               #:trivial? #t))
2648     (home-page "https://www.tug.org/")
2649     (synopsis "Configuration files for LaTeX-related formats")
2650     (description "The package provides configuration files for LaTeX-related
2651 formats.")
2652     (license license:lppl)))
2653
2654 (define-public texlive-latex-base
2655   (let ((template (simple-texlive-package
2656                    "texlive-latex-base"
2657                    (list "/doc/latex/base/"
2658                          "/source/latex/base/"
2659                          ;; Almost all files in /tex/latex/base are generated, but
2660                          ;; these are not:
2661                          "/tex/latex/base/idx.tex"
2662                          "/tex/latex/base/lablst.tex"
2663                          "/tex/latex/base/ltnews.cls"
2664                          "/tex/latex/base/ltxcheck.tex"
2665                          "/tex/latex/base/ltxguide.cls"
2666                          "/tex/latex/base/minimal.cls"
2667                          "/tex/latex/base/sample2e.tex"
2668                          "/tex/latex/base/small2e.tex"
2669                          "/tex/latex/base/testpage.tex"
2670                          "/tex/latex/base/texsys.cfg")
2671                    (base32
2672                     "0msyjz0937rc7hs77v6la152sdiwd73qj41z1mlyh0m3dns9qz4g")
2673                    #:trivial? #t)))
2674     (package
2675       (inherit template)
2676       (arguments
2677        (substitute-keyword-arguments (package-arguments template)
2678          ((#:modules modules '())
2679           '((guix build gnu-build-system)
2680             (guix build utils)
2681             (ice-9 match)
2682             (srfi srfi-26)))
2683          ((#:phases phases)
2684           `(modify-phases ,phases
2685              ;; The literal tab in the dtx file is translated to the string
2686              ;; "^^I" in the generated Lua file, which causes a syntax error.
2687              (add-after 'unpack 'fix-lua-sources
2688                (lambda _
2689                  (substitute* "source/latex/base/ltluatex.dtx"
2690                    (("  ") "  "))
2691                  #t))
2692              (replace 'build
2693                (lambda* (#:key inputs #:allow-other-keys)
2694                  ;; Find required fonts
2695                  (setenv "TFMFONTS"
2696                          (string-join
2697                           (map (match-lambda
2698                                  ((pkg-name . dir)
2699                                   (string-append
2700                                    (assoc-ref inputs pkg-name)
2701                                    "/share/texmf-dist/fonts/tfm/public"
2702                                    dir)))
2703                                '(("texlive-etex" . "/etex")
2704                                  ("texlive-cm" . "/cm")
2705                                  ("texlive-fonts-latex" . "/latex-fonts")
2706                                  ("texlive-knuth-lib" . "/knuth-lib")))
2707                           ":"))
2708                  (let ((cwd (getcwd)))
2709                    (setenv "TEXINPUTS"
2710                            (string-append
2711                             cwd "//:"
2712                             cwd "/source/latex/base//:"
2713                             cwd "/build:"
2714                             (string-join
2715                              (map (match-lambda ((_ . dir) dir)) inputs)
2716                              "//:")))
2717                    (setenv "LUAINPUTS" (string-append cwd "/build:")))
2718
2719                  ;; This is the actual build step.
2720                  (mkdir "build")
2721                  (invoke "tex" "-ini" "-interaction=scrollmode"
2722                          "-output-directory=build" "unpack.ins")
2723
2724                  ;; XXX: We can't build all formats at this point, nor are they
2725                  ;; part of the LaTeX base, so we disable them.  Actually, we
2726                  ;; should be running this all in a profile hook, so that only
2727                  ;; selected formats and hyphenation patterns are included, but it
2728                  ;; takes long and TeX Live isn't designed to be modular like
2729                  ;; that.  Everything operates on a shared directory, which we
2730                  ;; would only have at profile generation time.
2731                  (let ((disabled-formats
2732                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2733                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2734                           "platex-dev eptex" "uplatex-dev euptex"
2735                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2736                           "luacsplain luatex" "optex luatex"
2737                           ;; LuaJIT is not ported to powerpc64le* yet and
2738                           ;; building these fail on powerpc.
2739                           ,@(if (target-powerpc?)
2740                               '("luajittex" "luajithbtex" "mfluajit") '())
2741                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2742                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2743                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2744                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2745                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2746                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2747                    (mkdir "web2c")
2748                    (install-file (string-append
2749                                   (assoc-ref inputs "texlive-kpathsea")
2750                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2751                                  "web2c")
2752                    (make-file-writable "web2c/fmtutil.cnf")
2753                    (substitute* "web2c/fmtutil.cnf"
2754                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2755                       (string-append "#! " m))
2756                      (("translate-file=cp227")
2757                       (format #f "translate-file=~a/share/texmf-dist/web2c/cp227"
2758                               (assoc-ref inputs "texlive-kpathsea")))))
2759                  (invoke "fmtutil-sys" "--all"
2760                          "--fmtdir=web2c"
2761                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2762                  ;; We don't actually want to install it.
2763                  (delete-file "web2c/fmtutil.cnf")
2764                  #t))
2765              (add-after 'install 'install-more
2766                (lambda* (#:key inputs outputs #:allow-other-keys)
2767                  (let* ((out (assoc-ref outputs "out"))
2768                         (root (string-append out "/share/texmf-dist"))
2769                         (target (string-append root "/tex/latex/base"))
2770                         (web2c (string-append root "/web2c"))
2771                         (makeindex (string-append root "/makeindex/latex")))
2772                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2773
2774                    ;; The usedir directive in docstrip.ins is ignored, so these
2775                    ;; two files end up in the wrong place.  Move them.
2776                    (mkdir-p makeindex)
2777                    (for-each (lambda (file)
2778                                (install-file file makeindex)
2779                                (delete-file file))
2780                              '("build/gglo.ist"
2781                                "build/gind.ist"))
2782                    (for-each (cut install-file <> target)
2783                              (find-files "build" ".*"))
2784                    (for-each (cut install-file <> web2c)
2785                              (find-files "web2c" ".*"))
2786                    #t)))))))
2787       (native-inputs
2788        `(("texlive-bin" ,texlive-bin)
2789          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2790          ("texlive-tex-plain" ,texlive-tex-plain)
2791          ("texlive-kpathsea" ,texlive-kpathsea)
2792          ("texlive-cm" ,texlive-cm)
2793          ("texlive-fonts-latex" ,texlive-fonts-latex)
2794          ("texlive-knuth-lib" ,texlive-knuth-lib)
2795          ("texlive-luatexconfig"
2796           ,(texlive-origin
2797             "texlive-luatexconfig" (number->string %texlive-revision)
2798             (list "/tex/generic/config/luatex-unicode-letters.tex"
2799                   "/tex/generic/config/luatexiniconfig.tex"
2800                   "/web2c/texmfcnf.lua")
2801             (base32
2802              "0yjx7nw9mgfgnq1givkzbxh7z7ncw1liaddjgm7n2nwn0aw6xfdg")))))
2803       (propagated-inputs
2804        `(("texlive-dehyph-exptl" ,texlive-dehyph-exptl)
2805          ("texlive-etex" ,texlive-etex)
2806          ("texlive-hyph-utf8" ,texlive-hyph-utf8)
2807          ("texlive-hyphen-base" ,texlive-hyphen-base)
2808          ("texlive-hyphen-afrikaans" ,texlive-hyphen-afrikaans)
2809          ("texlive-hyphen-ancientgreek" ,texlive-hyphen-ancientgreek)
2810          ("texlive-hyphen-armenian" ,texlive-hyphen-armenian)
2811          ("texlive-hyphen-basque" ,texlive-hyphen-basque)
2812          ("texlive-hyphen-belarusian" ,texlive-hyphen-belarusian)
2813          ("texlive-hyphen-bulgarian" ,texlive-hyphen-bulgarian)
2814          ("texlive-hyphen-catalan" ,texlive-hyphen-catalan)
2815          ("texlive-hyphen-chinese" ,texlive-hyphen-chinese)
2816          ("texlive-hyphen-churchslavonic" ,texlive-hyphen-churchslavonic)
2817          ("texlive-hyphen-coptic" ,texlive-hyphen-coptic)
2818          ("texlive-hyphen-croatian" ,texlive-hyphen-croatian)
2819          ("texlive-hyphen-czech" ,texlive-hyphen-czech)
2820          ("texlive-hyphen-danish" ,texlive-hyphen-danish)
2821          ("texlive-hyphen-dutch" ,texlive-hyphen-dutch)
2822          ("texlive-hyphen-english" ,texlive-hyphen-english)
2823          ("texlive-hyphen-esperanto" ,texlive-hyphen-esperanto)
2824          ("texlive-hyphen-estonian" ,texlive-hyphen-estonian)
2825          ("texlive-hyphen-ethiopic" ,texlive-hyphen-ethiopic)
2826          ("texlive-hyphen-finnish" ,texlive-hyphen-finnish)
2827          ("texlive-hyphen-schoolfinnish" ,texlive-hyphen-schoolfinnish)
2828          ("texlive-hyphen-french" ,texlive-hyphen-french)
2829          ("texlive-hyphen-friulan" ,texlive-hyphen-friulan)
2830          ("texlive-hyphen-galician" ,texlive-hyphen-galician)
2831          ("texlive-hyphen-georgian" ,texlive-hyphen-georgian)
2832          ("texlive-hyphen-german" ,texlive-hyphen-german)
2833          ("texlive-hyphen-greek" ,texlive-hyphen-greek)
2834          ("texlive-hyphen-hungarian" ,texlive-hyphen-hungarian)
2835          ("texlive-hyphen-icelandic" ,texlive-hyphen-icelandic)
2836          ("texlive-hyphen-indic" ,texlive-hyphen-indic)
2837          ("texlive-hyphen-indonesian" ,texlive-hyphen-indonesian)
2838          ("texlive-hyphen-interlingua" ,texlive-hyphen-interlingua)
2839          ("texlive-hyphen-irish" ,texlive-hyphen-irish)
2840          ("texlive-hyphen-italian" ,texlive-hyphen-italian)
2841          ("texlive-hyphen-kurmanji" ,texlive-hyphen-kurmanji)
2842          ("texlive-hyphen-latin" ,texlive-hyphen-latin)
2843          ("texlive-hyphen-latvian" ,texlive-hyphen-latvian)
2844          ("texlive-hyphen-lithuanian" ,texlive-hyphen-lithuanian)
2845          ("texlive-hyphen-macedonian" ,texlive-hyphen-macedonian)
2846          ("texlive-hyphen-mongolian" ,texlive-hyphen-mongolian)
2847          ("texlive-hyphen-norwegian" ,texlive-hyphen-norwegian)
2848          ("texlive-hyphen-occitan" ,texlive-hyphen-occitan)
2849          ("texlive-hyphen-pali" ,texlive-hyphen-pali)
2850          ("texlive-hyphen-piedmontese" ,texlive-hyphen-piedmontese)
2851          ("texlive-hyphen-polish" ,texlive-hyphen-polish)
2852          ("texlive-hyphen-portuguese" ,texlive-hyphen-portuguese)
2853          ("texlive-hyphen-romanian" ,texlive-hyphen-romanian)
2854          ("texlive-hyphen-romansh" ,texlive-hyphen-romansh)
2855          ("texlive-hyphen-russian" ,texlive-hyphen-russian)
2856          ("texlive-hyphen-sanskrit" ,texlive-hyphen-sanskrit)
2857          ("texlive-hyphen-serbian" ,texlive-hyphen-serbian)
2858          ("texlive-hyphen-slovak" ,texlive-hyphen-slovak)
2859          ("texlive-hyphen-slovenian" ,texlive-hyphen-slovenian)
2860          ("texlive-hyphen-spanish" ,texlive-hyphen-spanish)
2861          ("texlive-hyphen-swedish" ,texlive-hyphen-swedish)
2862          ("texlive-hyphen-thai" ,texlive-hyphen-thai)
2863          ("texlive-hyphen-turkish" ,texlive-hyphen-turkish)
2864          ("texlive-hyphen-turkmen" ,texlive-hyphen-turkmen)
2865          ("texlive-hyphen-ukrainian" ,texlive-hyphen-ukrainian)
2866          ("texlive-hyphen-uppersorbian" ,texlive-hyphen-uppersorbian)
2867          ("texlive-hyphen-welsh" ,texlive-hyphen-welsh)
2868          ("texlive-unicode-data" ,texlive-unicode-data)
2869          ("texlive-ukrhyph" ,texlive-ukrhyph)
2870          ("texlive-ruhyphen" ,texlive-ruhyphen)
2871          ("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
2872          ("texlive-latex-l3backend" ,texlive-latex-l3backend)
2873          ;; TODO: This dependency isn't needed for LaTeX version 2021-06-01
2874          ;; and later. See:
2875          ;; https://tug.org/pipermail/tex-live/2021-June/047180.html
2876          ("texlive-latex-l3packages" ,texlive-latex-l3packages)
2877          ("texlive-latexconfig" ,texlive-latexconfig)))
2878       (home-page "https://www.ctan.org/pkg/latex-base")
2879       (synopsis "Base sources of LaTeX")
2880       (description
2881        "This bundle comprises the source of LaTeX itself, together with several
2882 packages which are considered \"part of the kernel\".  This bundle, together
2883 with the required packages, constitutes what every LaTeX distribution should
2884 contain.")
2885       (license license:lppl1.3c+))))
2886
2887 (define-public texlive-latex-atveryend
2888   (package
2889     (inherit (simple-texlive-package
2890               "texlive-latex-atveryend"
2891               '("/doc/latex/atveryend/README.md"
2892                 "/tex/latex/atveryend/")
2893               (base32
2894                "1gz5ssxjlqa53a8blsmdk2qjahzc910ldh26xjxfxgqnqb03rqx7")
2895               #:trivial? #t))
2896     (home-page "https://www.ctan.org/pkg/atveryend")
2897     (synopsis "Hooks at the very end of a document")
2898     (description
2899      "This LaTeX packages provides two hooks for @code{\\end@{document@}}
2900 that are executed after the hook of @code{\\AtEndDocument}:
2901 @code{\\AfterLastShipout} can be used for code that is to be executed right
2902 after the last @code{\\clearpage} before the @file{.aux} file is closed.
2903 @code{\\AtVeryEndDocument} is used for code after closing and final reading
2904 of the @file{.aux} file.")
2905     (license license:lppl1.3c+)))
2906
2907 (define-public texlive-latex-auxhook
2908   (package
2909     (inherit (simple-texlive-package
2910               "texlive-latex-auxhook"
2911               '("/doc/latex/auxhook/README.md"
2912                 "/tex/latex/auxhook/")
2913               (base32
2914                "1xh445shr00rh43nnz03xh8k2mdrxgsr03lllqpgvwhm6yzsydkf")
2915               #:trivial? #t))
2916     (home-page "https://www.ctan.org/pkg/auxhook")
2917     (synopsis "Hooks for auxiliary files")
2918     (description
2919      "This package provides hooks for adding code at the beginning of
2920 @file{.aux} files.")
2921     (license license:lppl1.3c+)))
2922
2923 (define-public texlive-latex-epstopdf-pkg
2924   (package
2925     (inherit (simple-texlive-package
2926               "texlive-latex-epstopdf-pkg"
2927               '("/doc/latex/epstopdf-pkg/"
2928                 "/tex/latex/epstopdf-pkg/")
2929               (base32
2930                "0zl6jiyp2cvvyqx3lwxdkcvvnkqgbwj4issq07cagf61gljq6fns")
2931               #:trivial? #t))
2932     (home-page "https://www.ctan.org/pkg/epstopdf-pkg")
2933     (synopsis "Call @command{epstopdf} \"on the fly\"")
2934     (description
2935      "The package adds support for EPS files in the @code{graphicx} package
2936 when running under pdfTeX.  If an EPS graphic is detected, the package
2937 spawns a process to convert the EPS to PDF, using the script
2938 @command{epstopdf}.")
2939     (license license:lppl1.3c+)))
2940
2941 (define-public texlive-latex-filecontents
2942   (package
2943     (name "texlive-latex-filecontents")
2944     (version (number->string %texlive-revision))
2945     (source (origin
2946               (method svn-fetch)
2947               (uri (texlive-ref "latex" "filecontents"))
2948               (file-name (string-append name "-" version "-checkout"))
2949               (sha256
2950                (base32
2951                 "1cmfigg5jx3hmdyh4gv8kwxi7dg076ldkxmr46s05xvhzjig1z9x"))))
2952     (build-system texlive-build-system)
2953     (arguments '(#:tex-directory "latex/filecontents"))
2954     (home-page "https://www.ctan.org/pkg/filecontents")
2955     (synopsis "Extended filecontents and filecontents* environments")
2956     (description
2957      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2958 enable a LaTeX source file to generate external files as it runs through
2959 LaTeX.  However, there are two limitations of these environments: they refuse
2960 to overwrite existing files, and they can only be used in the preamble of a
2961 document.  The filecontents package removes these limitations, letting you
2962 overwrite existing files and letting you use @code{filecontents} /
2963 @code{filecontents*} anywhere.")
2964     (license license:lppl1.3c+)))
2965
2966 (define-public texlive-epsf
2967   (package
2968     (inherit (simple-texlive-package
2969               "texlive-epsf"
2970               (list "/doc/generic/epsf/"
2971                     "/tex/generic/epsf/")
2972               (base32
2973                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
2974               #:trivial? #t))
2975     (home-page "https://www.ctan.org/pkg/epsf")
2976     (synopsis "Simple macros for EPS inclusion")
2977     (description
2978      "This package provides the original (and now obsolescent) graphics
2979 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2980 particular).  For LaTeX users, the package is nowadays (rather strongly)
2981 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2982 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2983 users, via its Plain TeX version.)")
2984     (license license:public-domain)))
2985
2986 (define-deprecated-package texlive-generic-epsf texlive-epsf)
2987
2988 (define-public texlive-latex-fancyvrb
2989   (package
2990     (inherit (simple-texlive-package
2991               "texlive-latex-fancyvrb"
2992               (list "/doc/latex/fancyvrb/README"
2993                     "/tex/latex/fancyvrb/")
2994               (base32
2995                "0pdilgpw4zc0ipp4z9kdi61nymifyjy2mfpk74xk2cw9vhynkk3w")
2996               #:trivial? #t))
2997     (home-page "https://www.ctan.org/pkg/fancyvrb")
2998     (synopsis "Sophisticated verbatim text")
2999     (description
3000      "This package provides tools for the flexible handling of verbatim text
3001 including: verbatim commands in footnotes; a variety of verbatim environments
3002 with many parameters; ability to define new customized verbatim environments;
3003 save and restore verbatim text and environments; write and read files in
3004 verbatim mode; build \"example\" environments (showing both result and
3005 verbatim source).")
3006     (license license:lppl1.0+)))
3007
3008 (define-public texlive-graphics-def
3009   (package
3010     (inherit (simple-texlive-package
3011               "texlive-graphics-def"
3012               (list "/doc/latex/graphics-def/README.md"
3013                     "/tex/latex/graphics-def/")
3014               (base32
3015                "0b66fy06safyrd717rfr476g1gz6nqfv1vqvam7ac2yy0g0djb17")
3016               #:trivial? #t))
3017     (propagated-inputs
3018      `(("texlive-latex-epstopdf-pkg" ,texlive-latex-epstopdf-pkg)))
3019     (home-page "https://www.ctan.org/pkg/latex-graphics")
3020     (synopsis "Color and graphics option files")
3021     (description
3022      "This bundle is a combined distribution consisting of @file{dvips.def},
3023 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
3024 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
3025 packages.")
3026     (license license:lppl1.3c+)))
3027
3028 (define-public texlive-graphics-cfg
3029   (package
3030     (inherit (simple-texlive-package
3031               "texlive-graphics-cfg"
3032               (list "/doc/latex/graphics-cfg/README.md"
3033                     "/tex/latex/graphics-cfg/")
3034               (base32
3035                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
3036               #:trivial? #t))
3037     (home-page "https://www.ctan.org/pkg/latex-graphics")
3038     (synopsis "Sample configuration files for LaTeX color and graphics")
3039     (description
3040      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
3041 set default \"driver\" options for the color and graphics packages.")
3042     (license license:public-domain)))
3043
3044 (define-public texlive-latex-graphics
3045   (package
3046     (name "texlive-latex-graphics")
3047     (version (number->string %texlive-revision))
3048     (source (origin
3049               (method svn-fetch)
3050               (uri (texlive-ref "latex" "graphics"))
3051               (file-name (string-append name "-" version "-checkout"))
3052               (sha256
3053                (base32
3054                 "0fgjl58f25zvagssz4dwmmsclzw8cr7mx00kdrbx2kcnamcb7h8d"))))
3055     (build-system texlive-build-system)
3056     (arguments '(#:tex-directory "latex/graphics"))
3057     (propagated-inputs
3058      `(("texlive-graphics-cfg" ,texlive-graphics-cfg)
3059        ("texlive-graphics-def" ,texlive-graphics-def)))
3060     (home-page "https://www.ctan.org/pkg/latex-graphics")
3061     (synopsis "LaTeX standard graphics bundle")
3062     (description
3063      "This is a collection of LaTeX packages for producing color, including
3064 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
3065 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
3066 keyval, and lscape.")
3067     (license license:lppl1.3c+)))
3068
3069 (define-public texlive-latex-hycolor
3070   (package
3071     (inherit (simple-texlive-package
3072               "texlive-latex-hycolor"
3073               (list "/doc/latex/hycolor/README.md"
3074                     "/tex/latex/hycolor/")
3075               (base32
3076                "026lfb4l7b3q8g6zc68siqandhb1x98cbycn7njknqva6s99aiqn")
3077               #:trivial? #t))
3078     (home-page "https://www.ctan.org/pkg/latex-graphics")
3079     (synopsis "Color for hyperref and bookmark")
3080     (description
3081      "This package provides the code for the @code{color} option that is
3082 used by @code{hyperref} and @code{bookmark}.")
3083     (license license:lppl1.3c+)))
3084
3085 (define-public texlive-xcolor
3086   (let ((template (simple-texlive-package
3087                    "texlive-xcolor"
3088                    (list "/doc/latex/xcolor/"
3089                          "/source/latex/xcolor/")
3090                    (base32
3091                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
3092     (package
3093       (inherit template)
3094       (arguments
3095        (substitute-keyword-arguments (package-arguments template)
3096          ((#:tex-directory _ #t)
3097           "latex/xcolor")
3098          ((#:phases phases)
3099           `(modify-phases ,phases
3100              (add-after 'unpack 'chdir
3101                (lambda _ (chdir "source/latex/xcolor") #t))
3102              (add-after 'install 'move-files
3103                (lambda* (#:key outputs #:allow-other-keys)
3104                  (let ((share (string-append (assoc-ref outputs "out")
3105                                              "/share/texmf-dist")))
3106                    (mkdir-p (string-append share "/dvips/xcolor"))
3107                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
3108                                 (string-append share "/dvips/xcolor/xcolor.pro"))
3109                    #t)))))))
3110       (home-page "https://www.ctan.org/pkg/xcolor")
3111       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
3112       (description
3113        "The package starts from the basic facilities of the colorcolor package,
3114 and provides easy driver-independent access to several kinds of color tints,
3115 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
3116 document-wide target color model and offers complete tools for conversion
3117 between eight color models.  Additionally, there is a command for alternating
3118 row colors plus repeated non-aligned material (like horizontal lines) in
3119 tables.")
3120       (license license:lppl1.2+))))
3121
3122 (define-deprecated-package texlive-latex-xcolor texlive-xcolor)
3123
3124 (define-public texlive-xmltex
3125   (let ((template (simple-texlive-package
3126                    "texlive-xmltex"
3127                    (list
3128                     "/doc/otherformats/xmltex/"
3129                     "/tex/xmltex/")
3130                    (base32
3131                     "023gv9axq05vwqz50fnkig24dzahwlc4raks2s8xc4pzrv2dv1zy"))))
3132     (package
3133       (inherit template)
3134       (arguments
3135        (substitute-keyword-arguments (package-arguments template)
3136          ((#:tex-directory _ #t)
3137           "tex/xmltex/base")
3138          ((#:phases phases '%standard-phases)
3139           `(modify-phases ,phases
3140              (add-before 'install 'generate-formats
3141                (lambda* (#:key inputs #:allow-other-keys)
3142                  (mkdir "web2c")
3143                  (for-each (lambda (f)
3144                              (copy-file f (basename f)))
3145                            (find-files "tex" "\\.(ini|tex)$"))
3146                  (invoke "fmtutil-sys" "--byfmt" "xmltex"
3147                          "--fmtdir=web2c")
3148                  (invoke "fmtutil-sys" "--byfmt" "pdfxmltex"
3149                          "--fmtdir=web2c")))
3150              (add-after 'install 'install-formats-and-wrappers
3151                (lambda* (#:key inputs outputs #:allow-other-keys)
3152                  (let* ((out (assoc-ref outputs "out"))
3153                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3154                         (pdftex (string-append texlive-bin "/bin/pdftex"))
3155                         (web2c (string-append out "/share/texmf-dist/web2c")))
3156                    (mkdir-p web2c)
3157                    (copy-recursively "web2c" web2c)
3158                    ;; Create convenience command wrappers.
3159                    (mkdir-p (string-append out "/bin"))
3160                    (symlink pdftex (string-append out "/bin/xmltex"))
3161                    (symlink pdftex (string-append out "/bin/pdfxmltex"))
3162                    #t)))))))
3163       (propagated-inputs
3164        ;; The following fonts are propagated as a texlive-updmap.cfg as the font
3165        ;; maps need to be recreated for the fonts to be usable.  They are
3166        ;; required by xmltex through mlnames.sty and unicode.sty.
3167        `(("texlive" ,(texlive-updmap.cfg
3168                       (list
3169                        texlive-amsfonts
3170                        texlive-babel
3171                        texlive-courier
3172                        texlive-helvetic
3173                        texlive-hyperref
3174                        texlive-symbol
3175                        texlive-tipa
3176                        texlive-times
3177                        texlive-zapfding
3178                        ;; The following fonts, while not required, are used if
3179                        ;; available:
3180                        texlive-stmaryrd
3181                        texlive-wasy)))))
3182       (native-inputs
3183        `(("texlive-tex-ini-files" ,texlive-tex-ini-files)))
3184       (home-page "https://www.ctan.org/pkg/xmltex/")
3185       (synopsis "Support for parsing XML documents")
3186       (description "The package provides an implementation of a parser for
3187 documents matching the XML 1.0 and XML Namespace Recommendations.  Element and
3188 attribute names, as well as character data, may use any characters allowed in
3189 XML, using UTF-8 or a suitable 8-bit encoding.")
3190       (license license:lppl1.0+))))        ;per xmltex/base/readme.txt
3191
3192 (define-public texlive-hyperref
3193   (let ((template (simple-texlive-package
3194                    "texlive-hyperref"
3195                    (list "/doc/latex/hyperref/"
3196                          "/source/latex/hyperref/"
3197                          ;; These files are not generated from the sources
3198                          "/tex/latex/hyperref/minitoc-hyper.sty"
3199                          "/tex/latex/hyperref/ntheorem-hyper.sty"
3200                          "/tex/latex/hyperref/xr-hyper.sty")
3201                    (base32
3202                     "0nmbxaq676m2y9fgdji0bxqchmrli4hwhspijaszx51b3ki6bj2h"))))
3203     (package
3204       (inherit template)
3205       (arguments
3206        (substitute-keyword-arguments (package-arguments template)
3207          ((#:tex-directory _ #t)
3208           "latex/hyperref")
3209          ((#:phases phases)
3210           `(modify-phases ,phases
3211              (add-after 'unpack 'chdir
3212                (lambda _ (chdir "source/latex/hyperref") #t))))))
3213       (propagated-inputs
3214        `(("texlive-generic-atbegshi" ,texlive-generic-atbegshi)
3215          ("texlive-generic-bitset" ,texlive-generic-bitset)
3216          ("texlive-generic-etexcmds" ,texlive-generic-etexcmds)
3217          ("texlive-generic-gettitlestring" ,texlive-generic-gettitlestring)
3218          ("texlive-generic-iftex" ,texlive-generic-iftex)
3219          ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
3220          ("texlive-generic-intcalc" ,texlive-generic-intcalc)
3221          ("texlive-generic-kvdefinekeys" ,texlive-generic-kvdefinekeys)
3222          ("texlive-generic-kvsetkeys" ,texlive-generic-kvsetkeys)
3223          ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)
3224          ("texlive-generic-pdfescape" ,texlive-generic-pdfescape)
3225          ("texlive-latex-auxhook" ,texlive-latex-auxhook)
3226          ("texlive-latex-atveryend" ,texlive-latex-atveryend)
3227          ("texlive-latex-hycolor" ,texlive-latex-hycolor)
3228          ("texlive-latex-kvoptions" ,texlive-latex-kvoptions)
3229          ("texlive-latex-letltxmacro" ,texlive-latex-letltxmacro)
3230          ("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)
3231          ("texlive-latex-refcount" ,texlive-latex-refcount)
3232          ("texlive-latex-rerunfilecheck" ,texlive-latex-rerunfilecheck)
3233          ("texlive-latex-url" ,texlive-latex-url)))
3234       (home-page "https://www.ctan.org/pkg/hyperref")
3235       (synopsis "Extensive support for hypertext in LaTeX")
3236       (description
3237        "The @code{hyperref} package is used to handle cross-referencing commands
3238 in LaTeX to produce hypertext links in the document.  The package provides
3239 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
3240 embedded @code{pdfmark} commands for processing by Acrobat
3241 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
3242 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
3243 pdf and HTML backends.  The package is distributed with the @code{backref} and
3244 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
3245       (license license:lppl1.3+))))
3246
3247 (define-deprecated-package texlive-latex-hyperref texlive-hyperref)
3248
3249 (define-public texlive-oberdiek
3250   (package
3251     (name "texlive-oberdiek")
3252     (version (number->string %texlive-revision))
3253     (source (origin
3254               (method svn-fetch)
3255               (uri (texlive-ref "latex" "oberdiek"))
3256               (file-name (string-append name "-" version "-checkout"))
3257               (sha256
3258                (base32
3259                 "1cadrkpdqs65gxsaszfgfd8wqp8pvpik2sjmlyq3hz5p9yna3p9m"))))
3260     (build-system texlive-build-system)
3261     (arguments
3262      '(#:tex-directory "latex/oberdiek"
3263        #:build-targets '("oberdiek.ins")
3264        #:phases
3265        (modify-phases %standard-phases
3266          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
3267          (add-after 'unpack 'do-not-process-ifpdf.ins
3268            (lambda _
3269              (substitute* "oberdiek.ins"
3270                (("ifpdf.ins") "ifpdf.dtx"))
3271              #t)))))
3272     (propagated-inputs
3273      `(("texlive-generic-iftex" ,texlive-generic-iftex)))
3274     (home-page "https://www.ctan.org/pkg/oberdiek")
3275     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
3276     (description
3277      "The bundle comprises various LaTeX packages, providing among others:
3278 better accessibility support for PDF files; extensible chemists reaction
3279 arrows; record information about document class(es) used; and many more.")
3280     (license license:lppl1.3+)))
3281
3282 (define-deprecated-package texlive-latex-oberdiek texlive-oberdiek)
3283
3284 (define-public texlive-latex-rerunfilecheck
3285   (package
3286     (inherit (simple-texlive-package
3287               "texlive-latex-rerunfilecheck"
3288               '("/doc/latex/rerunfilecheck/"
3289                 "/tex/latex/rerunfilecheck/")
3290               (base32
3291                "1myz0d5bxhxvl4220ikywh921qld8n324kk9kscqbc5iw4063g56")
3292               #:trivial? #t))
3293     (propagated-inputs
3294      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
3295        ("texlive-generic-uniquecounter" ,texlive-generic-uniquecounter)
3296        ("texlive-latex-atveryend" ,texlive-latex-atveryend)
3297        ("texlive-latex-kvoptions" ,texlive-latex-kvoptions)
3298        ("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)))
3299     (home-page "https://www.ctan.org/pkg/rerunfilecheck")
3300     (synopsis "Checksum based rerun checks on auxiliary files")
3301     (description
3302      "This package provides additional rerun warnings if some auxiliary
3303 files have changed.  It is based on MD5 checksum, provided by pdfTeX.")
3304     (license license:lppl1.3c+)))
3305
3306 (define-public texlive-latex-tools
3307   (package
3308     (name "texlive-latex-tools")
3309     (version (number->string %texlive-revision))
3310     (source (origin
3311               (method svn-fetch)
3312               (uri (texlive-ref "latex" "tools"))
3313               (file-name (string-append name "-" version "-checkout"))
3314               (sha256
3315                (base32
3316                 "1vm5wfyd0vbmv31a29fc7k8y14xiw00msvdx9n7dzsn9zpfjflqs"))))
3317     (build-system texlive-build-system)
3318     (arguments
3319      '(#:tex-directory "latex/tools"
3320        #:build-targets '("tools.ins")
3321        #:phases (modify-phases %standard-phases
3322                   (add-after 'install 'provide-array-2016-10-06.sty
3323                     (lambda* (#:key outputs #:allow-other-keys)
3324                       ;; XXX: array.sty does:
3325                       ;;  "DeclareRelease{}{2016-10-06}{array-2016-10-06.sty}"
3326                       ;; ...which causes some users (hypre) to look for that
3327                       ;; file specifically.  Provide it.
3328                       (with-directory-excursion (string-append
3329                                                  (assoc-ref outputs "out")
3330                                                  "/share/texmf-dist/tex"
3331                                                  "/latex/tools")
3332                         (symlink "array.sty" "array-2016-10-06.sty")))))))
3333     (home-page "https://www.ctan.org/pkg/latex-tools")
3334     (synopsis "LaTeX standard tools bundle")
3335     (description
3336      "This package is a collection of (variously) simple tools provided as
3337 part of the LaTeX required tools distribution, comprising the following
3338 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
3339 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
3340 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
3341 xr, and xspace.")
3342     (license license:lppl1.3+)))
3343
3344 (define-public texlive-url
3345   (package
3346     (inherit (simple-texlive-package
3347               "texlive-url"
3348               (list "/doc/latex/url/"
3349                     "/tex/latex/url/")
3350               (base32
3351                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
3352               #:trivial? #t))
3353     (home-page "https://www.ctan.org/pkg/url")
3354     (synopsis "Verbatim with URL-sensitive line breaks")
3355     (description "The command @code{\\url} is a form of verbatim command that
3356 allows linebreaks at certain characters or combinations of characters, accepts
3357 reconfiguration, and can usually be used in the argument to another command.
3358 The command is intended for email addresses, hypertext links,
3359 directories/paths, etc., which normally have no spaces, so by default the
3360 package ignores spaces in its argument.  However, a package option allows
3361 spaces, which is useful for operating systems where spaces are a common part
3362 of file names.")
3363     ;; The license header states that it is under LPPL version 2 or later, but
3364     ;; the latest version is 1.3c.
3365     (license license:lppl1.3c+)))
3366
3367 (define-deprecated-package texlive-latex-url texlive-url)
3368
3369 (define-public texlive-tetex
3370   (package
3371     (inherit (simple-texlive-package
3372               "texlive-tetex"
3373               (list "/dvips/tetex/"
3374                     "/fonts/enc/dvips/tetex/"
3375                     "/fonts/map/dvips/tetex/")
3376               (base32
3377                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
3378               #:trivial? #t))
3379     (home-page "https://www.ctan.org/pkg/tetex")
3380     (synopsis "Font maps originally from teTeX")
3381     (description "This package provides font maps that were originally part of
3382 the now obsolete teTeX distributions but are still used at the core of the TeX
3383 Live distribution.")
3384     (license license:public-domain)))
3385
3386 (define-public texlive-latex-l3kernel
3387   (package
3388     (name "texlive-latex-l3kernel")
3389     (version (number->string %texlive-revision))
3390     (source (origin
3391               (method svn-fetch)
3392               (uri (texlive-ref "latex" "l3kernel"))
3393               (file-name (string-append name "-" version "-checkout"))
3394               (sha256
3395                (base32
3396                 "068xkinrkl6qjf8r6a9i0msvnzp4y7a3gnd2h12ws0km1dv19r20"))))
3397     (build-system texlive-build-system)
3398     (arguments
3399      '(#:tex-directory "latex/l3kernel"
3400        #:tex-engine "tex"
3401        #:tex-format #f
3402        #:texlive-latex-base #f))
3403     (native-inputs
3404      `(("texlive-docstrip" ,texlive-docstrip)))
3405     (home-page "https://www.ctan.org/pkg/l3kernel")
3406     (synopsis "LaTeX3 programmers’ interface")
3407     (description
3408      "The l3kernel bundle provides an implementation of the LaTeX3
3409 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
3410 interface provides the foundation on which the LaTeX3 kernel and other future
3411 code are built: it is an API for TeX programmers.  The packages are set up so
3412 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
3413     (license license:lppl1.3c+)))
3414
3415 (define-public texlive-latex-l3backend
3416   (package
3417     (name "texlive-latex-l3backend")
3418     (version (number->string %texlive-revision))
3419     (source (origin
3420               (method svn-fetch)
3421               (uri (texlive-ref "latex" "l3backend"))
3422               (file-name (string-append name "-" version "-checkout"))
3423               (sha256
3424                (base32
3425                 "0mlwyzssqn6wkyv9hzp24d40p8f20zrjqgvqyqs1rd7q7awan42a"))))
3426     (build-system texlive-build-system)
3427     (arguments
3428      '(#:tex-directory "latex/l3backend"
3429        #:tex-engine "tex"
3430        #:tex-format #f
3431        #:texlive-latex-base #f))
3432     (native-inputs
3433      `(("texlive-docstrip" ,texlive-docstrip)))
3434     (home-page "https://www.ctan.org/pkg/l3backend")
3435     (synopsis "LaTeX3 backend drivers")
3436     (description
3437      "This package forms parts of expl3, and contains the code used to
3438 interface with backends (drivers) across the expl3 codebase. The functions
3439 here are defined differently depending on the engine in use. As such, these
3440 are distributed separately from l3kernel to allow this code to be updated on
3441 an independent schedule.")
3442     (license license:lppl1.3c+)))
3443
3444 (define-public texlive-latex-l3packages
3445   (package
3446     (name "texlive-latex-l3packages")
3447     (version (number->string %texlive-revision))
3448     (source (texlive-origin name version
3449                             '("/source/latex/l3packages/"
3450                               ;; These files have been generated with a
3451                               ;; bespoke source tree and then modified by
3452                               ;; hand. It's unfeasible to recreate them. See:
3453                               ;; https://tug.org/pipermail/tex-live/2021-June/047188.html
3454                               "/tex/latex/l3packages/xparse/xparse-2018-04-12.sty"
3455                               "/tex/latex/l3packages/xparse/xparse-2020-10-01.sty"
3456
3457                               ;; TODO: This file can be removed when using
3458                               ;; LaTeX version 2021-06-01 or newer. See:
3459                               ;; https://tug.org/pipermail/tex-live/2021-June/047180.html
3460                               "/tex/latex/l3packages/xparse/xparse-generic.tex")
3461                             (base32 "05rjxdqhhg7z1z2rmhmwj2qf09xygymayy3jzj9fdphk0pab3amm")))
3462     (build-system texlive-build-system)
3463     (arguments
3464      '(#:tex-directory "latex/l3packages"
3465        #:tex-engine "tex"
3466        #:tex-format #f
3467        #:texlive-latex-base #f
3468        ;; build-targets must be specified manually since they are in
3469        ;; sub-directories.
3470        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
3471        #:phases
3472        (modify-phases %standard-phases
3473          ;; All package sources are in sub-directories, so we need to add them
3474          ;; to TEXINPUTS.
3475          (add-after 'unpack 'set-TEXINPUTS
3476            (lambda _
3477              (let ((cwd (getcwd)))
3478                (setenv "TEXINPUTS"
3479                        (string-append cwd "/source/latex/l3packages/l3keys2e:"
3480                                       cwd "/source/latex/l3packages/xparse:"
3481                                       cwd "/source/latex/l3packages/xfrac:"
3482                                       cwd "/source/latex/l3packages/xfp:"
3483                                       cwd "/source/latex/l3packages/xtemplate"
3484                                       ;; The terminating ":" is required to include the
3485                                       ;; l3kernel input as well.
3486                                       ":")))
3487              #t))
3488          (add-after 'install 'copy-generated-files
3489            (lambda* (#:key outputs #:allow-other-keys)
3490              (let ((dest (string-append (assoc-ref outputs "out")
3491                                         "/share/texmf-dist/tex/latex/l3packages")))
3492                (copy-recursively "tex/latex/l3packages/xparse" dest)))))
3493        ))
3494     (native-inputs
3495      `(("texlive-docstrip" ,texlive-docstrip)))
3496     (propagated-inputs
3497      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
3498     (home-page "https://www.ctan.org/pkg/l3packages")
3499     (synopsis "High-level LaTeX3 concepts")
3500     (description
3501      "This bundle holds prototype implementations of concepts for a LaTeX
3502 designer interface, to be used with the experimental LaTeX kernel as
3503 programming tools and kernel support.  Packages provided in this release are:
3504
3505 @enumerate
3506 @item l3keys2e, which makes the facilities of the kernel module l3keys
3507   available for use by LaTeX 2e packages;
3508 @item xfrac, which provides flexible splitlevel fractions;
3509 @item xparse, which provides a high-level interface for declaring document
3510   commands; and
3511 @item xtemplate, which provides a means of defining generic functions using a
3512   key-value syntax.
3513 @end enumerate\n")
3514     (license license:lppl1.3c+)))
3515
3516 (define-public texlive-fontspec
3517   (let ((template (simple-texlive-package
3518                    "texlive-fontspec"
3519                    (list "/doc/latex/fontspec/"
3520                          "/source/latex/fontspec/"
3521                          "/tex/latex/fontspec/fontspec.cfg")
3522                    (base32
3523                     "06rms8dw1j67v3rgv6xmfykdmgbxi5rp78yxc782cy1sw07blgsg"))))
3524     (package
3525       (inherit template)
3526       (arguments
3527        (substitute-keyword-arguments (package-arguments template)
3528          ((#:tex-directory _ #t)
3529           "latex/fontspec")
3530          ((#:phases phases)
3531           `(modify-phases ,phases
3532              (add-after 'unpack 'chdir
3533                (lambda _ (chdir "source/latex/fontspec/") #t))))))
3534       (propagated-inputs
3535        `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
3536       (home-page "https://www.ctan.org/pkg/fontspec")
3537       (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3538       (description
3539        "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3540 automatic and unified interface to feature-rich AAT and OpenType fonts through
3541 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3542 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3543       (license license:lppl1.3+))))
3544
3545 (define-deprecated-package texlive-latex-fontspec texlive-fontspec)
3546
3547 (define-public texlive-l3build
3548   (let ((template (simple-texlive-package
3549                    "texlive-l3build"
3550                    (list "/doc/latex/l3build/"
3551                          "/doc/man/man1/l3build.1"
3552                          "/scripts/l3build/"
3553                          "/tex/latex/l3build/"
3554                          ;; TODO: The dtx file builds only the documentation.
3555                          ;; We avoid this for a simpler package definition,
3556                          ;; but it may be possible to exclude
3557                          ;; /doc/latex/l3build and the man page in the future.
3558                          "/source/latex/l3build/")
3559                    (base32
3560                     "1fcay05jj53qgp2b98jpawi0id298fs5xc4y1r5krrfr4sp4hd59")
3561                    #:trivial? #t)))
3562     (package
3563       (inherit template)
3564       (arguments
3565        (substitute-keyword-arguments (package-arguments template)
3566          ((#:phases phases)
3567           `(modify-phases ,phases
3568              (add-after 'install 'patch-shebangs-again
3569                (lambda* (#:key inputs outputs #:allow-other-keys)
3570                  ;; XXX: Since the 'patch-shebangs' phase cannot change the
3571                  ;; original source files patch the shebangs again here.
3572                  (let* ((coreutils (assoc-ref inputs "coreutils"))
3573                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3574                         (path (list (string-append coreutils "/bin")
3575                                     (string-append texlive-bin "/bin"))))
3576                    (for-each (lambda (file)
3577                                (format #t "~a~%" file)
3578                                (patch-shebang file path))
3579                              (find-files (assoc-ref outputs "out")))
3580                    #t)))))))
3581       (inputs
3582        `(("coreutils" ,coreutils)
3583          ("texlive-bin" ,texlive-bin)))
3584       (home-page "https://github.com/latex3/luaotfload")
3585       (synopsis "Testing and building system for LaTeX")
3586       (description
3587        "The l3build module is designed to support the development of
3588 high-quality LaTeX code by providing: a unit testing system, automated
3589 typesetting of code sources, and a reliable packaging system for CTAN
3590 releases.  The bundle consists of a Lua script to run the tasks and a
3591 @code{.tex} file which provides the testing environment.")
3592       (license license:lppl1.3c+))))
3593
3594 ;; The SVN directory contains little more than a dtx file that generates three
3595 ;; of the many lua files that should be installed as part of this package.
3596 ;; This is why we take the release from GitHub instead.
3597 (define-public texlive-luatex-lualibs
3598   (package
3599     (name "texlive-luatex-lualibs")
3600     (version "2.5")
3601     (source (origin
3602               (method url-fetch)
3603               (uri (string-append "https://github.com/lualatex/lualibs/"
3604                                   "releases/download/v"
3605                                   version "/lualibs.zip"))
3606               (file-name (string-append name "-" version ".zip"))
3607               (sha256
3608                (base32
3609                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
3610     (build-system gnu-build-system)
3611     (arguments
3612      `(#:make-flags
3613        (list (string-append "DESTDIR="
3614                             (assoc-ref %outputs "out")
3615                             "/share/texmf-dist"))
3616        #:phases
3617        (modify-phases %standard-phases
3618          (delete 'configure))))
3619     (native-inputs
3620      `(("texlive-bin" ,texlive-bin)
3621        ("unzip" ,unzip)
3622        ("zip" ,zip)))
3623     (home-page "https://github.com/lualatex/lualibs")
3624     (synopsis "Lua modules for general programming (in the (La)TeX world)")
3625     (description
3626      "Lualibs is a collection of Lua modules useful for general programming.
3627 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3628 this bundle for use independent of ConTeXt.")
3629     ;; GPL version 2 only
3630     (license license:gpl2)))
3631
3632 ;; TODO: We should be able to build this from the sources on Github with
3633 ;; texlive-l3build, but I haven't been able to get it to work.
3634 (define-public texlive-luaotfload
3635   (let ((template (simple-texlive-package
3636                    "texlive-luaotfload"
3637                    (list "/doc/luatex/luaotfload/"
3638                          "/doc/man/man1/luaotfload-tool.1"
3639                          "/doc/man/man5/luaotfload.conf.5"
3640                          "/source/luatex/luaotfload/fontloader-reference-load-order.lua"
3641                          "/source/luatex/luaotfload/fontloader-reference-load-order.tex"
3642                          "/scripts/luaotfload/luaotfload-tool.lua"
3643                          "/tex/luatex/luaotfload/")
3644                    (base32
3645                     "10wznvxx3qsl88n560py5vyx5r3a3914anbqfhwcmhmwg097xxl4")
3646                    #:trivial? #t)))
3647     (package
3648       (inherit template)
3649       (propagated-inputs
3650        `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3651       (home-page "https://github.com/lualatex/luaotfload")
3652       (synopsis "OpenType font loader for LuaTeX")
3653       (description
3654        "Luaotfload is an adaptation of the ConTeXt font loading system for the
3655 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3656 features accessible using an extended font request syntax while providing
3657 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3658 loading fonts by their proper names instead of file names.")
3659       ;; GPL version 2 only
3660       (license license:gpl2))))
3661
3662 (define-deprecated-package texlive-luatex-luaotfload texlive-luaotfload)
3663
3664 (define-public texlive-latex-amsmath
3665   (package
3666     (name "texlive-latex-amsmath")
3667     (version (number->string %texlive-revision))
3668     (source (origin
3669               (method svn-fetch)
3670               (uri (texlive-ref "latex" "amsmath"))
3671               (file-name (string-append name "-" version "-checkout"))
3672               (sha256
3673                (base32
3674                 "172zybw7rp05jca8wl6x0mh6z6gncdyi1j9wdfyjnhbvqw0z4wi4"))))
3675     (build-system texlive-build-system)
3676     (arguments '(#:tex-directory "latex/amsmath"))
3677     (home-page "https://www.ctan.org/pkg/amsmath")
3678     (synopsis "AMS mathematical facilities for LaTeX")
3679     (description
3680      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3681 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3682 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3683 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3684 symbols), @code{amsopnamsopn} (for operator names) and
3685 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3686 This package is part of the LaTeX required distribution; however, several
3687 contributed packages add still further to its appeal; examples are
3688 @code{empheqempheq}, which provides functions for decorating and highlighting
3689 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3690 definitions.")
3691     (license license:lppl1.3c+)))
3692
3693 (define-public texlive-amscls
3694   (let ((template (simple-texlive-package
3695                    "texlive-amscls"
3696                    (list "/doc/latex/amscls/"
3697                          "/source/latex/amscls/"
3698                          "/bibtex/bst/amscls/")
3699                    (base32
3700                     "0vw0b815slvfqfd8qffyfzb3xfvyv6k77m12xp0l67hs8p08s5b7"))))
3701     (package
3702       (inherit template)
3703       (arguments
3704        (substitute-keyword-arguments (package-arguments template)
3705          ((#:tex-directory _ #t)
3706           "latex/amscls")
3707          ((#:phases phases)
3708           `(modify-phases ,phases
3709              (add-after 'unpack 'chdir
3710                (lambda _ (chdir "source/latex/amscls/") #t))))))
3711       (home-page "https://www.ctan.org/pkg/amscls")
3712       (synopsis "AMS document classes for LaTeX")
3713       (description
3714        "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3715 articles for the AMS), @code{amsbookamsbook} (for books) and
3716 @code{amsprocamsproc} (for proceedings), together with some supporting
3717 material.  The material is made available as part of the AMS-LaTeX
3718 distribution.")
3719       (license license:lppl1.3c+))))
3720
3721 (define-deprecated-package texlive-latex-amscls texlive-amscls)
3722
3723 (define-public texlive-babel
3724   (let ((template (simple-texlive-package
3725                    "texlive-babel"
3726                    (list "/doc/latex/babel/"
3727                          "/source/latex/babel/"
3728                          "/makeindex/babel/")
3729                    (base32
3730                     "0qr5vjp79g1c1l6k173qhfdfabgbky73wymzhm56pazx4a8r08wz"))))
3731     (package
3732       (inherit template)
3733       (arguments
3734        (substitute-keyword-arguments (package-arguments template)
3735          ((#:tex-directory _ #t)
3736           "generic/babel")
3737          ((#:phases phases)
3738           `(modify-phases ,phases
3739              (add-after 'unpack 'chdir
3740                (lambda _ (chdir "source/latex/babel/") #t))
3741              ;; This package tries to produce babel.aux twice but refuses to
3742              ;; overwrite the first one.
3743              (add-before 'build 'fix-ins
3744                (lambda _
3745                  (substitute* "babel.ins"
3746                    (("askonceonly") "askforoverwritefalse"))
3747                  #t))
3748              (add-after 'install 'install-locales
3749                (lambda* (#:key outputs #:allow-other-keys)
3750                  (let ((locale-directory
3751                         (string-append (assoc-ref outputs "out")
3752                                        "/share/texmf-dist/tex/generic/babel/locale/")))
3753                    (mkdir-p locale-directory)
3754                    (invoke "unzip" "locale.zip" "-d"
3755                            locale-directory))))))))
3756       (native-inputs
3757        `(("unzip" ,unzip)))
3758       (home-page "https://www.ctan.org/pkg/babel")
3759       (synopsis "Multilingual support for Plain TeX or LaTeX")
3760       (description
3761        "The package manages culturally-determined typographical (and other)
3762 rules, and hyphenation patterns for a wide range of languages.  A document may
3763 select a single language to be supported, or it may select several, in which
3764 case the document may switch from one language to another in a variety of
3765 ways.  Babel uses contributed configuration files that provide the detail of
3766 what has to be done for each language.  Users of XeTeX are advised to use the
3767 polyglossia package rather than Babel.")
3768       (license license:lppl1.3+))))
3769
3770 (define-deprecated-package texlive-latex-babel texlive-babel)
3771
3772 (define-public texlive-generic-babel-english
3773   (package
3774     (name "texlive-generic-babel-english")
3775     (version (number->string %texlive-revision))
3776     (source (origin
3777               (method svn-fetch)
3778               (uri (texlive-ref "generic" "babel-english"))
3779               (file-name (string-append name "-" version "-checkout"))
3780               (sha256
3781                (base32
3782                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3783     (build-system texlive-build-system)
3784     (arguments '(#:tex-directory "generic/babel-english"))
3785     (home-page "https://www.ctan.org/pkg/babel-english")
3786     (synopsis "Babel support for English")
3787     (description
3788      "This package provides the language definition file for support of
3789 English in @code{babel}.  Care is taken to select British hyphenation patterns
3790 for British English and Australian text, and default (\"american\") patterns
3791 for Canadian and USA text.")
3792     (license license:lppl1.3+)))
3793
3794 (define-public texlive-generic-babel-german
3795   (package
3796     (name "texlive-generic-babel-german")
3797     (version (number->string %texlive-revision))
3798     (source (origin
3799               (method svn-fetch)
3800               (uri (texlive-ref "generic" "babel-german"))
3801               (file-name (string-append name "-" version "-checkout"))
3802               (sha256
3803                (base32
3804                 "1x9hnr9gz5mqdb97cinivn9xjnfr4qi996aa4cnr2sm2dsbhqxnp"))))
3805     (build-system texlive-build-system)
3806     (arguments '(#:tex-directory "generic/babel-german"))
3807     (home-page "https://www.ctan.org/pkg/babel-german")
3808     (synopsis "Babel support for German")
3809     (description
3810      "This package provides the language definition file for support of German
3811 in @code{babel}.  It provides all the necessary macros, definitions and
3812 settings to typeset German documents.  The bundle includes support for the
3813 traditional and reformed German orthography as well as for the Austrian and
3814 Swiss varieties of German.")
3815     (license license:lppl1.3+)))
3816
3817 (define-public texlive-babel-swedish
3818   (let ((template (simple-texlive-package
3819                    "texlive-babel-swedish"
3820                    (list "/source/generic/babel-swedish/")
3821                    (base32
3822                     "03rp4n9wkqyckman765r8v8j2pg5fg9frbfxsnhq0i2mr0yhbr6v"))))
3823     (package
3824       (inherit template)
3825       (arguments
3826        (substitute-keyword-arguments (package-arguments template)
3827          ((#:tex-directory _ '())
3828           "generic/babel-swedish")
3829          ((#:build-targets _ '())
3830           ''("swedish.ins")) ; TODO: use dtx and build documentation
3831          ((#:phases phases)
3832           `(modify-phases ,phases
3833              (add-after 'unpack 'chdir
3834                (lambda _ (chdir "source/generic/babel-swedish")))))))
3835       (home-page "https://www.ctan.org/pkg/babel-swedish")
3836       (synopsis "Babel support for Swedish")
3837       (description "This package provides the language definition file for
3838 support of Swedish in @code{babel}.  It provides all the necessary macros,
3839 definitions and settings to typeset Swedish documents.")
3840       (license license:lppl1.3c+))))
3841
3842 (define-public texlive-latex-cyrillic
3843   (package
3844     (name "texlive-latex-cyrillic")
3845     (version (number->string %texlive-revision))
3846     (source (origin
3847               (method svn-fetch)
3848               (uri (texlive-ref "latex" "cyrillic"))
3849               (file-name (string-append name "-" version "-checkout"))
3850               (sha256
3851                (base32
3852                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3853     (build-system texlive-build-system)
3854     (arguments
3855      '(#:tex-directory "latex/cyrillic"))
3856     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3857     (synopsis "Support for Cyrillic fonts in LaTeX")
3858     (description
3859      "This bundle of macros files provides macro support (including font
3860 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3861 T2* and X2 encodings. These encodings cover (between them) pretty much every
3862 language that is written in a Cyrillic alphabet.")
3863     (license license:lppl1.3c+)))
3864
3865 (define-public texlive-psnfss
3866   (let ((template (simple-texlive-package
3867                    "texlive-psnfss"
3868                    (list "/doc/latex/psnfss/"
3869                          "/source/latex/psnfss/"
3870                          "/fonts/map/dvips/psnfss/"
3871
3872                          ;; Only the .sty files are generated from the sources.
3873                          "/tex/latex/psnfss/8rbch.fd"
3874                          "/tex/latex/psnfss/8rpag.fd"
3875                          "/tex/latex/psnfss/8rpbk.fd"
3876                          "/tex/latex/psnfss/8rpcr.fd"
3877                          "/tex/latex/psnfss/8rphv.fd"
3878                          "/tex/latex/psnfss/8rpnc.fd"
3879                          "/tex/latex/psnfss/8rppl.fd"
3880                          "/tex/latex/psnfss/8rptm.fd"
3881                          "/tex/latex/psnfss/8rput.fd"
3882                          "/tex/latex/psnfss/8rpzc.fd"
3883                          "/tex/latex/psnfss/omlbch.fd"
3884                          "/tex/latex/psnfss/omlpag.fd"
3885                          "/tex/latex/psnfss/omlpbk.fd"
3886                          "/tex/latex/psnfss/omlpcr.fd"
3887                          "/tex/latex/psnfss/omlphv.fd"
3888                          "/tex/latex/psnfss/omlpnc.fd"
3889                          "/tex/latex/psnfss/omlppl.fd"
3890                          "/tex/latex/psnfss/omlptm.fd"
3891                          "/tex/latex/psnfss/omlptmcm.fd"
3892                          "/tex/latex/psnfss/omlput.fd"
3893                          "/tex/latex/psnfss/omlpzc.fd"
3894                          "/tex/latex/psnfss/omlzplm.fd"
3895                          "/tex/latex/psnfss/omlzpple.fd"
3896                          "/tex/latex/psnfss/omlztmcm.fd"
3897                          "/tex/latex/psnfss/omsbch.fd"
3898                          "/tex/latex/psnfss/omspag.fd"
3899                          "/tex/latex/psnfss/omspbk.fd"
3900                          "/tex/latex/psnfss/omspcr.fd"
3901                          "/tex/latex/psnfss/omsphv.fd"
3902                          "/tex/latex/psnfss/omspnc.fd"
3903                          "/tex/latex/psnfss/omsppl.fd"
3904                          "/tex/latex/psnfss/omsptm.fd"
3905                          "/tex/latex/psnfss/omsput.fd"
3906                          "/tex/latex/psnfss/omspzc.fd"
3907                          "/tex/latex/psnfss/omspzccm.fd"
3908                          "/tex/latex/psnfss/omszplm.fd"
3909                          "/tex/latex/psnfss/omszpple.fd"
3910                          "/tex/latex/psnfss/omsztmcm.fd"
3911                          "/tex/latex/psnfss/omxpsycm.fd"
3912                          "/tex/latex/psnfss/omxzplm.fd"
3913                          "/tex/latex/psnfss/omxzpple.fd"
3914                          "/tex/latex/psnfss/omxztmcm.fd"
3915                          "/tex/latex/psnfss/ot1bch.fd"
3916                          "/tex/latex/psnfss/ot1pag.fd"
3917                          "/tex/latex/psnfss/ot1pbk.fd"
3918                          "/tex/latex/psnfss/ot1pcr.fd"
3919                          "/tex/latex/psnfss/ot1phv.fd"
3920                          "/tex/latex/psnfss/ot1pnc.fd"
3921                          "/tex/latex/psnfss/ot1ppl.fd"
3922                          "/tex/latex/psnfss/ot1pplj.fd"
3923                          "/tex/latex/psnfss/ot1pplx.fd"
3924                          "/tex/latex/psnfss/ot1ptm.fd"
3925                          "/tex/latex/psnfss/ot1ptmcm.fd"
3926                          "/tex/latex/psnfss/ot1put.fd"
3927                          "/tex/latex/psnfss/ot1pzc.fd"
3928                          "/tex/latex/psnfss/ot1zplm.fd"
3929                          "/tex/latex/psnfss/ot1zpple.fd"
3930                          "/tex/latex/psnfss/ot1ztmcm.fd"
3931                          "/tex/latex/psnfss/t1bch.fd"
3932                          "/tex/latex/psnfss/t1pag.fd"
3933                          "/tex/latex/psnfss/t1pbk.fd"
3934                          "/tex/latex/psnfss/t1pcr.fd"
3935                          "/tex/latex/psnfss/t1phv.fd"
3936                          "/tex/latex/psnfss/t1pnc.fd"
3937                          "/tex/latex/psnfss/t1ppl.fd"
3938                          "/tex/latex/psnfss/t1pplj.fd"
3939                          "/tex/latex/psnfss/t1pplx.fd"
3940                          "/tex/latex/psnfss/t1ptm.fd"
3941                          "/tex/latex/psnfss/t1put.fd"
3942                          "/tex/latex/psnfss/t1pzc.fd"
3943                          "/tex/latex/psnfss/ts1bch.fd"
3944                          "/tex/latex/psnfss/ts1pag.fd"
3945                          "/tex/latex/psnfss/ts1pbk.fd"
3946                          "/tex/latex/psnfss/ts1pcr.fd"
3947                          "/tex/latex/psnfss/ts1phv.fd"
3948                          "/tex/latex/psnfss/ts1pnc.fd"
3949                          "/tex/latex/psnfss/ts1ppl.fd"
3950                          "/tex/latex/psnfss/ts1pplj.fd"
3951                          "/tex/latex/psnfss/ts1pplx.fd"
3952                          "/tex/latex/psnfss/ts1ptm.fd"
3953                          "/tex/latex/psnfss/ts1put.fd"
3954                          "/tex/latex/psnfss/ts1pzc.fd"
3955                          "/tex/latex/psnfss/ufplm.fd"
3956                          "/tex/latex/psnfss/ufplmbb.fd"
3957                          "/tex/latex/psnfss/upsy.fd"
3958                          "/tex/latex/psnfss/upzd.fd")
3959                    (base32
3960                     "11f14dzhwsy4pli21acccip43d36nf3pac33ihjffnps1i2mhqkd"))))
3961     (package
3962       (inherit template)
3963       (arguments
3964        (substitute-keyword-arguments (package-arguments template)
3965          ((#:tex-directory _ #t)
3966           "latex/psnfss")
3967          ((#:phases phases)
3968           `(modify-phases ,phases
3969              (add-after 'unpack 'chdir
3970                (lambda _
3971                  (chdir "source/latex/psnfss") #t))))))
3972       (native-inputs
3973        `(("texlive-cm" ,texlive-cm)))
3974       (home-page "https://www.ctan.org/pkg/psnfss")
3975       (synopsis "Font support for common PostScript fonts")
3976       (description
3977        "The PSNFSS collection includes a set of files that provide a complete
3978 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3979 PostScript fonts.  The base set of text fonts covered by PSNFSS includes the
3980 AvantGarde, Bookman, Courier, Helvetica, New Century Schoolbook, Palatino,
3981 Symbol, Times Roman and Zapf Dingbats fonts.  In addition, the fonts Bitstream
3982 Charter and Adobe Utopia are covered.  Separate packages are provided to load
3983 each font for use as the main text font.  The package @code{helvet} allows
3984 Helvetica to be loaded with its size scaled to something more appropriate for
3985 use as a Sans-Serif font to match Times, while @code{pifont} provides the
3986 means to select single glyphs from symbol fonts.  The bundle as a whole is
3987 part of the LaTeX required set of packages.")
3988       (license license:lppl1.2+))))
3989
3990 (define-deprecated-package texlive-latex-psnfss texlive-psnfss)
3991
3992 ;; For user profiles
3993 (define-public texlive-base
3994   (let ((default-packages
3995           (list texlive-bin
3996                 texlive-dvips
3997                 texlive-fontname
3998                 texlive-cm
3999                 texlive-cm-super ; to avoid bitmap fonts
4000                 texlive-fonts-latex
4001                 texlive-metafont
4002                 texlive-latex-base
4003                 texlive-kpathsea       ;for mktex.opt
4004                 ;; LaTeX packages from the "required" set.
4005                 texlive-latex-amsmath
4006                 texlive-amscls
4007                 texlive-babel
4008                 texlive-generic-babel-english
4009                 texlive-latex-cyrillic
4010                 texlive-latex-graphics
4011                 texlive-psnfss
4012                 texlive-latex-tools
4013                 texlive-tetex)))
4014     (package
4015       (name "texlive-base")
4016       (version (number->string %texlive-revision))
4017       (source #f)
4018       (build-system trivial-build-system)
4019       (arguments
4020        '(#:builder
4021          (begin (mkdir (assoc-ref %outputs "out")))))
4022       (propagated-inputs
4023        (map (lambda (package)
4024               (list (package-name package) package))
4025             default-packages))
4026       (home-page (package-home-page texlive-bin))
4027       (synopsis "TeX Live base packages")
4028       (description "This is a very limited subset of the TeX Live distribution.
4029 It includes little more than the required set of LaTeX packages.")
4030       (license (fold (lambda (package result)
4031                        (match (package-license package)
4032                          ((lst ...)
4033                           (append lst result))
4034                          ((? license:license? license)
4035                           (cons license result))))
4036                      '()
4037                      default-packages)))))
4038
4039 ;;; TODO: Add a TeX Live profile hook computing fonts maps (and others?)
4040 ;;; configuration from the packages in the profile, similar to what's done
4041 ;;; below.
4042 (define-public texlive-updmap.cfg
4043   (lambda* (#:optional (packages '()))
4044     "Return a 'texlive-updmap.cfg' package which contains the fonts map
4045 configuration of a base set of packages plus PACKAGES."
4046     (let ((default-packages (match (package-propagated-inputs texlive-base)
4047                               (((labels packages) ...) packages))))
4048       (package
4049         (version (number->string %texlive-revision))
4050         (source (origin
4051                   (method url-fetch)
4052                   (uri (string-append "https://tug.org/svn/texlive/tags/"
4053                                       %texlive-tag
4054                                       "/Master/texmf-dist/web2c/updmap.cfg"
4055                                       "?revision=" version))
4056                   (file-name "updmap.cfg")
4057                   (sha256
4058                    (base32
4059                     "0zhpyld702im6352fwp41f2hgfkpj2b4j1kfsjqbkijlcmvb6w2c"))))
4060         (name "texlive-updmap.cfg")
4061         (build-system copy-build-system)
4062         (arguments
4063          '(#:modules ((guix build copy-build-system)
4064                       (guix build utils)
4065                       (ice-9 popen)
4066                       (ice-9 textual-ports))
4067            #:install-plan '(("updmap.cfg" "share/texmf-config/web2c/")
4068                             ("map" "share/texmf-dist/fonts/map"))
4069            #:phases
4070            (modify-phases %standard-phases
4071              (add-before 'install 'regenerate-updmap.cfg
4072                (lambda _
4073                  (make-file-writable "updmap.cfg")
4074
4075                  ;; Disable unavailable map files.
4076                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
4077                                           "--syncwithtrees"
4078                                           "--nohash"
4079                                           "--cnffile" "updmap.cfg")))
4080                    (display "Y\n" port)
4081                    (when (not (zero? (status:exit-val (close-pipe port))))
4082                      (error "failed to filter updmap.cfg")))
4083
4084                  ;; Set TEXMFSYSVAR to a sane and writable value; updmap fails
4085                  ;; if it cannot create its log file there.
4086                  (setenv "TEXMFSYSVAR" (getcwd))
4087
4088                  ;; Generate maps.
4089                  (invoke "updmap-sys"
4090                          "--cnffile"           "updmap.cfg"
4091                          "--dvipdfmxoutputdir" "map/dvipdfmx/updmap/"
4092                          "--dvipsoutputdir"    "map/dvips/updmap/"
4093                          "--pdftexoutputdir"   "map/pdftex/updmap/"))))))
4094         (propagated-inputs (map (lambda (package)
4095                                   (list (package-name package) package))
4096                                 (append default-packages packages)))
4097         (home-page (package-home-page texlive-bin))
4098         (synopsis "TeX Live fonts map configuration")
4099         (description "This package contains the fonts map configuration file
4100 generated for the base TeX Live packages as well as, optionally, user-provided
4101 ones.")
4102         (license (delete-duplicates
4103                   (fold (lambda (package result)
4104                           (match (package-license package)
4105                             ((lst ...)
4106                              (append lst result))
4107                             ((? license:license? license)
4108                              (cons license result))))
4109                         '()
4110                         (append default-packages packages))))))))
4111
4112 (define-deprecated/alias texlive-union texlive-updmap.cfg)
4113 (export texlive-union)
4114
4115 ;; For use in package definitions only
4116 (define-public texlive-tiny
4117   (package
4118     (inherit (texlive-updmap.cfg))
4119     (name "texlive-tiny")
4120     (description "This is a very limited subset of the TeX Live distribution.
4121 It includes little more than the required set of LaTeX packages.")))
4122
4123 (define-public texlive-tipa
4124   (package
4125     (inherit (simple-texlive-package
4126               "texlive-tipa"
4127               (list "/tex4ht/ht-fonts/alias/tipa/"
4128                     "/doc/fonts/tipa/"
4129                     "/fonts/map/dvips/tipa/"
4130                     "/fonts/source/public/tipa/"
4131                     "/fonts/tfm/public/tipa/"
4132                     "/fonts/type1/public/tipa/"
4133                     "/tex/latex/tipa/")
4134               (base32
4135                "0cqzf8vb10b8jw99m9gflskxa4c3rpiznxglix6chl5lai5sgw44")
4136               #:trivial? #t))
4137     (home-page "https://www.ctan.org/pkg/tipa")
4138     (synopsis "Fonts and macros for IPA phonetics characters")
4139     (description "These fonts are considered the \"ultimate answer\" to IPA
4140 typesetting.  The encoding of these 8-bit fonts has been registered as LaTeX
4141 standard encoding T3, and the set of addendum symbols as encoding
4142 TS3. \"Times-like\" Adobe Type 1 versions are provided for both the T3 and the
4143 TS3 fonts.")
4144     (license license:lppl)))
4145
4146 (define-public texlive-latex-amsrefs
4147   (package
4148     (name "texlive-latex-amsrefs")
4149     (version (number->string %texlive-revision))
4150     (source (origin
4151               (method svn-fetch)
4152               (uri (texlive-ref "latex" "amsrefs"))
4153               (file-name (string-append name "-" version "-checkout"))
4154               (sha256
4155                (base32
4156                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
4157     (build-system texlive-build-system)
4158     (arguments '(#:tex-directory "latex/amsrefs"))
4159     (home-page "https://www.ctan.org/pkg/amsrefs")
4160     (synopsis "LaTeX-based replacement for BibTeX")
4161     (description
4162      "Amsrefs is a LaTeX package for bibliographies that provides an archival
4163 data format similar to the format of BibTeX database files, but adapted to
4164 make direct processing by LaTeX easier.  The package can be used either in
4165 conjunction with BibTeX or as a replacement for BibTeX.")
4166     (license license:lppl1.3+)))
4167
4168 (define-public texlive-latex-bigfoot
4169   (package
4170     (name "texlive-latex-bigfoot")
4171     (version (number->string %texlive-revision))
4172     (source (origin
4173               (method svn-fetch)
4174               (uri (texlive-ref "latex" "bigfoot"))
4175               (file-name (string-append name "-" version "-checkout"))
4176               (sha256
4177                (base32
4178                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
4179     (build-system texlive-build-system)
4180     (arguments
4181      '(#:tex-directory "latex/bigfoot"
4182        #:phases
4183        (modify-phases %standard-phases
4184          (add-after 'unpack 'remove-generated-file
4185            (lambda _
4186              (for-each delete-file (find-files "." "\\.drv$"))
4187              #t)))))
4188     (home-page "https://www.ctan.org/pkg/bigfoot")
4189     (synopsis "Footnotes for critical editions")
4190     (description
4191      "This package aims to provide a one-stop solution to requirements for
4192 footnotes.  It offers: Multiple footnote apparatus superior to that of
4193 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
4194 into a single paragraph (this choice may be selected per footnote series);
4195 Things you might have expected (such as @code{\\verb}-like material in
4196 footnotes, and color selections over page breaks) now work.  Note that the
4197 majority of the bigfoot package's interface is identical to that of
4198 @code{manyfoot}; users should seek information from that package's
4199 documentation.  The bigfoot bundle also provides the @code{perpage} and
4200 @code{suffix} packages.")
4201     (license license:gpl2+)))
4202
4203 (define-public texlive-latex-blindtext
4204   (package
4205     (name "texlive-latex-blindtext")
4206     (version (number->string %texlive-revision))
4207     (source (origin
4208               (method svn-fetch)
4209               (uri (texlive-ref "latex" "blindtext"))
4210               (file-name (string-append name "-" version "-checkout"))
4211               (sha256
4212                (base32
4213                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
4214     (build-system texlive-build-system)
4215     (arguments '(#:tex-directory "latex/blindtext"))
4216     (home-page "https://www.ctan.org/pkg/blindtext")
4217     (synopsis "Producing 'blind' text for testing")
4218     (description
4219      "The package provides the commands @code{\\blindtext} and
4220 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
4221 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
4222 an entire random document with sections, lists, mathematics, etc.  The package
4223 supports three languages, @code{english}, @code{(n)german} and @code{latin};
4224 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
4225 ipsum\" text, see the @code{lipsum} package).")
4226     (license license:lppl)))
4227
4228 (define-public texlive-latex-dinbrief
4229   (package
4230     (name "texlive-latex-dinbrief")
4231     (version (number->string %texlive-revision))
4232     (source (origin
4233               (method svn-fetch)
4234               (uri (texlive-ref "latex" "dinbrief"))
4235               (file-name (string-append name "-" version "-checkout"))
4236               (sha256
4237                (base32
4238                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
4239     (build-system texlive-build-system)
4240     (arguments
4241      '(#:tex-directory "latex/dinbrief"
4242        #:phases
4243        (modify-phases %standard-phases
4244          (add-after 'unpack 'remove-generated-file
4245            (lambda _
4246              (delete-file "dinbrief.drv")
4247              #t))
4248          (add-after 'unpack 'fix-encoding-error
4249            (lambda _
4250              (with-fluids ((%default-port-encoding "ISO-8859-1"))
4251                (substitute* "dinbrief.dtx"
4252                  (("zur Verf.+ung. In der Pr\"aambel")
4253                   "zur Verf\"ung. In der Pr\"aambel")))
4254              #t)))))
4255     (home-page "https://www.ctan.org/pkg/dinbrief")
4256     (synopsis "German letter DIN style")
4257     (description
4258      "This package implements a document layout for writing letters according
4259 to the rules of DIN (Deutsches Institut für Normung, German standardisation
4260 institute).  A style file for LaTeX 2.09 (with limited support of the
4261 features) is part of the package.  Since the letter layout is based on a
4262 German standard, the user guide is written in German, but most macros have
4263 English names from which the user can recognize what they are used for.  In
4264 addition there are example files showing how letters may be created with the
4265 package.")
4266     (license license:lppl)))
4267
4268 (define-public texlive-latex-draftwatermark
4269   (package
4270     (name "texlive-latex-draftwatermark")
4271     (version (number->string %texlive-revision))
4272     (source (origin
4273               (method svn-fetch)
4274               (uri (texlive-ref "latex" "draftwatermark"))
4275               (file-name (string-append name "-" version "-checkout"))
4276               (sha256
4277                (base32
4278                 "0rhn74ywv000b89w8qjf1i0qsk6kd1mjapfwis14jwjvbjqgvj95"))))
4279     (build-system texlive-build-system)
4280     (arguments '(#:tex-directory "latex/draftwatermark"))
4281     (home-page "https://www.ctan.org/pkg/draftwatermark")
4282     (synopsis "Put a grey textual watermark on document pages")
4283     (description
4284      "This package provides a means to add a textual, light grey watermark on
4285 every page or on the first page of a document.  Typical usage may consist in
4286 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
4287 package performs a similar function to that of @code{draftcopy}, but its
4288 implementation is output device independent, and made very simple by relying
4289 on everypage.")
4290     (license license:lppl1.3+)))
4291
4292 (define-public texlive-latex-environ
4293   (package
4294     (name "texlive-latex-environ")
4295     (version (number->string %texlive-revision))
4296     (source (origin
4297               (method svn-fetch)
4298               (uri (texlive-ref "latex" "environ"))
4299               (file-name (string-append name "-" version "-checkout"))
4300               (sha256
4301                (base32
4302                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
4303     (build-system texlive-build-system)
4304     (arguments '(#:tex-directory "latex/environ"))
4305     (home-page "https://www.ctan.org/pkg/environ")
4306     (synopsis "New interface for environments in LaTeX")
4307     (description
4308      "This package provides the @code{\\collect@@body} command (as in
4309 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
4310 for collecting the body text of an environment.  These commands are used to
4311 define a new author interface to creating new environments.")
4312     (license license:lppl)))
4313
4314 (define-public texlive-latex-eqparbox
4315   (package
4316     (name "texlive-latex-eqparbox")
4317     (version (number->string %texlive-revision))
4318     (source (origin
4319               (method svn-fetch)
4320               (uri (texlive-ref "latex" "eqparbox"))
4321               (file-name (string-append name "-" version "-checkout"))
4322               (sha256
4323                (base32
4324                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
4325     (build-system texlive-build-system)
4326     (arguments '(#:tex-directory "latex/eqparbox"))
4327     (home-page "https://www.ctan.org/pkg/eqparbox")
4328     (synopsis "Create equal-widthed parboxes")
4329     (description
4330      "LaTeX users sometimes need to ensure that two or more blocks of text
4331 occupy the same amount of horizontal space on the page.  To that end, the
4332 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
4333 just like @code{\\parbox}, except that instead of specifying a width, one
4334 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
4335 where they are in the document---will stretch to fit the widest
4336 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
4337 for a variety of alignment purposes, as is evidenced by the examples in
4338 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
4339 also provided.")
4340     (license license:lppl1.3+)))
4341
4342 (define-public texlive-latex-etoc
4343   (package
4344     (inherit (simple-texlive-package
4345               "texlive-latex-etoc"
4346               '("/doc/latex/etoc/README.md"
4347                 "/doc/latex/etoc/etoc.pdf"
4348                 "/tex/latex/etoc/")
4349               (base32
4350                "0198cn75m1y8ggbfv1qlnif0d9275f6mxqsansyqw4np0rv6q9sv")
4351               #:trivial? #t))
4352     (home-page "https://www.ctan.org/pkg/etoc")
4353     (synopsis "Completely customisable TOCs")
4354     (description
4355      "This package gives the user complete control of how the entries of
4356 the table of contents should be constituted from the name, number, and page
4357 number of each sectioning unit.  The layout is controlled by the definition
4358 of ‘line styles’ for each sectioning level used in the document.
4359
4360 The package provides its own custom line styles (which may be used as
4361 examples), and continues to support the standard formatting inherited from
4362 the LaTeX document classes, but the package can also allow the user to
4363 delegate the details to packages dealing with list making environments (such
4364 as enumitem).  The package’s default global style typesets tables of contents
4365 in a multi-column format, with either a standard heading, or a ruled title
4366 (optionally with a frame around the table).
4367
4368 The @code{\\tableofcontents} command may be used arbitrarily many times in
4369 the same document, while @code{\\localtableofcontents} provides a ‘local’
4370 table of contents.")
4371     (license license:lppl1.3c+)))
4372
4373 (define-public texlive-latex-expdlist
4374   (package
4375     (name "texlive-latex-expdlist")
4376     (version (number->string %texlive-revision))
4377     (source (origin
4378               (method svn-fetch)
4379               (uri (texlive-ref "latex" "expdlist"))
4380               (file-name (string-append name "-" version "-checkout"))
4381               (sha256
4382                (base32
4383                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
4384     (build-system texlive-build-system)
4385     (arguments
4386      '(#:tex-directory "latex/expdlist"
4387        #:phases
4388        (modify-phases %standard-phases
4389          (add-after 'unpack 'remove-generated-file
4390            (lambda _
4391              (for-each delete-file
4392                        (find-files "." "\\.drv$"))
4393              #t)))))
4394     (home-page "https://www.ctan.org/pkg/expdlist")
4395     (synopsis "Expanded description environments")
4396     (description
4397      "The package provides additional features for the LaTeX
4398 @code{description} environment, including adjustable left margin.  The package
4399 also allows the user to \"break\" a list (for example, to interpose a comment)
4400 without affecting the structure of the list (this works for @code{itemize} and
4401 @code{enumerate} lists, and numbered lists remain in sequence).")
4402     (license license:lppl)))
4403
4404 (define-public texlive-filemod
4405   (package
4406     (inherit (simple-texlive-package
4407               "texlive-filemod"
4408               (list "/doc/latex/filemod/"
4409                     "/tex/latex/filemod/"
4410                     "/tex/generic/filemod/")
4411               (base32
4412                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
4413               #:trivial? #t))
4414     (home-page "https://www.ctan.org/pkg/filemod")
4415     (synopsis "Provide file modification times, and compare them")
4416     (description
4417      "This package provides macros to read and compare the modification dates
4418 of files.  The files may be @code{.tex} files, images or other files (as long
4419 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
4420 of pdfLaTeX to find the file modification date as PDF date string, parses the
4421 string and returns the value to the user.  The package will also work for DVI
4422 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
4423 mode.  The functionality is provided by purely expandable macros or by faster
4424 but non-expandable ones.")
4425     (license license:lppl1.3+)))
4426
4427 (define-deprecated-package texlive-latex-filemod texlive-filemod)
4428
4429 (define-public texlive-latex-hanging
4430   (package
4431     (inherit (simple-texlive-package
4432               "texlive-latex-hanging"
4433               '("/tex/latex/hanging/")
4434               (base32
4435                "0s86yaxyfv9zxf4svwg9s13by9vrw38apfg0hsfchsimsdd6gsbb")
4436               #:trivial? #t))
4437     (home-page "https://www.ctan.org/pkg/hanging")
4438     (synopsis "Typeset hanging paragraphs")
4439     (description
4440      "The @code{hanging} package facilitates the typesetting of hanging
4441 paragraphs.  The package also enables typesetting with hanging punctuation,
4442 by making punctuation characters active.")
4443     (license license:lppl1.3c+)))
4444
4445 (define-public texlive-latex-ifplatform
4446   (package
4447     (name "texlive-latex-ifplatform")
4448     (version (number->string %texlive-revision))
4449     (source (origin
4450               (method svn-fetch)
4451               (uri (texlive-ref "latex" "ifplatform"))
4452               (file-name (string-append name "-" version "-checkout"))
4453               (sha256
4454                (base32
4455                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
4456     (build-system texlive-build-system)
4457     (arguments '(#:tex-directory "latex/ifplatform"))
4458     (home-page "https://www.ctan.org/pkg/ifplatform")
4459     (synopsis "Conditionals to test which platform is being used")
4460     (description
4461      "This package uses the (La)TeX extension @code{-shell-escape} to
4462 establish whether the document is being processed on a Windows or on a
4463 Unix-like system, or on Cygwin (Unix environment over a Windows system).
4464 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
4465 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
4466 on a Unix-like system, which may be used to distinguish between various
4467 classes of systems.")
4468     (license license:lppl)))
4469
4470 (define-public texlive-latex-natbib
4471   (package
4472     (name "texlive-latex-natbib")
4473     (version (number->string %texlive-revision))
4474     (source (origin
4475               (method svn-fetch)
4476               (uri (texlive-ref "latex" "natbib"))
4477               (file-name (string-append name "-" version "-checkout"))
4478               (sha256
4479                (base32
4480                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
4481     (build-system texlive-build-system)
4482     (arguments '(#:tex-directory "latex/natbib"))
4483     (home-page "https://www.ctan.org/pkg/natbib")
4484     (synopsis "Flexible bibliography support")
4485     (description
4486      "This bundle provides a package that implements both author-year and
4487 numbered references, as well as much detailed of support for other
4488 bibliography use.  Also provided are versions of the standard BibTeX styles
4489 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
4490 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
4491 designed from the start to be compatible with @code{natbib}.")
4492     (license license:lppl)))
4493
4494 (define-public texlive-latex-newunicodechar
4495   (package
4496     (inherit (simple-texlive-package
4497               "texlive-latex-newunicodechar"
4498               '("/doc/latex/newunicodechar/" "/tex/latex/newunicodechar/")
4499               (base32
4500                "0pwx3ylhvk5hxjnalas00grrbwla79j424i27hrm0zgflq7wsbrj")
4501               #:trivial? #t))
4502     (home-page "https://www.ctan.org/pkg/newunicodechar")
4503     (synopsis "Definitions of the meaning of Unicode characters")
4504     (description
4505      "This package provides a friendly interface for defining the meaning of
4506 Unicode characters.  The document should be processed by (pdf)LaTeX with the
4507 Unicode option of @code{inputenc} or @code{inputenx}, or by XeLaTeX/LuaLaTeX.")
4508     (license license:lppl1.3c+)))
4509
4510 (define-public texlive-latex-pdftexcmds
4511   (package
4512     (inherit (simple-texlive-package
4513               "texlive-latex-pdftexcmds"
4514               '("/doc/generic/pdftexcmds/"
4515                 "/tex/generic/pdftexcmds/")
4516               (base32
4517                "1hph0djbfc8hlwfc41rzlf8l3ccyyvc0n7a0qdrr9881jwd6iv1b")
4518               #:trivial? #t))
4519     (propagated-inputs
4520      `(("texlive-generic-iftex" ,texlive-generic-iftex)
4521        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
4522        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
4523     (home-page "https://www.ctan.org/pkg/pdftexcmds")
4524     (synopsis "LuaTeX support for pdfTeX utility functions")
4525     (description
4526      "This package makes a number of utility functions from pdfTeX
4527 available for luaTeX by reimplementing them using Lua.")
4528     (license license:lppl1.3c+)))
4529
4530 (define-public texlive-latex-psfrag
4531   (package
4532     (name "texlive-latex-psfrag")
4533     (version (number->string %texlive-revision))
4534     (source (origin
4535               (method svn-fetch)
4536               (uri (texlive-ref "latex" "psfrag"))
4537               (file-name (string-append name "-" version "-checkout"))
4538               (sha256
4539                (base32
4540                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
4541     (build-system texlive-build-system)
4542     (arguments '(#:tex-directory "latex/psfrag"))
4543     (home-page "https://www.ctan.org/pkg/psfrag")
4544     (synopsis "Replace strings in encapsulated PostScript figures")
4545     (description
4546      "This package allows LaTeX constructions (equations, picture
4547 environments, etc.) to be precisely superimposed over Encapsulated PostScript
4548 figures, using your own favorite drawing tool to create an EPS figure and
4549 placing simple text \"tags\" where each replacement is to be placed, with
4550 PSfrag automatically removing these tags from the figure and replacing them
4551 with a user specified LaTeX construction, properly aligned, scaled, and/or
4552 rotated.")
4553     (license (license:fsf-free "file://psfrag.dtx"))))
4554
4555 (define-public texlive-pstool
4556   (package
4557     (inherit (simple-texlive-package
4558               "texlive-pstool"
4559               (list "/doc/latex/pstool/"
4560                     "/tex/latex/pstool/")
4561               (base32
4562                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
4563               #:trivial? #t))
4564     (propagated-inputs
4565      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
4566        ("texlive-filemod" ,texlive-filemod)
4567        ("texlive-latex-graphics" ,texlive-latex-graphics)
4568        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
4569        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
4570        ("texlive-oberdiek" ,texlive-oberdiek)
4571        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
4572        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
4573        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
4574        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
4575     (home-page "https://www.ctan.org/pkg/pstool")
4576     (synopsis "Process PostScript graphics within pdfLaTeX documents")
4577     (description
4578      "This is a package for processing PostScript graphics with @code{psfrag}
4579 labels within pdfLaTeX documents.  Every graphic is compiled individually,
4580 drastically speeding up compilation time when only a single figure needs
4581 re-processing.")
4582     (license license:lppl)))
4583
4584 (define-deprecated-package texlive-latex-pstool texlive-pstool)
4585
4586 (define-public texlive-latex-refcount
4587   (package
4588     (inherit (simple-texlive-package
4589               "texlive-latex-refcount"
4590               (list "/doc/latex/refcount/"
4591                     "/tex/latex/refcount/")
4592               (base32
4593                "0pkmqj2qihndlv3ks33xzqw91q46jx79r3aygj68d8dflyddi583")
4594               #:trivial? #t))
4595     (home-page "https://www.ctan.org/pkg/refcount")
4596     (synopsis "Counter operations with label references")
4597     (description
4598      "This package provides the @code{\\setcounterref} and
4599 @code{\\addtocounterref} commands which use the section (or other) number
4600 from the reference as the value to put into the counter.  It also provides
4601 @code{\\setcounterpageref} and @code{\\addtocounterpageref} that do the
4602 corresponding thing with the page reference of the label.")
4603     (license license:lppl1.3c+)))
4604
4605 (define-public texlive-seminar
4606   (package
4607     (inherit (simple-texlive-package
4608               "texlive-seminar"
4609               (list "/doc/latex/seminar/"
4610                     "/tex/latex/seminar/")
4611               (base32
4612                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
4613               #:trivial? #t))
4614     (home-page "https://www.ctan.org/pkg/seminar")
4615     (synopsis "Make overhead slides")
4616     ;; TODO: This package may need fancybox and xcomment at runtime.
4617     (description
4618      "This package provides a class that produces overhead
4619 slides (transparencies), with many facilities.  Seminar is not nowadays
4620 reckoned a good basis for a presentation — users are advised to use more
4621 recent classes such as powerdot or beamer, both of which are tuned to
4622 21st-century presentation styles.")
4623     (license license:lppl1.2+)))
4624
4625 (define-deprecated-package texlive-latex-seminar texlive-seminar)
4626
4627 (define-public texlive-latex-stackengine
4628   (package
4629     (inherit (simple-texlive-package
4630               "texlive-latex-stackengine"
4631               (list "/doc/latex/stackengine/"
4632                     "/tex/latex/stackengine/")
4633               (base32
4634                "1rbw3dmb6kl3wlnpxacr8cmp2ivac1kpnb33k7r5s3lp1q59ck38")
4635               #:trivial? #t))
4636     (home-page "https://www.ctan.org/pkg/stackengine")
4637     (synopsis "Customised stacking of objects")
4638     (description
4639      "The package provides a versatile way to stack objects vertically in a
4640 variety of customizable ways.  A number of useful macros are provided, all
4641 of which make use of the @code{stackengine} core.")
4642     (license license:lppl1.3+)))
4643
4644 (define-public texlive-latex-tocloft
4645   (package
4646     (inherit (simple-texlive-package
4647               "texlive-latex-tocloft"
4648               '("/doc/latex/tocloft/" "/tex/latex/tocloft/")
4649               (base32
4650                "0mg3hpzq7wpm6mnnvb0rp3wby56zyxkyai8d2h3f4vk93zrc6awk")
4651               #:trivial? #t))
4652     (home-page "https://www.ctan.org/pkg/tocloft")
4653     (synopsis "Control table of contents")
4654     (description
4655      "This package provides control over the typography of the
4656 @dfn{Table of Contents}, @dfn{List of Figures} and @dfn{List of Tables},
4657 and the ability to create new ‘List of ...’. The ToC @code{\\parskip} may
4658 be changed. ")
4659     (license license:lppl1.3c+)))
4660
4661 (define-public texlive-latex-trimspaces
4662   (package
4663     (name "texlive-latex-trimspaces")
4664     (version (number->string %texlive-revision))
4665     (source (origin
4666               (method svn-fetch)
4667               (uri (texlive-ref "latex" "trimspaces"))
4668               (file-name (string-append name "-" version "-checkout"))
4669               (sha256
4670                (base32
4671                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
4672     (build-system texlive-build-system)
4673     (arguments
4674      '(#:tex-directory "latex/trimspaces"
4675        #:tex-format "latex"
4676        #:phases
4677        (modify-phases %standard-phases
4678          (add-after 'unpack 'fix-bug
4679            (lambda _
4680              ;; The "ins" file refers to the wrong source file.
4681              (substitute* "trimspaces.ins"
4682                (("pstool.tex") "trimspaces.tex"))
4683              #t)))))
4684     (inputs
4685      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
4686     (home-page "https://www.ctan.org/pkg/trimspaces")
4687     (synopsis "Trim spaces around an argument or within a macro")
4688     (description
4689      "This very short package allows you to expandably remove spaces around a
4690 token list (commands are provided to remove spaces before, spaces after, or
4691 both); or to remove surrounding spaces within a macro definition, or to define
4692 space-stripped macros.")
4693     (license license:lppl)))
4694
4695 (define-public texlive-latex-capt-of
4696   (package
4697     (name "texlive-latex-capt-of")
4698     (version (number->string %texlive-revision))
4699     (source (origin
4700               (method svn-fetch)
4701               (uri (svn-reference
4702                     (url (string-append "svn://www.tug.org/texlive/tags/"
4703                                         %texlive-tag "/Master/texmf-dist/"
4704                                         "/tex/latex/capt-of"))
4705                     (revision %texlive-revision)))
4706               (file-name (string-append name "-" version "-checkout"))
4707               (sha256
4708                (base32
4709                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
4710     (build-system trivial-build-system)
4711     (arguments
4712      `(#:modules ((guix build utils))
4713        #:builder
4714        (begin
4715          (use-modules (guix build utils))
4716          (let ((target (string-append (assoc-ref %outputs "out")
4717                                       "/share/texmf-dist/tex/latex/capt-of")))
4718            (mkdir-p target)
4719            (copy-recursively (assoc-ref %build-inputs "source") target)
4720            #t))))
4721     (home-page "https://www.ctan.org/pkg/capt-of")
4722     (synopsis "Captions on more than floats")
4723     (description
4724      "This package defines a command @code{\\captionof} for putting a caption
4725 to something that's not a float.")
4726     (license license:lppl)))
4727
4728 (define-public texlive-doi
4729   (package
4730     (inherit (simple-texlive-package
4731               "texlive-doi"
4732               (list "/doc/latex/doi/README.md"
4733                     "/tex/latex/doi/")
4734               (base32
4735                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
4736               #:trivial? #t))
4737     (home-page "https://www.ctan.org/pkg/doi")
4738     (synopsis "Create correct hyperlinks for DOI numbers")
4739     (description
4740      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
4741 elected to use nasty characters in their DOI numbering scheme (@code{<},
4742 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
4743 upset LaTeX, or your PDF reader.  This package contains a single user-level
4744 command @code{\\doi{}}, which takes a DOI number, and creates a correct
4745 hyperlink to the target of the DOI.")
4746     ;; Any version of the LPPL.
4747     (license license:lppl1.3+)))
4748
4749 (define-deprecated-package texlive-latex-doi texlive-doi)
4750
4751 (define-public texlive-etoolbox
4752   (package
4753     (inherit (simple-texlive-package
4754               "texlive-etoolbox"
4755               (list "/doc/latex/etoolbox/"
4756                     "/tex/latex/etoolbox/")
4757               (base32
4758                "070iaj540rglf0c80l0hjkwg6aa7qyskhh4iwyhf7n8vrg5cjjab")
4759               #:trivial? #t))
4760     (home-page "https://www.ctan.org/pkg/etoolbox")
4761     (synopsis "e-TeX tools for LaTeX")
4762     (description
4763      "This package is a toolbox of programming facilities geared primarily
4764 towards LaTeX class and package authors.  It provides LaTeX frontends to some
4765 of the new primitives provided by e-TeX as well as some generic tools which
4766 are not strictly related to e-TeX but match the profile of this package.  The
4767 package provides functions that seem to offer alternative ways of implementing
4768 some LaTeX kernel commands; nevertheless, the package will not modify any part
4769 of the LaTeX kernel.")
4770     (license license:lppl1.3+)))
4771
4772 (define-deprecated-package texlive-latex-etoolbox texlive-etoolbox)
4773
4774 (define-public texlive-latex-fncychap
4775   (package
4776     (name "texlive-latex-fncychap")
4777     (version (number->string %texlive-revision))
4778     (source (origin
4779               (method svn-fetch)
4780               (uri (svn-reference
4781                     (url (string-append "svn://www.tug.org/texlive/tags/"
4782                                         %texlive-tag "/Master/texmf-dist/"
4783                                         "/tex/latex/fncychap"))
4784                     (revision %texlive-revision)))
4785               (file-name (string-append name "-" version "-checkout"))
4786               (sha256
4787                (base32
4788                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
4789     (build-system trivial-build-system)
4790     (arguments
4791      `(#:modules ((guix build utils))
4792        #:builder
4793        (begin
4794          (use-modules (guix build utils))
4795          (let ((target (string-append (assoc-ref %outputs "out")
4796                                       "/share/texmf-dist/tex/latex/fncychap")))
4797            (mkdir-p target)
4798            (copy-recursively (assoc-ref %build-inputs "source") target)
4799            #t))))
4800     (home-page "https://www.ctan.org/pkg/fncychap")
4801     (synopsis "Seven predefined chapter heading styles")
4802     (description
4803      "This package provides seven predefined chapter heading styles.  Each
4804 style can be modified using a set of simple commands.  Optionally one can
4805 modify the formatting routines in order to create additional chapter
4806 headings.")
4807     (license license:lppl1.3+)))
4808
4809 (define-public texlive-latex-framed
4810   (package
4811     (name "texlive-latex-framed")
4812     (version (number->string %texlive-revision))
4813     (source (origin
4814               (method svn-fetch)
4815               (uri (svn-reference
4816                     (url (string-append "svn://www.tug.org/texlive/tags/"
4817                                         %texlive-tag "/Master/texmf-dist/"
4818                                         "/tex/latex/framed"))
4819                     (revision %texlive-revision)))
4820               (file-name (string-append name "-" version "-checkout"))
4821               (sha256
4822                (base32
4823                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4824     (build-system trivial-build-system)
4825     (arguments
4826      `(#:modules ((guix build utils))
4827        #:builder
4828        (begin
4829          (use-modules (guix build utils))
4830          (let ((target (string-append (assoc-ref %outputs "out")
4831                                       "/share/texmf-dist/tex/latex/framed")))
4832            (mkdir-p target)
4833            (copy-recursively (assoc-ref %build-inputs "source") target)
4834            #t))))
4835     (home-page "https://www.ctan.org/pkg/framed")
4836     (synopsis "Framed or shaded regions that can break across pages")
4837     (description
4838      "The package creates three environments: @code{framed}, which puts an
4839 ordinary frame box around the region, @code{shaded}, which shades the region,
4840 and @code{leftbar}, which places a line at the left side.  The environments
4841 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4842 title that is “attached” to the environment); breaks are also allowed in the
4843 course of the framed/shaded matter.  There is also a command
4844 @code{\\MakeFramed} to make your own framed-style environments.")
4845     ;; The header states: "These macros may be freely transmitted, reproduced,
4846     ;; or modified for any purpose provided that this notice is left intact."
4847     (license (license:fsf-free "file://framed.sty"))))
4848
4849 (define-public texlive-latex-g-brief
4850   (package
4851     (name "texlive-latex-g-brief")
4852     (version (number->string %texlive-revision))
4853     (source (origin
4854               (method svn-fetch)
4855               (uri (texlive-ref "latex" "g-brief"))
4856               (file-name (string-append name "-" version "-checkout"))
4857               (sha256
4858                (base32
4859                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
4860     (build-system texlive-build-system)
4861     (arguments
4862      '(#:tex-directory "latex/g-brief"
4863        #:phases
4864        (modify-phases %standard-phases
4865          (add-after 'unpack 'remove-generated-file
4866            (lambda _
4867              (delete-file "g-brief.drv")
4868              #t)))))
4869     (home-page "https://www.ctan.org/pkg/g-brief")
4870     (synopsis "Letter document class")
4871     (description
4872      "This package is designed for formatting formless letters in German; it
4873 can also be used for English (by those who can read the documentation).  There
4874 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4875 \"old\" and a \"new\" version of g-brief.")
4876     (license license:lppl)))
4877
4878 (define-public texlive-latex-galois
4879   (package
4880     (name "texlive-latex-galois")
4881     (version (number->string %texlive-revision))
4882     (source (origin
4883               (method svn-fetch)
4884               (uri (texlive-ref "latex" "galois"))
4885               (file-name (string-append name "-" version "-checkout"))
4886               (sha256
4887                (base32
4888                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4889     (build-system texlive-build-system)
4890     (arguments '(#:tex-directory "latex/galois"))
4891     (home-page "https://www.ctan.org/pkg/galois")
4892     (synopsis "Typeset Galois connections")
4893     (description
4894      "The package deals with connections in two-dimensional style, optionally
4895 in colour.")
4896     (license license:lppl)))
4897
4898 (define-public texlive-latex-gcite
4899   (package
4900     (name "texlive-latex-gcite")
4901     (version (number->string %texlive-revision))
4902     (source (origin
4903               (method svn-fetch)
4904               (uri (texlive-ref "latex" "gcite"))
4905               (file-name (string-append name "-" version "-checkout"))
4906               (sha256
4907                (base32
4908                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4909     (build-system texlive-build-system)
4910     (arguments '(#:tex-directory "latex/gcite"))
4911     (home-page "https://www.ctan.org/pkg/gcite")
4912     (synopsis "Citations in a reader-friendly style")
4913     (description
4914      "The package allows citations in the German style, which is considered by
4915 many to be particularly reader-friendly.  The citation provides a small amount
4916 of bibliographic information in a footnote on the page where each citation is
4917 made.  It combines a desire to eliminate unnecessary page-turning with the
4918 look-up efficiency afforded by numeric citations.  The package makes use of
4919 BibLaTeX, and is considered experimental.")
4920     (license license:lppl1.3+)))
4921
4922 (define-public texlive-latex-geometry
4923   (package
4924     (name "texlive-latex-geometry")
4925     (version (number->string %texlive-revision))
4926     (source (origin
4927               (method svn-fetch)
4928               (uri (texlive-ref "latex" "geometry"))
4929               (file-name (string-append name "-" version "-checkout"))
4930               (sha256
4931                (base32
4932                 "0a9nrmiwksnpa6iaapirqid974ai56qgin2n4h9mggy9v8gp7r71"))))
4933     (build-system texlive-build-system)
4934     (arguments '(#:tex-directory "latex/geometry"))
4935     (propagated-inputs
4936      `(("texlive-oberdiek" ,texlive-oberdiek))) ;for ifpdf
4937     (home-page "https://www.ctan.org/pkg/geometry")
4938     (synopsis "Flexible and complete interface to document dimensions")
4939     (description
4940      "This package provides an easy and flexible user interface to customize
4941 page layout, implementing auto-centering and auto-balancing mechanisms so that
4942 the users have only to give the least description for the page layout.  The
4943 package knows about all the standard paper sizes, so that the user need not
4944 know what the nominal \"real\" dimensions of the paper are, just its standard
4945 name (such as a4, letter, etc.).  An important feature is the package's
4946 ability to communicate the paper size it's set up to the output.")
4947     (license license:lppl)))
4948
4949 (define-public texlive-latex-mdwtools
4950   (package
4951     (name "texlive-latex-mdwtools")
4952     (version (number->string %texlive-revision))
4953     (source (origin
4954               (method svn-fetch)
4955               (uri (texlive-ref "latex" "mdwtools"))
4956               (file-name (string-append name "-" version "-checkout"))
4957               (sha256
4958                (base32
4959                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4960     (build-system texlive-build-system)
4961     (arguments '(#:tex-directory "latex/mdwtools"))
4962     (home-page "https://www.ctan.org/pkg/mdwtools")
4963     (synopsis "Miscellaneous tools by Mark Wooding")
4964     (description
4965      "This collection of tools includes: @code{atsupport} for short commands
4966 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4967 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4968 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4969 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4970 array environments; verbatim handling; and syntax diagrams.")
4971     (license license:gpl3+)))
4972
4973 (define-public texlive-latex-polyglossia
4974   (package
4975     (name "texlive-latex-polyglossia")
4976     (version (number->string %texlive-revision))
4977     (source (origin
4978               (method svn-fetch)
4979               (uri (texlive-ref "latex" "polyglossia"))
4980               (file-name (string-append name "-" version "-checkout"))
4981               (sha256
4982                (base32
4983                 "1ci6hr8hx4g2x359n6wqvw6w8fv42cjjpzxxxd3pn6av5nkaiav3"))))
4984     (build-system texlive-build-system)
4985     (arguments '(#:tex-directory "latex/polyglossia"))
4986     (home-page "https://www.ctan.org/pkg/polyglossia")
4987     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4988     (description
4989      "This package provides a complete Babel replacement for users of LuaLaTeX
4990 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4991     (license license:lppl1.3+)))
4992
4993 (define-public texlive-latex-supertabular
4994   (package
4995     (name "texlive-latex-supertabular")
4996     (version (number->string %texlive-revision))
4997     (source (origin
4998               (method svn-fetch)
4999               (uri (texlive-ref "latex" "supertabular"))
5000               (file-name (string-append name "-" version "-checkout"))
5001               (sha256
5002                (base32
5003                 "19fd0bqxjkzc16bza3w20pnsc90gbhbllm244b3h6sink4dlnn54"))))
5004     (build-system texlive-build-system)
5005     (arguments '(#:tex-directory "latex/supertabular"))
5006     (home-page "https://www.ctan.org/pkg/supertabular")
5007     (synopsis "Multi-page tables package")
5008     (description
5009      "This package was a predecessor of @code{longtable}; the newer
5010 package (designed on quite different principles) is easier to use and more
5011 flexible, in many cases, but supertabular retains its usefulness in a few
5012 situations where longtable has problems.")
5013     (license license:lppl1.3+)))
5014
5015 (define-public texlive-tex-texinfo
5016   (package
5017     (name "texlive-tex-texinfo")
5018     (version (number->string %texlive-revision))
5019     (source (origin
5020               (method svn-fetch)
5021               (uri (svn-reference
5022                     (url (string-append "svn://www.tug.org/texlive/tags/"
5023                                         %texlive-tag "/Master/texmf-dist/"
5024                                         "/tex/texinfo"))
5025                     (revision %texlive-revision)))
5026               (file-name (string-append name "-" version "-checkout"))
5027               (sha256
5028                (base32
5029                 "1qcmcsxdsibca0mad559vhz36xaxsbkivgv1hc98vdyd90fg4y31"))))
5030     (build-system trivial-build-system)
5031     (arguments
5032      `(#:modules ((guix build utils))
5033        #:builder
5034        (begin
5035          (use-modules (guix build utils))
5036          (let ((target (string-append (assoc-ref %outputs "out")
5037                                       "/share/texmf-dist/tex/texinfo")))
5038            (mkdir-p target)
5039            (copy-recursively (assoc-ref %build-inputs "source") target)
5040            #t))))
5041     (home-page "https://www.ctan.org/pkg/texinfo")
5042     (synopsis "TeX macros to handle Texinfo files")
5043     (description
5044      "Texinfo is the preferred format for documentation in the GNU project;
5045 the format may be used to produce online or printed output from a single
5046 source.  The Texinfo macros may be used to produce printable output using TeX;
5047 other programs in the distribution offer online interactive use (with
5048 hypertext linkages in some cases).")
5049     (license license:gpl3+)))
5050
5051 (define-public texlive-latex-upquote
5052   (package
5053     (name "texlive-latex-upquote")
5054     (version (number->string %texlive-revision))
5055     (source (origin
5056               (method svn-fetch)
5057               (uri (texlive-ref "latex" "upquote"))
5058               (file-name (string-append name "-" version "-checkout"))
5059               (sha256
5060                (base32
5061                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
5062     (build-system texlive-build-system)
5063     (arguments '(#:tex-directory "latex/upquote"))
5064     (home-page "https://www.ctan.org/pkg/upquote")
5065     (synopsis "Show \"realistic\" quotes in verbatim")
5066     (description
5067      "Typewriter-style fonts are best for program listings, but Computer
5068 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
5069 single quotes.  Other fonts, and most programming languages, print @code{`} as
5070 a grave accent and @code{'} upright; @code{'} is used both to open and to
5071 close quoted strings.  The package switches the typewriter font to Computer
5072 Modern Typewriter in OT1 encoding, and modifies the behaviour of
5073 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
5074 in the expected way.  It does this regardless of other fonts or encodings in
5075 use, so long as the package is loaded after the other fonts were.  The package
5076 does not affect @code{\\tt}, @code{\\texttt}, etc.")
5077     (license license:lppl1.2+)))
5078
5079 (define-public texlive-latex-anysize
5080   (package
5081     (name "texlive-latex-anysize")
5082     (version (number->string %texlive-revision))
5083     (source (origin
5084               (method svn-fetch)
5085               (uri (svn-reference
5086                     (url (string-append "svn://www.tug.org/texlive/tags/"
5087                                         %texlive-tag "/Master/texmf-dist/"
5088                                         "/tex/latex/anysize"))
5089                     (revision %texlive-revision)))
5090               (file-name (string-append name "-" version "-checkout"))
5091               (sha256
5092                (base32
5093                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
5094     (build-system trivial-build-system)
5095     (arguments
5096      `(#:modules ((guix build utils))
5097        #:builder
5098        (begin
5099          (use-modules (guix build utils))
5100          (let ((target (string-append (assoc-ref %outputs "out")
5101                                       "/share/texmf-dist/tex/latex/anysize")))
5102            (mkdir-p target)
5103            (copy-recursively (assoc-ref %build-inputs "source") target)
5104            #t))))
5105     (home-page "https://www.ctan.org/pkg/anysize")
5106     (synopsis "Simple package to set up document margins")
5107     (description
5108      "This is a simple package to set up document margins.  This package is
5109 considered obsolete; alternatives are the @code{typearea} package from the
5110 @code{koma-script} bundle, or the @code{geometry} package.")
5111     (license license:public-domain)))
5112
5113 (define-public texlive-latex-appendix
5114   (package
5115     (name "texlive-latex-appendix")
5116     (version (number->string %texlive-revision))
5117     (source (origin
5118               (method svn-fetch)
5119               (uri (texlive-ref "latex" "appendix"))
5120               (file-name (string-append name "-" version "-checkout"))
5121               (sha256
5122                (base32
5123                 "1gc2brr2rs495w7qi6spdva1xrza94x7a36dncjdkghnsq8r92h4"))))
5124     (build-system texlive-build-system)
5125     (arguments '(#:tex-directory "latex/appendix"))
5126     (home-page "https://www.ctan.org/pkg/appendix")
5127     (synopsis "Extra control of appendices")
5128     (description
5129      "The appendix package provides various ways of formatting the titles of
5130 appendices.  Also (sub)appendices environments are provided that can be used,
5131 for example, for per chapter/section appendices.  An @code{appendices}
5132 environment is provided which can be used instead of the @code{\\appendix}
5133 command.")
5134     (license license:lppl)))
5135
5136 (define-public texlive-latex-bookmark
5137   (package
5138     (inherit (simple-texlive-package
5139               "texlive-latex-bookmark"
5140               (list "/doc/latex/bookmark/"
5141                     "/tex/latex/bookmark/")
5142               (base32
5143                "0xwjdah0p4an0fknvgj9y5phl62sf522z6570pvy6c09hkz0j4h1")
5144               #:trivial? #t))
5145     (home-page "https://www.ctan.org/pkg/bookmark")
5146     (synopsis "Bookmark (outline) organization for hyperref")
5147     (description
5148      "This package implements a new bookmark (outline) organization for the
5149 @code{hyperref} package.  Bookmark properties such as style and color.  Other
5150 action types are available (URI, GoToR, Named).")
5151     (license license:lppl1.3c+)))
5152
5153 (define-public texlive-latex-changebar
5154   (package
5155     (name "texlive-latex-changebar")
5156     (version (number->string %texlive-revision))
5157     (source (origin
5158               (method svn-fetch)
5159               (uri (texlive-ref "latex" "changebar"))
5160               (file-name (string-append name "-" version "-checkout"))
5161               (sha256
5162                (base32
5163                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
5164     (build-system texlive-build-system)
5165     (arguments '(#:tex-directory "latex/changebar"))
5166     (home-page "https://www.ctan.org/pkg/changebar")
5167     (synopsis "Generate changebars in LaTeX documents")
5168     (description
5169      "Identify areas of text to be marked with changebars with the
5170 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
5171 package uses @code{drivers} to place the bars; the available drivers can work
5172 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
5173 drivers, and VTeX and pdfTeX.")
5174     (license license:lppl)))
5175
5176 (define-public texlive-latex-cmap
5177   (package
5178     (name "texlive-latex-cmap")
5179     (version (number->string %texlive-revision))
5180     (source (origin
5181               (method svn-fetch)
5182               (uri (svn-reference
5183                     (url (string-append "svn://www.tug.org/texlive/tags/"
5184                                         %texlive-tag "/Master/texmf-dist/"
5185                                         "/tex/latex/cmap"))
5186                     (revision %texlive-revision)))
5187               (file-name (string-append name "-" version "-checkout"))
5188               (sha256
5189                (base32
5190                 "0m4r52gw9vwsi1pzwh0cy03jxhwizymi4a2fj3jfs5rrvh105r5y"))))
5191     (build-system trivial-build-system)
5192     (arguments
5193      `(#:modules ((guix build utils))
5194        #:builder
5195        (begin
5196          (use-modules (guix build utils))
5197          (let ((target (string-append (assoc-ref %outputs "out")
5198                                       "/share/texmf-dist/tex/latex/cmap")))
5199            (mkdir-p target)
5200            (copy-recursively (assoc-ref %build-inputs "source") target)
5201            #t))))
5202     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
5203 Master/texmf-dist/tex/latex/cmap/")
5204     (synopsis "CMap support for PDF files")
5205     (description
5206      "This package embeds CMap tables into PDF files to make search and
5207 copy-and-paste functions work properly.")
5208     (license license:lppl)))
5209
5210 (define-public texlive-latex-colortbl
5211   (package
5212     (name "texlive-latex-colortbl")
5213     (version (number->string %texlive-revision))
5214     (source (origin
5215               (method svn-fetch)
5216               (uri (texlive-ref "latex" "colortbl"))
5217               (file-name (string-append name "-" version "-checkout"))
5218               (sha256
5219                (base32
5220                 "1qa0mh0fy9hcvfsmprv6q50q0qzdjjfbxi3axap26z6zg3qj68bc"))))
5221     (build-system texlive-build-system)
5222     (arguments '(#:tex-directory "latex/colortbl"))
5223     (home-page "https://www.ctan.org/pkg/colortbl")
5224     (synopsis "Add colour to LaTeX tables")
5225     (description
5226      "This package allows rows, columns, and even individual cells in LaTeX
5227 tables to be coloured.")
5228     (license license:lppl)))
5229
5230 (define-public texlive-latex-fancybox
5231   (package
5232     (name "texlive-latex-fancybox")
5233     (version (number->string %texlive-revision))
5234     (source (origin
5235               (method svn-fetch)
5236               (uri (svn-reference
5237                     (url (string-append "svn://www.tug.org/texlive/tags/"
5238                                         %texlive-tag "/Master/texmf-dist/"
5239                                         "/tex/latex/fancybox"))
5240                     (revision %texlive-revision)))
5241               (file-name (string-append name "-" version "-checkout"))
5242               (sha256
5243                (base32
5244                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
5245     (build-system trivial-build-system)
5246     (arguments
5247      `(#:modules ((guix build utils))
5248        #:builder
5249        (begin
5250          (use-modules (guix build utils))
5251          (let ((target (string-append (assoc-ref %outputs "out")
5252                                       "/share/texmf-dist/tex/latex/fancybox")))
5253            (mkdir-p target)
5254            (copy-recursively (assoc-ref %build-inputs "source") target)
5255            #t))))
5256     (home-page "https://www.ctan.org/pkg/fancybox")
5257     (synopsis "Variants of \\fbox and other games with boxes")
5258     (description
5259      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
5260 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
5261 using box macros and flexible verbatim macros.  You can box mathematics,
5262 floats, center, flushleft, and flushright, lists, and pages.")
5263     (license license:lppl1.2+)))
5264
5265 (define-public texlive-latex-fancyhdr
5266   (package
5267     (name "texlive-latex-fancyhdr")
5268     (version (number->string %texlive-revision))
5269     (source (origin
5270               (method svn-fetch)
5271               (uri (svn-reference
5272                     (url (string-append "svn://www.tug.org/texlive/tags/"
5273                                         %texlive-tag "/Master/texmf-dist/"
5274                                         "/tex/latex/fancyhdr"))
5275                     (revision %texlive-revision)))
5276               (file-name (string-append name "-" version "-checkout"))
5277               (sha256
5278                (base32
5279                 "1h2zv7cps0pknqhy2dyfclyi002lmsfshm0rn6ywfl9p4fnvh0bc"))))
5280     (build-system trivial-build-system)
5281     (arguments
5282      `(#:modules ((guix build utils))
5283        #:builder
5284        (begin
5285          (use-modules (guix build utils))
5286          (let ((target (string-append (assoc-ref %outputs "out")
5287                                       "/share/texmf-dist/tex/latex/fancyhdr")))
5288            (mkdir-p target)
5289            (copy-recursively (assoc-ref %build-inputs "source") target)
5290            #t))))
5291     (home-page "https://www.ctan.org/pkg/fancyhdr")
5292     (synopsis "Extensive control of page headers and footers in LaTeX2e")
5293     (description
5294      "The package provides extensive facilities, both for constructing headers
5295 and footers, and for controlling their use (for example, at times when LaTeX
5296 would automatically change the heading style in use).")
5297     (license license:lppl)))
5298
5299 (define-public texlive-latex-float
5300   (package
5301     (name "texlive-latex-float")
5302     (version (number->string %texlive-revision))
5303     (source (origin
5304               (method svn-fetch)
5305               (uri (texlive-ref "latex" "float"))
5306               (file-name (string-append name "-" version "-checkout"))
5307               (sha256
5308                (base32
5309                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
5310     (build-system texlive-build-system)
5311     (arguments '(#:tex-directory "latex/float"))
5312     (home-page "https://www.ctan.org/pkg/float")
5313     (synopsis "Improved interface for floating objects")
5314     (description
5315      "This package improves the interface for defining floating objects such
5316 as figures and tables.  It introduces the boxed float, the ruled float and the
5317 plaintop float.  You can define your own floats and improve the behaviour of
5318 the old ones.  The package also provides the @code{H} float modifier option of
5319 the obsolete @code{here} package.  You can select this as automatic default
5320 with @code{\\floatplacement{figure}{H}}.")
5321     (license license:lppl)))
5322
5323 (define-public texlive-latex-footmisc
5324   (package
5325     (name "texlive-latex-footmisc")
5326     (version (number->string %texlive-revision))
5327     (source (origin
5328               (method svn-fetch)
5329               (uri (texlive-ref "latex" "footmisc"))
5330               (file-name (string-append name "-" version "-checkout"))
5331               (sha256
5332                (base32
5333                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
5334     (build-system texlive-build-system)
5335     (arguments '(#:tex-directory "latex/footmisc"))
5336     (home-page "https://www.ctan.org/pkg/footmisc")
5337     (synopsis "Range of footnote options")
5338     (description
5339      "This is a collection of ways to change the typesetting of footnotes.
5340 The package provides means of changing the layout of the footnotes themselves,
5341 a way to number footnotes per page, to make footnotes disappear in a
5342 \"moving\" argument, and to deal with multiple references to footnotes from
5343 the same place.  The package also has a range of techniques for labelling
5344 footnotes with symbols rather than numbers.")
5345     (license license:lppl1.3+)))
5346
5347 (define-public texlive-latex-letltxmacro
5348   (package
5349     (inherit (simple-texlive-package
5350               "texlive-latex-letltxmacro"
5351               (list "/doc/latex/letltxmacro/"
5352                     "/tex/latex/letltxmacro/")
5353               (base32
5354                "0yy1m1jiyxq2pssp0pidaa2swx6lyxw3zwpm2r8m0v2r3lvsyyxx")
5355               #:trivial? #t))
5356     (home-page "https://www.ctan.org/pkg/letltxmacro")
5357     (synopsis "Let assignment for macros")
5358     (description
5359      "TeX’s @code{\\let} assignment does not work for LaTeX macros with
5360 optional arguments, or for macros that are defined as robust macros by
5361 @code{\\DeclareRobustCommand}.  This package defines @code{\\LetLtxMacro}
5362 that also takes care of the involved internal macros.")
5363     (license license:lppl1.3c+)))
5364
5365 (define-public texlive-latex-listings
5366   (package
5367     (name "texlive-latex-listings")
5368     (version (number->string %texlive-revision))
5369     (source (origin
5370               (method svn-fetch)
5371               (uri (texlive-ref "latex" "listings"))
5372               (file-name (string-append name "-" version "-checkout"))
5373               (sha256
5374                (base32
5375                 "082zri3gp8s6p2difhk1pbix2vzmvsf6fmld2z78v35xwk3fiya0"))))
5376     (build-system texlive-build-system)
5377     (arguments
5378      '(#:tex-directory "latex/listings"
5379        #:build-targets '("listings.ins")))
5380     (home-page "https://www.ctan.org/pkg/listings")
5381     (synopsis "Typeset source code listings using LaTeX")
5382     (description
5383      "The package enables the user to typeset programs (programming code)
5384 within LaTeX; the source code is read directly by TeX---no front-end processor
5385 is needed.  Keywords, comments and strings can be typeset using different
5386 styles.  Support for @code{hyperref} is provided.")
5387     (license license:lppl1.3+)))
5388
5389 (define-public texlive-latex-jknapltx
5390   (package
5391     (name "texlive-latex-jknapltx")
5392     (version (number->string %texlive-revision))
5393     (source (origin
5394               (method svn-fetch)
5395               (uri (svn-reference
5396                     (url (string-append "svn://www.tug.org/texlive/tags/"
5397                                         %texlive-tag "/Master/texmf-dist/"
5398                                         "/tex/latex/jknapltx"))
5399                     (revision %texlive-revision)))
5400               (file-name (string-append name "-" version "-checkout"))
5401               (sha256
5402                (base32
5403                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
5404     (build-system trivial-build-system)
5405     (arguments
5406      `(#:modules ((guix build utils))
5407        #:builder
5408        (begin
5409          (use-modules (guix build utils))
5410          (let ((target (string-append (assoc-ref %outputs "out")
5411                                       "/share/texmf-dist/tex/latex/jknapltx")))
5412            (mkdir-p target)
5413            (copy-recursively (assoc-ref %build-inputs "source") target)
5414            #t))))
5415     (home-page "https://www.ctan.org/pkg/jknappen")
5416     (synopsis "Miscellaneous packages by Joerg Knappen")
5417     (description
5418      "This package provides miscellaneous macros by Joerg Knappen, including:
5419 represent counters in greek; Maxwell's non-commutative division;
5420 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
5421 @code{inputenc} definition files that allow verbatim input in the respective
5422 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
5423 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
5424 transliterate semitic languages; patches to make (La)TeX formulae embeddable
5425 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
5426     (license license:gpl2)))
5427
5428 (define-public texlive-latex-kvoptions
5429   (package
5430     (inherit (simple-texlive-package
5431               "texlive-latex-kvoptions"
5432               (list "/doc/latex/kvoptions/"
5433                     "/tex/latex/kvoptions/")
5434               (base32
5435                "02i4n2n3j4lg68d3nam08m63kb4irc99wfhyc2z51r02lm1wwmvw")
5436               #:trivial? #t))
5437     (propagated-inputs
5438      `(("texlive-generic-kvsetkeys" ,texlive-generic-kvsetkeys)
5439        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
5440     (home-page "https://www.ctan.org/pkg/kvoptions")
5441     (synopsis "Key/value format for package options")
5442     (description
5443      "This package provides facilities for using key-value format in
5444 package options.")
5445     (license license:lppl1.3c+)))
5446
5447 (define-public texlive-fonts-ec
5448   (package
5449     (name "texlive-fonts-ec")
5450     (version (number->string %texlive-revision))
5451     (source (origin
5452               (method svn-fetch)
5453               (uri (svn-reference
5454                     (url (string-append "svn://www.tug.org/texlive/tags/"
5455                                         %texlive-tag "/Master/texmf-dist/"
5456                                         "/fonts/source/jknappen/ec/"))
5457                     (revision %texlive-revision)))
5458               (file-name (string-append name "-" version "-checkout"))
5459               (sha256
5460                (base32
5461                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
5462     (build-system gnu-build-system)
5463     (arguments
5464      `(#:modules ((guix build gnu-build-system)
5465                   (guix build utils)
5466                   (srfi srfi-1)
5467                   (srfi srfi-26))
5468        #:tests? #f                      ; no tests
5469        #:phases
5470        (modify-phases %standard-phases
5471          (delete 'configure)
5472          (replace 'build
5473            (lambda* (#:key inputs #:allow-other-keys)
5474              (let ((mf (assoc-ref inputs "texlive-metafont")))
5475                ;; Tell mf where to find mf.base
5476                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5477                ;; Tell mf where to look for source files
5478                (setenv "MFINPUTS"
5479                        (string-append (getcwd) ":"
5480                                       mf "/share/texmf-dist/metafont/base:"
5481                                       (assoc-ref inputs "texlive-cm")
5482                                       "/share/texmf-dist/fonts/source/public/cm")))
5483              (mkdir "build")
5484              (for-each (lambda (font)
5485                          (format #t "building font ~a\n" font)
5486                          (invoke "mf" "-progname=mf"
5487                                  "-output-directory=build"
5488                                  (string-append "\\"
5489                                                 "mode:=ljfour; "
5490                                                 "mag:=1; "
5491                                                 "batchmode; "
5492                                                 "input " (basename font ".mf"))))
5493                        (find-files "." "[0-9]+\\.mf$"))
5494              #t))
5495          (replace 'install
5496            (lambda* (#:key outputs #:allow-other-keys)
5497              (let* ((out (assoc-ref outputs "out"))
5498                     (tfm (string-append
5499                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
5500                     (mf  (string-append
5501                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
5502                (for-each (cut install-file <> tfm)
5503                          (find-files "build" "\\.*"))
5504                (for-each (cut install-file <> mf)
5505                          (find-files "." "\\.mf"))
5506                #t))))))
5507     (native-inputs
5508      `(("texlive-bin" ,texlive-bin)
5509        ("texlive-metafont" ,texlive-metafont)
5510        ("texlive-cm" ,texlive-cm)))
5511     (home-page "https://www.ctan.org/pkg/ec")
5512     (synopsis "Computer modern fonts in T1 and TS1 encodings")
5513     (description
5514      "The EC fonts are European Computer Modern Fonts, supporting the complete
5515 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
5516 These fonts are intended to be stable with no changes being made to the tfm
5517 files.  The set also contains a Text Companion Symbol font, called @code{tc},
5518 featuring many useful characters needed in text typesetting, for example
5519 oldstyle digits, currency symbols (including the newly created Euro symbol),
5520 the permille sign, copyright, trade mark and servicemark as well as a copyleft
5521 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
5522 EC fonts supersede the preliminary version released as the DC fonts.  The
5523 fonts are available in (traced) Adobe Type 1 format, as part of the
5524 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
5525 set, Latin Modern, is not actually a direct development of the EC set, and
5526 differs from the EC in a number of particulars.")
5527     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
5528 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
5529
5530 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
5531 ;; fails with obscure TeX-typical error messages.
5532 (define-public texlive-ae
5533   (package
5534     (inherit (simple-texlive-package
5535               "texlive-ae"
5536               (list "/doc/fonts/ae/"
5537                     "/source/fonts/ae/"
5538                     "/fonts/tfm/public/ae/"
5539                     "/fonts/vf/public/ae/"
5540                     "/tex/latex/ae/")
5541               (base32
5542                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
5543               #:trivial? #t))
5544     (home-page "https://www.ctan.org/pkg/ae")
5545     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
5546     (description
5547      "This package provides a set of virtual fonts which emulates T1 coded
5548 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
5549 stands for \"Almost European\".  The main use of the package was to produce
5550 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
5551 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
5552 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
5553     (license license:lppl1.3+)))
5554
5555 (define-public texlive-inconsolata
5556   (package
5557     (inherit (simple-texlive-package
5558               "texlive-inconsolata"
5559               (list "/doc/fonts/inconsolata/"
5560                     "/fonts/enc/dvips/inconsolata/"
5561                     "/fonts/map/dvips/inconsolata/"
5562                     "/fonts/opentype/public/inconsolata/"
5563                     "/fonts/tfm/public/inconsolata/"
5564                     "/fonts/type1/public/inconsolata/"
5565                     "/tex/latex/inconsolata/")
5566               (base32
5567                "19lvma52vk7x8d7j4s9ymjwm3w2k08860fh6dkzn76scgpdm4wlb")
5568               #:trivial? #t))
5569     (home-page "https://www.ctan.org/pkg/inconsolata")
5570     (synopsis "Monospaced font with support files for use with TeX")
5571     (description
5572      "Inconsolata is a monospaced font designed by Raph Levien.  This package
5573 contains the font (in both Adobe Type 1 and OpenType formats) in regular and
5574 bold weights, with additional glyphs and options to control slashed zero,
5575 upright quotes and a shapelier lower-case L, plus metric files for use with
5576 TeX, and LaTeX font definition and other relevant files.")
5577     (license (list license:lppl1.3+
5578                    license:silofl1.1
5579                    license:asl2.0))))
5580
5581 (define-public texlive-times
5582   (package
5583     (inherit (simple-texlive-package
5584               "texlive-times"
5585               (list "/dvips/times/"
5586                     "/fonts/afm/adobe/times/"
5587                     "/fonts/afm/urw/times/"
5588                     "/fonts/tfm/adobe/times/"
5589                     "/fonts/tfm/urw35vf/times/"
5590                     "/fonts/type1/urw/times/"
5591                     "/fonts/vf/adobe/times/"
5592                     "/fonts/vf/urw35vf/times/"
5593                     "/fonts/map/dvips/times/"
5594                     "/tex/latex/times/")
5595               (base32
5596                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
5597               #:trivial? #t))
5598     (home-page "https://ctan.org/pkg/urw-base35")
5599     (synopsis "URW Base 35 font pack for LaTeX")
5600     (description
5601      "This package provides a drop-in replacements for the Times font from
5602 Adobe's basic set.")
5603     ;; No license version specified.
5604     (license license:gpl3+)))
5605
5606 (define-deprecated-package texlive-fonts-adobe-times texlive-times)
5607
5608 (define-public texlive-palatino
5609   (package
5610     (inherit (simple-texlive-package
5611               "texlive-palatino"
5612               (list "/dvips/palatino/"
5613                     "/fonts/afm/adobe/palatino/"
5614                     "/fonts/afm/urw/palatino/"
5615                     "/fonts/tfm/adobe/palatino/"
5616                     "/fonts/tfm/urw35vf/palatino/"
5617                     "/fonts/type1/urw/palatino/"
5618                     "/fonts/vf/adobe/palatino/"
5619                     "/fonts/vf/urw35vf/palatino/"
5620
5621                     "/fonts/map/dvips/palatino/"
5622                     "/tex/latex/palatino/")
5623               (base32
5624                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
5625               #:trivial? #t))
5626     (home-page "https://ctan.org/pkg/urw-base35")
5627     (synopsis "URW Base 35 font pack for LaTeX")
5628     (description
5629      "This package provides a drop-in replacements for the Palatino font from
5630 Adobe's basic set.")
5631     ;; No license version specified.
5632     (license license:gpl3+)))
5633
5634 (define-deprecated-package texlive-fonts-adobe-palatino texlive-palatino)
5635
5636 (define-public texlive-zapfding
5637   (package
5638     (inherit (simple-texlive-package
5639               "texlive-zapfding"
5640               (list "/dvips/zapfding/"
5641                     "/fonts/afm/adobe/zapfding/"
5642                     "/fonts/afm/urw/zapfding/"
5643                     "/fonts/tfm/adobe/zapfding/"
5644                     "/fonts/tfm/urw35vf/zapfding/"
5645                     "/fonts/type1/urw/zapfding/"
5646                     "/fonts/map/dvips/zapfding/"
5647                     "/tex/latex/zapfding/")
5648               (base32
5649                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
5650               #:trivial? #t))
5651     (home-page "https://ctan.org/pkg/urw-base35")
5652     (synopsis "URW Base 35 font pack for LaTeX")
5653     (description
5654      "This package provides a drop-in replacements for the Zapfding font from
5655 Adobe's basic set.")
5656     ;; No license version specified.
5657     (license license:gpl3+)))
5658
5659 (define-deprecated-package texlive-fonts-adobe-zapfding texlive-zapfding)
5660
5661 (define-public texlive-fonts-rsfs
5662   (package
5663     (name "texlive-fonts-rsfs")
5664     (version (number->string %texlive-revision))
5665     (source (origin
5666               (method svn-fetch)
5667               (uri (svn-reference
5668                     (url (string-append "svn://www.tug.org/texlive/tags/"
5669                                         %texlive-tag "/Master/texmf-dist/"
5670                                         "/fonts/source/public/rsfs/"))
5671                     (revision %texlive-revision)))
5672               (file-name (string-append name "-" version "-checkout"))
5673               (sha256
5674                (base32
5675                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
5676     (build-system gnu-build-system)
5677     (arguments
5678      `(#:modules ((guix build gnu-build-system)
5679                   (guix build utils)
5680                   (srfi srfi-1)
5681                   (srfi srfi-26))
5682        #:tests? #f                      ; no tests
5683        #:phases
5684        (modify-phases %standard-phases
5685          (delete 'configure)
5686          (replace 'build
5687            (lambda* (#:key inputs #:allow-other-keys)
5688              (let ((mf (assoc-ref inputs "texlive-metafont")))
5689                ;; Tell mf where to find mf.base
5690                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5691                ;; Tell mf where to look for source files
5692                (setenv "MFINPUTS"
5693                        (string-append (getcwd) ":"
5694                                       mf "/share/texmf-dist/metafont/base:"
5695                                       (assoc-ref inputs "texlive-cm")
5696                                       "/share/texmf-dist/fonts/source/public/cm")))
5697              (mkdir "build")
5698              (for-each (lambda (font)
5699                          (format #t "building font ~a\n" font)
5700                          (invoke "mf" "-progname=mf"
5701                                  "-output-directory=build"
5702                                  (string-append "\\"
5703                                                 "mode:=ljfour; "
5704                                                 "mag:=1; "
5705                                                 "batchmode; "
5706                                                 "input " (basename font ".mf"))))
5707                        (find-files "." "[0-9]+\\.mf$"))
5708              #t))
5709          (replace 'install
5710            (lambda* (#:key outputs #:allow-other-keys)
5711              (let* ((out (assoc-ref outputs "out"))
5712                     (tfm (string-append
5713                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
5714                     (mf  (string-append
5715                           out "/share/texmf-dist/fonts/source/public/rsfs")))
5716                (for-each (cut install-file <> tfm)
5717                          (find-files "build" "\\.*"))
5718                (for-each (cut install-file <> mf)
5719                          (find-files "." "\\.mf"))
5720                #t))))))
5721     (native-inputs
5722      `(("texlive-bin" ,texlive-bin)
5723        ("texlive-metafont" ,texlive-metafont)
5724        ("texlive-cm" ,texlive-cm)))
5725     (home-page "https://www.ctan.org/pkg/rsfs")
5726     (synopsis "Ralph Smith's Formal Script font")
5727     (description
5728      "The fonts provide uppercase formal script letters for use as symbols in
5729 scientific and mathematical typesetting (in contrast to the informal script
5730 fonts such as that used for the calligraphic symbols in the TeX maths symbol
5731 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
5732 format.  LaTeX support, for using these fonts in mathematics, is available via
5733 one of the packages @code{calrsfs} and @code{mathrsfs}.")
5734     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
5735
5736 (define-public texlive-latex-eso-pic
5737   (package
5738     (name "texlive-latex-eso-pic")
5739     (version (number->string %texlive-revision))
5740     (source (origin
5741               (method svn-fetch)
5742               (uri (texlive-ref "latex" "eso-pic"))
5743               (file-name (string-append name "-" version "-checkout"))
5744               (sha256
5745                (base32
5746                 "12f7pbhiav4iz3rra5vq85v9f14h8j1ybi42kvnkzgjsay87p7gf"))))
5747     (build-system texlive-build-system)
5748     (arguments '(#:tex-directory "latex/eso-pic"))
5749     (home-page "https://www.ctan.org/pkg/eso-pic")
5750     (synopsis "Add picture commands (or backgrounds) to every page")
5751     (description
5752      "The package adds one or more user commands to LaTeX's @code{shipout}
5753 routine, which may be used to place the output at fixed positions.  The
5754 @code{grid} option may be used to find the correct places.")
5755     (license license:lppl1.3+)))
5756
5757 (define-public texlive-latex-eepic
5758   (package
5759     (name "texlive-latex-eepic")
5760     (version (number->string %texlive-revision))
5761     (source (origin
5762               (method svn-fetch)
5763               (uri (svn-reference
5764                     (url (string-append "svn://www.tug.org/texlive/tags/"
5765                                         %texlive-tag "/Master/texmf-dist/"
5766                                         "/tex/latex/eepic"))
5767                     (revision %texlive-revision)))
5768               (file-name (string-append name "-" version "-checkout"))
5769               (sha256
5770                (base32
5771                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
5772     (build-system trivial-build-system)
5773     (arguments
5774      `(#:modules ((guix build utils))
5775        #:builder
5776        (begin
5777          (use-modules (guix build utils))
5778          (let ((target (string-append (assoc-ref %outputs "out")
5779                                       "/share/texmf-dist/tex/latex/eepic")))
5780            (mkdir-p target)
5781            (copy-recursively (assoc-ref %build-inputs "source") target)
5782            #t))))
5783     (home-page "https://www.ctan.org/pkg/eepic")
5784     (synopsis "Extensions to epic and the LaTeX drawing tools")
5785     (description
5786      "Extensions to @code{epic} and the LaTeX picture drawing environment,
5787 include the drawing of lines at any slope, the drawing of circles in any
5788 radii, and the drawing of dotted and dashed lines much faster with much less
5789 TeX memory, and providing several new commands for drawing ellipses, arcs,
5790 splines, and filled circles and ellipses.  The package uses @code{tpic}
5791 @code{\\special} commands.")
5792     (license license:public-domain)))
5793
5794 (define-public texlive-latex-enumitem
5795   (package
5796     (name "texlive-latex-enumitem")
5797     (version (number->string %texlive-revision))
5798     (source (origin
5799               (method svn-fetch)
5800               (uri (svn-reference
5801                     (url (string-append "svn://www.tug.org/texlive/tags/"
5802                                         %texlive-tag "/Master/texmf-dist/"
5803                                         "/tex/latex/enumitem"))
5804                     (revision %texlive-revision)))
5805               (file-name (string-append name "-" version "-checkout"))
5806               (sha256
5807                (base32
5808                 "1j8svflnx9w897mdavyf1f0n256wh4bbclrhv5vx7b501gmlbp7d"))))
5809     (build-system trivial-build-system)
5810     (arguments
5811      `(#:modules ((guix build utils))
5812        #:builder
5813        (begin
5814          (use-modules (guix build utils))
5815          (let ((target (string-append (assoc-ref %outputs "out")
5816                                       "/share/texmf-dist/tex/latex/enumitem")))
5817            (mkdir-p target)
5818            (copy-recursively (assoc-ref %build-inputs "source") target)
5819            #t))))
5820     (home-page "https://www.ctan.org/pkg/enumitem")
5821     (synopsis "Customize basic list environments")
5822     (description
5823      "This package is intended to ease customizing the three basic list
5824 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5825 extends their syntax to allow an optional argument where a set of parameters
5826 in the form @code{key=value} are available, for example:
5827 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5828     (license license:lppl1.3+)))
5829
5830 (define-public texlive-latex-multirow
5831   (package
5832     (name "texlive-latex-multirow")
5833     (version (number->string %texlive-revision))
5834     (source (origin
5835               (method svn-fetch)
5836               (uri (texlive-ref "latex" "multirow"))
5837               (file-name (string-append name "-" version "-checkout"))
5838               (sha256
5839                (base32
5840                 "1kak9i6nwz6vc4xjj6lbvkb69s49pis6qynjzvsjraxbdw28y2dq"))))
5841     (build-system texlive-build-system)
5842     (arguments '(#:tex-directory "latex/multirow"))
5843     (home-page "https://www.ctan.org/pkg/multirow")
5844     (synopsis "Create tabular cells spanning multiple rows")
5845     (description
5846      "The package provides tools for creating tabular cells spanning multiple
5847 rows.  It has a lot of flexibility, including an option for specifying an
5848 entry at the \"natural\" width of its text.")
5849     (license license:lppl1.3+)))
5850
5851 (define-public texlive-latex-overpic
5852   (package
5853     (name "texlive-latex-overpic")
5854     (version (number->string %texlive-revision))
5855     (source (origin
5856               (method svn-fetch)
5857               (uri (svn-reference
5858                     (url (string-append "svn://www.tug.org/texlive/tags/"
5859                                         %texlive-tag "/Master/texmf-dist/"
5860                                         "/tex/latex/overpic"))
5861                     (revision %texlive-revision)))
5862               (file-name (string-append name "-" version "-checkout"))
5863               (sha256
5864                (base32
5865                 "1ygsr0rsdabj61zask3346xrwiphz5i6f1nfb9k4d3234psh09kb"))))
5866     (build-system trivial-build-system)
5867     (arguments
5868      `(#:modules ((guix build utils))
5869        #:builder
5870        (begin
5871          (use-modules (guix build utils))
5872          (let ((target (string-append (assoc-ref %outputs "out")
5873                                       "/share/texmf-dist/tex/latex/overpic")))
5874            (mkdir-p target)
5875            (copy-recursively (assoc-ref %build-inputs "source") target)
5876            #t))))
5877     (home-page "https://www.ctan.org/pkg/overpic")
5878     (synopsis "Combine LaTeX commands over included graphics")
5879     (description
5880      "The @code{overpic} environment is a cross between the LaTeX
5881 @code{picture} environment and the @code{\\includegraphics} command of
5882 @code{graphicx}.  The resulting picture environment has the same dimensions as
5883 the included graphic.  LaTeX commands can be placed on the graphic at defined
5884 positions; a grid for orientation is available.")
5885     (license license:lppl1.0+)))
5886
5887 (define-public texlive-latex-parskip
5888   (package
5889     (name "texlive-latex-parskip")
5890     (version (number->string %texlive-revision))
5891     (source (origin
5892               (method svn-fetch)
5893               (uri (svn-reference
5894                     (url (string-append "svn://www.tug.org/texlive/tags/"
5895                                         %texlive-tag "/Master/texmf-dist/"
5896                                         "/tex/latex/parskip"))
5897                     (revision %texlive-revision)))
5898               (file-name (string-append name "-" version "-checkout"))
5899               (sha256
5900                (base32
5901                 "1zll8jci8lsd7y44j567akf6y8fp2p7qq23rs527zhr0br9mn3sh"))))
5902     (build-system trivial-build-system)
5903     (arguments
5904      `(#:modules ((guix build utils))
5905        #:builder
5906        (begin
5907          (use-modules (guix build utils))
5908          (let ((target (string-append (assoc-ref %outputs "out")
5909                                       "/share/texmf-dist/tex/latex/parskip")))
5910            (mkdir-p target)
5911            (copy-recursively (assoc-ref %build-inputs "source") target)
5912            #t))))
5913     (home-page "https://www.ctan.org/pkg/parskip")
5914     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5915     (description
5916      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5917 that is untidy; this package (though it is no substitute for a properly
5918 designed class) helps alleviate this untidiness.")
5919     (license license:lppl)))
5920
5921 (define-public texlive-latex-pdfpages
5922   (package
5923     (name "texlive-latex-pdfpages")
5924     (version (number->string %texlive-revision))
5925     (source (origin
5926               (method svn-fetch)
5927               (uri (texlive-ref "latex" "pdfpages"))
5928               (file-name (string-append name "-" version "-checkout"))
5929               (sha256
5930                (base32
5931                 "140kl8r7g2ak2frjn5pmwiwibfynyfwp897r9vk8pypmn390lzr2"))))
5932     (build-system texlive-build-system)
5933     (arguments '(#:tex-directory "latex/pdfpages"))
5934     (home-page "https://www.ctan.org/pkg/pdfpages")
5935     (synopsis "Include PDF documents in LaTeX")
5936     (description
5937      "This package simplifies the inclusion of external multi-page PDF
5938 documents in LaTeX documents.  Pages may be freely selected and it is possible
5939 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5940 hypertext features like hyperlinks and article threads are provided.  The
5941 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5942 use this package to insert PostScript files, in addition to PDF files.")
5943     (license license:lppl1.3+)))
5944
5945 (define-public texlive-stmaryrd
5946   (let ((template (simple-texlive-package
5947                    "texlive-stmaryrd"
5948                    (list "/fonts/afm/public/stmaryrd/"
5949                          "/fonts/map/dvips/stmaryrd/"
5950                          "/fonts/source/public/stmaryrd/"
5951                          "/fonts/tfm/public/stmaryrd/"
5952                          "/fonts/type1/public/stmaryrd/"
5953                          "/source/fonts/stmaryrd/"
5954                          "/doc/fonts/stmaryrd/")
5955                    (base32
5956                     "0yn0yl6x1z9ab5gb56lhvkqabd2agz3ggxifwxkiysrj5780j29z"))))
5957     (package
5958       (inherit template)
5959       (arguments (substitute-keyword-arguments (package-arguments template)
5960                    ((#:tex-directory _ #t)
5961                     "latex/stmaryrd")
5962                    ((#:phases phases)
5963                     `(modify-phases ,phases
5964                        (add-after 'unpack 'chdir
5965                          (lambda _
5966                            (chdir "source/fonts/stmaryrd")
5967                            #t))
5968                        (add-after 'chdir 'patch-ins
5969                          (lambda _
5970                            (substitute* "stmaryrd.ins"
5971                              (("^%% LaTeX2e.*") "\\input docstrip\n")
5972                              (("fontdef\\}\\}" line)
5973                               (string-append line "\n\\endbatchfile")))
5974                            #t))))))
5975       (home-page "https://www.ctan.org/pkg/stmaryrd")
5976       (synopsis "St Mary Road symbols for theoretical computer science")
5977       (description
5978        "The fonts were originally distributed as Metafont sources only, but
5979 Adobe Type 1 versions are also now available.  Macro support is provided for
5980 use under LaTeX; the package supports the @code{only} option (provided by the
5981 @code{somedefs} package) to restrict what is loaded, for those who don't need
5982 the whole font.")
5983       (license license:lppl))))
5984
5985 (define-deprecated-package texlive-fonts-stmaryrd texlive-stmaryrd)
5986
5987 (define-public texlive-latex-subfigure
5988   (package
5989     (name "texlive-latex-subfigure")
5990     (version (number->string %texlive-revision))
5991     (source (origin
5992               (method svn-fetch)
5993               (uri (texlive-ref "latex" "subfigure"))
5994               (file-name (string-append name "-" version "-checkout"))
5995               (sha256
5996                (base32
5997                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5998     (build-system texlive-build-system)
5999     (arguments '(#:tex-directory "latex/subfigure"))
6000     (home-page "https://www.ctan.org/pkg/subfigure")
6001     (synopsis "Figures divided into subfigures")
6002     (description
6003      "This (deprecated) package provides support for the manipulation and
6004 reference of small or \"sub\" figures and tables within a single figure or
6005 table environment.  It is convenient to use this package when your subfigures
6006 are to be separately captioned, referenced, or are to be included in the
6007 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
6008 used inside a figure environment for each subfigure.  An optional first
6009 argument is used as the caption for that subfigure.  The package is now
6010 considered obsolete: it was superseded by @code{subfig}, but users may find
6011 the more recent @code{subcaption} package more satisfactory.")
6012     (license license:lppl)))
6013
6014 (define-public texlive-latex-tabulary
6015   (package
6016     (name "texlive-latex-tabulary")
6017     (version (number->string %texlive-revision))
6018     (source (origin
6019               (method svn-fetch)
6020               (uri (texlive-ref "latex" "tabulary"))
6021               (file-name (string-append name "-" version "-checkout"))
6022               (sha256
6023                (base32
6024                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
6025     (build-system texlive-build-system)
6026     (arguments '(#:tex-directory "latex/tabulary"))
6027     (home-page "https://www.ctan.org/pkg/tabulary")
6028     (synopsis "Tabular with variable width columns balanced")
6029     (description
6030      "The package defines a @code{tabular*}-like environment, @code{tabulary},
6031 taking a \"total width\" argument as well as the column specifications.  The
6032 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
6033 variable width columns (@code{\\raggedright}, @code{\\centering},
6034 @code{\\raggedleft}, and normally justified).  In contrast to
6035 @code{tabularx}'s @code{X} columns, the width of each column is weighted
6036 according to the natural width of the widest cell in the column.")
6037     (license license:lppl)))
6038
6039 (define-public texlive-latex-threeparttable
6040   (package
6041     (name "texlive-latex-threeparttable")
6042     (version (number->string %texlive-revision))
6043     (source (origin
6044               (method svn-fetch)
6045               (uri (svn-reference
6046                     (url (string-append "svn://www.tug.org/texlive/tags/"
6047                                         %texlive-tag "/Master/texmf-dist/"
6048                                         "/tex/latex/threeparttable"))
6049                     (revision %texlive-revision)))
6050               (file-name (string-append name "-" version "-checkout"))
6051               (sha256
6052                (base32
6053                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
6054     (build-system trivial-build-system)
6055     (arguments
6056      `(#:modules ((guix build utils))
6057        #:builder
6058        (begin
6059          (use-modules (guix build utils))
6060          (let ((target (string-append (assoc-ref %outputs "out")
6061                                       "/share/texmf-dist/tex/latex/threeparttable")))
6062            (mkdir-p target)
6063            (copy-recursively (assoc-ref %build-inputs "source") target)
6064            #t))))
6065     (home-page "https://www.ctan.org/pkg/threeparttable")
6066     (synopsis "Tables with captions and notes all the same width")
6067     (description
6068      "This package facilitates tables with titles (captions) and notes.  The
6069 title and notes are given a width equal to the body of the table (a
6070 @code{tabular} environment).  By itself, a @code{threeparttable} does not
6071 float, but you can put it in a @code{table} or a @code{table*} or some other
6072 environment.")
6073     (license (license:fsf-free "file://threeparttable.sty"))))
6074
6075 (define-public texlive-txfonts
6076   (package
6077     (inherit (simple-texlive-package
6078               "texlive-txfonts"
6079               (list "/doc/fonts/txfonts/"
6080
6081                     "/fonts/afm/public/txfonts/"
6082                     "/fonts/tfm/public/txfonts/"
6083                     "/fonts/type1/public/txfonts/"
6084                     "/fonts/vf/public/txfonts/"
6085
6086                     "/fonts/map/dvips/txfonts/"
6087                     "/fonts/enc/dvips/txfonts/"
6088                     "/tex/latex/txfonts/")
6089               (base32
6090                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
6091               #:trivial? #t))
6092     (home-page "https://www.ctan.org/pkg/txfonts")
6093     (synopsis "Times-like fonts in support of mathematics")
6094     (description
6095      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
6096 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
6097 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
6098 providing all the symbols of the Computer Modern and AMS fonts, including all
6099 the Greek capital letters from CMR; and additional maths fonts of various
6100 other symbols.
6101
6102 The set is complemented by a sans-serif set of text fonts, based on
6103 Helvetica/NimbusSanL, and a monospace set.
6104
6105 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
6106 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
6107     ;; Any version of the GPL with font exception.
6108     (license license:gpl3+)))
6109
6110 (define-deprecated-package texlive-fonts-txfonts texlive-txfonts)
6111
6112 (define-public texlive-fonts-iwona
6113   (package
6114     (name "texlive-fonts-iwona")
6115     (version "0.995b")
6116     (source (origin
6117               (method url-fetch)
6118               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
6119                                   (string-map (lambda (c)
6120                                                 (if (char=? c #\.)
6121                                                     #\_ c))
6122                                               version)
6123                                   ".zip"))
6124               (sha256
6125                (base32
6126                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
6127     (build-system trivial-build-system)
6128     (arguments
6129      `(#:modules ((guix build utils))
6130        #:builder
6131        (begin
6132          (use-modules (guix build utils))
6133          (let ((target (string-append (assoc-ref %outputs "out")
6134                                       "/share/texmf-dist/"))
6135                (unzip  (string-append (assoc-ref %build-inputs "unzip")
6136                                       "/bin/unzip")))
6137            (invoke unzip (assoc-ref %build-inputs "source"))
6138            (mkdir-p target)
6139            (copy-recursively "iwona" target)
6140            #t))))
6141     (native-inputs
6142      `(("unzip" ,unzip)))
6143     (home-page "http://jmn.pl/en/kurier-i-iwona/")
6144     (synopsis "Sans-serif typeface for TeX")
6145     (description "Iwona is a two-element sans-serif typeface. It was created
6146 as an alternative version of the Kurier typeface, which was designed in 1975
6147 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
6148 supervision of Roman Tomaszewski.  Kurier was designed for linotype
6149 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
6150 alternative version of the Kurier fonts.  The difference lies in the absence
6151 of ink traps which typify the Kurier font.")
6152     (license license:gfl1.0)))
6153
6154 (define-public texlive-jknappen
6155   (package
6156     (inherit (simple-texlive-package
6157               "texlive-jknappen"
6158               (list "/fonts/source/jknappen/"
6159                     "/fonts/tfm/jknappen/"
6160                     "/tex4ht/ht-fonts/alias/jknappen/"
6161                     "/tex4ht/ht-fonts/unicode/jknappen/")
6162               (base32
6163                "0xvy3c845jc7iw1h9rcm1r2yvm1ni1sm9r9k9j2cfc82xy43rwij")
6164               #:trivial? #t))
6165     (home-page "https://www.ctan.org/pkg/jknappen")
6166     (synopsis "Miscellaneous packages by Jörg Knappen")
6167     (description
6168      "This package contains a collection of macros by Jörg Knappen:
6169 @table @code
6170 @item greekctr
6171 New counterstyles @code{\\greek} and @code{\\Greek}.
6172 @item holtpolt
6173 Non-commutative fractions
6174 @item latin1jk
6175 @itemx latin2jk
6176 @itemx latin3jk
6177 Inputenc definition files that allow verbatim input in the respective ISO
6178 Latin codes.
6179 @item mathbol
6180 Blackboard bold fonts for use in maths.
6181 @item mathrsfs
6182 Mathematical script letters, as traditionally used in physics for Lagrangian,
6183 Hamiltonian, path integral measures, etc.
6184 @item parboxx
6185 New alignment options for parboxen at top and bottom of the box.
6186 @item sans
6187 Interchanges the roles of sans serif and roman fonts throughout the document.
6188 @item semtrans
6189 Support for special latin letters and diacritics used in transliteration of
6190 semitic languages
6191 @item smartmn
6192 Intelligent hyphen/minus, which guesses whether to render as hyphen or minus.
6193 @item sgmlcmpt
6194 Commands replacing the characters <, >, and &.
6195 @item tccompat
6196 A compatibility package for users of the older versions of the textcomp package.
6197 @item young
6198 Simple Young tableaux.
6199 @end table")
6200     (license license:gpl2)))                    ;per the 00readme_txt file.
6201
6202 (define-public texlive-jadetex
6203   (let ((template (simple-texlive-package
6204                    "texlive-jadetex"
6205                    (list "/doc/man/man1/jadetex.1"
6206                          "/doc/man/man1/jadetex.man1.pdf"
6207                          "/doc/man/man1/pdfjadetex.1"
6208                          "/doc/man/man1/pdfjadetex.man1.pdf"
6209                          "/source/jadetex/base/"
6210                          ;; The following files are not generated from
6211                          ;; sources.
6212                          "/tex/jadetex/base/jadetex.ini"
6213                          "/tex/jadetex/base/pdfjadetex.ini"
6214                          "/tex/jadetex/base/uentities.sty")
6215                    (base32
6216                     "03chyc3vjqgxcj985gy4k0bd0lf1n4a6sgbhc7k84jparjk3hx4i"))))
6217     (package
6218       (inherit template)
6219       (arguments
6220        (substitute-keyword-arguments (package-arguments template)
6221          ((#:tex-directory _ #t)
6222           "jadetex/base")
6223          ((#:phases phases)
6224           `(modify-phases ,phases
6225              (add-after 'unpack 'unify-source-directory
6226                (lambda _
6227                  (chdir "source/jadetex/base")
6228                  (for-each (lambda (f)
6229                              (copy-file f (basename f)))
6230                            (find-files "../../../tex/jadetex/base"))
6231                  #t))
6232              (add-after 'build 'generate-formats
6233                (lambda* (#:key inputs #:allow-other-keys)
6234                  (mkdir "web2c")
6235                  (for-each (lambda (f)
6236                              (symlink f (basename f)))
6237                            (find-files "build"))
6238                  (invoke "fmtutil-sys" "--byfmt" "jadetex"
6239                          "--fmtdir=web2c")
6240                  (invoke "fmtutil-sys" "--byfmt" "pdfjadetex"
6241                          "--fmtdir=web2c")))
6242              (add-after 'install 'install-formats-and-wrappers
6243                (lambda* (#:key inputs outputs #:allow-other-keys)
6244                  (let* ((out (assoc-ref outputs "out"))
6245                         (texlive-bin (assoc-ref inputs "texlive-bin"))
6246                         (pdftex (string-append texlive-bin "/bin/pdftex"))
6247                         (web2c (string-append out "/share/texmf-dist/web2c")))
6248                    (mkdir-p web2c)
6249                    (copy-recursively "web2c" web2c)
6250                    ;; Create convenience command wrappers.
6251                    (mkdir-p (string-append out "/bin"))
6252                    (symlink pdftex (string-append out "/bin/jadetex"))
6253                    (symlink pdftex (string-append out "/bin/pdfjadetex"))
6254                    #t)))))))
6255       (propagated-inputs
6256        ;; Propagate the texlive-updmap.cfg input used by xmltex, which provides the
6257        ;; required fonts for its use.
6258        `(("texlive-xmltex" ,texlive-xmltex)
6259          ("texlive-kpathsea" ,texlive-kpathsea))) ;for fmtutil.cnf template
6260       (native-inputs
6261        `(("texlive-cm" ,texlive-cm)     ;for cmex10 and others
6262          ("texlive-fonts-latex" ,texlive-fonts-latex) ;for lasy6
6263          ;; The t1cmr.fd file of texlive-latex-base refers to the ecrm font,
6264          ;; provided by the jknappen package collection.
6265          ("texlive-jknappen" ,texlive-jknappen)
6266          ("texlive-generic-ulem" ,texlive-generic-ulem)
6267          ("texlive-hyperref" ,texlive-hyperref)
6268          ("texlive-latex-colortbl" ,texlive-latex-colortbl)
6269          ("texlive-latex-fancyhdr" ,texlive-latex-fancyhdr)
6270          ("texlive-latex-graphics" ,texlive-latex-graphics) ;for color.sty
6271          ("texlive-latex-tools" ,texlive-latex-tools)       ;for array.sty
6272          ("texlive-marvosym" ,texlive-marvosym)
6273          ("texlive-tex-ini-files" ,texlive-tex-ini-files))) ;for pdftexconfig
6274       (home-page "https://www.ctan.org/pkg/jadetex/")
6275       (synopsis "TeX macros to produce TeX output using OpenJade")
6276       (description "JadeTeX is a companion package to the OpenJade DSSSL
6277 processor.  OpenJade applies a DSSSL stylesheet to an SGML or XML document.
6278 The output of this process can be in a number of forms, including a set of
6279 high level LaTeX macros.  It is the task of the JadeTeX package to transform
6280 these macros into DVI/PostScript (using the @command{jadetex} command) or
6281 Portable Document Format (PDF) form (using the @command{pdfjadetex}
6282 command).")
6283       ;; The license text is found at the header of the jadetex.dtx file.
6284       (license license:expat))))
6285
6286 (define-public texlive-libertine
6287   (package
6288     (inherit (simple-texlive-package
6289               "texlive-libertine"
6290               (list "/doc/fonts/libertine/"
6291
6292                     "/fonts/enc/dvips/libertine/"
6293                     "/fonts/map/dvips/libertine/"
6294                     "/fonts/opentype/public/libertine/"
6295                     "/fonts/tfm/public/libertine/"
6296                     "/fonts/type1/public/libertine/"
6297                     "/fonts/vf/public/libertine/"
6298
6299                     "/tex/latex/libertine/")
6300               (base32
6301                "1d5r80isyvs2v3i8pzlhsn7ns6bn8ldkbs82g25widraixlhg6yg")
6302               #:trivial? #t))
6303     (home-page "https://www.ctan.org/pkg/libertine")
6304     (synopsis "Use Linux Libertine and Biolinum fonts with LaTeX")
6305     (description
6306      "The package provides the Libertine and Biolinum fonts in both Type 1 and
6307 OTF styles, together with support macros for their use.  Monospaced and
6308 display fonts, and the \"keyboard\" set are also included, in OTF style, only.
6309 The @code{mweights} package is used to manage the selection of font weights.
6310 The package supersedes both the @code{libertineotf} and the
6311 @code{libertine-legacy} packages.")
6312     (license (list license:gpl2+        ; with font exception
6313                    license:silofl1.1
6314                    license:lppl))))
6315
6316 (define-public texlive-dejavu
6317   (package
6318     (inherit (simple-texlive-package
6319               "texlive-dejavu"
6320               (list "/doc/fonts/dejavu/"
6321
6322                     "/fonts/enc/dvips/dejavu/"
6323                     "/fonts/map/dvips/dejavu/"
6324
6325                     "/fonts/afm/public/dejavu/"
6326                     "/fonts/tfm/public/dejavu/"
6327                     "/fonts/truetype/public/dejavu/"
6328                     "/fonts/type1/public/dejavu/"
6329                     "/fonts/vf/public/dejavu/"
6330
6331                     "/tex/latex/dejavu/")
6332               (base32
6333                "0y4qf5jl0xncah9nkcaalmy69wwq02n3j895zp71n2p0nfi24aka")
6334               #:trivial? #t))
6335     (home-page "https://www.ctan.org/pkg/libertine")
6336     (synopsis "LaTeX support for the DejaVu fonts")
6337     (description
6338      "The package contains LaTeX support for the DejaVu fonts, which are
6339 derived from the Vera fonts but contain more characters and styles.  The fonts
6340 are included in the original TrueType format, and in converted Type 1 format.
6341 The (currently) supported encodings are: OT1, T1, IL2, TS1, T2*, X2, QX, and
6342 LGR.  The package doesn't (currently) support mathematics.")
6343     (license license:lppl)))
6344
6345 (define-public texlive-latex-titlesec
6346   (package
6347     (name "texlive-latex-titlesec")
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/titlesec"))
6355                     (revision %texlive-revision)))
6356               (file-name (string-append name "-" version "-checkout"))
6357               (sha256
6358                (base32
6359                 "1kw7dvxvdfbf31zw0n8r0g5xak3vcdf25n33fqw93j59zpc5nvbl"))))
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/titlesec")))
6368            (mkdir-p target)
6369            (copy-recursively (assoc-ref %build-inputs "source") target)
6370            #t))))
6371     (home-page "https://www.ctan.org/pkg/titlesec")
6372     (synopsis "Select alternative section titles")
6373     (description
6374      "This package provides an interface to sectioning commands for selection
6375 from various title styles, e.g. for marginal titles and to change the font of
6376 all headings with a single command, also providing simple one-step page
6377 styles.  It also includes a package to change the page styles when there are
6378 floats in a page.  You may assign headers/footers to individual floats, too.")
6379     (license license:lppl)))
6380
6381 (define-public texlive-latex-type1cm
6382   (package
6383     (name "texlive-latex-type1cm")
6384     (version (number->string %texlive-revision))
6385     (source (origin
6386               (method svn-fetch)
6387               (uri (texlive-ref "latex" "type1cm"))
6388               (file-name (string-append name "-" version "-checkout"))
6389               (sha256
6390                (base32
6391                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
6392     (build-system texlive-build-system)
6393     (arguments '(#:tex-directory "latex/type1cm"))
6394     (home-page "https://www.ctan.org/pkg/type1cm")
6395     (synopsis "Arbitrary size font selection in LaTeX")
6396     (description
6397      "LaTeX, by default, restricts the sizes at which you can use its default
6398 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
6399 specified by Knuth).  The @code{type1cm} package removes this restriction;
6400 this is particularly useful when using scalable versions of the CM
6401 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
6402 PCTeX, etc.).  In fact, since modern distributions will automatically generate
6403 any bitmap font you might need, @code{type1cm} has wider application than just
6404 those using scalable versions of the fonts.  Note that the LaTeX distribution
6405 now contains a package @code{fix-cm},f which performs the task of
6406 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
6407 @code{ec} fonts.")
6408     (license license:lppl)))
6409
6410 (define-public texlive-lh
6411   (let ((template (simple-texlive-package
6412                    "texlive-lh"
6413                    (list "/doc/fonts/lh/"
6414                          "/source/fonts/lh/"
6415                          "/source/latex/lh/"
6416                          "/fonts/source/lh/"
6417                          "/tex/plain/lh/")
6418                    (base32
6419                     "0vw75i52asi5sssp8k9r8dy4ihvqbvmbsl3dini3ls8cky15lz37"))))
6420     (package
6421       (inherit template)
6422       (arguments
6423        (substitute-keyword-arguments (package-arguments template)
6424          ((#:tex-directory _ #t)
6425           "latex/lh")
6426          ((#:build-targets _ '())
6427           ''("nfssfox.ins" "lcyfonts.ins" "ot2fonts.ins" "t2ccfonts.ins"))
6428          ((#:phases phases)
6429           `(modify-phases ,phases
6430              (add-after 'unpack 'chdir
6431                (lambda _ (chdir "source/latex/lh") #t))))))
6432       (home-page "https://www.ctan.org/pkg/lh")
6433       (synopsis "Cyrillic fonts that support LaTeX standard encodings")
6434       (description
6435        "The LH fonts address the problem of the wide variety of alphabets that
6436 are written with Cyrillic-style characters.  The fonts are the original basis
6437 of the set of T2* and X2 encodings that are now used when LaTeX users need to
6438 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
6439 offered through the latex-cyrillic and t2 bundles, and the package itself
6440 offers support for other (more traditional) encodings.  The fonts, in the
6441 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
6442 CM-Super family of fonts.  The package also offers its own LaTeX support for
6443 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
6444       (license license:lppl))))
6445
6446 (define-deprecated-package texlive-latex-lh texlive-lh)
6447
6448 (define-public texlive-marvosym
6449   (package
6450     (inherit (simple-texlive-package
6451               "texlive-marvosym"
6452               (list "/doc/fonts/marvosym/"
6453                     "/fonts/afm/public/marvosym/"
6454                     "/fonts/map/dvips/marvosym/"
6455                     "/fonts/tfm/public/marvosym/"
6456                     "/fonts/truetype/public/marvosym/"
6457                     "/fonts/type1/public/marvosym/"
6458                     "/tex/latex/marvosym/")
6459               (base32
6460                "0m3bbg06cia8ni86fjhvb7x4a5qcxgnpqcvicfms91w2px9ysc46")
6461               #:trivial? #t))
6462     (home-page "https://martinvogel.de/blog/index.php?\
6463 /archives/131-Marvosym.ttf.html")
6464     (synopsis "Martin Vogel's Symbols (marvosym) font")
6465     (description "The Martin Vogel’s Symbols fonts (marvosym) contains the
6466 Euro currency symbol as defined by the European commission, along with symbols
6467 for structural engineering, symbols for steel cross-sections, astronomy
6468 signs (sun, moon, planets), the 12 signs of the zodiac, scissor symbols, CE
6469 sign and others.  This package contains both the original TrueType font and
6470 the derived Type 1 font, together with support files for TeX (LaTeX).")
6471     (license (list license:lppl          ;for TeX support files
6472                    license:silofl1.1)))) ;for fonts
6473
6474 (define-public texlive-metapost
6475   (package
6476     (name "texlive-metapost")
6477     (version (number->string %texlive-revision))
6478     (source (origin
6479               (method svn-fetch)
6480               (uri (svn-reference
6481                     (url (string-append "svn://www.tug.org/texlive/tags/"
6482                                         %texlive-tag "/Master/texmf-dist/"
6483                                         "/metapost"))
6484                     (revision %texlive-revision)))
6485               (file-name (string-append name "-" version "-checkout"))
6486               (sha256
6487                (base32
6488                 "140k9dz2g2vj5ypgyqx3px9c1y9a820y8kq139p96lw0yk6839aw"))))
6489     (build-system trivial-build-system)
6490     (arguments
6491      `(#:modules ((guix build utils))
6492        #:builder
6493        (begin
6494          (use-modules (guix build utils))
6495          (let ((target (string-append (assoc-ref %outputs "out")
6496                                       "/share/texmf-dist/metapost")))
6497            (mkdir-p target)
6498            (copy-recursively (assoc-ref %build-inputs "source") target)
6499            #t))))
6500     (home-page "https://www.ctan.org/pkg/metapost")
6501     (synopsis "Create scalable illustrations")
6502     (description
6503      "MetaPost uses a language based on that of Metafont to produce precise
6504 technical illustrations.  Its output is scalable PostScript or SVG, rather
6505 than the bitmaps Metafont creates.")
6506     (license license:lppl)))
6507
6508 (define-public texlive-latex-acmart
6509   (package
6510     (name "texlive-latex-acmart")
6511     (version "1.60")
6512     (source (origin
6513               (method svn-fetch)
6514               (uri (texlive-ref "latex" "acmart"))
6515               (sha256
6516                (base32
6517                 "12wxav9r6v7dlfja9myrwz7famgfpcfwd292qzmgg283xgngh9kd"))
6518               (file-name (string-append name "-" version "-checkout"))))
6519     (build-system texlive-build-system)
6520     (arguments '(#:tex-directory "latex/acmart"))
6521     (home-page "https://www.ctan.org/pkg/acmart")
6522     (synopsis "Class for typesetting publications of ACM")
6523     (description
6524      "This package provides a class for typesetting publications of the
6525 Association for Computing Machinery (ACM).")
6526     (license license:lppl1.3+)))
6527
6528 (define-public texlive-latex-varwidth
6529   (package
6530     (name "texlive-latex-varwidth")
6531     (version (number->string %texlive-revision))
6532     (source (origin
6533               (method svn-fetch)
6534               (uri (svn-reference
6535                     (url (string-append "svn://www.tug.org/texlive/tags/"
6536                                         %texlive-tag "/Master/texmf-dist/"
6537                                         "/tex/latex/varwidth"))
6538                     (revision %texlive-revision)))
6539               (file-name (string-append name "-" version "-checkout"))
6540               (sha256
6541                (base32
6542                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
6543     (build-system trivial-build-system)
6544     (arguments
6545      `(#:modules ((guix build utils))
6546        #:builder
6547        (begin
6548          (use-modules (guix build utils))
6549          (let ((target (string-append (assoc-ref %outputs "out")
6550                                       "/share/texmf-dist/tex/latex/varwidth")))
6551            (mkdir-p target)
6552            (copy-recursively (assoc-ref %build-inputs "source") target)
6553            #t))))
6554     (home-page "https://www.ctan.org/pkg/varwidth")
6555     (synopsis "Variable-width minipage")
6556     (description
6557      "The @code{varwidth} environment is superficially similar to
6558 @code{minipage}, but the specified width is just a maximum value — the box may
6559 get a narrower “natural” width.")
6560     (license license:lppl)))
6561
6562 (define-public texlive-wasy
6563   (package
6564     (inherit (simple-texlive-package
6565               "texlive-wasy"
6566               (list "/fonts/source/public/wasy/"
6567                     "/fonts/tfm/public/wasy/"
6568                     "/tex/plain/wasy/"
6569                     "/doc/fonts/wasy/")
6570               (base32
6571                "1swzxgld3lndi5q0q6zkwbw06ndh13fvp04as7zpwyhh646s0hbx")
6572               #:trivial? #t))
6573     (home-page "https://www.ctan.org/pkg/wasy")
6574     (synopsis "Waldi symbol fonts")
6575     (description "This package provides the @code{wasy} (Waldi symbol) fonts,
6576 in the Metafont and Adobe Type 1 formats.  Support under LaTeX is provided by
6577 the @code{wasysym} package.")
6578     (license license:public-domain)))
6579
6580 (define-public texlive-wasysym
6581   (package
6582     (name "texlive-wasysym")
6583     (version (number->string %texlive-revision))
6584     (source (origin
6585               (method svn-fetch)
6586               (uri (texlive-ref "latex" "wasysym"))
6587               (file-name (string-append name "-" version "-checkout"))
6588               (sha256
6589                (base32
6590                 "0zxcf0pfqf439cfwl0r5dd93b0v4pbiih36n2pwshdlvnmy0nr50"))))
6591     (build-system texlive-build-system)
6592     (arguments '(#:tex-directory "latex/wasysym"))
6593     (home-page "https://www.ctan.org/pkg/wasysym")
6594     (synopsis "LaTeX support file to use the @code{wasy} fonts")
6595     (description
6596      "The @code{wasy} (Waldi Symbol) font by Roland Waldi provides many glyphs like
6597 male and female symbols and astronomical symbols, as well as the complete
6598 @code{lasy} font set and other odds and ends.  The @code{wasysym} package
6599 implements an easy to use interface for these symbols.")
6600     (license license:lppl)))
6601
6602 (define-deprecated-package texlive-latex-wasysym texlive-wasysym)
6603
6604 (define-public texlive-latex-wrapfig
6605   (package
6606     (name "texlive-latex-wrapfig")
6607     (version (number->string %texlive-revision))
6608     (source (origin
6609               (method svn-fetch)
6610               (uri (svn-reference
6611                     (url (string-append "svn://www.tug.org/texlive/tags/"
6612                                         %texlive-tag "/Master/texmf-dist/"
6613                                         "/tex/latex/wrapfig"))
6614                     (revision %texlive-revision)))
6615               (file-name (string-append name "-" version "-checkout"))
6616               (sha256
6617                (base32
6618                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
6619     (build-system trivial-build-system)
6620     (arguments
6621      `(#:modules ((guix build utils))
6622        #:builder
6623        (begin
6624          (use-modules (guix build utils))
6625          (let ((target (string-append (assoc-ref %outputs "out")
6626                                       "/share/texmf-dist/tex/latex/wrapfig")))
6627            (mkdir-p target)
6628            (copy-recursively (assoc-ref %build-inputs "source") target)
6629            #t))))
6630     (home-page "https://www.ctan.org/pkg/wrapfig")
6631     (synopsis "Produces figures which text can flow around")
6632     (description
6633      "This package allows figures or tables to have text wrapped around them.
6634 It does not work in combination with list environments, but can be used in a
6635 @code{parbox} or @code{minipage}, and in two-column format.")
6636     (license license:lppl)))
6637
6638 (define-public texlive-latex-ucs
6639   (package
6640     (name "texlive-latex-ucs")
6641     (version (number->string %texlive-revision))
6642     (source (origin
6643               (method svn-fetch)
6644               (uri (svn-reference
6645                     (url (string-append "svn://www.tug.org/texlive/tags/"
6646                                         %texlive-tag "/Master/texmf-dist/"
6647                                         "/tex/latex/ucs"))
6648                     (revision %texlive-revision)))
6649               (file-name (string-append name "-" version "-checkout"))
6650               (sha256
6651                (base32
6652                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
6653     (build-system trivial-build-system)
6654     (arguments
6655      `(#:modules ((guix build utils))
6656        #:builder
6657        (begin
6658          (use-modules (guix build utils))
6659          (let ((target (string-append (assoc-ref %outputs "out")
6660                                       "/share/texmf-dist/tex/latex/ucs")))
6661            (mkdir-p target)
6662            (copy-recursively (assoc-ref %build-inputs "source") target)
6663            #t))))
6664     (home-page "https://www.ctan.org/pkg/ucs")
6665     (synopsis "Extended UTF-8 input encoding support for LaTeX")
6666     (description
6667      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
6668 together with a large number of support files.  The @code{utf8x.def}
6669 definition file for use with @code{inputenc} covers a wider range of Unicode
6670 characters than does @code{utf8.def} in the LaTeX distribution.  The package
6671 provides facilities for efficient use of its large sets of Unicode characters.
6672 Glyph production may be controlled by various options, which permits use of
6673 non-ASCII characters when coding mathematical formulae.  Note that the bundle
6674 previously had an alias “unicode”; that alias has now been withdrawn, and no
6675 package of that name now exists.")
6676     (license license:lppl1.3+)))
6677
6678 (define-public texlive-latex-preview
6679   (package
6680     (name "texlive-latex-preview")
6681     (version (number->string %texlive-revision))
6682     (source (origin
6683               (method svn-fetch)
6684               (uri (texlive-ref "latex" "preview"))
6685               (file-name (string-append name "-" version "-checkout"))
6686               (sha256
6687                (base32
6688                 "0hnf821yvki9bzfkz79ns9m1msjp3yvd4dhf3268wrpr1zjx6w8v"))))
6689     (build-system texlive-build-system)
6690     (arguments
6691      '(#:tex-directory "latex/preview"
6692        #:phases
6693        (modify-phases %standard-phases
6694          (add-after 'unpack 'remove-generated-file
6695            (lambda _
6696              (delete-file "preview.drv")
6697              #t)))))
6698     (home-page "https://www.ctan.org/pkg/preview")
6699     (synopsis "Extract bits of a LaTeX source for output")
6700     (description
6701      "The main purpose of the preview package is the extraction of selected
6702 elements from a LaTeX source, like formulas or graphics, into separate
6703 pages of a DVI file.  A flexible and convenient interface allows it to
6704 specify what commands and constructs should be extracted.  This works
6705 with DVI files postprocessed by either Dvips and Ghostscript or
6706 dvipng, but it also works when you are using PDFTeX for generating PDF
6707 files.")
6708     (license license:gpl3+)))
6709
6710 (define-public texlive-latex-acronym
6711   (package
6712     (name "texlive-latex-acronym")
6713     (version (number->string %texlive-revision))
6714     (source (origin
6715               (method svn-fetch)
6716               (uri (texlive-ref "latex" "acronym"))
6717               (file-name (string-append name "-" version "-checkout"))
6718               (sha256
6719                (base32
6720                 "09pd4wynksg1y1ddxnqbhk2dc185zw5nyi794d86n3qx8l014ijy"))))
6721     (build-system texlive-build-system)
6722     (arguments '(#:tex-directory "latex/acronym"))
6723     (home-page "https://www.ctan.org/pkg/acronym")
6724     (synopsis "Expand acronyms at least once")
6725     (description
6726      "This package ensures that all acronyms used in the text are spelled out
6727 in full at least once.  It also provides an environment to build a list of
6728 acronyms used.  The package is compatible with PDF bookmarks.  The package
6729 requires the suffix package, which in turn requires that it runs under
6730 e-TeX.")
6731     (license license:lppl1.3+)))
6732
6733 (define-public texlive-pdftex
6734   (package
6735     (inherit (simple-texlive-package
6736               "texlive-pdftex"
6737               (list "/doc/pdftex/"
6738                     "/doc/man/man1/pdftex.1"
6739                     "/doc/man/man1/pdfetex.1"
6740                     "/fonts/map/dvips/dummy-space/dummy-space.map"
6741                     "/fonts/tfm/public/pdftex/dummy-space.tfm"
6742                     "/fonts/type1/public/pdftex/dummy-space.pfb"
6743                     "/scripts/simpdftex/simpdftex"
6744                     "/tex/generic/config/pdftex-dvi.tex"
6745                     "/tex/generic/pdftex/glyphtounicode.tex"
6746                     "/tex/generic/pdftex/pdfcolor.tex")
6747               (base32
6748                "1wx928rqsv0x1a8vc7aq49w3nglr4bmlhl822slqglymfxrmb91b")
6749               #:trivial? #t))
6750     ;; TODO: add this missing package:
6751     ;; dehyph
6752     (propagated-inputs
6753      `(("texlive-cm" ,texlive-cm)
6754        ("texlive-etex" ,texlive-etex)
6755        ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)
6756        ("texlive-hyphen-base" ,texlive-hyphen-base)
6757        ("texlive-kpathsea" ,texlive-kpathsea)
6758        ("texlive-tex-ini-files" ,texlive-tex-ini-files)
6759        ("texlive-tex-plain" ,texlive-tex-plain)))
6760     (home-page "https://www.ctan.org/pkg/pdftex")
6761     (synopsis "TeX extension for direct creation of PDF")
6762     (description
6763      "This package provides an extension of TeX which can be configured to
6764 directly generate PDF documents instead of DVI.")
6765     (license license:gpl2+)))
6766
6767 (define-deprecated-package texlive-generic-pdftex texlive-pdftex)
6768
6769 (define texlive-texmf
6770   (package
6771    (name "texlive-texmf")
6772    (version "20210325")
6773    (source texlive-texmf-src)
6774    (build-system gnu-build-system)
6775    (inputs
6776     `(("texlive-bin" ,texlive-bin)
6777       ("lua" ,lua)
6778       ("perl" ,perl)
6779       ("python" ,python)
6780       ("ruby" ,ruby)
6781       ("tcsh" ,tcsh)))
6782    (arguments
6783     `(#:modules ((guix build gnu-build-system)
6784                  (guix build utils)
6785                  (srfi srfi-26))
6786
6787       ;; This package takes 4 GiB, which we can't afford to distribute from
6788       ;; our servers.
6789       #:substitutable? #f
6790
6791       #:phases
6792         (modify-phases (map (cut assq <> %standard-phases)
6793                             '(set-paths unpack patch-source-shebangs))
6794           (add-after 'unpack 'unset-environment-variables
6795             (lambda _
6796               (unsetenv "TEXMF")
6797               (unsetenv "TEXMFCNF")
6798               #t))
6799           (add-after 'patch-source-shebangs 'install
6800             (lambda* (#:key outputs #:allow-other-keys)
6801               (let ((share (string-append (assoc-ref outputs "out") "/share")))
6802                 (mkdir-p share)
6803                 (invoke "mv" "texmf-dist" share))))
6804           (add-after 'install 'texmf-config
6805             (lambda* (#:key inputs outputs #:allow-other-keys)
6806               (let* ((out (assoc-ref outputs "out"))
6807                      (share (string-append out "/share"))
6808                      (texmfroot (string-append share "/texmf-dist/web2c"))
6809                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
6810                      (fmtutilcnf (string-append texmfroot "/fmtutil.cnf"))
6811                      (texlive-bin (assoc-ref inputs "texlive-bin"))
6812                      (texbin (string-append texlive-bin "/bin"))
6813                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
6814                 ;; LuaJIT is not ported to powerpc64* yet.
6815                 (if ,(target-ppc64le?)
6816                     (substitute* fmtutilcnf
6817                       (("^(luajittex|luajithbtex|mfluajit)" m)
6818                        (string-append "#! " m))))
6819                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
6820                 (substitute* texmfcnf
6821                   (("TEXMFROOT = \\$SELFAUTOPARENT")
6822                    (string-append "TEXMFROOT = " share))
6823                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
6824                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
6825                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
6826                 ;; Register paths in texmfcnf.lua, needed for context.
6827                 (substitute* (string-append texmfroot "/texmfcnf.lua")
6828                   (("selfautodir:") out)
6829                   (("selfautoparent:") (string-append share "/")))
6830                 ;; Set path to TeXLive Perl modules
6831                 (setenv "PERL5LIB"
6832                         (string-append (getenv "PERL5LIB") ":" tlpkg))
6833                 ;; Configure the texmf-dist tree; inspired from
6834                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
6835                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
6836                 (setenv "TEXMFCNF" texmfroot)
6837                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
6838                 (invoke "mktexlsr")
6839                 (invoke "fmtutil-sys" "--all")))))))
6840    (properties `((max-silent-time . 9600))) ; don't time out while grafting
6841    (synopsis "TeX Live, a package of the TeX typesetting system")
6842    (description
6843     "TeX Live provides a comprehensive TeX document production system.
6844 It includes all the major TeX-related programs, macro packages, and fonts
6845 that are free software, including support for many languages around the
6846 world.
6847
6848 This package contains the complete tree of texmf-dist data.")
6849    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6850    (home-page "https://www.tug.org/texlive/")))
6851
6852 (define-public texlive
6853   (package
6854    (name "texlive")
6855    (version "20210325")
6856    (source #f)
6857    (build-system trivial-build-system)
6858    (inputs `(("bash" ,bash-minimal)     ;for wrap-program
6859              ("texlive-bin" ,texlive-bin)
6860              ("texlive-texmf" ,texlive-texmf)))
6861    (native-search-paths
6862     (list (search-path-specification
6863            (variable "TEXMFLOCAL")
6864            (files '("share/texmf-local")))))
6865    (arguments
6866     `(#:modules ((guix build utils))
6867       #:builder
6868         ;; Build the union of texlive-bin and texlive-texmf, but take the
6869         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
6870         (begin
6871           (use-modules (guix build utils))
6872           (let ((out (assoc-ref %outputs "out"))
6873                 (bin (assoc-ref %build-inputs "texlive-bin"))
6874                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
6875                 (bash (assoc-ref %build-inputs "bash")))
6876                (mkdir out)
6877                (with-directory-excursion out
6878                  (for-each
6879                    (lambda (name)
6880                      (symlink (string-append bin "/" name) name))
6881                    '("include" "lib"))
6882                  (mkdir "bin")
6883                  (with-directory-excursion "bin"
6884                    (setenv "PATH" (string-append bash "/bin"))
6885                    (for-each
6886                      (lambda (name)
6887                        (symlink name (basename name))
6888                        (wrap-program
6889                          (basename name)
6890                          `("TEXMFCNF" =
6891                            (,(string-append texmf "/share/texmf-dist/web2c")))))
6892                      (find-files (string-append bin "/bin/") "")))
6893                  (mkdir "share")
6894                  (with-directory-excursion "share"
6895                    (for-each
6896                      (lambda (name)
6897                        (symlink (string-append bin "/share/" name) name))
6898                      '("info" "man" "tlpkg"))
6899                    (for-each
6900                      (lambda (name)
6901                        (symlink (string-append texmf "/share/" name) name))
6902                      '("texmf-dist" "texmf-var"))))
6903                #t))))
6904    (synopsis "TeX Live, a package of the TeX typesetting system")
6905    (description
6906     "TeX Live provides a comprehensive TeX document production system.
6907 It includes all the major TeX-related programs, macro packages, and fonts
6908 that are free software, including support for many languages around the
6909 world.
6910
6911 This package contains the complete TeX Live distribution.")
6912    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6913    (home-page "https://www.tug.org/texlive/")))
6914
6915 (define-public perl-text-bibtex
6916   (package
6917     (name "perl-text-bibtex")
6918     (version "0.88")
6919     (source
6920      (origin
6921        (method url-fetch)
6922        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
6923                            version ".tar.gz"))
6924        (sha256
6925         (base32
6926          "0b7lmjvfmypps1nw6nsdikgaakm0n0g4186glaqazg5xd1p5h55h"))))
6927     (build-system perl-build-system)
6928     (arguments
6929      `(#:phases
6930        (modify-phases %standard-phases
6931          (add-after 'unpack 'add-output-directory-to-rpath
6932            (lambda* (#:key outputs #:allow-other-keys)
6933              (substitute* "inc/MyBuilder.pm"
6934                (("-Lbtparse" line)
6935                 (string-append "-Wl,-rpath="
6936                                (assoc-ref outputs "out") "/lib " line)))
6937              #t))
6938          (add-after 'unpack 'install-libraries-to-/lib
6939            (lambda* (#:key outputs #:allow-other-keys)
6940              (substitute* "Build.PL"
6941                (("lib64") "lib"))
6942              #t)))))
6943     (native-inputs
6944      `(("perl-capture-tiny" ,perl-capture-tiny)
6945        ("perl-config-autoconf" ,perl-config-autoconf)
6946        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6947        ("perl-module-build" ,perl-module-build)))
6948     (home-page "https://metacpan.org/release/Text-BibTeX")
6949     (synopsis "Interface to read and parse BibTeX files")
6950     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
6951 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
6952 at many different levels: you may work with BibTeX entries as simple field to
6953 string mappings, or get at the original form of the data as a list of simple
6954 values (strings, macros, or numbers) pasted together.")
6955     (license license:perl-license)))
6956
6957 (define-public biber
6958   (package
6959     ;; Note: When updating Biber, make sure it matches our BibLaTeX version by
6960     ;; checking the Biber/BibLaTeX compatibility matrix in the BibLaTeX manual
6961     ;; at <https://ctan.org/pkg/biblatex>.
6962     (name "biber")
6963     (version "2.16")
6964     (source (origin
6965               (method git-fetch)
6966               (uri (git-reference
6967                     (url "https://github.com/plk/biber/")
6968                     (commit (string-append "v" version))))
6969               (file-name (git-file-name name version))
6970               (sha256
6971                (base32
6972                 "0586q8y1f2k23mvb02ccm3qsb35cwskafksixsjaih7a7xcf5gxx"))))
6973     (build-system perl-build-system)
6974     (arguments
6975      `(#:phases
6976        (modify-phases %standard-phases
6977          (add-after 'install 'wrap-programs
6978            (lambda* (#:key outputs #:allow-other-keys)
6979              (let* ((out (assoc-ref outputs "out"))
6980                     (perl5lib (getenv "PERL5LIB")))
6981                (wrap-program (string-append out "/bin/biber")
6982                  `("PERL5LIB" ":" prefix
6983                    (,(string-append perl5lib ":" out
6984                                     "/lib/perl5/site_perl")))))
6985              #t)))))
6986     (inputs
6987      `(("perl-autovivification" ,perl-autovivification)
6988        ("perl-class-accessor" ,perl-class-accessor)
6989        ("perl-data-dump" ,perl-data-dump)
6990        ("perl-data-compare" ,perl-data-compare)
6991        ("perl-data-uniqid" ,perl-data-uniqid)
6992        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
6993        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
6994        ("perl-file-slurper" ,perl-file-slurper)
6995        ("perl-io-string" ,perl-io-string)
6996        ("perl-ipc-cmd" ,perl-ipc-cmd)
6997        ("perl-ipc-run3" ,perl-ipc-run3)
6998        ("perl-list-allutils" ,perl-list-allutils)
6999        ("perl-list-moreutils" ,perl-list-moreutils)
7000        ("perl-mozilla-ca" ,perl-mozilla-ca)
7001        ("perl-regexp-common" ,perl-regexp-common)
7002        ("perl-log-log4perl" ,perl-log-log4perl)
7003        ("perl-parse-recdescent" ,perl-parse-recdescent)
7004        ("perl-unicode-collate" ,perl-unicode-collate)
7005        ("perl-unicode-normalize" ,perl-unicode-normalize)
7006        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
7007        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
7008        ("perl-encode-jis2k" ,perl-encode-jis2k)
7009        ("perl-encode-hanextra" ,perl-encode-hanextra)
7010        ("perl-xml-libxml" ,perl-xml-libxml)
7011        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
7012        ("perl-xml-libxslt" ,perl-xml-libxslt)
7013        ("perl-xml-writer" ,perl-xml-writer)
7014        ("perl-sort-key" ,perl-sort-key)
7015        ("perl-text-csv" ,perl-text-csv)
7016        ("perl-text-csv-xs" ,perl-text-csv-xs)
7017        ("perl-text-roman" ,perl-text-roman)
7018        ("perl-uri" ,perl-uri)
7019        ("perl-text-bibtex" ,perl-text-bibtex)
7020        ("perl-libwww" ,perl-libwww)
7021        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
7022        ("perl-business-isbn" ,perl-business-isbn)
7023        ("perl-business-issn" ,perl-business-issn)
7024        ("perl-business-ismn" ,perl-business-ismn)
7025        ("perl-lingua-translit" ,perl-lingua-translit)))
7026     (native-inputs
7027      `(("perl-config-autoconf" ,perl-config-autoconf)
7028        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
7029        ("perl-module-build" ,perl-module-build)
7030        ;; for tests
7031        ("perl-file-which" ,perl-file-which)
7032        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
7033        ("perl-test-differences" ,perl-test-differences)))
7034     (home-page "http://biblatex-biber.sourceforge.net/")
7035     (synopsis "Backend for the BibLaTeX citation management tool")
7036     (description "Biber is a BibTeX replacement for users of biblatex.  Among
7037 other things it comes with full Unicode support.")
7038     (license license:artistic2.0)))
7039
7040 (define-public rubber
7041   (package
7042     (name "rubber")
7043     (version "1.5.1")
7044     (source (origin
7045               (method url-fetch)
7046               (uri (list (string-append "https://launchpad.net/rubber/trunk/"
7047                                         version "/+download/rubber-"
7048                                         version ".tar.gz")
7049                          (string-append "http://ebeffara.free.fr/pub/rubber-"
7050                                         version ".tar.gz")))
7051               (sha256
7052                (base32
7053                 "178dmrp0mza5gqjiqgk6dqs0c10s0c517pk6k9pjbam86vf47a1p"))))
7054     (build-system python-build-system)
7055     (arguments
7056      '(#:tests? #f ; no `check' target
7057        #:phases
7058        (modify-phases %standard-phases
7059          (delete 'build)
7060          (replace 'install
7061            (lambda* (#:key outputs #:allow-other-keys)
7062              ;; texlive is required to build the PDF documentation; do not
7063              ;; build it.
7064              (invoke "python" "setup.py" "build" "--pdf=False" "install"
7065                      (string-append "--prefix=" (assoc-ref outputs "out"))))))))
7066     (native-inputs `(("texinfo" ,texinfo)))
7067     (home-page "https://launchpad.net/rubber")
7068     (synopsis "Wrapper for LaTeX and friends")
7069     (description
7070      "Rubber is a program whose purpose is to handle all tasks related to the
7071 compilation of LaTeX documents.  This includes compiling the document itself,
7072 of course, enough times so that all references are defined, and running BibTeX
7073 to manage bibliographic references.  Automatic execution of dvips to produce
7074 PostScript documents is also included, as well as usage of pdfLaTeX to produce
7075 PDF documents.")
7076     (license license:gpl2+)))
7077
7078 (define-public texmaker
7079   (package
7080     (name "texmaker")
7081     (version "5.0.4")
7082     (source (origin
7083               (method url-fetch)
7084               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
7085                                   version ".tar.bz2"))
7086               (sha256
7087                (base32
7088                 "1qnh5g8zkjpjmw2l8spcynpfgs3wpcfcla5ms2kkgvkbdlzspqqx"))))
7089     (build-system gnu-build-system)
7090     (arguments
7091      `(#:phases
7092        (modify-phases %standard-phases
7093          ;; Qt has its own configuration utility.
7094          (replace 'configure
7095            (lambda* (#:key outputs #:allow-other-keys)
7096              (let ((out (assoc-ref outputs "out")))
7097                (invoke "qmake"
7098                        (string-append "PREFIX=" out)
7099                        (string-append "DESKTOPDIR=" out "/share/applications")
7100                        (string-append "ICONDIR=" out "/share/pixmaps")
7101                        (string-append "METAINFODIR=" out "/share/metainfo")
7102                        "texmaker.pro")))))))
7103     (inputs
7104      `(("poppler-qt5" ,poppler-qt5)
7105        ("qtbase" ,qtbase-5)
7106        ("qtscript" ,qtscript)
7107        ("qtwebkit" ,qtwebkit)
7108        ("zlib" ,zlib)))
7109     (native-inputs
7110      `(("pkg-config" ,pkg-config)))
7111     (home-page "http://www.xm1math.net/texmaker/")
7112     (synopsis "LaTeX editor")
7113     (description "Texmaker is a program that integrates many tools needed to
7114 develop documents with LaTeX, in a single application.")
7115     (license license:gpl2+)))
7116
7117 (define-public teximpatient
7118   (package
7119     (name "teximpatient")
7120     (version "2.4")
7121     (source (origin
7122               (method url-fetch/tarbomb)
7123               (uri (string-append "mirror://gnu/" name "/" name "-"
7124                                   version ".tar.gz"))
7125               (sha256
7126                (base32
7127                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
7128     (build-system gnu-build-system)
7129     (arguments
7130      `(#:tests? #f ; there are none
7131        #:phases
7132        (modify-phases %standard-phases
7133          (add-after 'unpack 'fix-packaging-error
7134            (lambda* (#:key inputs #:allow-other-keys)
7135              ;; This file should have been part of the tarball.
7136              (install-file (car
7137                             (find-files
7138                              (assoc-ref inputs "automake")
7139                              "^install-sh$"))
7140                            ".")
7141              ;; Remove generated file.
7142              (delete-file "book.pdf")
7143              #t)))))
7144     (native-inputs
7145      `(("texlive" ,(texlive-updmap.cfg (list texlive-amsfonts
7146                                         texlive-palatino
7147                                         texlive-zapfding
7148                                         texlive-knuth-lib
7149                                         texlive-mflogo-font
7150                                         texlive-pdftex)))
7151        ("automake" ,automake)))
7152     (home-page "https://www.gnu.org/software/teximpatient/")
7153     (synopsis "Book on TeX, plain TeX and Eplain")
7154     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
7155 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
7156 and Karl Berry.")
7157     (license license:fdl1.3+)))
7158
7159 (define-public lyx
7160   (package
7161     (name "lyx")
7162     (version "2.3.6.1")
7163     (source (origin
7164               (method url-fetch)
7165               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
7166                                   (version-major+minor version) ".x/"
7167                                   "lyx-" version ".tar.xz"))
7168               (sha256
7169                (base32
7170                 "0y7sx804ral14py5jwmb3icvyd6rsw806dfclw0qx28r6iix5gn6"))
7171               (modules '((guix build utils)))
7172               (snippet
7173                '(begin
7174                   (delete-file-recursively "3rdparty")
7175                   #t))))
7176     (build-system qt-build-system)
7177     (arguments
7178      `(#:configure-flags `("-DLYX_USE_QT=QT5"
7179                            "-DLYX_EXTERNAL_BOOST=1"
7180                            "-DLYX_INSTALL=1"
7181                            "-DLYX_RELEASE=1"
7182                            "-DLYX_PROGRAM_SUFFIX=OFF"
7183                            ,(string-append "-DLYX_INSTALL_PREFIX="
7184                                            (assoc-ref %outputs "out")))
7185        #:phases
7186        (modify-phases %standard-phases
7187          (add-after 'unpack 'patch-python
7188            (lambda* (#:key inputs #:allow-other-keys)
7189              (substitute* '("lib/configure.py"
7190                             "src/support/ForkedCalls.cpp"
7191                             "src/support/Systemcall.cpp"
7192                             "src/support/os.cpp"
7193                             "src/support/filetools.cpp")
7194                (("\"python ")
7195                 (string-append "\""
7196                                (assoc-ref inputs "python")
7197                                "/bin/python3 ")))
7198              #t))
7199          (add-after 'unpack 'add-missing-test-file
7200            (lambda _
7201              ;; Create missing file that would cause tests to fail.
7202              (with-output-to-file "src/tests/check_layout.cmake"
7203                (const #t))
7204              #t)))))
7205     (inputs
7206      `(("boost" ,boost)
7207        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
7208        ("libx11" ,libx11)
7209        ("mythes" ,mythes)
7210        ("python" ,python)
7211        ("qtbase" ,qtbase-5)
7212        ("qtsvg" ,qtsvg)
7213        ("zlib" ,zlib)))
7214     (propagated-inputs
7215      `(("texlive" ,(texlive-updmap.cfg (list texlive-fonts-ec)))))
7216     (native-inputs
7217      `(("python" ,python)
7218        ("pkg-config" ,pkg-config)))
7219     (home-page "https://www.lyx.org/")
7220     (synopsis "Document preparation system with GUI")
7221     (description "LyX is a document preparation system.  It excels at letting
7222 you create complex technical and scientific articles with mathematics,
7223 cross-references, bibliographies, indexes, etc.  It is very good for working
7224 with documents of any length in which the usual processing abilities are
7225 required: automatic sectioning and pagination, spell checking and so forth.")
7226     (license license:gpl2+)))
7227
7228 (define-public texlive-latex-media9
7229   (package
7230     (name "texlive-latex-media9")
7231     (version (number->string %texlive-revision))
7232     (source (origin
7233               (method svn-fetch)
7234               (uri (svn-reference
7235                     (url (string-append "svn://www.tug.org/texlive/tags/"
7236                                         %texlive-tag "/Master/texmf-dist/"
7237                                         "/tex/latex/media9"))
7238                     (revision %texlive-revision)))
7239               (file-name (string-append name "-" version "-checkout"))
7240               (sha256
7241                (base32
7242                 "0a1v70k6231323y1lazfda1y9568w8hn7c8jhc7rblkhdfv3slw7"))))
7243     (build-system trivial-build-system)
7244     (arguments
7245      `(#:modules ((guix build utils))
7246        #:builder
7247        (begin
7248          (use-modules (guix build utils))
7249          (let ((target (string-append (assoc-ref %outputs "out")
7250                                       "/share/texmf-dist/tex/latex/media9")))
7251            (mkdir-p target)
7252            (copy-recursively (assoc-ref %build-inputs "source") target)
7253            #t))))
7254     (home-page "https://www.ctan.org/pkg/media9")
7255     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
7256     (description
7257      "The package provides an interface to embed interactive Flash (SWF) and 3D
7258 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
7259 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
7260 compatibility.  Playback of multimedia files uses the built-in Flash Player of
7261 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
7262 supports the efficient H.264 codec for video compression.
7263
7264 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
7265 specification.  It replaces the now obsolete @code{movie15} package.")
7266     (license license:lppl)))
7267
7268 (define-public texlive-latex-ocgx2
7269   (package
7270     (name "texlive-latex-ocgx2")
7271     (version (number->string %texlive-revision))
7272     (source (origin
7273               (method svn-fetch)
7274               (uri (svn-reference
7275                     (url (string-append "svn://www.tug.org/texlive/tags/"
7276                                         %texlive-tag "/Master/texmf-dist/"
7277                                         "/tex/latex/ocgx2"))
7278                     (revision %texlive-revision)))
7279               (file-name (string-append name "-" version "-checkout"))
7280               (sha256
7281                (base32
7282                 "1mrz1mj59m27bfya52vi4lm84ifisaf30pmf8id1biqwcq4jyynh"))))
7283     (build-system trivial-build-system)
7284     (arguments
7285      `(#:modules ((guix build utils))
7286        #:builder
7287        (begin
7288          (use-modules (guix build utils))
7289          (let ((target (string-append (assoc-ref %outputs "out")
7290                                       "/share/texmf-dist/tex/latex/ogcx2")))
7291            (mkdir-p target)
7292            (copy-recursively (assoc-ref %build-inputs "source") target)
7293            #t))))
7294     (home-page "https://www.ctan.org/pkg/ocgx2")
7295     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
7296     (description
7297      "This package provides OCG (Optional Content Groups) support within a PDF
7298 document.
7299
7300 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
7301 @code{ocg-p} packages and adds support for all known engines and back-ends
7302 including:
7303
7304 @itemize
7305 @item LaTeX → dvips → @code{ps2pdf}/Distiller
7306 @item (Xe)LaTeX(x) → @code{dvipdfmx}
7307 @item pdfLaTeX and LuaLaTeX .
7308 @end itemize
7309
7310 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
7311     (license license:lppl)))
7312
7313 (define-public texlive-latex-ms
7314   (package
7315     (name "texlive-latex-ms")
7316     (version (number->string %texlive-revision))
7317     (source (origin
7318               (method svn-fetch)
7319               (uri (texlive-ref "latex" "ms"))
7320               (file-name (string-append name "-" version "-checkout"))
7321               (sha256
7322                (base32
7323                 "04ww5abfm7dx81d21yr2gwy9jswaalnfm2384xp4cyx7srd9spfv"))))
7324     (build-system texlive-build-system)
7325     (arguments
7326      '(#:tex-directory "latex/ms"
7327        #:tex-format "latex"))
7328     (home-page "https://ctan.org/pkg/ms")
7329     (synopsis "Various LATEX packages by Martin Schröder")
7330     (description
7331      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
7332
7333 @itemize
7334 @item @command{count1to}, make use of fixed TEX counters;
7335 @item @command{everysel}, set commands to execute every time a font is selected;
7336 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
7337 @item @command{multitoc}, typeset the table of contents in multiple columns;
7338 @item @command{prelim2e}, mark typeset pages as preliminary; and
7339 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
7340 @end itemize\n")
7341     (license license:lppl1.3c+)))
7342
7343 (define-public texlive-latex-needspace
7344   (package
7345     (name "texlive-latex-needspace")
7346     (version (number->string %texlive-revision))
7347     (source (origin
7348               (method svn-fetch)
7349               (uri (texlive-ref "latex" "needspace"))
7350               (file-name (string-append name "-" version "-checkout"))
7351               (sha256
7352                (base32
7353                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
7354     (build-system texlive-build-system)
7355     (arguments
7356      '(#:tex-directory "latex/needspace"
7357        #:tex-format "latex"))
7358     (inputs
7359      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7360     (home-page "https://www.ctan.org/pkg/needspace")
7361     (synopsis "Insert pagebreak if not enough space")
7362     (description
7363      "Provides commands to disable pagebreaking within a given vertical
7364 space.  If there is not enough space between the command and the bottom of the
7365 page, a new page will be started.")
7366     (license license:lppl)))
7367
7368 (define-public texlive-latex-changepage
7369   (package
7370     (name "texlive-latex-changepage")
7371     (version (number->string %texlive-revision))
7372     (source
7373      (origin
7374        (method svn-fetch)
7375        (uri (texlive-ref "latex" "changepage"))
7376        (file-name (string-append name "-" version "-checkout"))
7377        (sha256
7378         (base32
7379          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
7380     (build-system texlive-build-system)
7381     (arguments
7382      '(#:tex-directory "latex/changepage"
7383        #:tex-format "latex"))
7384     (inputs
7385      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7386     (home-page "https://www.ctan.org/pkg/changepage")
7387     (synopsis "Margin adjustment and detection of odd/even pages")
7388     (description
7389      "The package provides commands to change the page layout in the middle of
7390 a document, and to robustly check for typesetting on odd or even pages.
7391 Instructions for use are at the end of the file.  The package is an extraction
7392 of code from the @code{memoir} class, whose user interface it shares.")
7393     (license license:lppl1.3+)))
7394
7395 (define-public texlive-latex-eukdate
7396   (package
7397     (name "texlive-latex-eukdate")
7398     (version (number->string %texlive-revision))
7399     (source
7400      (origin
7401        (method svn-fetch)
7402        (uri (svn-reference
7403              (url (string-append "svn://www.tug.org/texlive/tags/"
7404                                  %texlive-tag "/Master/texmf-dist/"
7405                                  "/tex/latex/eukdate"))
7406              (revision %texlive-revision)))
7407        (file-name (string-append name "-" version "-checkout"))
7408        (sha256
7409         (base32
7410          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
7411     (build-system trivial-build-system)
7412     (arguments
7413      `(#:modules ((guix build utils))
7414        #:builder
7415        (begin
7416          (use-modules (guix build utils))
7417          (let ((target (string-append (assoc-ref %outputs "out")
7418                                       "/share/texmf-dist/tex/latex/eukdate")))
7419            (mkdir-p target)
7420            (copy-recursively (assoc-ref %build-inputs "source") target)
7421            #t))))
7422     (home-page "https://www.ctan.org/pkg/eukdate")
7423     (synopsis "UK format dates, with weekday")
7424     (description
7425      "The package is used to change the format of @code{\\today}’s date,
7426 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
7427 is preferred in many parts of the world, as distinct from that which is used in
7428 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
7429     (license license:lppl)))
7430
7431 (define-public texlive-generic-ulem
7432   (package
7433     (name "texlive-generic-ulem")
7434     (version (number->string %texlive-revision))
7435     (source
7436      (origin
7437        (method svn-fetch)
7438        (uri (svn-reference
7439              (url (string-append "svn://www.tug.org/texlive/tags/"
7440                                  %texlive-tag "/Master/texmf-dist/"
7441                                  "/tex/generic/ulem"))
7442              (revision %texlive-revision)))
7443        (file-name (string-append name "-" version "-checkout"))
7444        (sha256
7445         (base32
7446          "161ka7sckiakcr1fgydxpc580sr16vp4sp3avjl2v9jn1pd2pwp0"))))
7447     (build-system trivial-build-system)
7448     (arguments
7449      `(#:modules ((guix build utils))
7450        #:builder
7451        (begin
7452          (use-modules (guix build utils))
7453          (let ((target (string-append (assoc-ref %outputs "out")
7454                                       "/share/texmf-dist/tex/generic/ulem")))
7455            (mkdir-p target)
7456            (copy-recursively (assoc-ref %build-inputs "source") target)
7457            #t))))
7458     (home-page "https://www.ctan.org/pkg/ulem")
7459     (synopsis "Underline text in TeX")
7460     (description
7461      "The package provides an @code{\\ul} (underline) command which will break
7462 over line ends; this technique may be used to replace @code{\\em} (both in that
7463 form and as the @code{\\emph} command), so as to make output look as if it comes
7464 from a typewriter.  The package also offers double and wavy underlining, and
7465 striking out (line through words) and crossing out (/// over words).")
7466     (license license:lppl1.3c+)))
7467
7468 (define-public texlive-latex-pgf
7469   (package
7470     (name "texlive-latex-pgf")
7471     (version (number->string %texlive-revision))
7472     (source
7473      (origin
7474        (method svn-fetch)
7475        (uri (svn-reference
7476              (url (string-append "svn://www.tug.org/texlive/tags/"
7477                                  %texlive-tag "/Master/texmf-dist/"
7478                                  "/tex/latex/pgf"))
7479              (revision %texlive-revision)))
7480        (file-name (string-append name "-" version "-checkout"))
7481        (sha256
7482         (base32
7483          "1jk10rxz5f8vh46am11b40hxhhikk67h9jr3z877q5qc8kwppgza"))))
7484     (build-system trivial-build-system)
7485     (native-inputs
7486      `(("texlive-latex-pgf-generic"
7487         ,(origin
7488            (method svn-fetch)
7489            (uri (svn-reference
7490              (url (string-append "svn://www.tug.org/texlive/tags/"
7491                                  %texlive-tag "/Master/texmf-dist/"
7492                                  "/tex/generic/pgf"))
7493              (revision %texlive-revision)))
7494            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
7495            (sha256
7496             (base32
7497              "05zdq7y3am109m5534ahqqp9x5iar3ha68v1r4zkrdly2mijxz2j"))))))
7498     (propagated-inputs
7499      `(("texlive-xcolor" ,texlive-xcolor)))
7500     (arguments
7501      `(#:modules ((guix build utils))
7502        #:builder
7503        (begin
7504          (use-modules (guix build utils))
7505          (let ((target-generic (string-append (assoc-ref %outputs "out")
7506                                               "/share/texmf-dist/tex/generic/pgf"))
7507                (target-latex (string-append (assoc-ref %outputs "out")
7508                                             "/share/texmf-dist/tex/latex/pgf")))
7509            (mkdir-p target-generic)
7510            (mkdir-p target-latex)
7511            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
7512            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
7513            #t))))
7514     (home-page "https://www.ctan.org/pkg/tikz")
7515     (synopsis "Create PostScript and PDF graphics in TeX")
7516     (description
7517      "PGF is a macro package for creating graphics.  It is platform- and
7518 format-independent and works together with the most important TeX backend
7519 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
7520 called TikZ.
7521
7522 Its usage is similar to pstricks and the standard picture environment.  PGF
7523 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
7524 produce either PostScript or PDF output.")
7525     (license license:lppl1.3c+)))
7526
7527 (define-public texlive-latex-koma-script
7528   (package
7529     (name "texlive-latex-koma-script")
7530     (version (number->string %texlive-revision))
7531     (source (origin
7532               (method svn-fetch)
7533               (uri (svn-reference
7534                     (url (string-append "svn://www.tug.org/texlive/tags/"
7535                                         %texlive-tag "/Master/texmf-dist/"
7536                                         "/tex/latex/koma-script"))
7537                     (revision %texlive-revision)))
7538               (file-name (string-append name "-" version "-checkout"))
7539               (sha256
7540                (base32
7541                 "1m6i8162r6ka19q517llrf0lax80rrsq564qirwk1chv5dqsmnfi"))))
7542     (build-system trivial-build-system)
7543     (arguments
7544      `(#:modules ((guix build utils))
7545        #:builder
7546        (begin
7547          (use-modules (guix build utils)
7548                       (ice-9 match))
7549          (let ((root (string-append (assoc-ref %outputs "out")
7550                                     "/share/texmf-dist/"))
7551                (pkgs '(("source" . "tex/latex/koma-script"))))
7552            (for-each (match-lambda
7553                        ((pkg . dir)
7554                         (let ((target (string-append root dir)))
7555                           (mkdir-p target)
7556                           (copy-recursively (assoc-ref %build-inputs pkg)
7557                                             target))))
7558                      pkgs)
7559            #t))))
7560     (home-page "https://www.ctan.org/pkg/koma-script")
7561     (synopsis "Bundle of versatile classes and packages")
7562     (description
7563      "The KOMA-Script bundle provides replacements for the article, report, and
7564 book classes with emphasis on typography and versatility.  There is also a
7565 letter class.
7566
7567 The bundle also offers:
7568
7569 @itemize
7570 @item a package for calculating type areas in the way laid down by the
7571 typographer Jan Tschichold,
7572 @item packages for easily changing and defining page styles,
7573 @item a package scrdate for getting not only the current date but also the name
7574 of the day, and
7575 @item a package scrtime for getting the current time.
7576 @end itemize
7577
7578 All these packages may be used not only with KOMA-Script classes but also with
7579 the standard classes.
7580
7581 Since every package has its own version number, the version number quoted only
7582 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
7583 typearea (which are the main parts of the bundle).")
7584     (license license:lppl1.3+)))
7585
7586 (define-public texlive-generic-atbegshi
7587   (package
7588     (inherit (simple-texlive-package
7589               "texlive-generic-atbegshi"
7590               '("/doc/latex/atbegshi/"
7591                 "/tex/generic/atbegshi/")
7592               (base32
7593                "184fr5kd3wl44ix63lwb3ll7dhiikkyw1czbnzrl4am4rx0zh4d8")
7594               #:trivial? #t))
7595     (home-page "https://www.ctan.org/pkg/atbegshi")
7596     (synopsis "Execute commands at @code{\\shipout} time")
7597     (description
7598      "This package is a modern reimplementation of package @code{everyshi},
7599 providing various commands to be executed before a @code{\\shipout} command.
7600 It makes use of e-TeX’s facilities if they are available.  The package may
7601 be used either with LaTeX or with plain TeX.")
7602     (license license:lppl1.3c+)))
7603
7604 (define-public texlive-generic-bigintcalc
7605   (package
7606     (inherit (simple-texlive-package
7607               "texlive-generic-bigintcalc"
7608               '("/doc/latex/bigintcalc/README.md"
7609                 "/tex/generic/bigintcalc/")
7610               (base32
7611                "19grk4p1dh566hgpzhnjyjnrw57hpjijcpr7ci401n9jszcc1xkz")
7612               #:trivial? #t))
7613     (propagated-inputs
7614      `(("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)))
7615     (home-page "https://www.ctan.org/pkg/bigintcalc")
7616     (synopsis "Integer calculations on very large numbers")
7617     (description
7618      "This package provides expandable arithmetic operations with big
7619 integers that can exceed TeX's number limits.")
7620     (license license:lppl1.3c+)))
7621
7622 (define-public texlive-generic-bitset
7623   (package
7624     (inherit (simple-texlive-package
7625               "texlive-generic-bitset"
7626               '("/doc/latex/bitset/README.md"
7627                 "/tex/generic/bitset/")
7628               (base32
7629                "0inj6qpzizvsbxdfsaijnl4iq976kyrnchnm3gc1kc2w389zrn1l")
7630               #:trivial? #t))
7631     (propagated-inputs
7632      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
7633        ("texlive-generic-intcalc" ,texlive-generic-intcalc)
7634        ("texlive-generic-bigintcalc" ,texlive-generic-bigintcalc)))
7635     (home-page "https://www.ctan.org/pkg/bitset")
7636     (synopsis "Handle bit-vector datatype")
7637     (description
7638      "This package defines and implements the data type bit set, a vector
7639 of bits.  The size of the vector may grow dynamically.  Individual bits
7640 can be manipulated.")
7641     (license license:lppl1.3c+)))
7642
7643 (define-public texlive-generic-etexcmds
7644   (package
7645     (inherit (simple-texlive-package
7646               "texlive-generic-etexcmds"
7647               '("/doc/latex/etexcmds/README.md"
7648                 "/tex/generic/etexcmds/")
7649               (base32
7650                "11y6pnlq13bp0ybi7c82g8ds8085zv1zaslgqv3dzhgi3dklpc0c")
7651               #:trivial? #t))
7652     (propagated-inputs
7653      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
7654        ("texlive-generic-iftex" ,texlive-generic-iftex)))
7655     (home-page "https://www.ctan.org/pkg/etexcmds")
7656     (synopsis "Avoid name clashes with e-TeX commands")
7657     (description
7658      "New primitive commands are introduced in e-TeX; sometimes the names
7659 collide with existing macros.  This package solves the name clashes by
7660 adding a prefix to e-TeX’s commands.  For example, ε-TeX’s
7661 @code{\\unexpanded} is provided as @code{\\etex@@unexpanded}.")
7662     (license license:lppl1.3c+)))
7663
7664 (define-public texlive-generic-gettitlestring
7665   (package
7666     (inherit (simple-texlive-package
7667               "texlive-generic-gettitlestring"
7668               '("/doc/latex/gettitlestring/"
7669                 "/tex/generic/gettitlestring/")
7670               (base32
7671                "1p4hg9mac03rzvj9dw0ws3zdh55fy1ns954f912algw9f2aq4xgp")
7672               #:trivial? #t))
7673     (home-page "https://www.ctan.org/pkg/gettitlestring")
7674     (synopsis "Clean up title references")
7675     (description
7676      "This package provides commands for cleaning up the title string
7677 (such as removing @code{\\label} commands) for packages that typeset such
7678 strings.")
7679     (license license:lppl1.3c+)))
7680
7681 (define-public texlive-generic-infwarerr
7682   (package
7683     (inherit (simple-texlive-package
7684               "texlive-generic-infwarerr"
7685               '("/tex/generic/infwarerr/")
7686               (base32
7687                "19nlrbfmqbkjrrx9x75s9nd6crg1lzimb2fr3hfblaivj6lx8p4r")
7688               #:trivial? #t))
7689     (home-page "https://www.ctan.org/pkg/infwarerr")
7690     (synopsis "Information/warning/error macros")
7691     (description
7692      "This package provides a complete set of macros for information,
7693 warning and error messages.  Under LaTeX, the commands are wrappers for
7694 the corresponding LaTeX commands; under Plain TeX they are available as
7695 complete implementations.")
7696     (license license:lppl1.3c+)))
7697
7698 (define-public texlive-generic-intcalc
7699   (package
7700     (inherit (simple-texlive-package
7701               "texlive-generic-intcalc"
7702               '("/tex/generic/intcalc/")
7703               (base32
7704                "0llrnayqwdqxi91yh7panbbiljina3bynv2hxhi6sssaw3pyd92l")
7705               #:trivial? #t))
7706     (home-page "https://www.ctan.org/pkg/intcalc")
7707     (synopsis "Expandable arithmetic operations with integers")
7708     (description
7709      "This package provides expandable arithmetic operations with integers,
7710 using the e-TeX extension @code{\\numexpr} if it is available.")
7711     (license license:lppl1.3c+)))
7712
7713 (define-public texlive-generic-kvdefinekeys
7714   (package
7715     (inherit (simple-texlive-package
7716               "texlive-generic-kvdefinekeys"
7717               '("/tex/generic/kvdefinekeys/")
7718               (base32
7719                "12nn74skhwiszbdhawqds31caz6d59a5pjmwar0r8lmk4f1jr3xh")
7720               #:trivial? #t))
7721     (home-page "https://www.ctan.org/pkg/kvdefinekeys")
7722     (synopsis "Define keys for use in the @code{kvsetkeys} package")
7723     (description
7724      "This package provides the @code{\\kv@@define@@key} (analogous to
7725 keyval’s @code{\\define@@key}, to define keys for use by @code{kvsetkeys}.")
7726     (license license:lppl1.3c+)))
7727
7728 (define-public texlive-generic-kvsetkeys
7729   (package
7730     (inherit (simple-texlive-package
7731               "texlive-generic-kvsetkeys"
7732               '("/tex/generic/kvsetkeys/")
7733               (base32
7734                "149vpmv4vms269dzq4sghlngg380sasvxnb3sx9rfs7d9j0finvi")
7735               #:trivial? #t))
7736     (home-page "https://www.ctan.org/pkg/kvsetkeys")
7737     (synopsis "Key value parser with default handler support")
7738     (description
7739      "This package provides @code{\\kvsetkeys}, a variant of @code{\\setkeys}
7740 from the @code{keyval} package.  Users can specify a handler that deals with
7741 unknown options.  Active commas and equal signs may be used, and only one
7742 level of curly braces are removed from the values.")
7743     (license license:lppl1.3c+)))
7744
7745 (define-public texlive-generic-listofitems
7746   (package
7747     (name "texlive-generic-listofitems")
7748     (version (number->string %texlive-revision))
7749     (source (origin
7750               (method svn-fetch)
7751               (uri (svn-reference
7752                     (url (string-append "svn://www.tug.org/texlive/tags/"
7753                                         %texlive-tag "/Master/texmf-dist/"
7754                                         "/tex/generic/listofitems"))
7755                     (revision %texlive-revision)))
7756               (file-name (string-append name "-" version "-checkout"))
7757               (sha256
7758                (base32
7759                 "1wnbnfrhi6hgqa78jsw6hljzi03i5x99mlr5n2419hgws52hk67y"))))
7760     (build-system trivial-build-system)
7761     (arguments
7762      `(#:modules ((guix build utils))
7763        #:builder
7764        (begin
7765          (use-modules (guix build utils))
7766          (let ((target (string-append (assoc-ref %outputs "out")
7767                                       "/share/texmf-dist/tex/generic/listofitems")))
7768            (mkdir-p target)
7769            (copy-recursively (assoc-ref %build-inputs "source") target)
7770            #t))))
7771     (home-page "https://www.ctan.org/pkg/listofitems")
7772     (synopsis "Grab items in lists using user-specified separation character")
7773     (description
7774      "This package allows one to capture all the items of a list, for which
7775 the parsing character has been selected by the user, and to access any of
7776 these items with a simple syntax.")
7777     (license license:lppl1.3c+)))
7778
7779 (define-public texlive-generic-ltxcmds
7780   (package
7781     (inherit (simple-texlive-package
7782               "texlive-generic-ltxcmds"
7783               '("/tex/generic/ltxcmds/")
7784               (base32
7785                "1lr77yai2qivlx26s5094czpfxmg96bhxps5wbm8xn7cpsw0zbd9")
7786               #:trivial? #t))
7787     (home-page "https://www.ctan.org/pkg/ltxcmds")
7788     (synopsis "LaTeX kernel commands extracted for general use")
7789     (description
7790      "This package exports some utility macros from the LaTeX kernel into
7791 a separate namespace and also makes them available for other formats such
7792 as plain TeX.")
7793     (license license:lppl1.3c+)))
7794
7795 (define-public texlive-generic-pdfescape
7796   (package
7797     (inherit (simple-texlive-package
7798               "texlive-generic-pdfescape"
7799               '("/tex/generic/pdfescape/")
7800               (base32
7801                "1vbdjmm9bi9ngzz2z1b8jnf6nzf9xsaj5pvyswg13y4dr00mnz6n")
7802               #:trivial? #t))
7803     (home-page "https://www.ctan.org/pkg/pdfescape")
7804     (synopsis "pdfTeX's escape features for plain TeX")
7805     (description
7806      "This package implements pdfTeX's escape features (@code{\\pdfescapehex},
7807 @code{\\pdfunescapehex}, @code{\\pdfescapename}, @code{\\pdfescapestring})
7808 using TeX or e-TeX.")
7809     (license license:lppl1.3c+)))
7810
7811 (define-public texlive-generic-uniquecounter
7812   (package
7813     (inherit (simple-texlive-package
7814               "texlive-generic-uniquecounter"
7815               '("/doc/latex/uniquecounter/"
7816                 "/tex/generic/uniquecounter/")
7817               (base32
7818                "1bjh8vwiqlkmjqndnh4xp116524x4m3hdcyq2s231jiqy8il8dcc")
7819               #:trivial? #t))
7820     (propagated-inputs
7821      `(("texlive-generic-bigintcalc" ,texlive-generic-bigintcalc)
7822        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)))
7823     (home-page "https://www.ctan.org/pkg/uniquecounter")
7824     (synopsis "Unlimited unique counter")
7825     (description
7826      "This package provides a kind of counter that provides unique number
7827 values.  Several counters can be created with different names.  The numeric
7828 values are not limited.")
7829     (license license:lppl1.3c+)))
7830
7831 (define-public texlive-latex-readarray
7832   (package
7833     (name "texlive-latex-readarray")
7834     (version (number->string %texlive-revision))
7835     (source (origin
7836               (method svn-fetch)
7837               (uri (svn-reference
7838                     (url (string-append "svn://www.tug.org/texlive/tags/"
7839                                         %texlive-tag "/Master/texmf-dist/"
7840                                         "/tex/latex/readarray"))
7841                     (revision %texlive-revision)))
7842               (file-name (string-append name "-" version "-checkout"))
7843               (sha256
7844                (base32
7845                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
7846     (build-system trivial-build-system)
7847     (arguments
7848      `(#:modules ((guix build utils))
7849        #:builder
7850        (begin
7851          (use-modules (guix build utils))
7852          (let ((target (string-append (assoc-ref %outputs "out")
7853                                       "/share/texmf-dist/tex/latex/readarray")))
7854            (mkdir-p target)
7855            (copy-recursively (assoc-ref %build-inputs "source") target)
7856            #t))))
7857     (propagated-inputs
7858      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
7859     (home-page "https://www.ctan.org/pkg/readarray")
7860     (synopsis "Read, store and recall array-formatted data")
7861     (description
7862      "This package allows the user to input formatted data into elements of a
7863 2-D or 3-D array and to recall that data at will by individual cell number.
7864 The data can be but need not be numerical in nature.  It can be, for example,
7865 formatted text.")
7866     (license license:lppl1.3)))
7867
7868 (define-public texlive-latex-verbatimbox
7869   (package
7870     (name "texlive-latex-verbatimbox")
7871     (version (number->string %texlive-revision))
7872     (source (origin
7873               (method svn-fetch)
7874               (uri (svn-reference
7875                     (url (string-append "svn://www.tug.org/texlive/tags/"
7876                                         %texlive-tag "/Master/texmf-dist/"
7877                                         "/tex/latex/verbatimbox"))
7878                     (revision %texlive-revision)))
7879               (file-name (string-append name "-" version "-checkout"))
7880               (sha256
7881                (base32
7882                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
7883     (build-system trivial-build-system)
7884     (arguments
7885      `(#:modules ((guix build utils))
7886        #:builder
7887        (begin
7888          (use-modules (guix build utils))
7889          (let ((target (string-append (assoc-ref %outputs "out")
7890                                       "/share/texmf-dist/tex/latex/verbatimbox")))
7891            (mkdir-p target)
7892            (copy-recursively (assoc-ref %build-inputs "source") target)
7893            #t))))
7894     (propagated-inputs
7895      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
7896     (home-page "https://www.ctan.org/pkg/verbatimbox")
7897     (synopsis "Deposit verbatim text in a box")
7898     (description
7899      "The package provides a @code{verbbox} environment to place its contents
7900 into a globally available box, or into a box specified by the user.  The
7901 global box may then be used in a variety of situations (for example, providing
7902 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
7903 in places where the standard @code{verbatim} environment (which is based on a
7904 @code{trivlist}) may not appear.")
7905     (license license:lppl1.3+)))
7906
7907 (define-public texlive-latex-examplep
7908   (package
7909     (name "texlive-latex-examplep")
7910     (version (number->string %texlive-revision))
7911     (source (origin
7912               (method svn-fetch)
7913               (uri (svn-reference
7914                     (url (string-append "svn://www.tug.org/texlive/tags/"
7915                                         %texlive-tag "/Master/texmf-dist/"
7916                                         "/tex/latex/examplep"))
7917                     (revision %texlive-revision)))
7918               (file-name (string-append name "-" version "-checkout"))
7919               (sha256
7920                (base32
7921                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
7922     (build-system trivial-build-system)
7923     (arguments
7924      `(#:modules ((guix build utils))
7925        #:builder
7926        (begin
7927          (use-modules (guix build utils))
7928          (let ((target (string-append (assoc-ref %outputs "out")
7929                                       "/share/texmf-dist/tex/latex/examplep")))
7930            (mkdir-p target)
7931            (copy-recursively (assoc-ref %build-inputs "source") target)
7932            #t))))
7933     (home-page "https://www.ctan.org/pkg/examplep")
7934     (synopsis "Verbatim phrases and listings in LaTeX")
7935     (description
7936      "Examplep provides sophisticated features for typesetting verbatim source
7937 code listings, including the display of the source code and its compiled LaTeX
7938 or METAPOST output side-by-side, with automatic width detection and enabled
7939 page breaks (in the source), without the need for specifying the source twice.
7940 Special care is taken that section, page and footnote numbers do not interfere
7941 with the main document.  For typesetting short verbatim phrases, a replacement
7942 for the @code{\\verb} command is also provided in the package, which can be
7943 used inside tables and moving arguments such as footnotes and section
7944 titles.")
7945     ;; No version of the GPL is specified.
7946     (license license:gpl3+)))
7947
7948 (define-public texlive-xypic
7949   (let ((template (simple-texlive-package
7950                    "texlive-xypic"
7951                    (list "/doc/generic/xypic/"
7952                          "/dvips/xypic/xy389dict.pro"
7953                          "/fonts/enc/dvips/xypic/"
7954                          "/fonts/map/dvips/xypic/xypic.map"
7955
7956                          "/fonts/source/public/xypic/"
7957                          "/fonts/afm/public/xypic/"
7958                          "/fonts/tfm/public/xypic/"
7959                          "/fonts/type1/public/xypic/"
7960                          "/tex/generic/xypic/")
7961                    (base32
7962                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
7963                    #:trivial? #t)))
7964     (package
7965       (inherit template)
7966       (arguments
7967        (substitute-keyword-arguments (package-arguments template)
7968          ((#:phases phases)
7969           `(modify-phases ,phases
7970              (delete 'reset-gzip-timestamps)))))
7971       (home-page "https://www.ctan.org/pkg/xypic")
7972       (synopsis "Flexible diagramming macros")
7973       (description "This is a package for typesetting a variety of graphs and
7974 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
7975 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
7976 @code{diag} package, which was previously distributed stand-alone.")
7977       (license license:gpl3+))))
7978
7979 (define-deprecated-package texlive-fonts-xypic texlive-xypic)
7980
7981 (define-deprecated-package texlive-generic-xypic texlive-xypic)
7982
7983 (define-public texlive-bibtex
7984   (package
7985     (name "texlive-bibtex")
7986     (version (number->string %texlive-revision))
7987     (source
7988      (origin
7989        (method svn-fetch)
7990        (uri (svn-reference
7991              (url (string-append "svn://www.tug.org/texlive/tags/"
7992                                  %texlive-tag "/Master/texmf-dist/"
7993                                  "/bibtex"))
7994              (revision %texlive-revision)))
7995        (file-name (string-append name "-" version "-checkout"))
7996        (sha256
7997         (base32
7998          "0fr0s3jhrvplddb42if570dxllz54fa0pf4d2am27h8m385nghbf"))))
7999     (build-system trivial-build-system)
8000     (arguments
8001      `(#:modules ((guix build utils))
8002        #:builder
8003        (begin
8004          (use-modules (guix build utils))
8005          (let ((target (string-append (assoc-ref %outputs "out")
8006                                       "/share/texmf-dist/bibtex")))
8007            (mkdir-p target)
8008            (copy-recursively (assoc-ref %build-inputs "source") target)
8009            #t))))
8010     (home-page "https://www.ctan.org/pkg/bibtex")
8011     (synopsis "Process bibliographies for LaTeX")
8012     (description
8013      "BibTeX allows the user to store his citation data in generic form, while
8014 printing citations in a document in the form specified by a BibTeX style, to
8015 be specified in the document itself (one often needs a LaTeX citation-style
8016 package, such as @command{natbib} as well).")
8017     (license license:knuth)))
8018
8019 (define-public texlive-charter
8020   (package
8021     (inherit (simple-texlive-package
8022               "texlive-charter"
8023               (list "/doc/fonts/charter/readme.charter"
8024                     "/fonts/afm/bitstrea/charter/"
8025                     "/fonts/tfm/bitstrea/charter/"
8026                     "/fonts/type1/bitstrea/charter/"
8027                     "/fonts/vf/bitstrea/charter/")
8028               (base32
8029                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
8030               #:trivial? #t))
8031     ;; This provides charter.map.
8032     (propagated-inputs
8033      `(("texlive-psnfss" ,texlive-psnfss)))
8034     (home-page "https://www.ctan.org/pkg/charter")
8035     (synopsis "Charter fonts for TeX")
8036     (description "This package provides a copy of the Charter Type-1 fonts
8037 which Bitstream contributed to the X consortium, renamed for use with TeX.
8038 Support for use with LaTeX is available in @code{freenfss}, part of
8039 @command{psnfss}. ")
8040     (license (license:non-copyleft
8041               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
8042
8043 (define-deprecated-package texlive-fonts-charter texlive-charter)
8044
8045 (define-public texlive-context
8046   (package
8047     (inherit (simple-texlive-package
8048               "texlive-context"
8049               (list "/doc/context/"
8050                     "/doc/man/man1/context.1"
8051                     "/doc/man/man1/luatools.1"
8052                     "/doc/man/man1/mtx-babel.1"
8053                     "/doc/man/man1/mtx-base.1"
8054                     "/doc/man/man1/mtx-bibtex.1"
8055                     "/doc/man/man1/mtx-cache.1"
8056                     "/doc/man/man1/mtx-chars.1"
8057                     "/doc/man/man1/mtx-check.1"
8058                     "/doc/man/man1/mtx-colors.1"
8059                     "/doc/man/man1/mtx-context.1"
8060                     "/doc/man/man1/mtx-dvi.1"
8061                     "/doc/man/man1/mtx-epub.1"
8062                     "/doc/man/man1/mtx-evohome.1"
8063                     "/doc/man/man1/mtx-fcd.1"
8064                     "/doc/man/man1/mtx-flac.1"
8065                     "/doc/man/man1/mtx-fonts.1"
8066                     "/doc/man/man1/mtx-grep.1"
8067                     "/doc/man/man1/mtx-interface.1"
8068                     "/doc/man/man1/mtx-metapost.1"
8069                     "/doc/man/man1/mtx-modules.1"
8070                     "/doc/man/man1/mtx-package.1"
8071                     "/doc/man/man1/mtx-pdf.1"
8072                     "/doc/man/man1/mtx-plain.1"
8073                     "/doc/man/man1/mtx-profile.1"
8074                     "/doc/man/man1/mtx-rsync.1"
8075                     "/doc/man/man1/mtx-scite.1"
8076                     "/doc/man/man1/mtx-server.1"
8077                     "/doc/man/man1/mtx-texworks.1"
8078                     "/doc/man/man1/mtx-timing.1"
8079                     "/doc/man/man1/mtx-tools.1"
8080                     "/doc/man/man1/mtx-unicode.1"
8081                     "/doc/man/man1/mtx-unzip.1"
8082                     "/doc/man/man1/mtx-update.1"
8083                     "/doc/man/man1/mtx-watch.1"
8084                     "/doc/man/man1/mtx-youless.1"
8085
8086                     "/bibtex/bst/context/"
8087                     "/context/"
8088
8089                     "/fonts/afm/hoekwater/context/contnav.afm"
8090                     "/fonts/cid/fontforge/Adobe-CNS1-4.cidmap"
8091                     "/fonts/cid/fontforge/Adobe-GB1-4.cidmap"
8092                     "/fonts/cid/fontforge/Adobe-Identity-0.cidmap"
8093                     "/fonts/cid/fontforge/Adobe-Japan1-5.cidmap"
8094                     "/fonts/cid/fontforge/Adobe-Japan1-6.cidmap"
8095                     "/fonts/cid/fontforge/Adobe-Japan2-0.cidmap"
8096                     "/fonts/cid/fontforge/Adobe-Korea1-2.cidmap"
8097                     "/fonts/enc/dvips/context/"
8098                     "/fonts/map/dvips/context/"
8099                     "/fonts/map/luatex/context/"
8100                     "/fonts/map/pdftex/context/"
8101                     "/fonts/misc/xetex/fontmapping/context/"
8102                     "/fonts/tfm/hoekwater/context/"
8103                     "/fonts/type1/hoekwater/context/"
8104                     "/metapost/context/"
8105                     "/scripts/context/"
8106                     "/tex/context/base/"
8107                     "/tex/context/bib/"
8108                     "/tex/context/colors/"
8109                     "/tex/context/fonts/"
8110                     "/tex/context/interface/"
8111                     "/tex/context/modules/"
8112                     "/tex/context/patterns/"
8113                     "/tex/context/sample/"
8114                     "/tex/context/test/"
8115                     "/tex/context/user/"
8116                     "/tex/generic/context/"
8117                     "/tex/latex/context/")
8118               (base32
8119                "1rsw760f52rj62i7ms89xgxdi0qw6hag5fs5hb667nclr4kdkam8")
8120               #:trivial? #t))
8121     ;; TODO: add these missing packages:
8122     ;; xetex, luatex, lm-math, manfnt-font, and mptopdf
8123     (propagated-inputs
8124      `(("texlive-amsfonts" ,texlive-amsfonts)
8125        ("texlive-lm" ,texlive-lm)
8126        ("texlive-pdftex" ,texlive-pdftex)
8127        ("texlive-metapost" ,texlive-metapost)
8128        ("texlive-fonts-stmaryrd" ,texlive-fonts-stmaryrd)
8129        ("texlive-mflogo-font" ,texlive-mflogo-font)))
8130     (home-page "https://www.ctan.org/pkg/context")
8131     (synopsis "Full featured, parameter driven macro package for TeX")
8132     (description "ConTeXt is a full featured, parameter driven macro package,
8133 which fully supports advanced interactive documents.  See the ConTeXt garden
8134 for a wealth of support information.")
8135     ;; The GPL applies to all code; alternatively, the LaTeX license may be used.
8136     ;; The CC-BY-SA license applies to all documentation.
8137     (license (list license:lppl1.3c+
8138                    license:gpl2+
8139                    license:cc-by-sa4.0))))
8140
8141 (define-deprecated-package texlive-context-base texlive-context)
8142
8143 (define-public texlive-beamer
8144   (package
8145     (inherit (simple-texlive-package
8146               "texlive-beamer"
8147               (list "/doc/latex/beamer/"
8148                     "/tex/latex/beamer/")
8149               (base32
8150                "091n27n4l3iac911bvmpp735ffryyzaq46mkclgn3q9jsvc4ngiv")
8151               #:trivial? #t))
8152     (propagated-inputs
8153      `(("texlive-hyperref" ,texlive-hyperref)
8154        ("texlive-oberdiek" ,texlive-oberdiek)
8155        ("texlive-etoolbox" ,texlive-etoolbox)
8156        ("texlive-latex-pgf" ,texlive-latex-pgf)))
8157     (home-page "https://www.ctan.org/pkg/beamer")
8158     (synopsis "LaTeX class for producing presentations and slides")
8159     (description "The beamer LaTeX class can be used for producing slides.
8160 The class works in both PostScript and direct PDF output modes, using the
8161 @code{pgf} graphics system for visual effects.  Content is created in the
8162 @code{frame} environment, and each frame can be made up of a number of slides
8163 using a simple notation for specifying material to appear on each slide within
8164 a frame.  Short versions of title, authors, institute can also be specified as
8165 optional parameters.  Whole frame graphics are supported by plain frames.  The
8166 class supports @code{figure} and @code{table} environments, transparency
8167 effects, varying slide transitions and animations.")
8168     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
8169     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
8170     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
8171
8172 (define-deprecated-package texlive-latex-beamer texlive-beamer)
8173
8174 (define-public texlive-latex-xmpincl
8175   (package
8176     (name "texlive-latex-xmpincl")
8177     (version (number->string %texlive-revision))
8178     (source
8179      (origin
8180        (method svn-fetch)
8181        (uri (texlive-ref "latex" "xmpincl"))
8182        (file-name (string-append name "-" version "-checkout"))
8183        (sha256
8184         (base32
8185          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
8186     (build-system texlive-build-system)
8187     (arguments '(#:tex-directory "latex/xmpincl"))
8188     (home-page "http://www.ctan.org/pkg/xmpincl")
8189     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
8190     (description
8191      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
8192 digital material to enhance the workflow in publication.  The essence is that
8193 the metadata is stored in an XML file, and this XML stream is then embedded in
8194 the file to which it applies.")
8195     (license license:gpl3+)))
8196
8197 (define-public texlive-pdfx
8198   (let ((template (simple-texlive-package
8199                    "texlive-pdfx"
8200                    (list "/doc/latex/pdfx/"
8201                          "/source/latex/pdfx/"
8202                          "/tex/latex/pdfx/")
8203                    (base32
8204                     "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
8205     (package
8206       (inherit template)
8207       (arguments
8208        (substitute-keyword-arguments (package-arguments template)
8209          ((#:tex-directory _ #t)
8210           "latex/pdfx")
8211          ((#:phases phases)
8212           `(modify-phases ,phases
8213              (add-after 'unpack 'delete-generated-file
8214                (lambda _
8215                  ;; Generate this file from sources
8216                  (delete-file "tex/latex/pdfx/pdfx.sty")
8217                  #t))
8218              (add-after 'delete-generated-file 'chdir
8219                (lambda _ (chdir "source/latex/pdfx") #t))
8220              (add-after 'chdir 'fix-encoding
8221                (lambda _
8222                  (substitute* "pdfx.dtx"
8223                    (("    .+umaczy") "umaczy"))
8224                  #t))))))
8225       (propagated-inputs
8226        `(("texlive-pdftex" ,texlive-pdftex)))
8227       (home-page "https://www.ctan.org/pkg/pdfx")
8228       (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
8229       (description
8230        "This package helps LaTeX users to create PDF/X, PDF/A and other
8231 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
8232       (license license:lppl1.2+))))
8233
8234 (define-deprecated-package texlive-latex-pdfx texlive-pdfx)
8235
8236 (define-public texlive-ydoc
8237   (let ((template (simple-texlive-package
8238                    "texlive-ydoc"
8239                    (list "/doc/latex/ydoc/"
8240                          "/source/latex/ydoc/")
8241                    (base32
8242                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
8243                    #:trivial? #f)))
8244     (package
8245       (inherit template)
8246       (outputs '("out" "doc"))
8247       (arguments
8248        (substitute-keyword-arguments (package-arguments template)
8249          ((#:tex-directory _ #t)
8250           "latex/ydoc")
8251          ((#:build-targets _ #t)
8252           ''("ydoc.dtx"))
8253          ((#:phases phases)
8254           `(modify-phases ,phases
8255              (add-after 'unpack 'chdir
8256                (lambda _ (chdir "source/latex/ydoc") #t))
8257              (add-after 'copy-files 'move-files
8258                (lambda* (#:key inputs outputs #:allow-other-keys)
8259                  (let ((source (assoc-ref inputs "source"))
8260                        (doc (string-append (assoc-ref outputs "doc")
8261                                            "/share/texmf-dist/doc")))
8262                    (copy-recursively (string-append source "/doc")  doc))))))))
8263       (home-page "http://www.ctan.org/pkg/ydoc")
8264       (synopsis "Macros for documentation of LaTeX classes and packages")
8265       (description "The package provides macros and environments to document
8266 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
8267 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
8268 provide a different layout and more modern styles (using the @code{xcolor},
8269 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
8270 not (yet) be used with other packages, since the implementation might
8271 change.")
8272       (license license:lppl1.3+))))
8273
8274 (define-public texlive-pstricks
8275   (let ((template (simple-texlive-package
8276                    "texlive-pstricks"
8277                    (list "/doc/generic/pstricks/"
8278                          "/dvips/pstricks/"
8279                          "/tex/generic/pstricks/"
8280                          "/tex/latex/pstricks/")
8281                    (base32
8282                     "15c9iqfq2y9c8c78cvqb6vzd5a5rm7qq5x7m05jq1hb8sgqrqb0j")
8283                    #:trivial? #t)))
8284     (package
8285       (inherit template)
8286       (arguments
8287        (substitute-keyword-arguments (package-arguments template)
8288          ((#:phases phases)
8289           `(modify-phases ,phases
8290              (delete 'reset-gzip-timestamps)))))
8291       (home-page "http://www.ctan.org/pkg/pstricks")
8292       (synopsis "PostScript macros for TeX")
8293       (description "PSTricks offers an extensive collection of macros for
8294 generating PostScript that is usable with most TeX macro formats, including
8295 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
8296 graphics, pie charts, rotation, trees and overlays.  It has many special
8297 features, including a wide variety of graphics (picture drawing) macros, with
8298 a flexible interface and with colour support.  There are macros for colouring
8299 or shading the cells of tables.")
8300       (license license:lppl1.3+))))
8301
8302 (define-public texlive-pst-text
8303   (let ((template (simple-texlive-package
8304                    "texlive-pst-text"
8305                    (list "/doc/generic/pst-text/"
8306                          "/dvips/pst-text/pst-text.pro"
8307                          "/tex/generic/pst-text/"
8308                          "/tex/latex/pst-text/")
8309                    (base32
8310                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
8311                    #:trivial? #t)))
8312     (package
8313       (inherit template)
8314       (propagated-inputs
8315        `(("texlive-pstricks" ,texlive-pstricks)))
8316       (home-page "http://www.ctan.org/pkg/pst-text")
8317       (synopsis "Text and character manipulation in PSTricks")
8318       (description "Pst-text is a PSTricks based package for plotting text along
8319 a different path and manipulating characters.  It includes the functionality
8320 of the old package @code{pst-char}.")
8321       (license license:lppl))))
8322
8323 (define-public texlive-marginnote
8324   (let ((template (simple-texlive-package
8325                    "texlive-marginnote"
8326                    (list "/source/latex/marginnote/marginnote.dtx")
8327                    (base32
8328                     "152bwxhnssj40rr72r6cfirvqbnc0h7xnagfrbz58v2xck53qhg1"))))
8329     (package
8330       (inherit template)
8331       (home-page "http://www.ctan.org/pkg/marginnote")
8332       (arguments
8333        (substitute-keyword-arguments (package-arguments template)
8334          ((#:tex-directory _ '())
8335           "latex/marginnote")
8336          ((#:build-targets _ '())
8337           ''("marginnote.dtx"))
8338          ((#:phases phases)
8339           `(modify-phases ,phases
8340              (add-after 'unpack 'chdir
8341                (lambda _ (chdir "source/latex/marginnote") #t))))))
8342       (synopsis "Notes in the margin")
8343       (description "This package provides the command @code{\\marginnote} that
8344 may be used instead of @code{\\marginpar} at almost every place where
8345 @code{\\marginpar} cannot be used, e.g., inside floats, footnotes, or in
8346 frames made with the @code{framed} package.")
8347       (license license:lppl1.3c+))))
8348
8349 (define-public texlive-generic-iftex
8350   (let ((template (simple-texlive-package
8351                    "texlive-generic-iftex"
8352                    (list "/doc/generic/iftex/"
8353                          "/tex/generic/iftex/")
8354                    (base32
8355                     "147xa5kl4kjs05nj8v3kd7dpr5xkz3xp3gdvjih32ccd7527f5vp")
8356                    #:trivial? #t)))
8357     (package
8358       (inherit template)
8359       (home-page "http://www.ctan.org/pkg/iftex")
8360       (synopsis "Determine the currently used TeX engine")
8361       (description "This package, which works both for Plain TeX and for
8362 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
8363 conditionals for testing which engine is being used for typesetting.  The
8364 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
8365 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
8366 LuaTeX (respectively) is not the engine in use.")
8367       (license license:lppl1.3+))))
8368
8369 (define-deprecated-package texlive-iftex texlive-generic-iftex)
8370
8371 (define-deprecated-package texlive-generic-ifxetex texlive-generic-iftex)
8372
8373 (define-public texlive-tools
8374   (let ((template (simple-texlive-package
8375                    "texlive-tools"
8376                    (list "/doc/latex/tools/"
8377                          "/source/latex/tools/")
8378                    (base32
8379                     "1xas0b69r3d5x4zhcqysgybyqaikd9avv6r1bdckb947id3iaz58"))))
8380     (package
8381       (inherit template)
8382       (arguments
8383        (substitute-keyword-arguments (package-arguments template)
8384          ((#:tex-directory _ '())
8385           "latex/tools")
8386          ((#:build-targets _ '())
8387           ''("tools.ins"))
8388          ((#:phases phases)
8389           `(modify-phases ,phases
8390              (add-after 'unpack 'chdir
8391                (lambda _ (chdir "source/latex/tools") #t))))))
8392       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
8393       (synopsis "LaTeX standard tools bundle")
8394       (description "This package provides a collection of simple tools that
8395 are part of the LaTeX required tools distribution, comprising the packages:
8396 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
8397 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
8398 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
8399 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
8400 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
8401 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
8402       (license license:lppl1.3+))))
8403
8404 (define-public texlive-latex-xkeyval
8405   (package
8406     (name "texlive-latex-xkeyval")
8407     (version (number->string %texlive-revision))
8408     (source (origin
8409               (method svn-fetch)
8410               (uri (texlive-ref "latex" "xkeyval"))
8411               (file-name (string-append name "-" version "-checkout"))
8412               (sha256
8413                (base32
8414                 "0w4x82wmdvcmy8z3p55xvpz5q7jac1q1j591hi8mngfyqa8rda1c"))))
8415     (build-system texlive-build-system)
8416     (arguments
8417      '(#:tex-directory "latex/xkeyval"
8418        #:build-targets '("xkeyval.dtx")
8419        #:tex-format "latex" ; won't build with luatex
8420        #:phases
8421        (modify-phases %standard-phases
8422          ;; This package cannot be built out of tree as it expects to find
8423          ;; built files in the working directory.
8424          (add-before 'build 'fix-build
8425            (lambda _
8426              (setenv "TEXINPUTS"
8427                      (string-append (getcwd) "/build:"))
8428              (substitute* "xkeyval.dtx"
8429                (("usepackage\\{xcolor\\}")
8430                 "usepackage[dvips]{xcolor}"))
8431              #t))
8432          ;; FIXME: We don't have a package for this font yet.
8433          (add-after 'unpack 'remove-dependency-on-fourier
8434            (lambda _
8435              (substitute* "xkeyval.dtx"
8436                (("\\\\usepackage\\{fourier\\}") ""))
8437              #t))
8438          (add-after 'install 'move-files
8439            (lambda* (#:key outputs #:allow-other-keys)
8440              (let* ((out (assoc-ref outputs "out"))
8441                     (share (string-append out "/share/texmf-dist"))
8442                     (source (string-append share "/tex/latex/xkeyval/"))
8443                     (target (string-append share "/tex/generic/xkeyval/")))
8444                (mkdir-p target)
8445                (for-each (lambda (file)
8446                            (rename-file (string-append source file)
8447                                         (string-append target file)))
8448                          '("keyval.tex"
8449                            "pst-xkey.tex"
8450                            "xkeyval.tex"
8451                            "xkvex1.tex"
8452                            "xkvex2.tex"
8453                            "xkvex3.tex"
8454                            "xkvex4.tex"
8455                            "xkvtxhdr.tex"
8456                            "xkvutils.tex"))
8457                #t))))))
8458     (native-inputs
8459      `(("texlive-latex-base" ,texlive-latex-base)
8460        ("texlive-cm" ,texlive-cm)
8461        ("texlive-lm" ,texlive-lm)
8462        ("texlive-url" ,texlive-url)
8463        ("texlive-graphics-def" ,texlive-graphics-def)
8464        ("texlive-xcolor" ,texlive-xcolor)
8465        ("texlive-latex-footmisc" ,texlive-latex-footmisc)
8466        ("texlive-latex-listings" ,texlive-latex-listings)
8467        ("texlive-generic-iftex" ,texlive-generic-iftex)
8468        ("texlive-pstricks" ,texlive-pstricks)
8469        ("texlive-pst-text" ,texlive-pst-text)
8470        ("texlive-tools" ,texlive-tools)
8471        ("texlive-latex-pgf" ,texlive-latex-pgf)))
8472     (home-page "http://www.ctan.org/pkg/xkeyval")
8473     (synopsis "Extension of the keyval package")
8474     (description
8475      "This package is an extension of the keyval package and offers additional
8476 macros for setting keys and declaring and setting class or package options.
8477 The package allows the programmer to specify a prefix to the name of the
8478 macros it defines for keys, and to define families of key definitions; these
8479 all help use in documents where several packages define their own sets of
8480 keys.")
8481     (license license:lppl1.3+)))
8482
8483 (define-public texlive-standalone
8484   (package
8485     (name "texlive-standalone")
8486     (version (number->string %texlive-revision))
8487     (source
8488      (origin
8489        (method svn-fetch)
8490        (uri (texlive-ref "latex" "standalone"))
8491        (file-name (string-append name "-" version "-checkout"))
8492        (sha256
8493         (base32
8494          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
8495     (build-system texlive-build-system)
8496     (arguments '(#:tex-directory "latex/standalone"))
8497     (propagated-inputs
8498      `(("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8499     (native-inputs
8500      `(("texlive-ydoc" ,texlive-ydoc)))
8501     (home-page "http://www.ctan.org/pkg/standalone")
8502     (synopsis "Compile TeX pictures stand-alone or as part of a document")
8503     (description "A class and package is provided which allows TeX pictures or
8504 other TeX code to be compiled standalone or as part of a main document.
8505 Special support for pictures with beamer overlays is also provided.  The
8506 package is used in the main document and skips extra preambles in sub-files.
8507 The class may be used to simplify the preamble in sub-files.  By default the
8508 @code{preview} package is used to display the typeset code without margins.
8509 The behaviour in standalone mode may adjusted using a configuration file
8510 @code{standalone.cfg} to redefine the standalone environment.")
8511     (license license:lppl1.3+)))
8512
8513 (define-public texlive-siunitx
8514   (package
8515     (name "texlive-siunitx")
8516     (version (number->string %texlive-revision))
8517     (source (texlive-origin
8518              name version
8519              (list "/source/latex/siunitx/siunitx.dtx"
8520                    "/doc/latex/siunitx/README.md")
8521              (base32
8522               "05kl7yid2npp2gbfshnv2xd08w81fkh5h2n5wd9xcpbhlqjzx9sj")))
8523     (build-system texlive-build-system)
8524     (arguments
8525      '(#:tex-directory "latex/siunitx"
8526        #:build-targets '("siunitx.dtx")
8527        #:phases
8528        (modify-phases %standard-phases
8529          (add-after 'unpack 'chdir
8530            (lambda _ (chdir "source/latex/siunitx") #t)))))
8531     (propagated-inputs
8532      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
8533        ("texlive-latex-l3packages" ,texlive-latex-l3packages)))
8534     (home-page "http://www.ctan.org/pkg/siunitx")
8535     (synopsis "Comprehensive SI units package")
8536     (description
8537      "Typesetting values with units requires care to ensure that the combined
8538 mathematical meaning of the value plus unit combination is clear.  In
8539 particular, the SI units system lays down a consistent set of units with rules
8540 on how they are to be used.  However, different countries and publishers have
8541 differing conventions on the exact appearance of numbers (and units).  A
8542 number of LaTeX packages have been developed to provide consistent application
8543 of the various rules.  The @code{siunitx} package takes the best from the
8544 existing packages, and adds new features and a consistent interface.  A number
8545 of new ideas have been incorporated, to fill gaps in the existing provision.
8546 The package also provides backward-compatibility with @code{SIunits},
8547 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
8548 package to handle all of the possible unit-related needs of LaTeX users.")
8549     (license license:lppl1.3c)))
8550
8551 (define-public texlive-booktabs
8552   (package
8553     (name "texlive-booktabs")
8554     (version (number->string %texlive-revision))
8555     (source
8556      (origin
8557        (method svn-fetch)
8558        (uri (texlive-ref "latex" "booktabs"))
8559        (file-name (string-append name "-" version "-checkout"))
8560        (sha256
8561         (base32
8562          "1mycxzl761p2zzmva8xsjbxbvrxx3vhi5p160mh9kiqwhrs5biz5"))))
8563     (build-system texlive-build-system)
8564     (arguments '(#:tex-directory "latex/booktabs"))
8565     (home-page "http://www.ctan.org/pkg/booktabs")
8566     (synopsis "Publication quality tables in LaTeX")
8567     (description
8568      "This package enhances the quality of tables in LaTeX, providing extra
8569 commands as well as behind-the-scenes optimisation.  Guidelines are given as
8570 to what constitutes a good table in this context.  The package offers
8571 @code{longtable} compatibility.")
8572     (license license:lppl1.3+)))
8573
8574 (define-public texlive-csquotes
8575   (let ((template (simple-texlive-package
8576                    "texlive-csquotes"
8577                    (list "/doc/latex/csquotes/"
8578                          "/tex/latex/csquotes/")
8579                    (base32
8580                     "17y5mrmjmi7n0cgq4cnqr55f4bni6lx1pfdv5pzsmbrzha3mhbfg")
8581                    #:trivial? #t)))
8582     (package
8583       (inherit template)
8584       (propagated-inputs
8585        `(("texlive-etoolbox" ,texlive-etoolbox)))
8586       (home-page "https://www.ctan.org/pkg/csquotes")
8587       (synopsis "Context sensitive quotation facilities")
8588       (description "This package provides advanced facilities for inline and
8589 display quotations.  It is designed for a wide range of tasks ranging from the
8590 most simple applications to the more complex demands of formal quotations.
8591 The facilities include commands, environments, and user-definable 'smart
8592 quotes' which dynamically adjust to their context.  Quotation marks are
8593 switched automatically if quotations are nested and they can be adjusted to
8594 the current language if the babel package is available.  There are additional
8595 facilities designed to cope with the more specific demands of academic
8596 writing, especially in the humanities and the social sciences.  All quote
8597 styles as well as the optional active quotes are freely configurable.")
8598       (license license:lppl1.3c+))))
8599
8600 (define-public texlive-logreq
8601   (let ((template (simple-texlive-package
8602                    "texlive-logreq"
8603                    (list "/doc/latex/logreq/"
8604                          "/tex/latex/logreq/")
8605                    (base32
8606                     "13difccs3cxlkqlnhw286yb0c7mifrxfd402a2x5wwxv0m1kgfqd")
8607                    #:trivial? #t)))
8608     (package
8609       (inherit template)
8610       (propagated-inputs
8611        `(("texlive-etoolbox" ,texlive-etoolbox)))
8612       (home-page "https://www.ctan.org/pkg/logreq")
8613       (synopsis "Support for automation of the LaTeX workflow")
8614       (description "The package helps to automate a typical LaTeX
8615 workflow that involves running LaTeX several times and running tools
8616 such as BibTeX or makeindex.  It will log requests like \"please rerun
8617 LaTeX\" or \"please run BibTeX on file X\" to an external file in a
8618 machine-readable format.  Compiler scripts and integrated LaTeX
8619 editing environments may parse this file to determine the next steps
8620 in the workflow.  In sum, the package will do two things:
8621
8622 @enumerate
8623 @item
8624 enable package authors to use LaTeX commands to issue requests, and
8625
8626 @item
8627 collect all requests from all packages and write them to an external
8628 XML file.
8629 @end enumerate\n")
8630       (license license:lppl1.3c))))
8631
8632 (define-public texlive-biblatex
8633   (let ((template (simple-texlive-package
8634                    "texlive-biblatex"
8635                    (list "/doc/latex/biblatex/"
8636                          "/tex/latex/biblatex/")
8637                    (base32
8638                     "091cz2vrq22d1fr05wljd8vbllsz95q2hn2p8hhrwb2l2xrmxwn8")
8639                    #:trivial? #t)))
8640     (package
8641       (inherit template)
8642       (propagated-inputs
8643        `(("texlive-logreq" ,texlive-logreq)
8644          ("texlive-url" ,texlive-url)))
8645       (home-page "https://www.ctan.org/pkg/biblatex")
8646       (synopsis "Sophisticated bibliographies in LaTeX")
8647       (description "BibLaTeX is a complete reimplementation of the
8648 bibliographic facilities provided by LaTeX.  Formatting of the
8649 bibliography is entirely controlled by LaTeX macros, facilitating the
8650 design of new bibliography and citation styles.  BibLaTeX uses its own
8651 data backend program \"biber\" to read and process the bibliographic
8652 data.  With biber, the range of features provided by biblatex
8653 includes:
8654
8655 @enumerate
8656 @item
8657 full unicode support,
8658
8659 @item
8660 customisable bibliography labels,
8661
8662 @item
8663 multiple bibliographies in the same document, and
8664
8665 @item
8666 subdivided bibliographies, such as bibliographies per chapter or
8667 section.
8668 @end enumerate\n")
8669       (license license:lppl1.3c))))
8670
8671 (define-public texlive-todonotes
8672   (let ((template (simple-texlive-package
8673                    "texlive-todonotes"
8674                    (list "/doc/latex/todonotes/"
8675                          "/tex/latex/todonotes/")
8676                    (base32
8677                     "1jqw8jy73488bdr971w0dnlggsvicagpnpx8ddqkma920ba8rabp")
8678                    #:trivial? #t)))
8679     (package
8680       (inherit template)
8681       (propagated-inputs
8682        `(("texlive-latex-pgf" ,texlive-latex-pgf)
8683          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8684       (home-page "http://www.ctan.org/pkg/todonotes")
8685       (synopsis "Marking things to do in a LaTeX document")
8686       (description "The @code{todonotes} package lets the user mark
8687 things to do later, in a simple and visually appealing way.  The
8688 package takes several options to enable customization and finetuning
8689 of the visual appearance.")
8690       (license license:lppl1.3+))))
8691
8692 (define-public texlive-units
8693   (let ((template (simple-texlive-package
8694                    "texlive-units"
8695                    (list "/doc/latex/units/"
8696                          "/tex/latex/units/")
8697                    (base32
8698                     "1ia1vzy8dp7pdvmawwnmh9lmkajmpnnh62dixrjpb6mnxq118bfd")
8699                    #:trivial? #t)))
8700     (package
8701       (inherit template)
8702       (home-page "http://www.ctan.org/pkg/units")
8703       (synopsis "Typeset physical units and fractions")
8704       (description "@code{units} is a package for typesetting physical
8705 units in a standard-looking way.  The package is based upon
8706 @code{nicefrac}, a package for typing fractions.  @code{nicefrac} is
8707 included in the @code{units} bundle.")
8708       (license license:gpl3+))))
8709
8710 (define-public texlive-microtype
8711   (let ((template (simple-texlive-package
8712                    "texlive-microtype"
8713                    (list "/doc/latex/microtype/"
8714                          "/tex/latex/microtype/")
8715                    (base32
8716                     "07861ixrjzxm0l24z82ivhaj4v6xm4ijbaabp66jxsf8s8h7dq9n")
8717                    #:trivial? #t)))
8718     (package
8719       (inherit template)
8720       (home-page "http://www.ctan.org/pkg/microtype")
8721       (synopsis "Subliminal refinements towards typographical perfection")
8722       (description "@code{microtype} provides a LaTeX interface to the
8723 micro-typographic extensions that were introduced by pdfTeX and have
8724 since propagated to XeTeX and LuaTeX: most prominently character
8725 protrusion and font expansion, the adjustment of kerning and interword
8726 spacing, hyphenatable letterspacing and the possibility to disable all
8727 or selected ligatures.  These features may be applied to customisable
8728 sets of fonts.  All micro-typographic aspects of the fonts can be
8729 configured in a straight-forward and flexible way.  Settings for
8730 various fonts are provided.  An alternative package
8731 @code{letterspace}, which also works with plain TeX, is included in
8732 the bundle.")
8733       (license license:lppl1.3c))))
8734
8735 (define-public texlive-caption
8736   (let ((template (simple-texlive-package
8737                    "texlive-caption"
8738                    (list "/doc/latex/caption/"
8739                          "/tex/latex/caption/")
8740                    (base32
8741                     "1isnn375d14xsx398j3m8rbb0pdk12kijw4xcgl82xici170klwq")
8742                    #:trivial? #t)))
8743     (package
8744       (inherit template)
8745       (home-page "http://www.ctan.org/pkg/caption")
8746       (synopsis "Customising captions in floating environments")
8747       (description "The @code{caption} package provides many ways to
8748 customise the captions in floating environments like figure and table.
8749 Facilities include rotating captions, sideways captions and continued
8750 captions (for tables or figures that come in several parts).  A list
8751 of compatibility notes, for other packages, is provided in the
8752 documentation.  The package also provides the \"caption outside
8753 float\" facility, in the same way that simpler packages like
8754 @code{capt-ofcapt-of} do.  The package supersedes @code{caption2}.
8755 Packages @code{bicaption}, @code{ltcaption}, @code{newfloat},
8756 @code{subcaption} and @code{totalcount} are included in the bundle.")
8757       (license license:lppl1.3+))))
8758
8759 (define-public texlive-symbol
8760   (package
8761     (inherit (simple-texlive-package
8762               "texlive-symbol"
8763               (list "/dvips/symbol/"
8764                     "/fonts/afm/adobe/symbol/"
8765                     "/fonts/afm/urw/symbol/"
8766                     "/fonts/tfm/adobe/symbol/"
8767                     "/fonts/tfm/urw35vf/symbol/"
8768                     "/fonts/type1/urw/symbol/"
8769                     "/fonts/map/dvips/symbol/"
8770                     "/tex/latex/symbol/")
8771               (base32
8772                "01xiygb88xwi7rfvh1zrlxzi5pqb5fvylws5zzszg379iz4pyzwj")
8773               #:trivial? #t))
8774     (home-page "https://ctan.org/pkg/urw-base35")
8775     (synopsis "URW Base 35 font pack for LaTeX")
8776     (description "This package provides a drop-in replacement for the
8777 Symbol font from Adobe's basic set.")
8778     (license license:gpl2)))
8779
8780 (define-public texlive-mathpazo
8781   (package
8782     (inherit (simple-texlive-package
8783               "texlive-mathpazo"
8784               (list "/doc/latex/mathpazo/"
8785                     "/fonts/afm/public/mathpazo/"
8786                     "/fonts/tfm/public/mathpazo/"
8787                     "/fonts/type1/public/mathpazo/"
8788                     "/fonts/vf/public/mathpazo/")
8789               (base32
8790                "02in6hdnbnkz216mpy8g6fk3wmlls8nh5982vmg37vhbj77lk0rh")
8791               #:trivial? #t))
8792     (home-page "http://www.ctan.org/pkg/mathpazo")
8793     (synopsis "Fonts to typeset mathematics to match Palatino")
8794     (description "The Pazo Math fonts are a family of PostScript fonts
8795 suitable for typesetting mathematics in combination with the Palatino
8796 family of text fonts.  The Pazo Math family is made up of five fonts
8797 provided in Adobe Type 1 format.  These contain glyphs that are
8798 usually not available in Palatino and for which Computer Modern looks
8799 odd when combined with Palatino.  These glyphs include the uppercase
8800 Greek alphabet in upright and slanted shapes, the lowercase Greek
8801 alphabet in slanted shape, several mathematical glyphs and the
8802 uppercase letters commonly used to represent various number sets.
8803 LaTeX macro support is provided in package @code{psnfss}.")
8804     (license license:gpl3+)))
8805
8806 (define-public texlive-fpl
8807   (package
8808     (inherit (simple-texlive-package
8809               "texlive-fpl"
8810               (list "/doc/fonts/fpl/"
8811                     "/source/fonts/fpl/"
8812                     "/fonts/afm/public/fpl/"
8813                     "/fonts/type1/public/fpl/")
8814               (base32
8815                "02gkl516z9kn8xqs269pdkqn37sxm8ib0pcs43s4rs2rhyyl5z68")
8816               #:trivial? #t))
8817     (home-page "https://www.ctan.org/pkg/fpl")
8818     (synopsis "SC and OsF fonts for URW Palladio L")
8819     (description "The FPL Fonts provide a set of SC/OsF fonts for URW
8820 Palladio L which are compatible with the Palatino SC/OsF fonts from
8821 Adobe.  LaTeX use is enabled by the mathpazo package, which is part of
8822 the @code{psnfss} distribution.")
8823     ;; Either LPPL version 1.0 or later, or GPL version 2
8824     (license (list license:lppl1.0+ license:gpl2))))
8825
8826 (define-public texlive-arev
8827   (package
8828     (inherit (simple-texlive-package
8829               "texlive-arev"
8830               (list "/doc/fonts/arev/"
8831                     "/fonts/afm/public/arev/"
8832                     "/fonts/enc/dvips/arev/"
8833                     "/fonts/map/dvips/arev/"
8834                     "/fonts/tfm/public/arev/"
8835                     "/fonts/type1/public/arev/"
8836                     "/fonts/vf/public/arev/"
8837                     "/tex/latex/arev/")
8838               (base32
8839                "15wkgc48r52mjpymv6l7j9bl99kwxbvg3g1mi3qyq7nfm799dkxy")
8840               #:trivial? #t))
8841     (home-page "https://www.ctan.org/pkg/arev")
8842     (synopsis "Fonts and LaTeX support files for Arev Sans")
8843     (description "The @code{arev} package provides type 1 fonts,
8844 virtual fonts and LaTeX packages for using Arev Sans in both text and
8845 mathematics.  Arev Sans is a derivative of Bitstream Vera Sans, adding
8846 support for Greek and Cyrillic characters and a few variant letters
8847 appropriate for mathematics.  The font is primarily used in LaTeX for
8848 presentations, particularly when using a computer projector.  Arev
8849 Sans has large x-height, \"open letters\", wide spacing and thick
8850 stems.  The style is very similar to the SliTeX font lcmss but
8851 heavier.  Arev is one of a very small number of sans-font mathematics
8852 support packages.  Others are cmbright, hvmath and kerkis.")
8853     (license (list license:silofl1.1 ;for Arev Sans
8854                    license:lppl1.3a  ;for TeX support files
8855                    license:gpl2))))  ;for ams-mdbch.sty
8856
8857 (define-public texlive-mathdesign
8858   (package
8859     (inherit (simple-texlive-package
8860               "texlive-mathdesign"
8861               (list "/doc/fonts/mathdesign/"
8862                     "/dvips/mathdesign/"
8863                     "/fonts/enc/dvips/mathdesign/"
8864                     "/fonts/map/dvips/mathdesign/"
8865                     "/fonts/tfm/public/mathdesign/"
8866                     "/fonts/type1/public/mathdesign/"
8867                     "/fonts/vf/public/mathdesign/"
8868                     "/tex/latex/mathdesign/")
8869               (base32
8870                "0jcby2sd0l3ank2drxc0qcf5d1cwa8idzh4g91h4nxk8zrzxj8nr")
8871               #:trivial? #t))
8872     (home-page "https://www.ctan.org/pkg/mathdesign")
8873     (synopsis "Mathematical fonts to fit with particular text fonts")
8874     (description "The Math Design project offers free mathematical
8875 fonts that match with existing text fonts.  To date, three free font
8876 families are available: Adobe Utopia, URW Garamond and Bitstream
8877 Charter.  Mathdesign covers the whole LaTeX glyph set including AMS
8878 symbols.  Both roman and bold versions of these symbols can be used.
8879 Moreover, there is a choice between three greek fonts (two of them
8880 created by the Greek Font Society).")
8881     (license license:gpl2+)))
8882
8883 (define-public texlive-bera
8884   (package
8885     (inherit (simple-texlive-package
8886               "texlive-bera"
8887               (list "/doc/fonts/bera/"
8888                     "/fonts/afm/public/bera/"
8889                     "/fonts/map/dvips/bera/"
8890                     "/fonts/tfm/public/bera/"
8891                     "/fonts/type1/public/bera/"
8892                     "/fonts/vf/public/bera/"
8893                     "/tex/latex/bera/")
8894               (base32
8895                "1pkmhhr6ah44xhipjr7nianv03hr4w4bn45xcvp264yw6ymqzqwr")
8896               #:trivial? #t))
8897     (home-page "https://www.ctan.org/pkg/bera")
8898     (synopsis "Bera fonts")
8899     (description "The @code{bera} package contains the Bera Type 1
8900 fonts and files to use the fonts with LaTeX.  Bera is a set of three
8901 font families: Bera Serif (a slab-serif Roman), Bera Sans (a Frutiger
8902 descendant) and Bera Mono (monospaced/typewriter).  The Bera family is
8903 a repackaging, for use with TeX, of the Bitstream Vera family.")
8904     (license license:silofl1.1)))
8905
8906 (define-public texlive-fourier
8907   (package
8908     (inherit (simple-texlive-package
8909               "texlive-fourier"
8910               (list "/doc/fonts/fourier/"
8911                     "/fonts/afm/public/fourier/"
8912                     "/fonts/map/dvips/fourier/"
8913                     "/fonts/tfm/public/fourier/"
8914                     "/fonts/type1/public/fourier/"
8915                     "/fonts/vf/public/fourier/"
8916                     "/tex/latex/fourier/")
8917               (base32
8918                "04d575nd4yvl58g9dfab9mrjxiv4792bdkz4bjvlkx6x257vlfzn")
8919               #:trivial? #t))
8920     (home-page "https://www.ctan.org/pkg/fourier")
8921     (synopsis "Utopia fonts for LaTeX documents")
8922     (description "Fourier-GUTenberg is a LaTeX typesetting system
8923 which uses Adobe Utopia as its standard base font.  Fourier-GUTenberg
8924 provides all complementary typefaces needed to allow Utopia based TeX
8925 typesetting including an extensive mathematics set and several other
8926 symbols.  The system is absolutely stand-alone; apart from Utopia and
8927 Fourier no other typefaces are required.  Utopia is a registered
8928 trademark of Adobe Systems Incorporated.")
8929     (license license:lppl)))
8930
8931 (define-public texlive-utopia
8932   (package
8933     (inherit (simple-texlive-package
8934               "texlive-utopia"
8935               (list "/doc/fonts/utopia/"
8936                     "/fonts/afm/adobe/utopia/"
8937                     "/fonts/tfm/adobe/utopia/"
8938                     "/fonts/type1/adobe/utopia/"
8939                     "/fonts/vf/adobe/utopia/")
8940               (base32
8941                "113wgkfz4z0ls2grxxfj17l42a1yv9r5ipcd0156xnfsrqvqzxfc")
8942               #:trivial? #t))
8943     (home-page "https://www.ctan.org/pkg/utopia")
8944     (synopsis "Adobe Utopia fonts")
8945     (description "The Adobe Standard Encoding set of the Utopia font
8946 family, as contributed to the X Consortium.  The set comprises upright
8947 and italic shapes in medium and bold weights.  Macro support and
8948 matching maths fonts are provided by the @code{fourier} and
8949 @code{mathdesign} font packages.")
8950     (license (license:fsf-free
8951               "http://mirrors.ctan.org/fonts/utopia/README"))))
8952
8953 (define-public texlive-fontaxes
8954   (package
8955     (name "texlive-fontaxes")
8956     (version "1.0e")
8957     (source
8958      (origin
8959        (method svn-fetch)
8960        (uri (texlive-ref "latex" "fontaxes"))
8961        (file-name (string-append name "-" version "-checkout"))
8962        (sha256
8963         (base32
8964          "0j3w1y66pkf3bjl9dh5xy3lfg33rg08s4wx37a3jcndvcji20j3f"))))
8965     (build-system texlive-build-system)
8966     (arguments '(#:tex-directory "latex/fontaxes"))
8967     (home-page "http://www.ctan.org/pkg/fontaxes")
8968     (synopsis "Additional font axes for LaTeX")
8969     (description "The @code{fontaxes} package adds several new font
8970 axes on top of LaTeX's New Font Selection Scheme (NFSS).  In
8971 particular, it splits the shape axis into a primary and a secondary
8972 shape axis and it adds three new axes to deal with the different
8973 figure versions offered by many professional fonts.")
8974     (license license:lppl1.3+)))
8975
8976 (define-public texlive-preprint
8977   (package
8978     (name "texlive-preprint")
8979     (version "1.0e")
8980     (source
8981      (origin
8982        (method svn-fetch)
8983        (uri (texlive-ref "latex" "preprint"))
8984        (file-name (string-append name "-" version "-checkout"))
8985        (sha256
8986         (base32
8987          "173ik9xad3zih6gcdwdkzyljarh06ky6c5d2x1yjs22qqi75py5a"))))
8988     (build-system texlive-build-system)
8989     (arguments '(#:tex-directory "latex/preprint"))
8990     (home-page "http://www.ctan.org/pkg/preprint")
8991     (synopsis "Bundle of modules for preprints")
8992     (description "The bundle comprises: @code{authblk}, which permits
8993 footnote style author/affiliation input in the @command{\\author} command,
8994 @code{balance}, to balance the end of @command{\\twocolumn} pages,
8995 @code{figcaps}, to send figure captions, etc., to end document,
8996 @code{fullpage}, to set narrow page margins and set a fixed page style, and
8997 @code{sublabel}, which permits counters to be subnumbered.")
8998     (license license:lppl1.3+)))
8999
9000 (define-public texlive-mweights
9001   (package
9002     (inherit (simple-texlive-package
9003               "texlive-mweights"
9004               (list "/doc/latex/mweights/"
9005                     "/tex/latex/mweights/")
9006               (base32
9007                "12493g3yz06mhiybnphqbp49fjzy36clzw63b74mkfhsg1pq7h1b")
9008               #:trivial? #t))
9009     (home-page "https://www.ctan.org/pkg/mweights")
9010     (synopsis "Support for multiple-weight font packages")
9011     (description "Many font families available for use with LaTeX are
9012 available at multiple weights.  Many Type 1-oriented support packages
9013 for such fonts re-define the standard @code{\\mddefault} or
9014 @code{\\bfdefault} macros.  This can create difficulties if the weight
9015 desired for one font family is not available for another font family,
9016 or if it differs from the weight desired for another font family.  The
9017 @code{mweights} package provides a solution to these difficulties.")
9018     (license license:lppl)))
9019
9020 (define-public texlive-cabin
9021   (package
9022     (inherit (simple-texlive-package
9023               "texlive-cabin"
9024               (list "/doc/fonts/cabin/"
9025                     "/fonts/enc/dvips/cabin/"
9026                     "/fonts/map/dvips/cabin/"
9027                     "/fonts/opentype/impallari/cabin/"
9028                     "/fonts/tfm/impallari/cabin/"
9029                     "/fonts/type1/impallari/cabin/"
9030                     "/fonts/vf/impallari/cabin/"
9031                     "/tex/latex/cabin/")
9032               (base32
9033                "1gqqqbj7i18fs1ss5n3axd821hzq5kbv1dl7dqxp4gba619f1rli")
9034               #:trivial? #t))
9035     (home-page "https://www.ctan.org/pkg/cabin")
9036     (synopsis "Humanist Sans Serif font with LaTeX support")
9037     (description "Cabin is a humanist sans with four weights, true
9038 italics and small capitals.  According to its designer, Pablo
9039 Impallari, Cabin was inspired by the typefaces of Edward Johnston and
9040 Eric Gill.  Cabin incorporates modern proportions, optical adjustments
9041 and some elements of the geometric sans.  @code{cabin.sty} supports
9042 use of the font under LaTeX, pdfLaTeX, XeLaTeX and LuaLaTeX.  It uses
9043 the @code{mweights} package to manage the user's view of all those
9044 font weights.  An @code{sfdefault} option is provided to enable Cabin
9045 as the default text font.  The @code{fontaxes} package is required for
9046 use with [pdf]LaTeX.")
9047     (license (list license:silofl1.1 ;for Cabin
9048                    license:lppl))))  ;for support files
9049
9050 (define-public texlive-newtx
9051   (package
9052     (inherit (simple-texlive-package
9053               "texlive-newtx"
9054               (list "/doc/fonts/newtx/"
9055                     "/fonts/afm/public/newtx/"
9056                     "/fonts/enc/dvips/newtx/"
9057                     "/fonts/map/dvips/newtx/"
9058                     "/fonts/opentype/public/newtx/"
9059                     "/fonts/tfm/public/newtx/"
9060                     "/fonts/type1/public/newtx/"
9061                     "/fonts/vf/public/newtx/"
9062                     "/tex/latex/newtx/")
9063               (base32
9064                "0h0wm3cd0wxag5x7vy3vgr42jd8m6ffkl90pnkvqdxzbnfdjv3l6")
9065               #:trivial? #t))
9066     (home-page "https://www.ctan.org/pkg/newtx")
9067     (synopsis "Repackaging of the TX fonts with improved metrics")
9068     (description "The @code{newtx} bundle splits
9069 @code{txfonts.sty} (from the TX fonts distribution) into two
9070 independent packages, @code{newtxtext.sty} and @code{newtxmath.sty},
9071 each with fixes and enhancements.  @code{newtxmath}'s metrics have
9072 been re-evaluated to provide a less tight appearance and to provide a
9073 @code{libertine} option that substitutes Libertine italic and Greek
9074 letters for the existing math italic and Greek glyphs, making a
9075 mathematics package that matches Libertine text quite well.")
9076     (license license:lppl1.3)))
9077
9078 (define-public texlive-xcharter
9079   (package
9080     (inherit (simple-texlive-package
9081               "texlive-xcharter"
9082               (list "/doc/fonts/xcharter/"
9083                     "/fonts/afm/public/xcharter/"
9084                     "/fonts/enc/dvips/xcharter/"
9085                     "/fonts/map/dvips/xcharter/"
9086                     "/fonts/opentype/public/xcharter/"
9087                     "/fonts/tfm/public/xcharter/"
9088                     "/fonts/type1/public/xcharter/"
9089                     "/fonts/vf/public/xcharter/"
9090                     "/tex/latex/xcharter/")
9091               (base32
9092                "0d8rvcmvxrlxqqxpirxqbhmiijpsz5y4vvldh1jnc018aannjlhm")
9093               #:trivial? #t))
9094     (home-page "https://www.ctan.org/pkg/xcharter")
9095     (synopsis "Extension of the Bitstream Charter fonts")
9096     (description "@code{xcharter} repackages Bitstream Charter with an
9097 extended set of features.  The extension provides small caps, oldstyle
9098 figures and superior figures in all four styles, accompanied by LaTeX
9099 font support files.  The fonts themselves are provided in both Adobe
9100 Type 1 and OTF formats, with supporting files as necessary.")
9101     (license (list (license:fsf-free
9102                     "http://mirrors.ctan.org/fonts/xcharter/README")
9103                    license:lppl1.3))))
9104
9105 (define-public texlive-ly1
9106   (package
9107     (inherit (simple-texlive-package
9108               "texlive-ly1"
9109               (list "/doc/fonts/ly1/"
9110                     "/fonts/enc/dvips/ly1/"
9111                     "/fonts/map/dvips/ly1/"
9112                     "/fonts/tfm/adobe/ly1/"
9113                     "/fonts/vf/adobe/ly1/"
9114                     "/tex/latex/ly1/")
9115               (base32
9116                "0wjyw0risgvrq97zfciglwy1f4msvfslln6pz0q8yzzx8wsv3zgq")
9117               #:trivial? #t))
9118     (home-page "https://www.ctan.org/pkg/ly1")
9119     (synopsis "Support for LY1 LaTeX encoding")
9120     (description "The legacy @emph{texnansi} (TeX and ANSI) encoding
9121 is known in the LaTeX scheme of things as @emph{LY1} encoding.  The
9122 @code{ly1} bundle includes metrics and LaTeX macros to use the three
9123 basic Adobe Type 1 fonts (Times, Helvetica and Courier) in LaTeX using
9124 LY1 encoding.")
9125     (license license:lppl1.0+)))
9126
9127 (define-public texlive-sectsty
9128   (let ((template (simple-texlive-package
9129                    "texlive-sectsty"
9130                    (list "/doc/latex/sectsty/"
9131                          "/source/latex/sectsty/")
9132                    (base32
9133                     "08m90j7cg6w46vnwgsp10clpj4l6c9a6l8dad20q3mnd32l84hbl"))))
9134     (package
9135       (inherit template)
9136       (arguments
9137        (substitute-keyword-arguments (package-arguments template)
9138          ((#:tex-directory _ '())
9139           "latex/sectsty")
9140          ((#:build-targets _ '())
9141           ''("sectsty.ins"))
9142          ((#:tex-format _ "latex") "latex")
9143          ((#:phases phases)
9144           `(modify-phases ,phases
9145              (add-after 'unpack 'chdir
9146                (lambda _ (chdir "source/latex/sectsty")))))))
9147       (home-page "https://www.ctan.org/pkg/sectsty")
9148       (synopsis "Control sectional headers")
9149       (description "This is a LaTeX2ε package to help change the style of any or
9150 all of LaTeX's sectional headers in the article, book, or report classes.
9151 Examples include the addition of rules above or below a section title. ")
9152       (license license:lppl1.2+))))
9153
9154 (define-public texlive-morefloats
9155   (let ((template (simple-texlive-package
9156                    "texlive-morefloats"
9157                    (list "/doc/latex/morefloats/"
9158                          "/source/latex/morefloats/")
9159                    (base32
9160                     "0n0405fjxyjlbjspzfvhl0wjkwiqicj3hk8fa0g7agw72wlxscpl"))))
9161     (package
9162       (inherit template)
9163       (arguments
9164        (substitute-keyword-arguments (package-arguments template)
9165          ((#:tex-directory _ '())
9166           "latex/morefloats")
9167          ((#:build-targets _ '())
9168           ''("morefloats.ins"))
9169          ((#:phases phases)
9170           `(modify-phases ,phases
9171              (add-after 'unpack 'chdir
9172                (lambda _ (chdir "source/latex/morefloats")))))))
9173       (home-page "https://www.ctan.org/pkg/morefloats")
9174       (synopsis "Increase the number of simultaneous LaTeX floats")
9175       (description "LaTeX can, by default, only cope with 18 outstanding floats;
9176 any more, and you get the error “too many unprocessed floats”.  This package
9177 releases the limit; TeX itself imposes limits (which are independent of the
9178 help offered by e-TeX).
9179
9180 However, if your floats can’t be placed anywhere, extending the number of
9181 floats merely delays the arrival of the inevitable error message.")
9182       (license license:lppl1.3c+))))
9183
9184 (define-public texlive-ifmtarg
9185   (let ((template (simple-texlive-package
9186                    "texlive-ifmtarg"
9187                    (list "/doc/latex/ifmtarg/"
9188                          "/source/latex/ifmtarg/")
9189                    (base32
9190                     "0cwjn4bhq9zyfxr1595hgyc1d7rcsf9lva55x98q81xy5xrrmrb2"))))
9191     (package
9192       (inherit template)
9193       (arguments
9194        (substitute-keyword-arguments (package-arguments template)
9195          ((#:tex-directory _ '())
9196           "latex/ifmtarg")
9197          ((#:build-targets _ '())
9198           ''("ifmtarg.ins"))
9199          ((#:tex-format _ "latex") "latex")
9200          ((#:phases phases)
9201           `(modify-phases ,phases
9202              (add-after 'unpack 'chdir
9203                (lambda _ (chdir "source/latex/ifmtarg")))))))
9204       (inputs
9205        `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
9206       (home-page "https://www.ctan.org/pkg/ifmtarg")
9207       (synopsis "If-then-else command for processing potentially empty arguments")
9208       (description "This package provides a command for the LaTeX programmer for
9209 testing whether an argument is empty.")
9210       (license license:lppl1.3c+))))
9211
9212 (define-public texlive-pagenote
9213   (let ((template (simple-texlive-package
9214                    "texlive-pagenote"
9215                    (list "/doc/latex/pagenote/"
9216                          "/source/latex/pagenote/")
9217                    (base32
9218                     "0cqfqrfvnzq7ldaf255hcvi8xsfx8h7iha3hs8p9gdi3cfzbcmjm"))))
9219     (package
9220       (inherit template)
9221       (arguments
9222        (substitute-keyword-arguments (package-arguments template)
9223          ((#:tex-directory _ '())
9224           "latex/pagenote")
9225          ((#:build-targets _ '())
9226           ''("pagenote.ins"))
9227          ((#:phases phases)
9228           `(modify-phases ,phases
9229              (add-after 'unpack 'chdir
9230                (lambda _ (chdir "source/latex/pagenote")))))))
9231       (propagated-inputs
9232        `(("texlive-ifmtarg" ,texlive-ifmtarg)))
9233       (home-page "https://www.ctan.org/pkg/pagenote")
9234       (synopsis "Notes at end of document")
9235       (description "The pagenote package provides tagged notes on a separate
9236 page (also known as ‘end notes’).")
9237       (license license:lppl1.3c+))))
9238
9239 (define-public texlive-titling
9240   (let ((template (simple-texlive-package
9241                    "texlive-titling"
9242                    (list "/doc/latex/titling/"
9243                          "/source/latex/titling/")
9244                    (base32
9245                     "0pc3806kc9p2dizdghis0p0b00xs0gmlh2nmf94f5wasz5mkw6bk"))))
9246     (package
9247       (inherit template)
9248       (arguments
9249        (substitute-keyword-arguments (package-arguments template)
9250          ((#:tex-directory _ '())
9251           "latex/titling")
9252          ((#:build-targets _ '())
9253           ''("titling.ins"))
9254          ((#:tex-format _ "latex") "latex")
9255          ((#:phases phases)
9256           `(modify-phases ,phases
9257              (add-after 'unpack 'chdir
9258                (lambda _ (chdir "source/latex/titling")))))))
9259       (native-inputs
9260        `(("texlive-cm" ,texlive-cm)))
9261       (home-page "https://www.ctan.org/pkg/titling")
9262       (synopsis "Control typesetting of the \\maketitle command")
9263       (description "The @code{titling} package provides control over the
9264 typesetting of the @code{\\maketitle} command and @code{\\thanks} commands,
9265 and makes the \title, @code{\\author} and @code{\\date} information
9266 permanently available.  Multiple titles are allowed in a single document.  New
9267 titling elements can be added and a @code{titlepage} title can be centered on
9268 a physical page.")
9269       (license license:lppl))))
9270
9271 (define-public texlive-ifoddpage
9272   (let ((template (simple-texlive-package
9273                    "texlive-ifoddpage"
9274                    (list "/source/latex/ifoddpage/")
9275                    (base32
9276                     "14x0haj3xjsk9dn2djg117sl7x5nbwgbivhjj3ichnxlgrlf1bis"))))
9277     (package
9278       (inherit template)
9279       (arguments
9280        (substitute-keyword-arguments (package-arguments template)
9281          ((#:tex-directory _ '())
9282           "latex/ifoddpage")
9283          ((#:build-targets _ '())
9284           ''("ifoddpage.ins"))
9285          ((#:phases phases)
9286           `(modify-phases ,phases
9287              (add-after 'unpack 'chdir
9288                (lambda _ (chdir "source/latex/ifoddpage")))))))
9289       (native-inputs
9290        `(("texlive-ydoc" ,texlive-ydoc)))
9291       (home-page "https://www.ctan.org/pkg/ifoddpage")
9292       (synopsis "Determine if the current page is odd or even")
9293       (description "This package provides an @code{\\ifoddpage} conditional to
9294 determine if the current page is odd or even.  The macro @code{\\checkoddpage}
9295 must be used directly before to check the page number using a label.  Two
9296 compiler runs are therefore required to achieve correct results.  In addition,
9297 the conditional @code{\\ifoddpageoronside} is provided which is also true in
9298 @code{oneside} mode where all pages use the odd page layout.")
9299       (license license:lppl1.3))))
9300
9301 (define-public texlive-storebox
9302   (let ((template (simple-texlive-package
9303                    "texlive-storebox"
9304                    (list "/source/latex/storebox/")
9305                    (base32
9306                     "1ybpjfrria57fwvr9kriiw6y76ivwvsyb6ayp0bi750smsv8k5n1"))))
9307     (package
9308       (inherit template)
9309       (arguments
9310        (substitute-keyword-arguments (package-arguments template)
9311          ((#:tex-directory _ '())
9312           "latex/storebox")
9313          ((#:build-targets _ '())
9314           ''("storebox.ins"))
9315          ((#:phases phases)
9316           `(modify-phases ,phases
9317              (add-after 'unpack 'chdir
9318                (lambda _ (chdir "source/latex/storebox")))))))
9319       (native-inputs
9320        `(("texlive-ydoc" ,texlive-ydoc)))
9321       (home-page "https://www.ctan.org/pkg/storebox")
9322       (synopsis "Storing information for reuse")
9323       (description "The package provides \"store boxes\" whose user interface
9324 matches that of normal LaTeX \"save boxes\", except that the content of a
9325 store box appears at most once in the output PDF file, however often it is
9326 used.  The present version of the package supports pdfLaTeX and LuaLaTeX; when
9327 DVI is output, store boxes behave the same as save boxes.")
9328       (license license:lppl1.3))))
9329
9330 (define-public texlive-collectbox
9331   (let ((template (simple-texlive-package
9332                    "texlive-collectbox"
9333                    (list "/source/latex/collectbox/")
9334                    (base32
9335                     "1k0bbphvr20k9hgpr3dv869h9ygxx3g8vjapkc63nq8i13crpsvz"))))
9336     (package
9337       (inherit template)
9338       (arguments
9339        (substitute-keyword-arguments (package-arguments template)
9340          ((#:tex-directory _ '())
9341           "latex/collectbox")
9342          ((#:build-targets _ '())
9343           ''("collectbox.ins"))
9344          ((#:phases phases)
9345           `(modify-phases ,phases
9346              (add-after 'unpack 'chdir
9347                (lambda _ (chdir "source/latex/collectbox")))))))
9348       (native-inputs
9349        `(("texlive-ydoc" ,texlive-ydoc)))
9350       (home-page "https://www.ctan.org/pkg/collectbox")
9351       (synopsis "Collect and process macro arguments as boxes")
9352       (description "The package provides macros to collect and process a macro
9353 argument (i.e., something which looks like a macro argument) as a horizontal
9354 box rather than as a real macro argument.  The \"arguments\" are stored as if
9355 they had been saved by @code{\\savebox} or by the @code{lrbox} environment.
9356 Grouping tokens @code{\\bgroup} and @code{\\egroup} may be used, which allows
9357 the user to have the beginning and end of a group in different macro
9358 invocations, or to place them in the begin and end code of an environment.
9359 Arguments may contain verbatim material or other special use of characters.
9360 The macros were designed for use within other macros.")
9361       (license license:lppl1.3))))
9362
9363 (define-public texlive-grfext
9364   (let ((template (simple-texlive-package
9365                    "texlive-grfext"
9366                    (list "/doc/latex/grfext/README.md"
9367                          "/source/latex/grfext/grfext.dtx")
9368                    (base32
9369                     "1cdvjp9gcnixxlbl8ibwz1yr799gwax5hm686hwmwsigdgafhzgq"))))
9370     (package
9371       (inherit template)
9372       (arguments
9373        (substitute-keyword-arguments (package-arguments template)
9374          ((#:tex-directory _ '())
9375           "latex/grfext")
9376          ((#:build-targets _ '())
9377           ''("grfext.dtx"))
9378          ((#:phases phases)
9379           `(modify-phases ,phases
9380              (add-after 'unpack 'chdir
9381                (lambda _ (chdir "source/latex/grfext")))))))
9382       (home-page "https://github.com/ho-tex/grfext")
9383       (synopsis "Manipulate the graphics package's list of extensions")
9384       (description "This package provides macros for adding to, and reordering
9385 the list of graphics file extensions recognised by package graphics.")
9386       (license license:lppl1.3c+))))
9387
9388 (define-public texlive-adjustbox
9389   (let ((template (simple-texlive-package
9390                    "texlive-adjustbox"
9391                    (list "/doc/latex/adjustbox/"
9392                          "/source/latex/adjustbox/")
9393                    (base32
9394                     "074nxbnl184b6iwhis5n85pilq3b2pld3bbrq0wc30hw462m898k"))))
9395     (package
9396       (inherit template)
9397       (arguments
9398        (substitute-keyword-arguments (package-arguments template)
9399          ((#:tex-directory _ '())
9400           "latex/adjustbox")
9401          ((#:build-targets _ '())
9402           ''("adjustbox.ins"))
9403          ((#:phases phases)
9404           `(modify-phases ,phases
9405              (add-after 'unpack 'chdir
9406                (lambda _ (chdir "source/latex/adjustbox")))))))
9407       (native-inputs
9408        `(("texlive-ydoc" ,texlive-ydoc)))
9409       (propagated-inputs
9410        `(("texlive-latex-pgf" ,texlive-latex-pgf)
9411          ("texlive-latex-varwidth" ,texlive-latex-varwidth)
9412          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)
9413          ("texlive-collectbox" ,texlive-collectbox)
9414          ("texlive-ifoddpage" ,texlive-ifoddpage)
9415          ("texlive-storebox" ,texlive-storebox)))
9416       (home-page "https://www.ctan.org/pkg/adjustbox")
9417       (synopsis "Graphics package-alike macros for “general” boxes")
9418       (description "The package provides several macros to adjust boxed
9419 content.  One purpose is to supplement the standard @code{graphics} package,
9420 which defines the macros @code{\\resizebox}, @code{\\scalebox} and
9421 @code{\\rotatebox} , with the macros @code{\\trimbox} and @code{\\clipbox}.
9422 The main feature is the general @code{\\adjustbox} macro which extends the
9423 @code{key=value} interface of @code{\\includegraphics} from the
9424 @code{graphics} package and applies it to general text content.  Additional
9425 provided box macros are @code{\\lapbox}, @code{\\marginbox},
9426 @code{\\minsizebox}, @code{\\maxsizebox} and @code{\\phantombox}.")
9427       (license license:lppl1.3))))
9428
9429 (define-public texlive-tcolorbox
9430   (let ((template (simple-texlive-package
9431                    "texlive-tcolorbox"
9432                    (list "/doc/latex/tcolorbox/"
9433                          "/tex/latex/tcolorbox/")
9434                    (base32
9435                     "1qnsbblkadzdn1fx2k21xnlwcb35pg9xya24chkm66jmidi22qp0")
9436                    #:trivial? #true)))
9437     (package
9438       (inherit template)
9439       (propagated-inputs
9440        `(("texlive-etoolbox" ,texlive-etoolbox)
9441          ("texlive-latex-environ" ,texlive-latex-environ)
9442          ("texlive-latex-pgf" ,texlive-latex-pgf)
9443          ("texlive-latex-tools" ,texlive-latex-tools)))
9444       (home-page "https://www.ctan.org/pkg/tcolorbox")
9445       (synopsis "Colored boxes, for LaTeX examples and theorems, etc")
9446       (description "This package provides an environment for colored and
9447 framed text boxes with a heading line.  Optionally, such a box may be split in
9448 an upper and a lower part; thus the package may be used for the setting of
9449 LaTeX examples where one part of the box displays the source code and the
9450 other part shows the output.  Another common use case is the setting of
9451 theorems.  The package supports saving and reuse of source code and text
9452 parts.")
9453       (license license:lppl1.3c+))))
9454
9455 (define-public texlive-latex-ebproof
9456   (package
9457     (name "texlive-latex-ebproof")
9458     (version "2.1.1")
9459     (source
9460      (origin
9461        (method git-fetch)
9462        (uri (git-reference
9463              (url "https://framagit.org/manu/ebproof")
9464              (commit version)))
9465        (file-name (git-file-name name version))
9466        (sha256
9467         (base32
9468          "1zkrfaf343js0yc1x7m3d8hzbh5izn0lb01jrmdpjm51kdbh30xq"))))
9469     (build-system texlive-build-system)
9470     (arguments '(#:tex-directory "latex/ebproof"))
9471     (propagated-inputs
9472      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
9473     (home-page "http://www.ctan.org/pkg/ebproof")
9474     (synopsis
9475      "Formal proofs in the style of sequent calculus")
9476     (description
9477      "This package provides commands to typeset proof trees in the style of
9478 sequent calculus and related systems.  The commands allow for writing
9479 inferences with any number of premises and alignment of successive formulas on
9480 an arbitrary point.  Various options allow complete control over spacing,
9481 styles of inference rules, placement of labels, etc.")
9482     (license license:lppl1.3+)))
9483
9484 (define-public texlive-eurosym
9485   (let ((template (simple-texlive-package
9486                    "texlive-eurosym"
9487                    (list "/doc/fonts/eurosym/"
9488                          "/fonts/map/dvips/eurosym/"
9489                          "/fonts/source/public/eurosym/"
9490                          "/fonts/tfm/public/eurosym/"
9491                          "/fonts/type1/public/eurosym/"
9492                          "/tex/latex/eurosym/eurosym.sty")
9493                    (base32
9494                     "0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")
9495                    #:trivial? #true)))
9496     (package
9497       (inherit template)
9498       (home-page "https://www.ctan.org/pkg/eurosym")
9499       (synopsis "METAFONT and macros for Euro sign")
9500       (description "This package provides the European currency symbol for the
9501 Euro implemented in METAFONT, using the official European Commission
9502 dimensions, and providing several shapes (normal, slanted, bold, outline).
9503 The package also includes a LaTeX package which defines the macro,
9504 pre-compiled font files, and documentation.")
9505       (license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING")))))
9506
9507 (define-public texlive-kastrup
9508   (package
9509     (name "texlive-kastrup")
9510     (version (number->string %texlive-revision))
9511     (source
9512      (origin
9513        (method svn-fetch)
9514        (uri (texlive-ref "generic" "kastrup"))
9515        (file-name (string-append name "-" version "-checkout"))
9516        (sha256
9517         (base32
9518          "1kkshc48brkq2nx3rlbv78a2130izykbf33ri1q2shqr8pjfmmq8"))))
9519     (build-system texlive-build-system)
9520     (arguments
9521      '(#:tex-directory "generic/kastrup"
9522        #:phases
9523        (modify-phases %standard-phases
9524          (add-after 'unpack 'remove-generated-file
9525            (lambda _
9526              (delete-file "binhex.drv")
9527              #t)))))
9528     (home-page "http://www.ctan.org/pkg/binhex")
9529     (synopsis "Convert numbers into binary, octal and hexadecimal")
9530     (description "The @code{kastrup} package provides the
9531 @emph{binhex.tex} file.  This file provides expandable macros for both
9532 fixed-width and minimum-width numbers to bases 2, 4, 8 and 16.  All
9533 constructs TeX accepts as arguments to its @code{\\number} primitive
9534 are valid as arguments for the macros.  The package may be used under
9535 LaTeX and plain TeX.")
9536     (license (license:fsf-free "file:/binhex.dtx"))))
9537
9538 (define-public bibtool
9539   (package
9540     (name "bibtool")
9541     (version "2.68")
9542     (source
9543      (origin
9544        (method git-fetch)
9545        (uri
9546         (git-reference
9547          (url "https://github.com/ge-ne/bibtool")
9548          (commit (string-append
9549                   "BibTool_"
9550                   (string-map (lambda (c) (if (char=? c #\.) #\_ c))
9551                               version)))))
9552        (file-name (git-file-name name version))
9553        (sha256
9554         (base32 "0grnmqj8w5018nd7r6drnq2yvfhf22gj9i3rj8ilhzm7zmz3zn0g"))))
9555     (build-system gnu-build-system)
9556     (arguments
9557      `(#:test-target "test"))
9558     (native-inputs
9559      `(("perl" ,perl)))
9560     (home-page "http://www.gerd-neugebauer.de/software/TeX/BibTool/en")
9561     (synopsis "Tool for manipulating BibTeX databases")
9562     (description
9563      "BibTool manipulates BibTeX files.  The possibilities of BibTool include
9564 sorting and merging of BibTeX databases, generation of uniform reference keys,
9565 and selecting references used in a publication.")
9566     (license license:gpl2+)))