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 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 (define-module (gnu packages tex)
  36   #:use-module ((guix licenses) #:prefix license:)
  37   #:use-module (guix packages)
  38   #:use-module (guix download)
  39   #:use-module (guix build-system copy)
  40   #:use-module (guix build-system gnu)
  41   #:use-module (guix build-system perl)
  42   #:use-module (guix build-system python)
  43   #:use-module (guix build-system qt)
  44   #:use-module (guix build-system trivial)
  45   #:use-module (guix build-system texlive)
  46   #:use-module (guix utils)
  47   #:use-module (guix git-download)
  48   #:use-module (guix svn-download)
  49   #:use-module (gnu packages)
  50   #:use-module (gnu packages algebra)
  51   #:use-module (gnu packages autotools)
  52   #:use-module (gnu packages bash)
  53   #:use-module (gnu packages boost)
  54   #:use-module (gnu packages compression)
  55   #:use-module (gnu packages fontutils)
  56   #:use-module (gnu packages gd)
  57   #:use-module (gnu packages ghostscript)
  58   #:use-module (gnu packages graphviz)
  59   #:use-module (gnu packages gtk)
  60   #:use-module (gnu packages icu4c)
  61   #:use-module (gnu packages image)
  62   #:use-module (gnu packages libreoffice)
  63   #:use-module (gnu packages lua)
  64   #:use-module (gnu packages multiprecision)
  65   #:use-module (gnu packages pdf)
  66   #:use-module (gnu packages perl)
  67   #:use-module (gnu packages perl-check)
  68   #:use-module (gnu packages pkg-config)
  69   #:use-module (gnu packages python)
  70   #:use-module (gnu packages python-xyz)
  71   #:use-module (gnu packages qt)
  72   #:use-module (gnu packages ruby)
  73   #:use-module (gnu packages shells)
  74   #:use-module (gnu packages base)
  75   #:use-module (gnu packages gawk)
  76   #:use-module (gnu packages web)
  77   #:use-module (gnu packages xml)
  78   #:use-module (gnu packages xorg)
  79   #:use-module (gnu packages xdisorg)
  80   #:use-module (gnu packages texinfo)
  81   #:use-module (ice-9 ftw)
  82   #:use-module (ice-9 match)
  83   #:use-module ((srfi srfi-1) #:hide (zip)))
  84
  85 (define* (simple-texlive-package name locations hash
  86                                  #:key trivial?)
  87   "Return a template for a simple TeX Live package with the given NAME,
  88 downloading from a list of LOCATIONS in the TeX Live repository, and expecting
  89 the provided output HASH.  If TRIVIAL? is provided, all files will simply be
  90 copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
  91   (define with-documentation?
  92     (and trivial?
  93          (any (lambda (location)
  94                 (string-prefix? "/doc" location))
  95               locations)))
  96   (package
  97     (name name)
  98     (version (number->string %texlive-revision))
  99     (source (texlive-origin name version
 100                             locations hash))
 101     (outputs (if with-documentation?
 102                  '("out" "doc")
 103                  '("out")))
 104     (build-system (if trivial?
 105                       gnu-build-system
 106                       texlive-build-system))
 107     (arguments
 108      (let ((copy-files
 109             `(lambda* (#:key outputs inputs #:allow-other-keys)
 110                (let (,@(if with-documentation?
 111                            `((doc (string-append (assoc-ref outputs "doc")
 112                                                  "/share/texmf-dist/")))
 113                            '())
 114                      (out (string-append (assoc-ref outputs "out")
 115                                          "/share/texmf-dist/")))
 116                  ,@(if with-documentation?
 117                        '((mkdir-p doc)
 118                          (copy-recursively
 119                           (string-append (assoc-ref inputs "source") "/doc")
 120                           (string-append doc "/doc")))
 121                        '())
 122                  (mkdir-p out)
 123                  (copy-recursively "." out)
 124                  ,@(if with-documentation?
 125                        '((delete-file-recursively (string-append out "/doc")))
 126                        '())
 127                  #t))))
 128        (if trivial?
 129            `(#:tests? #f
 130              #:phases
 131              (modify-phases %standard-phases
 132                (delete 'configure)
 133                (replace 'build (const #t))
 134                (replace 'install ,copy-files)))
 135            `(#:phases
 136              (modify-phases %standard-phases
 137                (add-after 'install 'copy-files ,copy-files))))))
 138     (home-page #f)
 139     (synopsis #f)
 140     (description #f)
 141     (license #f)))
 142
 143 (define hyph-utf8-scripts
 144   (origin
 145     (method svn-fetch)
 146     (uri (texlive-ref "generic" "hyph-utf8"))
 147     (file-name (string-append "hyph-utf8-scripts-"
 148                               (number->string %texlive-revision)
 149                               "-checkout"))
 150     (sha256
 151      (base32
 152       "1gdyc8nmvp5jqlc429rmfzfl0cqqsdayc70y1hxwz025pv9jn960"))))
 153
 154 (define (texlive-hyphen-package name code locations hash)
 155   "Return a TeX Live hyphenation package with the given NAME, using source
 156 files from LOCATIONS with expected checksum HASH.  CODE is not currently in use."
 157   (let ((parent (simple-texlive-package
 158                  name locations hash #:trivial? #t)))
 159     (package
 160       (inherit parent)
 161       (arguments
 162        (substitute-keyword-arguments (package-arguments parent)
 163          ((#:phases phases)
 164           `(modify-phases ,phases
 165              (replace 'build
 166                (lambda* (#:key inputs outputs #:allow-other-keys)
 167                  (let* ((out (assoc-ref outputs "out"))
 168                         (root (string-append out "/share/texmf-dist"))
 169                         (patterns
 170                          (string-append root "/tex/generic/hyph-utf8/patterns/txt/"))
 171                         (loaders
 172                          (string-append root "/tex/generic/hyph-utf8/loadhyph"))
 173                         (ptex
 174                          (string-append root "/tex/generic/hyph-utf8/patterns/ptex"))
 175                         (quote
 176                          (string-append root "/tex/generic/hyph-utf8/patterns/quote")))
 177                    (mkdir "scripts")
 178                    (copy-recursively
 179                     (assoc-ref inputs "hyph-utf8-scripts") "scripts")
 180
 181                    ;; Prepare target directories
 182                    (mkdir-p patterns)
 183                    (mkdir-p loaders)
 184                    (mkdir-p ptex)
 185                    (mkdir-p quote)
 186
 187                    ;; Generate plain patterns
 188                    (with-directory-excursion "scripts"
 189                      (substitute* "lib/tex/hyphen/path.rb"
 190                        (("^([[:blank:]]+)TeXROOT = .*" _ indent)
 191                         (string-append indent "TeXROOT = \""
 192                                        (getcwd) "/..\"\n")))
 193
 194                      (substitute* "generate-plain-patterns.rb"
 195                        ;; Ruby 2 does not need this.
 196                        (("require 'unicode'") "")
 197                        ;; Write directly to the output directory
 198                        (("File\\.join\\(PATH::TXT")
 199                         (string-append "File.join(\"" patterns "\""))
 200                        (("File\\.join\\(PATH::QUOTE")
 201                         (string-append "File.join(\"" quote "\"")))
 202                      (invoke "ruby" "generate-plain-patterns.rb")
 203
 204                      ;; Build pattern loaders
 205                      (substitute* "generate-pattern-loaders.rb"
 206                        (("File\\.join\\(PATH::LOADER")
 207                         (string-append "File.join(\"" loaders "\"")))
 208
 209                      (invoke "ruby" "generate-pattern-loaders.rb")
 210
 211                      ;; Build ptex patterns
 212                      (substitute* "generate-ptex-patterns.rb"
 213                        (("File\\.join\\(PATH::PTEX")
 214                         (string-append "File.join(\"" ptex "\"")))
 215                      (invoke "ruby" "generate-ptex-patterns.rb")))))))))
 216       (native-inputs
 217        `(("ruby" ,ruby)
 218          ("ruby-hydra" ,ruby-hydra)
 219          ("hyph-utf8-scripts" ,hyph-utf8-scripts)))
 220       (home-page "https://ctan.org/pkg/hyph-utf8"))))
 221
 222 (define texlive-extra-src
 223   (origin
 224     (method url-fetch)
 225     (uri "ftp://tug.org/historic/systems/texlive/2020/texlive-20200406-extra.tar.xz")
 226     (sha256 (base32
 227              "0kx6r2ncnqpmhs0jhjk4ypq99czcvql9l9n0npcgqzrv4qmzsg94"))))
 228
 229 (define texlive-texmf-src
 230   (origin
 231     (method url-fetch)
 232     (uri "ftp://tug.org/historic/systems/texlive/2020/texlive-20200406-texmf.tar.xz")
 233     (sha256 (base32
 234              "15ashyxm3j78wjik1pp7vwi1wg07xjgh9zv0vkhqim6g7rc7xa8a"))))
 235
 236 (define-public texlive-bin
 237   (package
 238     (name "texlive-bin")
 239     (version "20200406")
 240     (source
 241      (origin
 242        (method url-fetch)
 243        (uri (string-append "ftp://tug.org/historic/systems/texlive/2020/"
 244                            "texlive-" version "-source.tar.xz"))
 245        (sha256
 246         (base32
 247          "0y4h4j2qg714srhvf1hvn165w7sanr1j2vzrsgc23kxvrc43sbz3"))
 248        (modules '((guix build utils)
 249                   (ice-9 ftw)))
 250        (snippet
 251         '(begin
 252            (with-directory-excursion "libs"
 253              (let ((preserved-directories '("." ".." "lua53" "luajit")))
 254                ;; Delete bundled software, except Lua which cannot easily be
 255                ;; used as an external dependency.
 256                (for-each delete-file-recursively
 257                          (scandir "."
 258                                   (lambda (file)
 259                                     (and (not (member file preserved-directories))
 260                                          (eq? 'directory (stat:type (stat file)))))))))
 261            ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
 262            #t))))
 263     (build-system gnu-build-system)
 264     (inputs
 265      `(("texlive-extra-src" ,texlive-extra-src)
 266        ("config" ,config)
 267        ("texlive-scripts"
 268         ,(origin
 269            (method svn-fetch)
 270            (uri (svn-reference
 271                  (url (string-append "svn://www.tug.org/texlive/tags/"
 272                                      %texlive-tag "/Master/texmf-dist/"
 273                                      "/scripts/texlive"))
 274                  (revision %texlive-revision)))
 275            (file-name (string-append "texlive-scripts-"
 276                                      (number->string %texlive-revision)
 277                                      "-checkout"))
 278            (sha256
 279             (base32
 280              "0p3ff839q4kv3zj4xxc76fqcjcjinv8xf7ix0zgwl7yhy5p3sm80"))))
 281        ("cairo" ,cairo)
 282        ("fontconfig" ,fontconfig)
 283        ("fontforge" ,fontforge)
 284        ("freetype" ,freetype)
 285        ("gd" ,gd)
 286        ("gmp" ,gmp)
 287        ("ghostscript" ,ghostscript)
 288        ("graphite2" ,graphite2)
 289        ("harfbuzz" ,harfbuzz)
 290        ("icu4c" ,icu4c)
 291        ("libpaper" ,libpaper)
 292        ("libpng" ,libpng)
 293        ("libxaw" ,libxaw)
 294        ("libxt" ,libxt)
 295        ("mpfr" ,mpfr)
 296        ("perl" ,perl)
 297        ("pixman" ,pixman)
 298        ("poppler" ,poppler)
 299        ("potrace" ,potrace)
 300        ("python" ,python)
 301        ("ruby" ,ruby)
 302        ("tcsh" ,tcsh)
 303        ("teckit" ,teckit)
 304        ("zlib" ,zlib)
 305        ("zziplib" ,zziplib)))
 306     (native-inputs
 307      `(("pkg-config" ,pkg-config)))
 308     (arguments
 309      `(#:modules ((guix build gnu-build-system)
 310                   (guix build utils)
 311                   (ice-9 ftw)
 312                   (srfi srfi-1)
 313                   (srfi srfi-26))
 314        #:out-of-source? #t
 315        #:configure-flags
 316        '("--disable-static"
 317          "--disable-native-texlive-build"
 318          "--enable-shared"
 319          "--with-system-cairo"
 320          "--with-system-freetype2"
 321          "--with-system-gd"
 322          "--with-system-gmp"
 323          "--with-system-graphite2"
 324          "--with-system-harfbuzz"
 325          "--with-system-icu"
 326          "--with-system-libgs"
 327          "--with-system-libpaper"
 328          "--with-system-libpng"
 329          "--with-system-mpfr"
 330          "--with-system-pixman"
 331          "--with-system-poppler"
 332          "--with-system-potrace"
 333          "--with-system-teckit"
 334          "--with-system-xpdf"
 335          "--with-system-zlib"
 336          "--with-system-zziplib"
 337          ;; LuaJIT is not ported to powerpc64le* yet.
 338          ,@(if (string-prefix? "powerpc64le" (or (%current-target-system)
 339                                                  (%current-system)))
 340                '("--disable-luajittex"
 341                  "--disable-mfluajit")
 342                '()))
 343
 344       ;; Disable tests on some architectures to cope with a failure of
 345       ;; luajiterr.test.
 346       ;; XXX FIXME fix luajit properly on these architectures.
 347       #:tests? ,(let ((s (or (%current-target-system)
 348                              (%current-system))))
 349                   (not (or (string-prefix? "aarch64" s)
 350                            (string-prefix? "mips64" s)
 351                            (string-prefix? "powerpc64le" s))))
 352
 353        #:phases
 354        (modify-phases %standard-phases
 355          (add-after 'unpack 'configure-ghostscript-executable
 356            ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows,
 357            ;; and the "gs" ghostscript executable on Unix. It detects Unix by
 358            ;; checking for the existence of the /usr/bin directory. Since
 359            ;; Guix System does not have /usr/bin, it is also detected as Windows.
 360            (lambda* (#:key inputs #:allow-other-keys)
 361              (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl"
 362                (("gswin32c") "gs"))
 363              (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
 364                (("\"gs\"")
 365                 (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))
 366              #t))
 367          (add-after 'unpack 'use-code-for-new-poppler
 368            (lambda _
 369              (copy-file "texk/web2c/pdftexdir/pdftoepdf-poppler0.86.0.cc"
 370                         "texk/web2c/pdftexdir/pdftoepdf.cc")
 371              (copy-file "texk/web2c/pdftexdir/pdftosrc-poppler0.83.0.cc"
 372                         "texk/web2c/pdftexdir/pdftosrc.cc")
 373              #t))
 374          (add-after 'unpack 'patch-dvisvgm-build-files
 375            (lambda _
 376              ;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so
 377              ;; the appropriate linker flags are not added.
 378              (substitute* "texk/dvisvgm/configure"
 379                (("^have_libgs=yes" all)
 380                 (string-append all "\nHAVE_LIBGS=1")))
 381              #t))
 382          (add-after 'unpack 'disable-failing-test
 383            (lambda _
 384              ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
 385              ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
 386              (substitute* "texk/web2c/omegafonts/check.test"
 387                (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
 388                 "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))
 389              #t))
 390          (add-after 'unpack 'unpack-texlive-extra
 391            (lambda* (#:key inputs #:allow-other-keys)
 392              (mkdir "texlive-extra")
 393              (with-directory-excursion "texlive-extra"
 394                (apply (assoc-ref %standard-phases 'unpack)
 395                       (list #:source (assoc-ref inputs "texlive-extra-src"))))))
 396          (add-after 'unpack-texlive-extra 'unpack-texlive-scripts
 397            (lambda* (#:key inputs #:allow-other-keys)
 398              (mkdir "texlive-scripts")
 399              (with-directory-excursion "texlive-scripts"
 400                (apply (assoc-ref %standard-phases 'unpack)
 401                       (list #:source (assoc-ref inputs "texlive-scripts"))))))
 402          (add-after 'unpack-texlive-scripts 'patch-scripts
 403            (lambda _
 404              (let* ((scripts (append (find-files "texk/kpathsea" "^mktex")
 405                                      (find-files "texk/texlive/linked_scripts"
 406                                                  "\\.sh$")
 407                                      (find-files "texlive-scripts" "\\.sh$")))
 408                     (commands '("awk" "basename" "cat" "grep" "mkdir" "rm"
 409                                 "sed" "sort" "uname"))
 410                     (command-regexp (format #f "\\b(~a)\\b"
 411                                             (string-join commands "|")))
 412                     (iso-8859-1-encoded-scripts
 413                      '("texk/texlive/linked_scripts/texlive-extra/rubibtex.sh"
 414                        "texk/texlive/linked_scripts/texlive-extra/rumakeindex.sh")))
 415
 416                (define (substitute-commands scripts)
 417                  (substitute* scripts
 418                    ((command-regexp dummy command)
 419                     (which command))))
 420
 421                (substitute-commands (lset-difference string= scripts
 422                                                      iso-8859-1-encoded-scripts))
 423
 424                (with-fluids ((%default-port-encoding "ISO-8859-1"))
 425                  (substitute-commands iso-8859-1-encoded-scripts))
 426
 427                #t)))
 428          (add-after 'check 'customize-texmf.cnf
 429            ;; The default texmf.cnf is provided by this package, texlive-bin.
 430            ;; Every variable of interest is set relatively to the GUIX_TEXMF
 431            ;; environment variable defined via a search path specification
 432            ;; further below.  The configuration file is patched after the test
 433            ;; suite has run, as it relies on the default configuration to find
 434            ;; its paths (and the GUIX_TEXMF variable isn't set yet).
 435            (lambda _
 436              ;; The current directory is build/ because of the out-of-tree
 437              ;; build.
 438              (let* ((source    (first (scandir ".." (cut string-suffix?
 439                                                          "source" <>))))
 440                     (texmf.cnf (string-append "../" source
 441                                               "/texk/kpathsea/texmf.cnf")))
 442                (substitute* texmf.cnf
 443                  (("^TEXMFROOT = .*")
 444                   "TEXMFROOT = {$GUIX_TEXMF}/..\n")
 445                  (("^TEXMF = .*")
 446                   "TEXMF = {$GUIX_TEXMF}\n")
 447                  (("^%TEXMFCNF = .*")
 448                   "TEXMFCNF = {$GUIX_TEXMF}/web2c\n")
 449                  ;; Don't truncate lines.
 450                  (("^error_line = .*$") "error_line = 254\n")
 451                  (("^half_error_line = .*$") "half_error_line = 238\n")
 452                  (("^max_print_line = .*$") "max_print_line = 1000\n")))
 453              #t))
 454          (add-after 'install 'post-install
 455            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
 456              (let* ((out (assoc-ref outputs "out"))
 457                     (patch-source-shebangs (assoc-ref %standard-phases
 458                                                       'patch-source-shebangs))
 459                     (share (string-append out "/share"))
 460                     (scripts (string-append share
 461                                             "/texmf-dist/scripts/texlive"))
 462                     (source (string-append
 463                              "../" (first (scandir ".." (cut string-suffix?
 464                                                              "source" <>)))))
 465                     (tl-extra-root (string-append source "/texlive-extra"))
 466                     (tl-extra-dir (first
 467                                    (scandir tl-extra-root
 468                                             (negate
 469                                              (cut member <> '("." ".."))))))
 470                     (tlpkg-src (string-append tl-extra-root "/" tl-extra-dir
 471                                               "/tlpkg"))
 472                     (config.guess (string-append (assoc-ref inputs "config")
 473                                                  "/bin/config.guess")))
 474
 475                ;; Create symbolic links for the latex variants and their
 476                ;; man pages.
 477                (with-directory-excursion (string-append out "/bin/")
 478                  (for-each symlink
 479                            '("pdftex" "pdftex"   "xetex"   "luatex")
 480                            '("latex"  "pdflatex" "xelatex" "lualatex")))
 481                (with-directory-excursion (string-append share "/man/man1/")
 482                  (symlink "luatex.1" "lualatex.1"))
 483
 484                ;; Install tlpkg.
 485                (copy-recursively tlpkg-src (string-append share "/tlpkg"))
 486
 487                ;; Install texlive-scripts.
 488                (copy-recursively (string-append
 489                                   source "/texlive-scripts/source/")
 490                                  scripts)
 491
 492                ;; Make sure that fmtutil can find its Perl modules.
 493                (substitute* (string-append scripts "/fmtutil.pl")
 494                  (("\\$TEXMFROOT/")
 495                   (string-append share "/")))
 496
 497                ;; Likewise for updmap.pl.
 498                (substitute* (string-append scripts "/updmap.pl")
 499                  (("\\$TEXMFROOT/tlpkg")
 500                   (string-append share "/tlpkg")))
 501
 502                ;; Likewise for the tlmgr.
 503                (substitute* (string-append scripts "/tlmgr.pl")
 504                  ((".*\\$::installerdir = \\$Master.*" all)
 505                   (format #f "  $Master = ~s;~%~a" share all)))
 506
 507                ;; Install the config.guess script, required by tlmgr.
 508                (with-directory-excursion share
 509                  (mkdir-p "tlpkg/installer/")
 510                  (symlink config.guess "tlpkg/installer/config.guess"))
 511
 512                ;; texlua shebangs are not patched by the patch-source-shebangs
 513                ;; phase because the texlua executable does not exist at that
 514                ;; time.
 515                (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
 516                (with-directory-excursion out
 517                  (patch-source-shebangs))))))))
 518     (native-search-paths
 519      (list (search-path-specification
 520             (variable "GUIX_TEXMF")
 521             (files '("share/texmf-dist")))))
 522     (synopsis "TeX Live, a package of the TeX typesetting system")
 523     (description
 524      "TeX Live provides a comprehensive TeX document production system.
 525 It includes all the major TeX-related programs, macro packages, and fonts
 526 that are free software, including support for many languages around the
 527 world.
 528
 529 This package contains the binaries.")
 530     (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
 531     (home-page "https://www.tug.org/texlive/")))
 532
 533 \f
 534 (define texlive-docstrip
 535   (package
 536     (inherit (simple-texlive-package
 537               "texlive-docstrip"
 538               (list "/tex/latex/base/docstrip.tex")
 539               (base32
 540                "1vyn0vskxqmq58fbq4r4pknbzpxpyw30nmlmsncnialrmrwqm7k5")
 541               #:trivial? #t))
 542     (home-page "https://www.ctan.org/texlive")
 543     (synopsis "Utility to strip documentation from TeX files.")
 544     (description "This package provides the docstrip utility to strip
 545 documentation from TeX files.  It is part of the LaTeX base.")
 546     (license license:lppl1.3+)))
 547
 548 (define-public texlive-unicode-data
 549   (package
 550     (inherit (simple-texlive-package
 551               "texlive-unicode-data"
 552               (list "/tex/generic/unicode-data/"
 553                     "/doc/generic/unicode-data/")
 554               (base32
 555                "1mxb55ml92zd00w0zbr0dkscnxdgpxamfabl0izhk3cpz81n9g92")
 556               #:trivial? #t))
 557     (home-page "https://www.ctan.org/pkg/unicode-data")
 558     (synopsis "Unicode data and loaders for TeX")
 559     (description "This bundle provides generic access to Unicode Consortium
 560 data for TeX use.  It contains a set of text files provided by the Unicode
 561 Consortium which are currently all from Unicode 8.0.0, with the exception of
 562 @code{MathClass.txt} which is not currently part of the Unicode Character
 563 Database.  Accompanying these source data are generic TeX loader files
 564 allowing this data to be used as part of TeX runs, in particular in building
 565 format files.  Currently there are two loader files: one for general character
 566 set up and one for initializing XeTeX character classes as has been carried
 567 out to date by @code{unicode-letters.tex}. ")
 568     (license license:lppl1.3c+)))
 569
 570 (define-public texlive-generic-unicode-data
 571   (deprecated-package "texlive-generic-unicode-data" texlive-unicode-data))
 572
 573 (define-public texlive-hyphen-base
 574   (package
 575     (inherit (simple-texlive-package
 576               "texlive-hyphen-base"
 577               (list "/tex/generic/config/language.dat"
 578                     "/tex/generic/config/language.dat.lua"
 579                     "/tex/generic/config/language.def"
 580                     "/tex/generic/config/language.us"
 581                     "/tex/generic/config/language.us.def"
 582                     "/tex/generic/config/language.us.lua"
 583                     "/tex/generic/hyphen/dumyhyph.tex"
 584                     "/tex/generic/hyphen/hyphen.tex"
 585                     "/tex/generic/hyphen/hypht1.tex"
 586                     "/tex/generic/hyphen/zerohyph.tex")
 587               (base32
 588                "1vakayd82a4ga0b80mxypbibw2vrf2a8p4v6bim7s97zh8b9mzk3")
 589               #:trivial? #t))
 590     (home-page "https://tug.org/texlive/")
 591     (synopsis "Core hyphenation support files")
 592     (description "This package includes Knuth's original @file{hyphen.tex},
 593 @file{zerohyph.tex} to disable hyphenation, @file{language.us} which starts
 594 the autogenerated files @file{language.dat} and @file{language.def} (and
 595 default versions of those), etc.")
 596     (license license:knuth)))
 597
 598 (define-public texlive-dvips
 599   (package
 600     (inherit (simple-texlive-package
 601               "texlive-dvips"
 602               (list "/doc/man/man1/afm2tfm.1"
 603                     "/doc/man/man1/dvips.1"
 604                     "/dvips/base/"
 605                     "/dvips/config/"
 606                     "/fonts/enc/dvips/base/"
 607                     "/tex/generic/dvips/")
 608               (base32
 609                "0rns1hpjy4fmsskmkwx197j8qbgdmyj0j9214sq9vhpa6nv7czm3")
 610               #:trivial? #t))
 611     (home-page "https://www.ctan.org/pkg/dvips")
 612     (synopsis "DVI to PostScript drivers")
 613     (description "This package provides files needed for converting DVI files
 614 to PostScript.")
 615     (license license:lppl)))
 616
 617 (define-public texlive-tex-ini-files
 618   (package
 619     (inherit (simple-texlive-package
 620               "texlive-tex-ini-files"
 621               (list "/tex/generic/tex-ini-files/")
 622               (base32
 623                "0q1g62jg0qiqslm93ycvm30bw8ydmssjdshzsnzl7n2vpd62qfi2")
 624               #:trivial? #t))
 625     (home-page "https://www.ctan.org/pkg/tex-ini-files")
 626     (synopsis "Files for creating TeX formats")
 627     (description "This bundle provides a collection of model \".ini\" files
 628 for creating TeX formats.  These files are commonly used to introduced
 629 distribution-dependent variations in formats.  They are also used to
 630 allow existing format source files to be used with newer engines, for example
 631 to adapt the plain e-TeX source file to work with XeTeX and LuaTeX.")
 632     (license license:public-domain)))
 633
 634 (define-public texlive-generic-tex-ini-files
 635   (deprecated-package "texlive-generic-tex-ini-files" texlive-tex-ini-files))
 636
 637 (define-public texlive-metafont
 638   (package
 639     (name "texlive-metafont")
 640     (version (number->string %texlive-revision))
 641     (source (origin
 642               (method svn-multi-fetch)
 643               (uri (svn-multi-reference
 644                     (url (string-append "svn://www.tug.org/texlive/tags/"
 645                                         %texlive-tag "/Master/texmf-dist"))
 646                     (locations '("/metafont/"
 647                                  "/fonts/source/public/modes/"))
 648                     (revision %texlive-revision)))
 649               (file-name (string-append name "-" version "-checkout"))
 650               (sha256
 651                (base32
 652                 "1r1v3zm600nrl3iskx130fjwj1qib82n02dlca446zb53x0hg6gr"))))
 653     (build-system gnu-build-system)
 654     (arguments
 655      `(#:tests? #f ; no test target
 656        #:phases
 657        (modify-phases %standard-phases
 658          (delete 'configure)
 659          (replace 'build
 660            (lambda* (#:key inputs #:allow-other-keys)
 661              (let* ((cwd (getcwd))
 662                     (mf (string-append cwd "/metafont"))
 663                     (modes (string-append cwd "/fonts/source/public/modes")))
 664                (setenv "MFINPUTS"
 665                        (string-append modes ":"
 666                                       mf "/base:"
 667                                       mf "/misc:"
 668                                       mf "/roex:"
 669                                       mf "/feynmf:"
 670                                       mf "/mfpic:"
 671                                       mf "/config")))
 672              (mkdir "build")
 673              (with-directory-excursion "build"
 674                (invoke "inimf" "mf.mf"))))
 675          (replace 'install
 676            (lambda* (#:key outputs #:allow-other-keys)
 677              (let* ((out  (assoc-ref outputs "out"))
 678                     (base (string-append out "/share/texmf-dist/web2c"))
 679                     (mf   (string-append out "/share/texmf-dist/metafont/")))
 680                (mkdir-p base)
 681                (mkdir-p mf)
 682                (install-file "build/mf.base" base)
 683                (with-directory-excursion "metafont"
 684                  (for-each (lambda (where)
 685                              (copy-recursively where (string-append mf where)))
 686                            (list "base" "misc" "config")))))))))
 687     (native-inputs
 688      `(("texlive-bin" ,texlive-bin)))
 689     (home-page "https://www.ctan.org/pkg/metafont")
 690     (synopsis "Metafont base files")
 691     (description "This package provides the Metafont base files needed to
 692 build fonts using the Metafont system.")
 693     (license license:knuth)))
 694
 695 (define-public texlive-metafont-base
 696   (deprecated-package "texlive-metafont-base" texlive-metafont))
 697
 698 (define-public texlive-fontinst
 699   (let ((template (simple-texlive-package
 700                    "texlive-fontinst"
 701                    (list "/doc/fonts/fontinst/"
 702                          "/doc/man/man1/fontinst.1"
 703                          "/doc/man/man1/fontinst.man1.pdf"
 704
 705                          ;; This is used to build parts of
 706                          ;; /tex/fontinst/{base,misc}/ and
 707                          ;; /tex/latex/fontinst/fontdoc.sty.
 708                          "/source/fontinst/base/"
 709
 710                          ;; These are not generated.
 711                          "/tex/fontinst/base/bbox.sty"
 712                          "/tex/fontinst/base/multislot.sty"
 713                          "/tex/fontinst/misc/glyphbox.mtx"
 714                          "/tex/fontinst/misc/glyphoff.mtx"
 715                          "/tex/fontinst/misc/glyphon.mtx"
 716                          "/tex/fontinst/misc/kernoff.mtx"
 717                          "/tex/fontinst/misc/kernon.mtx"
 718
 719                          "/tex/fontinst/latinetx/"
 720                          "/tex/fontinst/latinmtx/"
 721                          "/tex/fontinst/mathmtx/"
 722                          "/tex/fontinst/smblmtx/")
 723                    (base32
 724                     "195jsijrpv828pqy99gm13j31nsc8bsa58zlbln2r0h5j9l44b5g")
 725                    #:trivial? #t)))
 726     (package
 727       (inherit template)
 728       (arguments
 729        (substitute-keyword-arguments (package-arguments template)
 730          ((#:modules _ '())
 731           '((guix build gnu-build-system)
 732             (guix build utils)
 733             (ice-9 match)))
 734          ((#:phases phases)
 735           `(modify-phases ,phases
 736              (replace 'build
 737                (lambda* (#:key inputs #:allow-other-keys)
 738                  (setenv "TEXINPUTS"
 739                          (string-append (getcwd) "//:"
 740                                         (getcwd) "/source/fontinst/base//:"
 741                                         (assoc-ref inputs "texlive-docstrip") "//"))
 742                  (mkdir "build")
 743                  (invoke "tex" "-ini" "-interaction=scrollmode"
 744                          "-output-directory=build"
 745                          "fontinst.ins")))
 746              ;; Since we're using docstrip without LaTeX we can't set \UseTDS
 747              ;; or \BaseDirectory, so the generated files are just dumped in
 748              ;; the "build" directory.
 749              (add-after 'install 'install-generated-files
 750                (lambda* (#:key outputs #:allow-other-keys)
 751                  (let* ((out (assoc-ref outputs "out"))
 752                         (root (string-append out "/share/texmf-dist")))
 753                    (for-each (match-lambda
 754                                ((dir files ...)
 755                                 (for-each (lambda (file)
 756                                             (install-file
 757                                              (string-append "build/" file)
 758                                              (string-append root dir)))
 759                                           files)))
 760                              '(("/tex/fontinst/base"
 761                                 "fontinst.sty"
 762                                 "cfntinst.sty"
 763                                 "xfntinst.sty"
 764                                 "finstmsc.sty"
 765                                 "fontinst.ini")
 766                                ("/tex/fontinst/misc"
 767                                 "csc2x.tex"
 768                                 "csckrn2x.tex"
 769                                 "osf2x.tex")
 770                                ("/tex/latex/fontinst"
 771                                 "fontdoc.sty")))
 772                    #t)))))))
 773       (native-inputs
 774        `(("texlive-bin" ,texlive-bin)
 775          ("texlive-docstrip" ,texlive-docstrip)))
 776       (home-page "https://www.ctan.org/pkg/fontinst")
 777       (synopsis "Tools for converting and installing fonts for TeX and LaTeX")
 778       (description "This package provides TeX macros for converting Adobe Font
 779 Metric files to TeX metric and virtual font format.  Fontinst helps mainly
 780 with the number crunching and shovelling parts of font installation.  This
 781 means in practice that it creates a number of files which give the TeX
 782 metrics (and related information) for a font family that TeX needs to do any
 783 typesetting in these fonts.")
 784       (license license:lppl1.1+))))
 785
 786 (define-public texlive-tex-fontinst-base
 787   (deprecated-package "texlive-tex-fontinst-base" texlive-fontinst))
 788
 789 (define-public texlive-fontname
 790   (package
 791     (inherit (simple-texlive-package
 792               "texlive-fontname"
 793               (list "/doc/fonts/fontname/fontname.texi"
 794                     "/fonts/map/fontname/")
 795               (base32
 796                "009qvjpw48lajp0gxpvdk10n5qw3q41cpq05ycns67mxwkcaywq6")
 797               #:trivial? #t))
 798     (home-page "https://www.ctan.org/pkg/fontname")
 799     (synopsis "Scheme for naming fonts in TeX")
 800     (description "This is Fontname, a naming scheme for (the base part of)
 801 external TeX font filenames.  This makes at most eight-character names
 802 from (almost) arbitrarily complex font names, thus helping portability of TeX
 803 documents.")
 804     (license license:public-domain)))
 805
 806 (define-public texlive-cm
 807   (let ((template (simple-texlive-package
 808                    "texlive-cm"
 809                    (list "/fonts/source/public/cm/"
 810                          "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
 811                          "/doc/fonts/cm/")
 812                    (base32
 813                     "09mvl94qrwlb9b4pkigi151l256v3djhwl4m5lgvk6yhn5y75zrp")
 814                    #:trivial? #t)))
 815     (package
 816       (inherit template)
 817       (arguments
 818        (substitute-keyword-arguments (package-arguments template)
 819          ((#:modules modules '())
 820           '((guix build gnu-build-system)
 821             (guix build utils)
 822             (srfi srfi-26)))
 823          ((#:phases phases)
 824           `(modify-phases ,phases
 825              (replace 'build
 826                (lambda* (#:key inputs #:allow-other-keys)
 827                  (let ((mf (assoc-ref inputs "texlive-metafont")))
 828                    ;; Tell mf where to find mf.base
 829                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 830                    ;; Tell mf where to look for source files
 831                    (setenv "MFINPUTS"
 832                            (string-append (getcwd) "/fonts/source/public/cm/:"
 833                                           mf "/share/texmf-dist/metafont/base")))
 834                  (for-each make-file-writable
 835                            (cons "fonts/source/public/cm/"
 836                                  (find-files "fonts/source/public/cm/" ".*")))
 837                  (let ((build (string-append (getcwd) "/build"))
 838                        (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
 839                    (mkdir-p pkdir)
 840                    (mkdir-p build)
 841                    (with-directory-excursion "fonts/source/public/cm/"
 842                      (for-each (lambda (font)
 843                                  (format #t "building font ~a\n" font)
 844                                  (invoke "mf" "-progname=mf"
 845                                          (string-append "-output-directory=" build)
 846                                          (string-append "\\"
 847                                                         "mode:=ljfour; "
 848                                                         "mag:=1+0/600; "
 849                                                         "scrollmode; "
 850                                                         "input "
 851                                                         (basename font ".mf")))
 852                                  (invoke "gftopk"
 853                                          (string-append build "/"
 854                                                         (basename font ".mf") ".600gf")
 855                                          (string-append pkdir "/"
 856                                                         (basename font ".mf") ".pk")))
 857                                (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
 858                  #t))
 859              (add-after 'install 'install-generated-fonts
 860                (lambda* (#:key inputs outputs #:allow-other-keys)
 861                  (let* ((out    (assoc-ref outputs "out"))
 862                         (fonts  (string-append out "/share/texmf-dist/fonts/"))
 863                         (pk     (string-append fonts "pk"))
 864                         (tfm    (string-append fonts "tfm/public/cm")))
 865                    (for-each (cut install-file <> tfm)
 866                              (find-files "build" "\\.*"))
 867                    (copy-recursively "pk" pk)
 868                    #t)))))))
 869       (native-inputs
 870        `(("texlive-bin" ,texlive-bin)
 871          ("texlive-metafont" ,texlive-metafont)))
 872       (home-page "https://www.ctan.org/pkg/cm")
 873       (synopsis "Computer Modern fonts for TeX")
 874       (description "This package provides the Computer Modern fonts by Donald
 875 Knuth.  The Computer Modern font family is a large collection of text,
 876 display, and mathematical fonts in a range of styles, based on Monotype Modern
 877 8A.")
 878       (license license:knuth))))
 879
 880 (define-public texlive-fonts-cm
 881   (deprecated-package "texlive-fonts-cm" texlive-cm))
 882
 883 (define-public texlive-cm-super
 884   (let ((template (simple-texlive-package
 885                    "texlive-cm-super"
 886                    (list "/doc/fonts/cm-super/"
 887                          "/dvips/cm-super/"
 888                          "/fonts/afm/public/cm-super/"
 889                          "/fonts/enc/dvips/cm-super/"
 890                          "/fonts/map/dvips/cm-super/"
 891                          "/fonts/map/vtex/cm-super/"
 892                          "/fonts/type1/public/cm-super/"
 893                          "/tex/latex/cm-super/")
 894                    (base32
 895                     "1k3afl0x0bqbr5mnawbnp7rr2126dwn0vwnxzibm9ggvzqilnkm6")
 896                    #:trivial? #t)))
 897     (package
 898       (inherit template)
 899       (arguments
 900        (substitute-keyword-arguments (package-arguments template)
 901          ((#:phases phases)
 902           `(modify-phases ,phases
 903              (delete 'reset-gzip-timestamps)))))
 904       (home-page "https://www.ctan.org/pkg/cm-super")
 905       (synopsis "Computer Modern Super family of fonts")
 906       (description "The CM-Super family provides Adobe Type 1 fonts that replace
 907 the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete,
 908 T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European
 909 languages except Greek), and bringing many ameliorations in typesetting
 910 quality.  The fonts exhibit the same metrics as the METAFONT-encoded
 911 originals.")
 912       ;; With font exception
 913       (license license:gpl2+))))
 914
 915 (define-public texlive-fonts-cm-super
 916   (deprecated-package "texlive-fonts-cm-super" texlive-cm-super))
 917
 918 (define-public texlive-courier
 919   (package
 920     (inherit (simple-texlive-package
 921               "texlive-courier"
 922               (list "/dvips/courier/"
 923                     "/fonts/afm/adobe/courier/"
 924                     "/fonts/afm/urw/courier/"
 925                     "/fonts/map/dvips/courier/"
 926                     "/fonts/tfm/adobe/courier/"
 927                     "/fonts/tfm/urw35vf/courier/"
 928                     "/fonts/type1/adobe/courier/"
 929                     "/fonts/type1/urw/courier/"
 930                     "/fonts/vf/adobe/courier/"
 931                     "/fonts/vf/urw35vf/courier/"
 932                     "/tex/latex/courier/"
 933                     "/tex4ht/ht-fonts/alias/adobe/courier/"
 934                     "/tex4ht/ht-fonts/unicode/adobe/courier/")
 935               (base32
 936                "03vz7zd7gayry9h4pq81s2bqqn2kmxf9yyzs0vap0w9rkf99rrci")
 937               #:trivial? #t))
 938     (home-page "https://ctan.org/pkg/urw-base35")
 939     (synopsis "URW Base 35 font pack for LaTeX")
 940     (description "This package provides a drop-in replacements for the Courier
 941 font from Adobe's basic set.")
 942     ;; No license version specified.
 943     (license license:gpl3+)))
 944
 945 (define-public texlive-tex-gyre
 946   (package
 947     (inherit (simple-texlive-package
 948               "texlive-tex-gyre"
 949               '("/doc/fonts/tex-gyre/GUST-FONT-LICENSE.txt"
 950                 "/fonts/afm/public/tex-gyre/"
 951                 "/fonts/enc/dvips/tex-gyre/"
 952                 "/fonts/map/dvips/tex-gyre/"
 953                 "/fonts/opentype/public/tex-gyre/"
 954                 "/fonts/tfm/public/tex-gyre/"
 955                 "/fonts/type1/public/tex-gyre/"
 956                 "/tex/latex/tex-gyre/")
 957               (base32
 958                "1ldnlmclghm3gnyv02r8a6cqybygz2ifq07mhykhf43h1pw3aq7k")
 959               #:trivial? #t))
 960     (home-page "https://ctan.org/pkg/tex-gyre")
 961     (synopsis "TeX fonts extending URW fonts")
 962     (description
 963      "The TeX-GYRE bundle consist of multiple font families:
 964 @itemize @bullet
 965 @item Adventor, based on the URW Gothic L family of fonts;
 966 @item Bonum, based on the URW Bookman L family;
 967 @item Chorus, based on URW Chancery L Medium Italic;
 968 @item Cursor, based on URW Nimbus Mono L;
 969 @item Heros, based on URW Nimbus Sans L;
 970 @item Pagella, based on URW Palladio L;
 971 @item Schola, based on the URW Century Schoolbook L family;
 972 @item Termes, based on the URW Nimbus Roman No9 L family of fonts.
 973 @end itemize
 974
 975 The constituent standard faces of each family have been greatly extended
 976 (though Chorus omits Greek support and has no small-caps family).  Each
 977 family is available in Adobe Type 1 and Open Type formats, and LaTeX
 978 support (for use with a variety of encodings) is provided.")
 979     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
 980     ;; Public License (LPPL), version 1.3c or later, but comes with an
 981     ;; additional but not legally binding clause.
 982     (license license:lppl1.3c+)))
 983
 984 (define-public texlive-lm
 985   (package
 986     (inherit (simple-texlive-package
 987               "texlive-lm"
 988               (list "/doc/fonts/lm/"
 989                     "/fonts/afm/public/lm/"
 990                     "/fonts/enc/dvips/lm/"
 991                     "/fonts/map/dvipdfm/lm/"
 992                     "/fonts/map/dvips/lm/"
 993                     "/fonts/opentype/public/lm/"
 994                     "/fonts/tfm/public/lm/"
 995                     "/fonts/type1/public/lm/"
 996                     "/tex/latex/lm/")
 997               (base32
 998                "0i1hwr8rp0jqyvs4qyplrirscd4w7lsgwsncyv3yzy80bsa56jq5")
 999               #:trivial? #t))
1000     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
1001     (synopsis "Latin Modern family of fonts")
1002     (description "The Latin Modern fonts are derived from the famous Computer
1003 Modern fonts designed by Donald E. Knuth and described in Volume E of his
1004 Computers & Typesetting series.")
1005     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
1006     ;; Public License (LPPL), version 1.3c or later, but comes with an
1007     ;; additional but not legally binding clause.
1008     (license license:lppl1.3c+)))
1009
1010 (define-public texlive-fonts-lm
1011   (deprecated-package "texlive-fonts-lm" texlive-lm))
1012
1013 (define-public texlive-knuth-lib
1014   (let ((template (simple-texlive-package
1015                    "texlive-knuth-lib"
1016                    (list "/fonts/source/public/knuth-lib/"
1017                          "/tex/generic/knuth-lib/"
1018                          "/tex/plain/knuth-lib/")
1019                    (base32
1020                     "0lizrhdr4pirhh4ry44znddksd7akkxli2i6sddm5rzqljiqdy3v")
1021                    #:trivial? #t)))
1022     (package
1023       (inherit template)
1024       (arguments
1025        (substitute-keyword-arguments (package-arguments template)
1026          ((#:modules _ '())
1027           '((guix build gnu-build-system)
1028             (guix build utils)
1029             (srfi srfi-26)))
1030          ((#:phases phases '())
1031           `(modify-phases ,phases
1032              (replace 'build
1033                (lambda* (#:key inputs #:allow-other-keys)
1034                  (with-directory-excursion "fonts/source/public/knuth-lib"
1035                    (let ((mf (assoc-ref inputs "texlive-metafont")))
1036                      ;; Tell mf where to find mf.base
1037                      (setenv "MFBASES"
1038                              (string-append mf "/share/texmf-dist/web2c"))
1039                      ;; Tell mf where to look for source files
1040                      (setenv "MFINPUTS"
1041                              (string-append (getcwd) ":"
1042                                             mf "/share/texmf-dist/metafont/base")))
1043                    (mkdir "build")
1044                    (for-each (lambda (font)
1045                                (format #t "building font ~a\n" font)
1046                                (invoke "mf" "-progname=mf"
1047                                        "-output-directory=build"
1048                                        (string-append "\\"
1049                                                       "mode:=ljfour; "
1050                                                       "mag:=1; "
1051                                                       "batchmode; "
1052                                                       "input " font)))
1053                              (find-files "." "(manfnt|logo.+)\\.mf$")))
1054                  #t))
1055              (add-after 'install 'install-fonts
1056                (lambda* (#:key outputs #:allow-other-keys)
1057                  (with-directory-excursion "fonts/source/public/knuth-lib"
1058                    (let* ((out (assoc-ref outputs "out"))
1059                           (tfm (string-append
1060                                 out "/share/texmf-dist/fonts/tfm/public/knuth-lib")))
1061                      (for-each (cut install-file <> tfm)
1062                                (find-files "build" "\\.tfm"))
1063                      #t))))))))
1064       (native-inputs
1065        `(("texlive-bin" ,texlive-bin)
1066          ("texlive-metafont" ,texlive-metafont)))
1067       (home-page "https://www.ctan.org/pkg/knuth-lib")
1068       (synopsis "Small library of METAFONT sources")
1069       (description "This is a collection of core TeX and METAFONT macro files
1070 from Donald Knuth, including the plain format, plain base, and the MF logo
1071 fonts.")
1072       (license license:knuth))))
1073
1074 (define-public texlive-fonts-knuth-lib
1075   (deprecated-package "texlive-fonts-knuth-lib" texlive-knuth-lib))
1076
1077 (define-public texlive-fonts-latex
1078   (package
1079     (name "texlive-fonts-latex")
1080     (version (number->string %texlive-revision))
1081     (source (origin
1082               (method svn-fetch)
1083               (uri (svn-reference
1084                     (url (string-append "svn://www.tug.org/texlive/tags/"
1085                                         %texlive-tag "/Master/texmf-dist/"
1086                                         "/fonts/source/public/latex-fonts"))
1087                     (revision %texlive-revision)))
1088               (file-name (string-append name "-" version "-checkout"))
1089               (sha256
1090                (base32
1091                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
1092     (build-system gnu-build-system)
1093     (arguments
1094      `(#:modules ((guix build gnu-build-system)
1095                   (guix build utils)
1096                   (srfi srfi-1)
1097                   (srfi srfi-26))
1098        #:tests? #f                      ; no tests
1099        #:phases
1100        (modify-phases %standard-phases
1101          (delete 'configure)
1102          (replace 'build
1103            (lambda* (#:key inputs #:allow-other-keys)
1104              (let ((mf (assoc-ref inputs "texlive-metafont")))
1105                ;; Tell mf where to find mf.base
1106                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1107                ;; Tell mf where to look for source files
1108                (setenv "MFINPUTS"
1109                        (string-append (getcwd) ":"
1110                                       mf "/share/texmf-dist/metafont/base:"
1111                                       (assoc-ref inputs "texlive-cm")
1112                                       "/share/texmf-dist/fonts/source/public/cm")))
1113              (mkdir "build")
1114              (for-each (lambda (font)
1115                          (format #t "building font ~a\n" font)
1116                          (invoke "mf" "-progname=mf"
1117                                  "-output-directory=build"
1118                                  (string-append "\\"
1119                                                 "mode:=ljfour; "
1120                                                 "mag:=1; "
1121                                                 "batchmode; "
1122                                                 "input " font)))
1123                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
1124                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
1125                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
1126                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
1127                          "line10" "linew10"))
1128              #t))
1129          (replace 'install
1130            (lambda* (#:key outputs #:allow-other-keys)
1131              (let* ((out (assoc-ref outputs "out"))
1132                     (tfm (string-append
1133                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
1134                     (mf  (string-append
1135                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
1136                (for-each (cut install-file <> tfm)
1137                          (find-files "build" "\\.*"))
1138                (for-each (cut install-file <> mf)
1139                          (find-files "." "\\.mf"))
1140                #t))))))
1141     (native-inputs
1142      `(("texlive-bin" ,texlive-bin)
1143        ("texlive-metafont" ,texlive-metafont)
1144        ("texlive-cm" ,texlive-cm)))
1145     (home-page "https://www.ctan.org/pkg/latex-fonts")
1146     (synopsis "Collection of fonts used in LaTeX distributions")
1147     (description "This is a collection of fonts for use with standard LaTeX
1148 packages and classes. It includes invisible fonts (for use with the slides
1149 class), line and circle fonts (for use in the picture environment) and LaTeX
1150 symbol fonts.")
1151     (license license:lppl1.2+)))
1152
1153 (define-public texlive-mflogo
1154   (let ((template (simple-texlive-package
1155                    "texlive-mflogo"
1156                    (list "/doc/latex/mflogo/"
1157                          "/source/latex/mflogo/"
1158                          "/fonts/source/public/mflogo/logosl8.mf")
1159                    (base32
1160                     "1vb4mg7fh4k54g7nqwiw3qm4iir8whpfnspis76l4sddzar1amh7"))))
1161     (package
1162       (inherit template)
1163       (arguments
1164        (substitute-keyword-arguments (package-arguments template)
1165          ((#:modules _ '())
1166           '((guix build texlive-build-system)
1167             (guix build utils)
1168             (srfi srfi-1)
1169             (srfi srfi-26)))
1170          ((#:tex-directory _ #t)
1171           "latex/mflogo")
1172          ((#:phases phases '())
1173           `(modify-phases ,phases
1174              (add-after 'unpack 'chdir
1175                (lambda _
1176                  (chdir "source/latex/mflogo") #t))
1177              (add-after 'build 'build-font-metrics
1178                (lambda* (#:key inputs #:allow-other-keys)
1179                  (let ((root "../../..")
1180                        (mf (assoc-ref inputs "texlive-metafont"))
1181                        (kl (assoc-ref inputs "texlive-knuth-lib")))
1182                    ;; Tell mf where to find mf.base
1183                    (setenv "MFBASES"
1184                            (string-append mf "/share/texmf-dist/web2c"))
1185                    ;; Tell mf where to look for source files
1186                    (setenv "MFINPUTS"
1187                            (string-append root ":"
1188                                           mf "/share/texmf-dist/metafont/base:"
1189                                           kl "/share/texmf-dist/fonts/source/public/knuth-lib:"
1190                                           root "/fonts/source/public/mflogo/"))
1191                    (for-each (lambda (font)
1192                                (format #t "building font ~a\n" font)
1193                                (invoke "mf" "-progname=mf"
1194                                        "-output-directory=build"
1195                                        (string-append "\\"
1196                                                       "mode:=ljfour; "
1197                                                       "mag:=1; "
1198                                                       "scrollmode; "
1199                                                       "input " (basename font))))
1200                              (find-files (string-append root
1201                                                         "/fonts/source/public/mflogo/")
1202                                          "\\.mf$")))
1203                  #t))
1204              (add-before 'install 'install-fonts
1205                (lambda* (#:key outputs #:allow-other-keys)
1206                  (let* ((out (assoc-ref outputs "out"))
1207                         (tfm (string-append
1208                               out "/share/texmf-dist/fonts/tfm/public/mflogo")))
1209                    (for-each (lambda (file)
1210                                (install-file file tfm)
1211                                (delete-file file))
1212                              (find-files "build" "\\.tfm"))
1213                    #t)))))))
1214       (native-inputs
1215        `(("texlive-bin" ,texlive-bin)
1216          ("texlive-metafont" ,texlive-metafont)
1217          ("texlive-knuth-lib" ,texlive-knuth-lib)))
1218       (home-page "http://www.ctan.org/pkg/mflogo")
1219       (synopsis "LaTeX support for Metafont logo fonts")
1220       (description
1221        "This package provides LaTeX and font definition files to access the
1222 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1223 logos in LaTeX documents.")
1224       (license license:lppl))))
1225
1226 (define-public texlive-latex-mflogo
1227   (deprecated-package "texlive-latex-mflogo" texlive-mflogo))
1228
1229 (define-public texlive-mflogo-font
1230   (package
1231     (inherit (simple-texlive-package
1232               "texlive-mflogo-font"
1233               (list "/doc/fonts/mflogo-font/README"
1234                     "/fonts/afm/hoekwater/mflogo-font/"
1235                     "/fonts/map/dvips/mflogo-font/"
1236                     "/fonts/type1/hoekwater/mflogo-font/")
1237               (base32
1238                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1239               #:trivial? #t))
1240     (home-page "https://www.ctan.org/pkg/mflogo-font")
1241     (synopsis "Metafont logo font")
1242     (description
1243      "These fonts were created in METAFONT by Knuth, for his own publications.
1244 At some stage, the letters P and S were added, so that the METAPOST logo could
1245 also be expressed.  The fonts were originally issued (of course) as METAFONT
1246 source; they have since been autotraced and reissued in Adobe Type 1 format by
1247 Taco Hoekwater.")
1248     (license license:knuth)))
1249
1250 (define-public texlive-fonts-mflogo-font
1251   (deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
1252
1253 (define-public texlive-amsfonts
1254   (let ((template (simple-texlive-package
1255                    "texlive-amsfonts"
1256                    (list "/source/latex/amsfonts/"
1257                          "/fonts/source/public/amsfonts/"
1258                          "/fonts/type1/public/amsfonts/"
1259                          "/fonts/afm/public/amsfonts/"
1260                          "/fonts/map/dvips/amsfonts/"
1261                          "/tex/plain/amsfonts/"
1262                          "/doc/fonts/amsfonts/")
1263                    (base32
1264                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1265     (package
1266       (inherit template)
1267       (arguments
1268        (substitute-keyword-arguments (package-arguments template)
1269          ((#:build-targets _ #t)
1270           '(list "amsfonts.ins"))
1271          ((#:tex-directory _ #t)
1272           "latex/amsfonts")
1273          ((#:modules modules '())
1274           `((guix build texlive-build-system)
1275             (guix build utils)
1276             (ice-9 match)
1277             (srfi srfi-1)
1278             (srfi srfi-26)))
1279          ((#:phases phases)
1280           `(modify-phases ,phases
1281              (add-before 'build 'build-fonts
1282                (lambda* (#:key inputs #:allow-other-keys)
1283                  ;; Allow self fonts sources and other resources to be
1284                  ;; discovered.
1285                  (setenv "GUIX_TEXMF" (string-append (getenv "GUIX_TEXMF")
1286                                                      ":" (getcwd)))
1287
1288                  (let ((build (string-append (getcwd) "/build-fonts")))
1289                    (mkdir-p build)
1290                    (with-directory-excursion "fonts/source/public/amsfonts"
1291                      (for-each (lambda (font)
1292                                  (format #t "building font ~a\n" (basename font ".mf"))
1293                                  (with-directory-excursion (dirname font)
1294                                    (invoke "mf" "-progname=mf"
1295                                            (string-append "-output-directory=" build)
1296                                            (string-append "\\"
1297                                                           "mode:=ljfour; "
1298                                                           "mag:=1; "
1299                                                           "nonstopmode; "
1300                                                           "input "
1301                                                           (getcwd) "/"
1302                                                           (basename font ".mf")))))
1303                                (find-files "." "[0-9]+\\.mf$"))))
1304
1305                  ;; There are no metafont sources for the Euler fonts, so we
1306                  ;; convert the afm files instead.
1307                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1308                    (mkdir build)
1309                    (with-directory-excursion "fonts/afm/public/amsfonts/euler"
1310                      (for-each (lambda (font)
1311                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1312                                  (invoke "afm2tfm" font
1313                                          (string-append build "/"
1314                                                         (basename font ".tfm"))))
1315                                (find-files "(cmextra|cyrillic|dummy|euler|symbols)"
1316                                            "\\.afm$")))
1317
1318                    ;; Frustratingly, not all fonts can be created this way.  To
1319                    ;; generate eufm8.tfm, for example, we first scale down
1320                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1321                    ;; the pl file.
1322                    (setenv "TEXINPUTS"
1323                            (string-append ":" build "//:"
1324                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1325                                           (getcwd) "/source/latex/amsfonts//:"))
1326                    (with-directory-excursion build
1327                      (for-each (match-lambda
1328                                  (((target-base target-size)
1329                                    (source-base source-size))
1330                                   (let ((factor (number->string
1331                                                  (truncate/ (* 1000 target-size)
1332                                                             source-size))))
1333                                     (invoke "tex"
1334                                             "-interaction=scrollmode"
1335                                             (string-append "\\input fontinst.sty "
1336                                                            "\\transformfont{" target-base "}"
1337                                                            "{\\scalefont{" factor "}"
1338                                                            "{\\fromafm{" source-base "}}} "
1339                                                            "\\bye")))
1340                                   (invoke "pltotf"
1341                                           (string-append target-base ".pl")
1342                                           (string-append target-base ".tfm"))
1343                                   (delete-file (string-append target-base ".pl"))))
1344
1345                                '((("eufm8" 8) ("eufm10" 10))
1346
1347                                  (("eufb6" 6) ("eufb7" 7))
1348                                  (("eufb8" 8) ("eufb10" 10))
1349                                  (("eufb9" 9) ("eufb10" 10))
1350
1351                                  (("eufm6" 6) ("eufb7" 7))
1352                                  (("eufm9" 9) ("eufb10" 10))
1353
1354                                  (("eurb6" 6) ("eurb7" 7))
1355                                  (("eurb8" 8) ("eurb10" 10))
1356                                  (("eurb9" 9) ("eurb10" 10))
1357
1358                                  (("eurm6" 6) ("eurm7" 7))
1359                                  (("eurm8" 8) ("eurm10" 10))
1360                                  (("eurm9" 9) ("eurm10" 10))))))))
1361              (add-after 'install 'install-generated-fonts
1362                (lambda* (#:key inputs outputs #:allow-other-keys)
1363                  (copy-recursively "build-fonts"
1364                                    (string-append
1365                                     (assoc-ref outputs "out")
1366                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))))))))
1367       (native-inputs
1368        `(("texlive-updmap.cfg" ,(texlive-updmap.cfg
1369                                  (list texlive-fontinst)))))
1370       (home-page "https://www.ctan.org/pkg/amsfonts")
1371       (synopsis "TeX fonts from the American Mathematical Society")
1372       (description
1373        "This package provides an extended set of fonts for use in mathematics,
1374 including: extra mathematical symbols; blackboard bold letters (uppercase
1375 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1376 letters; subscript sizes of large symbols such as sum and product; added sizes
1377 of the Computer Modern small caps font; cyrillic fonts (from the University of
1378 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1379 files, and all except the Euler fonts are provided as Metafont source.  The
1380 distribution also includes the canonical Type 1 versions of the Computer
1381 Modern family of fonts.  The Euler fonts are supported by separate packages;
1382 details can be found in the documentation.")
1383       (license license:silofl1.1))))
1384
1385 (define-public texlive-fonts-amsfonts
1386   (deprecated-package "texlive-fonts-amsfonts" texlive-amsfonts))
1387
1388 (define-public texlive-latex-amsfonts
1389   (deprecated-package "texlive-latex-amsfonts" texlive-amsfonts))
1390
1391 (define-public texlive-mkpattern
1392   (package
1393     (inherit (simple-texlive-package
1394               "texlive-mkpattern"
1395               (list "/doc/plain/mkpattern/README"
1396                     "/doc/plain/mkpattern/mkpatdoc.tex"
1397                     "/doc/plain/mkpattern/mkpatter.pdf"
1398                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1399                     "/tex/plain/mkpattern/mkpatter.tex")
1400               (base32
1401                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1402               #:trivial? #t))
1403     (home-page "https://ctan.org/pkg/mkpattern")
1404     (synopsis "Utility for making hyphenation patterns")
1405     (description "Mkpattern is a general purpose program for the generation of
1406 hyphenation patterns, with definition of letter sets and template-like
1407 constructions.  It also provides an easy way to handle different input and
1408 output encodings, and features generation of clean UTF-8 patterns.")
1409     (license license:lppl)))
1410
1411 ;; This provides etex.src which is needed to build various formats, including
1412 ;; luatex.fmt and pdflatex.fmt
1413 (define-public texlive-etex
1414   (let ((template (simple-texlive-package
1415                    "texlive-etex"
1416                    (list "/doc/etex/base/"
1417                          "/doc/man/man1/etex.1"
1418                          "/doc/man/man1/etex.man1.pdf"
1419                          "/tex/plain/etex/"
1420                          "/fonts/source/public/etex/")
1421                    (base32
1422                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1423                    #:trivial? #t)))
1424     (package
1425       (inherit template)
1426       (arguments
1427        (substitute-keyword-arguments (package-arguments template)
1428          ((#:phases phases)
1429           `(modify-phases ,phases
1430              ;; Build tfm font.
1431              (replace 'build
1432                (lambda* (#:key inputs #:allow-other-keys)
1433                  (let ((mf (assoc-ref inputs "texlive-metafont")))
1434                    ;; Tell mf where to find mf.base
1435                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1436                    ;; Tell mf where to look for source files
1437                    (setenv "MFINPUTS"
1438                            (string-append (getcwd)
1439                                           "/fonts/source/public/etex/:"
1440                                           mf "/share/texmf-dist/metafont/base:"
1441                                           (assoc-ref inputs "texlive-cm")
1442                                           "/share/texmf-dist/fonts/source/public/cm")))
1443                  (invoke "mf" "-progname=mf"
1444                          (string-append "\\"
1445                                         "mode:=ljfour; "
1446                                         "mag:=1; "
1447                                         "scrollmode; "
1448                                         "input xbmc10"))
1449                  #t))
1450              (add-after 'install 'install-font
1451                (lambda* (#:key outputs #:allow-other-keys)
1452                  (install-file
1453                   "xbmc10.tfm"
1454                   (string-append (assoc-ref outputs "out")
1455                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1456                  #t))))))
1457       (native-inputs
1458        `(("texlive-bin" ,texlive-bin)
1459          ("texlive-metafont" ,texlive-metafont)
1460          ("texlive-cm" ,texlive-cm)))
1461       (home-page "https://www.ctan.org/pkg/etex")
1462       (synopsis "Extended version of TeX")
1463       (description
1464        "This package provides an extended version of TeX (which is capable of
1465 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1466 team as the engine for the development of LaTeX2e; as a result, LaTeX
1467 programmers may assume e-TeX functionality.  The pdftex engine directly
1468 incorporates the e-TeX extensions.")
1469       (license license:knuth))))
1470
1471 (define-public texlive-tex-plain
1472   (package
1473     (inherit (simple-texlive-package
1474               "texlive-tex-plain"
1475               (list "/tex/plain/")
1476               (base32
1477                "1qryji08shim7fwjfcm0rcb0m5pwagjv1ahpr3xkfg8mkj160nrg")
1478               #:trivial? #t))
1479     (home-page "https://www.ctan.org/pkg/plain")
1480     (synopsis "Plain TeX format and supporting files")
1481     (description
1482      "This package contains files used to build the Plain TeX format, as
1483 described in the TeXbook, together with various supporting files (some also
1484 discussed in the book).")
1485     (license license:knuth)))
1486
1487 (define-public texlive-helvetic
1488   (package
1489     (inherit (simple-texlive-package
1490               "texlive-helvetic"
1491               (list "/dvips/helvetic/"
1492                     "/fonts/afm/adobe/helvetic/"
1493                     "/fonts/afm/urw/helvetic/"
1494                     "/fonts/map/dvips/helvetic/"
1495                     "/fonts/tfm/adobe/helvetic/"
1496                     "/fonts/tfm/monotype/helvetic/"
1497                     "/fonts/tfm/urw35vf/helvetic/"
1498                     "/fonts/type1/urw/helvetic/"
1499                     "/fonts/vf/adobe/helvetic/"
1500                     "/fonts/vf/monotype/helvetic/"
1501                     "/fonts/vf/urw35vf/helvetic/"
1502                     "/tex/latex/helvetic/")
1503               (base32
1504                "0c3f1ly7y6404z0akbfbbfql13sz717v0n0g69qjpr69hi4n0nsl")
1505               #:trivial? #t))
1506     (home-page "https://ctan.org/pkg/urw-base35")
1507     (synopsis "URW Base 35 font pack for LaTeX")
1508     (description "This package provides a drop-in replacements for the Helvetica
1509 font from Adobe's basic set.")
1510     ;; No license version specified.
1511     (license license:gpl3+)))
1512
1513 (define-public texlive-hyphen-afrikaans
1514   (package
1515     (inherit (texlive-hyphen-package
1516               "texlive-hyphen-afrikaans" "af"
1517               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1518               (base32
1519                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1520     (synopsis "Hyphenation patterns for Afrikaans")
1521     (description "The package provides hyphenation patterns for the Afrikaans
1522 language.")
1523     (license license:lppl1.3+)))
1524
1525 (define-public texlive-hyphen-ancientgreek
1526   (package
1527     (inherit (texlive-hyphen-package
1528               "texlive-hyphen-ancientgreek" "grc"
1529               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1530                     "/tex/generic/hyphen/grahyph5.tex"
1531                     "/tex/generic/hyphen/ibyhyph.tex")
1532               (base32
1533                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1534     (synopsis "Hyphenation patterns for ancient Greek")
1535     (description "The package provides hyphenation patterns for ancient
1536 Greek.")
1537     (license license:lppl1.3+)))
1538
1539 (define-public texlive-hyphen-armenian
1540   (let ((template (texlive-hyphen-package
1541                    "texlive-hyphen-armenian" "hy"
1542                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1543                    (base32
1544                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1545     (package
1546       (inherit template)
1547       (synopsis "Hyphenation patterns for Armenian")
1548       (description "The package provides hyphenation patterns for the Armenian
1549 language.")
1550       ;; Any version of the LGPL.
1551       (license license:lgpl3+))))
1552
1553 (define-public texlive-hyphen-basque
1554   (let ((template (texlive-hyphen-package
1555                     "texlive-hyphen-basque" "eu"
1556                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1557                     (base32
1558                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1559     (package
1560       (inherit template)
1561       (synopsis "Hyphenation patterns for Basque")
1562       (description "The package provides hyphenation patterns for the Basque
1563 language.")
1564       ;; Similar to Unicode license.
1565       (license (license:fsf-free
1566                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1567
1568 (define-public texlive-hyphen-belarusian
1569   (package
1570     (inherit (texlive-hyphen-package
1571               "texlive-hyphen-belarusian" "be"
1572               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1573               (base32
1574                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1575     (synopsis "Hyphenation patterns for Belarusian")
1576     (description "The package provides hyphenation patterns for the Belarusian
1577 language.")
1578     (license license:expat)))
1579
1580 (define-public texlive-hyphen-bulgarian
1581   (package
1582     (inherit (texlive-hyphen-package
1583               "texlive-hyphen-bulgarian" "bg"
1584               '("/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1585               (base32
1586                "0m254y71j3qrb71klvfalfmic3kjy31l85b9cgpdm5yznlsq3i8d")))
1587     (synopsis "Hyphenation patterns for Bulgarian")
1588     (description "The package provides hyphenation patterns for the Bulgarian
1589 language in T2A and UTF-8 encodings.")
1590     (license (license:non-copyleft
1591               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1592               "Ancestral BSD variant"))))
1593
1594 (define-public texlive-hyphen-catalan
1595   (package
1596     (inherit (texlive-hyphen-package
1597               "texlive-hyphen-catalan" "ca"
1598               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1599               (base32
1600                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1601     (synopsis "Hyphenation patterns for Catalan")
1602     (description "The package provides hyphenation patterns for Catalan in
1603 T1/EC and UTF-8 encodings.")
1604     (license license:lppl1.0+)))
1605
1606 (define-public texlive-hyphen-chinese
1607   (package
1608     (inherit (texlive-hyphen-package
1609               "texlive-hyphen-chinese" "zh-latn-pinyin"
1610               '("/tex/generic/hyph-utf8/patterns/ptex/hyph-zh-latn-pinyin.ec.tex"
1611                 "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1612               (base32
1613                "1hhh30hcjymm2igpllly04cavsfmd6xrjkd9zax6b2wdxn3ka4pm")))
1614     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1615     (description "The package provides hyphenation patterns for unaccented
1616 Chinese pinyin T1/EC and UTF-8 encodings.")
1617     (license license:gpl2+)))
1618
1619 (define-public texlive-hyphen-churchslavonic
1620   (package
1621     (inherit (texlive-hyphen-package
1622               "texlive-hyphen-churchslavonic" "cu"
1623               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1624               (base32
1625                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1626     (synopsis "Hyphenation patterns for Church Slavonic")
1627     (description "The package provides hyphenation patterns for Church
1628 Slavonic in UTF-8 encoding.")
1629     (license license:expat)))
1630
1631 (define-public texlive-hyphen-coptic
1632   (package
1633     (inherit (texlive-hyphen-package
1634               "texlive-hyphen-coptic" "cop"
1635               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1636                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1637               (base32
1638                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1639     (synopsis "Hyphenation patterns for Coptic")
1640     (description "The package provides hyphenation patterns for Coptic in
1641 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1642     ;; No explicit license declaration, so we use the project license.
1643     (license license:lppl)))
1644
1645 (define-public texlive-hyphen-croatian
1646   (package
1647     (inherit (texlive-hyphen-package
1648               "texlive-hyphen-croatian" "hr"
1649               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1650               (base32
1651                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1652     (synopsis "Hyphenation patterns for Croatian")
1653     (description "The package provides hyphenation patterns for Croatian in
1654 T1/EC and UTF-8 encodings.")
1655     (license license:lppl1.0+)))
1656
1657 (define-public texlive-hyphen-czech
1658   (package
1659     (inherit (texlive-hyphen-package
1660               "texlive-hyphen-czech" "cs"
1661               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1662               (base32
1663                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1664     (synopsis "Hyphenation patterns for Czech")
1665     (description "The package provides hyphenation patterns for Czech in T1/EC
1666 and UTF-8 encodings.")
1667     (license license:gpl2+)))
1668
1669 (define-public texlive-hyphen-danish
1670   (package
1671     (inherit (texlive-hyphen-package
1672               "texlive-hyphen-danish" "da"
1673               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1674               (base32
1675                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1676     (synopsis "Hyphenation patterns for Danish")
1677     (description "The package provides hyphenation patterns for Danish in
1678 T1/EC and UTF-8 encodings.")
1679     ;; Either LPPL 1.3 or later, or Expat
1680     (license (list license:lppl1.3+ license:expat))))
1681
1682 (define-public texlive-hyphen-dutch
1683   (package
1684     (inherit (texlive-hyphen-package
1685               "texlive-hyphen-dutch" "nl"
1686               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1687               (base32
1688                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1689     (synopsis "Hyphenation patterns for Dutch")
1690     (description "The package provides hyphenation patterns for Dutch in T1/EC
1691 and UTF-8 encodings.")
1692     (license license:lppl1.0+)))
1693
1694 (define-public texlive-hyphen-english
1695   (package
1696     (inherit (texlive-hyphen-package
1697               "texlive-hyphen-english" '("en-gb" "en-us")
1698               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1699                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1700               (base32
1701                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1702     (synopsis "Hyphenation patterns for American and British English")
1703     (description "The package provides additional hyphenation patterns for
1704 American and British English in ASCII encoding.")
1705     (license (license:non-copyleft
1706               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1707               "FSF all permissive license"))))
1708
1709 (define-public texlive-hyphen-esperanto
1710   (package
1711     (inherit (texlive-hyphen-package
1712               "texlive-hyphen-esperanto" "eo"
1713               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1714               (base32
1715                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1716     (synopsis "Hyphenation patterns for Esperanto")
1717     (description "The package provides hyphenation patterns for Esperanto ISO
1718 Latin 3 and UTF-8 encodings.")
1719     (license license:lppl1.0+)))
1720
1721 (define-public texlive-hyphen-estonian
1722   (package
1723     (inherit (texlive-hyphen-package
1724               "texlive-hyphen-estonian" "et"
1725               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1726               (base32
1727                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1728     (synopsis "Hyphenation patterns for Estonian")
1729     (description "The package provides hyphenation patterns for Estonian in
1730 T1/EC and UTF-8 encodings.")
1731     ;; Dual licensed under either license.
1732     (license (list license:lppl1.3+ license:expat))))
1733
1734 (define-public texlive-hyphen-ethiopic
1735   (let ((template (texlive-hyphen-package
1736                    "texlive-hyphen-ethiopic" "mul-ethi"
1737                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1738                    (base32
1739                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1740     (package
1741       (inherit template)
1742       (synopsis "Hyphenation patterns for Ethiopic scripts")
1743       (description "The package provides hyphenation patterns for languages
1744 written using the Ethiopic script for Unicode engines.  They are not supposed
1745 to be linguistically relevant in all cases and should, for proper typography,
1746 be replaced by files tailored to individual languages.")
1747       (license license:expat))))
1748
1749 (define-public texlive-hyphen-finnish
1750   (package
1751     (inherit (texlive-hyphen-package
1752               "texlive-hyphen-finnish" "fi"
1753               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1754               (base32
1755                "1f72b4ydb4zddvw2i004948khmwzigxkdkwfym5v1kkq0183sfpj")))
1756     (synopsis "Hyphenation patterns for Finnish")
1757     (description "The package provides hyphenation patterns for Finnish in
1758 T1/EC and UTF-8 encodings.")
1759     (license license:public-domain)))
1760
1761 (define-public texlive-hyphen-french
1762   (package
1763     (inherit (texlive-hyphen-package
1764               "texlive-hyphen-french" "fr"
1765               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1766               (base32
1767                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1768     (synopsis "Hyphenation patterns for French")
1769     (description "The package provides hyphenation patterns for French in
1770 T1/EC and UTF-8 encodings.")
1771     (license license:expat)))
1772
1773 (define-public texlive-hyphen-friulan
1774   (package
1775     (inherit (texlive-hyphen-package
1776               "texlive-hyphen-friulan" "fur"
1777               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1778               (base32
1779                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1780     (synopsis "Hyphenation patterns for Friulan")
1781     (description "The package provides hyphenation patterns for Friulan in
1782 ASCII encodings.")
1783     (license license:lppl1.3+)))
1784
1785 (define-public texlive-hyphen-galician
1786   (let ((template (texlive-hyphen-package
1787                    "texlive-hyphen-galician" "gl"
1788                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1789                    (base32
1790                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1791     (package
1792       (inherit template)
1793       (synopsis "Hyphenation patterns for Galician")
1794       (description "The package provides hyphenation patterns for Galician in
1795 T1/EC and UTF-8 encodings.")
1796       (license license:lppl1.3))))
1797
1798 (define-public texlive-hyphen-georgian
1799   (package
1800     (inherit (texlive-hyphen-package
1801               "texlive-hyphen-georgian" "ka"
1802               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1803               (base32
1804                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1805     (synopsis "Hyphenation patterns for Georgian")
1806     (description "The package provides hyphenation patterns for Georgian in
1807 T8M, T8K, and UTF-8 encodings.")
1808     (license license:lppl1.3+)))
1809
1810 (define-public texlive-hyphen-german
1811   (package
1812     (inherit (texlive-hyphen-package
1813               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1814               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1815                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1816                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1817                     "/tex/generic/dehyph/dehyphn.tex"
1818                     "/tex/generic/dehyph/dehypht.tex"
1819                     "/tex/generic/dehyph/dehyphtex.tex"
1820                     "/tex/generic/dehyph/README")
1821               (base32
1822                "0wp5by5kkf4ac6li5mbppqzw11500wa7f22p5vpz3m1kwd15zavw")))
1823     (synopsis "Hyphenation patterns for German")
1824     (description "This package provides hyphenation patterns for German in
1825 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1826 Swiss German.")
1827     ;; The patterns are released under the Expat license; the dehyph* files
1828     ;; are released under the LPPL version 1 or later.
1829     (license (list license:expat license:lppl1.0+))))
1830
1831 (define-public texlive-hyphen-greek
1832   (package
1833     (inherit (texlive-hyphen-package
1834               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1835               (list "/doc/generic/elhyphen/"
1836                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1837                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1838                     "/tex/generic/hyphen/grmhyph5.tex"
1839                     "/tex/generic/hyphen/grphyph5.tex")
1840               (base32
1841                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1842     (synopsis "Hyphenation patterns for Greek")
1843     (description "This package provides hyphenation patterns for Modern Greek
1844 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1845     (license license:lppl)))
1846
1847 (define-public texlive-hyphen-hungarian
1848   (package
1849     (inherit (texlive-hyphen-package
1850               "texlive-hyphen-hungarian" "hu"
1851               (list "/doc/generic/huhyphen/"
1852                     "/doc/generic/hyph-utf8/languages/hu/"
1853                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1854               (base32
1855                "006d2290lcsqzh9ljansbaj9k52s17zgkw0kpsspn5l7a8n00zcl")))
1856     (synopsis "Hyphenation patterns for Hungarian")
1857     (description "This package provides hyphenation patterns for Hungarian in
1858 T1/EC and UTF-8 encodings.")
1859     ;; Any of these licenses
1860     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1861
1862 (define-public texlive-hyphen-icelandic
1863   (package
1864     (inherit (texlive-hyphen-package
1865               "texlive-hyphen-icelandic" "is"
1866               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1867               (base32
1868                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1869     (synopsis "Hyphenation patterns for Icelandic")
1870     (description "This package provides hyphenation patterns for Icelandic in
1871 T1/EC and UTF-8 encodings.")
1872     (license license:lppl1.2+)))
1873
1874 (define-public texlive-hyphen-indic
1875   (package
1876     (inherit (texlive-hyphen-package
1877               "texlive-hyphen-indic"
1878               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
1879               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
1880                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
1881                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
1882                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
1883                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
1884                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
1885                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
1886                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
1887                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
1888                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
1889                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
1890               (base32
1891                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
1892     (synopsis "Indic hyphenation patterns")
1893     (description "This package provides hyphenation patterns for Assamese,
1894 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
1895 and Telugu for Unicode engines.")
1896     (license license:expat)))
1897
1898 (define-public texlive-hyphen-indonesian
1899   (package
1900     (inherit (texlive-hyphen-package
1901               "texlive-hyphen-indonesian" "id"
1902               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
1903               (base32
1904                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
1905     (synopsis "Indonesian hyphenation patterns")
1906     (description "This package provides hyphenation patterns for
1907 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
1908 usable for Malay (Bahasa Melayu).")
1909     (license license:gpl2)))
1910
1911 (define-public texlive-hyphen-interlingua
1912   (package
1913     (inherit (texlive-hyphen-package
1914               "texlive-hyphen-interlingua" "ia"
1915               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
1916               (base32
1917                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
1918     (synopsis "Interlingua hyphenation patterns")
1919     (description "This package provides hyphenation patterns for Interlingua
1920 in ASCII encoding.")
1921     (license license:lppl1.3+)))
1922
1923 (define-public texlive-hyphen-irish
1924   (package
1925     (inherit (texlive-hyphen-package
1926               "texlive-hyphen-irish" "ga"
1927               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
1928               (base32
1929                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
1930     (synopsis "Irish hyphenation patterns")
1931     (description "This package provides hyphenation patterns for
1932 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
1933     ;; Either of these licenses
1934     (license (list license:gpl2+ license:expat))))
1935
1936 (define-public texlive-hyphen-italian
1937   (package
1938     (inherit (texlive-hyphen-package
1939               "texlive-hyphen-italian" "it"
1940               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
1941               (base32
1942                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
1943     (synopsis "Italian hyphenation patterns")
1944     (description "This package provides hyphenation patterns for Italian in
1945 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
1946 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
1947 UNI).")
1948     (license license:lppl1.3+)))
1949
1950 (define-public texlive-hyphen-kurmanji
1951   (package
1952     (inherit (texlive-hyphen-package
1953               "texlive-hyphen-kurmanji" "kmr"
1954               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
1955               (base32
1956                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
1957     (synopsis "Kurmanji hyphenation patterns")
1958     (description "This package provides hyphenation patterns for
1959 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
1960 Europe, in T1/EC and UTF-8 encodings.")
1961     (license license:lppl1.3)))
1962
1963 (define-public texlive-hyphen-latin
1964   (package
1965     (inherit (texlive-hyphen-package
1966               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
1967               '("/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
1968                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
1969                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex"
1970                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-la-x-classic.ec.tex")
1971               (base32
1972                "119rf6sk1f639ky6zr9njn21nsxzgfmjci94y26745qs8w08ilkl")))
1973     (synopsis "Liturgical Latin hyphenation patterns")
1974     (description "This package provides hyphenation patterns for Latin in
1975 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
1976 when v is needed), medieval spelling with the ligatures @code{\\ae} and
1977 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
1978 Apparently there is no conflict between the patterns of modern Latin and those
1979 of medieval Latin.  It also includes hyphenation patterns for the Classical
1980 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
1981 different from those of 'plain' Latin, the latter being more adapted to modern
1982 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
1983 T1/EC and UTF-8 encodings.")
1984     ;; Either of these licenses
1985     (license (list license:lppl1.0+ license:expat))))
1986
1987 (define-public texlive-hyphen-latvian
1988   (package
1989     (inherit (texlive-hyphen-package
1990               "texlive-hyphen-latvian" "lv"
1991               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
1992               (base32
1993                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
1994     (synopsis "Latvian hyphenation patterns")
1995     (description "This package provides hyphenation patterns for Latvian in
1996 L7X and UTF-8 encodings.")
1997     ;; Either of these licenses.
1998     (license (list license:gpl2 license:lgpl2.1))))
1999
2000 (define-public texlive-hyphen-lithuanian
2001   (package
2002     (inherit (texlive-hyphen-package
2003               "texlive-hyphen-lithuanian" "lt"
2004               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
2005               (base32
2006                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
2007     (synopsis "Lithuanian hyphenation patterns")
2008     (description "This package provides hyphenation patterns for Lithuanian in
2009 L7X and UTF-8 encodings.")
2010     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
2011     ;; the hyph-utf8 package we choose the LPPL license.
2012     (license license:lppl)))
2013
2014 (define-public texlive-hyphen-macedonian
2015   (package
2016     (inherit (texlive-hyphen-package
2017               "texlive-hyphen-macedonian" "mk"
2018               '("/tex/generic/hyph-utf8/patterns/tex/hyph-mk.tex")
2019               (base32
2020                "01w4cv8jm9q2gijys7cd7s6lfycdpgw9m26yxicc14ywbpi4ij3i")))
2021     (synopsis "Macedonian hyphenation patterns")
2022     (description "This package provides hypenation patterns for Macedonian.")
2023     ;; XXX: License just says 'GPL'.  Assume GPL2 since the file predates GPL3.
2024     (license license:gpl2+)))
2025
2026 (define-public texlive-hyphen-mongolian
2027   (package
2028     (inherit (texlive-hyphen-package
2029               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
2030               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
2031                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
2032               (base32
2033                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
2034     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
2035     (description "This package provides hyphenation patterns for Mongolian in
2036 T2A, LMC and UTF-8 encodings.")
2037     ;; Either of these licenses
2038     (license (list license:lppl1.3+ license:expat))))
2039
2040 (define-public texlive-hyphen-norwegian
2041   (package
2042     (inherit (texlive-hyphen-package
2043               "texlive-hyphen-norwegian" '("nb" "nn" "no")
2044               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
2045                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
2046                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
2047               (base32
2048                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
2049     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
2050     (description "This package provides hyphenation patterns for Norwegian
2051 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
2052     (license (license:non-copyleft
2053               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
2054               "FSF All permissive license"))))
2055
2056 (define-public texlive-hyphen-occitan
2057   (package
2058     (inherit (texlive-hyphen-package
2059               "texlive-hyphen-occitan" "oc"
2060               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
2061               (base32
2062                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
2063     (synopsis "Occitan hyphenation patterns")
2064     (description "This package provides hyphenation patterns for Occitan in
2065 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
2066 variants spoken and written in the wide area called 'Occitanie' by the French.
2067 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
2068 Alps encompassing the southern half of the French pentagon.")
2069     (license license:lppl1.0+)))
2070
2071 (define-public texlive-hyphen-pali
2072   (package
2073     (inherit (texlive-hyphen-package
2074               "texlive-hyphen-pali" "pi"
2075               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
2076               (base32
2077                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
2078     (synopsis "Panjabi hyphenation patterns")
2079     (description "This package provides hyphenation patterns for Panjabi in
2080 T1/EC encoding.")
2081     ;; Can be used with either license.
2082     (license (list license:expat license:lgpl3+ license:gpl3+))))
2083
2084 (define-public texlive-hyphen-piedmontese
2085   (package
2086     (inherit (texlive-hyphen-package
2087               "texlive-hyphen-piedmontese" "pms"
2088               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
2089               (base32
2090                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
2091     (synopsis "Piedmontese hyphenation patterns")
2092     (description "This package provides hyphenation patterns for Piedmontese
2093 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
2094 Camillo Brero.")
2095     (license license:lppl1.3+)))
2096
2097 (define-public texlive-hyphen-polish
2098   (package
2099     (inherit (texlive-hyphen-package
2100               "texlive-hyphen-polish" "pl"
2101               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
2102               (base32
2103                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
2104     (synopsis "Polish hyphenation patterns")
2105     (description "This package provides hyphenation patterns for Polish in QX
2106 and UTF-8 encodings.")
2107     ;; No differing license declared, so we choose the project license.
2108     (license license:lppl)))
2109
2110 (define-public texlive-hyphen-portuguese
2111   (package
2112     (inherit (texlive-hyphen-package
2113               "texlive-hyphen-portuguese" "pt"
2114               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
2115               (base32
2116                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
2117     (synopsis "Portuguese hyphenation patterns")
2118     (description "This package provides hyphenation patterns for Portuguese in
2119 T1/EC and UTF-8 encodings.")
2120     (license license:bsd-3)))
2121
2122 (define-public texlive-hyphen-romanian
2123   (package
2124     (inherit (texlive-hyphen-package
2125               "texlive-hyphen-romanian" "ro"
2126               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
2127               (base32
2128                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
2129     (synopsis "Romanian hyphenation patterns")
2130     (description "This package provides hyphenation patterns for Romanian in
2131 T1/EC and UTF-8 encodings.")
2132     ;; No differing license declared, so we choose the project license.
2133     (license license:lppl)))
2134
2135 (define-public texlive-hyphen-romansh
2136   (package
2137     (inherit (texlive-hyphen-package
2138               "texlive-hyphen-romansh" "rm"
2139               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
2140               (base32
2141                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
2142     (synopsis "Romansh hyphenation patterns")
2143     (description "This package provides hyphenation patterns for Romansh in
2144 ASCII encodings.  They are supposed to comply with the rules indicated by the
2145 Lia Rumantscha (Romansh language society).")
2146     (license license:lppl1.3+)))
2147
2148 (define-public texlive-hyphen-russian
2149   (package
2150     (inherit (texlive-hyphen-package
2151               "texlive-hyphen-russian" "ru"
2152               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
2153               (base32
2154                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
2155     (synopsis "Russian hyphenation patterns")
2156     (description "This package provides hyphenation patterns for Russian in
2157 T2A and UTF-8 encodings.")
2158     (license license:lppl1.2+)))
2159
2160 (define-public texlive-hyphen-sanskrit
2161   (package
2162     (inherit (texlive-hyphen-package
2163               "texlive-hyphen-sanskrit" "sa"
2164               (list "/doc/generic/hyph-utf8/languages/sa/hyphenmin.txt"
2165                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
2166               (base32
2167                "1bkzj8swj4lbswf1vr4pb1jg6dixzs7p8h8zm8s8as52h442aida")))
2168     (synopsis "Sanskrit hyphenation patterns")
2169     (description "This package provides hyphenation patterns for Sanskrit and
2170 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
2171 Malayalam longdesc and Telugu scripts for Unicode engines.")
2172     ;; "You may freely use, copy, modify and/or distribute this file."
2173     (license (license:non-copyleft
2174               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
2175
2176 (define-public texlive-hyphen-serbian
2177   (package
2178     (inherit (texlive-hyphen-package
2179               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
2180               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
2181                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
2182                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
2183               (base32
2184                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
2185     (synopsis "Serbian hyphenation patterns")
2186     (description "This package provides hyphenation patterns for Serbian in
2187 T1/EC, T2A and UTF-8 encodings.")
2188     ;; Any version of the GPL.
2189     (license license:gpl3+)))
2190
2191 (define-public texlive-hyphen-slovak
2192   (package
2193     (inherit (texlive-hyphen-package
2194               "texlive-hyphen-slovak" "sk"
2195               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
2196               (base32
2197                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
2198     (synopsis "Slovak hyphenation patterns")
2199     (description "This package provides hyphenation patterns for Slovak in
2200 T1/EC and UTF-8 encodings.")
2201     (license license:gpl2+)))
2202
2203 (define-public texlive-hyphen-slovenian
2204   (package
2205     (inherit (texlive-hyphen-package
2206               "texlive-hyphen-slovenian" "sl"
2207               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
2208               (base32
2209                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
2210     (synopsis "Slovenian hyphenation patterns")
2211     (description "This package provides hyphenation patterns for Slovenian in
2212 T1/EC and UTF-8 encodings.")
2213     ;; Either license
2214     (license (list license:lppl1.0+ license:expat))))
2215
2216 (define-public texlive-hyphen-spanish
2217   (package
2218     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
2219     ;; generate obsolete hyphenation patterns, which aren't included in a
2220     ;; default TeX Live distribution, so we don't include them either.
2221     (inherit (texlive-hyphen-package
2222               "texlive-hyphen-spanish" "es"
2223               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
2224               (base32
2225                "05lbvjkj304xxghyihk8js0kmg97ddlgijld3bp81bc28h4cav0v")))
2226     (synopsis "Hyphenation patterns for Spanish")
2227     (description "The package provides hyphenation patterns for Spanish in
2228 T1/EC and UTF-8 encodings.")
2229     (license license:expat)))
2230
2231 (define-public texlive-hyphen-swedish
2232   (package
2233     (inherit (texlive-hyphen-package
2234               "texlive-hyphen-swedish" "sv"
2235               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2236               (base32
2237                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2238     (synopsis "Swedish hyphenation patterns")
2239     (description "This package provides hyphenation patterns for Swedish in
2240 T1/EC and UTF-8 encodings.")
2241     (license license:lppl1.2+)))
2242
2243 (define-public texlive-hyphen-thai
2244   (package
2245     (inherit (texlive-hyphen-package
2246               "texlive-hyphen-thai" "th"
2247               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2248               (base32
2249                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2250     (synopsis "Thai hyphenation patterns")
2251     (description "This package provides hyphenation patterns for Thai in LTH
2252 and UTF-8 encodings.")
2253     (license license:lppl1.3+)))
2254
2255 (define-public texlive-hyphen-turkish
2256   (let ((template (texlive-hyphen-package
2257                    "texlive-hyphen-turkish" "tr"
2258                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2259                    (base32
2260                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2261     (package
2262       (inherit template)
2263       (synopsis "Hyphenation patterns for Turkish")
2264       (description "The package provides hyphenation patterns for Turkish in
2265 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2266 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2267 and Ottoman Turkish in Latin script, however the required character set didn't
2268 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2269 compatibility with 8-bit engines.")
2270       (license license:lppl1.0+))))
2271
2272 (define-public texlive-hyphen-turkmen
2273   (let ((template (texlive-hyphen-package
2274                    "texlive-hyphen-turkmen" "tk"
2275                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2276                    (base32
2277                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2278     (package
2279       (inherit template)
2280       (synopsis "Hyphenation patterns for Turkmen")
2281       (description "The package provides hyphenation patterns for Turkmen in
2282 T1/EC and UTF-8 encodings.")
2283       (license license:expat))))
2284
2285 (define-public texlive-hyphen-ukrainian
2286   (package
2287     (inherit (texlive-hyphen-package
2288               "texlive-hyphen-ukrainian" "uk"
2289               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2290               (base32
2291                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2292     (synopsis "Ukrainian hyphenation patterns")
2293     (description "This package provides hyphenation patterns for Ukrainian in
2294 T2A and UTF-8 encodings.")
2295     ;; No version specified
2296     (license license:lppl)))
2297
2298 (define-public texlive-hyphen-uppersorbian
2299   (package
2300     (inherit (texlive-hyphen-package
2301               "texlive-hyphen-uppersorbian" "hsb"
2302               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2303               (base32
2304                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2305     (synopsis "Upper Sorbian hyphenation patterns")
2306     (description "This package provides hyphenation patterns for Upper Sorbian
2307 in T1/EC and UTF-8 encodings.")
2308     (license license:lppl1.3a+)))
2309
2310 (define-public texlive-hyphen-welsh
2311   (package
2312     (inherit (texlive-hyphen-package
2313               "texlive-hyphen-welsh" "cy"
2314               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2315               (base32
2316                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2317     (synopsis "Welsh hyphenation patterns")
2318     (description "This package provides hyphenation patterns for Welsh in
2319 T1/EC and UTF-8 encodings.")
2320     ;; Either license
2321     (license (list license:lppl1.0+ license:expat))))
2322
2323 (define-public texlive-hyph-utf8
2324   (package
2325     (inherit (simple-texlive-package
2326               "texlive-hyph-utf8"
2327               (list "/source/generic/hyph-utf8/"
2328                     "/source/luatex/hyph-utf8/"
2329                     "/doc/luatex/hyph-utf8/"
2330                     "/tex/luatex/hyph-utf8/etex.src"
2331                     ;; Used to extract luatex-hyphen.lua
2332                     "/tex/latex/base/docstrip.tex"
2333
2334                     ;; Documentation; we can't use the whole directory because
2335                     ;; it includes files from other packages.
2336                     "/doc/generic/hyph-utf8/CHANGES"
2337                     "/doc/generic/hyph-utf8/HISTORY"
2338                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2339                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2340                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2341                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2342                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2343                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2344               (base32
2345                "1v6f59r1fcp7pk7ddskqdzl7hzbszsxd04mfd3xznv8fc73iv72l")))
2346     (outputs '("out" "doc"))
2347     (build-system gnu-build-system)
2348     (arguments
2349      `(#:tests? #f ; there are none
2350        #:modules ((guix build gnu-build-system)
2351                   (guix build utils)
2352                   (ice-9 match))
2353        #:make-flags
2354        (list "-C" "source/luatex/hyph-utf8/"
2355              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2356              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2357              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2358              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2359              (string-append "UNPACKED = $(NAME).lua"))
2360        #:phases
2361        (modify-phases %standard-phases
2362          ;; TeX isn't usable at this point, so we first need to generate the
2363          ;; tex.fmt.
2364          (replace 'configure
2365            (lambda* (#:key inputs outputs #:allow-other-keys)
2366              ;; Target directories must exist.
2367              (mkdir-p (string-append (assoc-ref %outputs "out")
2368                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2369              (mkdir-p (string-append (assoc-ref %outputs "doc")
2370                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2371
2372              ;; We cannot build the documentation because that requires a
2373              ;; fully functional pdflatex, which depends on this package.
2374              (substitute* "source/luatex/hyph-utf8/Makefile"
2375                (("all: .*") "all: $(RUNFILES)\n"))
2376
2377              ;; Find required fonts for building tex.fmt
2378              (setenv "TFMFONTS"
2379                      (string-append (assoc-ref inputs "texlive-cm")
2380                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2381                                     (assoc-ref inputs "texlive-knuth-lib")
2382                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2383              ;; ...and find all tex files in this environment.
2384              (setenv "TEXINPUTS"
2385                      (string-append
2386                       (getcwd) ":"
2387                       (string-join
2388                        (map (match-lambda ((_ . dir) dir)) inputs)
2389                        "//:")))
2390
2391              ;; Generate tex.fmt.
2392              (let ((where "source/luatex/hyph-utf8"))
2393                (mkdir-p where)
2394                (with-directory-excursion where
2395                  (invoke "tex" "-ini"
2396                          (string-append (assoc-ref inputs "texlive-tex-plain")
2397                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2398          (add-before 'build 'build-loaders-and-converters
2399            (lambda* (#:key outputs #:allow-other-keys)
2400              (let* ((root (string-append (assoc-ref outputs "out")
2401                                          "/share/texmf-dist"))
2402                     (conv
2403                      (string-append root
2404                                     "/tex/generic/hyph-utf8/conversions")))
2405
2406                ;; Build converters
2407                (mkdir-p conv)
2408                (with-directory-excursion "source/generic/hyph-utf8"
2409                  (substitute* "generate-converters.rb"
2410                    (("\\$path_root=File.*")
2411                     (string-append "$path_root=\"" root "\"\n"))
2412                    ;; Avoid error with newer Ruby.
2413                    (("#1\\{%") "#1{%%"))
2414                  (invoke "ruby" "generate-converters.rb"))
2415                #t)))
2416          (replace 'install
2417            (lambda* (#:key source outputs #:allow-other-keys)
2418              (let ((doc (assoc-ref outputs "doc"))
2419                    (out (assoc-ref outputs "out")))
2420                (mkdir-p doc)
2421                (copy-recursively
2422                 (string-append source "/doc")
2423                 (string-append doc "/doc"))
2424                (install-file
2425                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2426                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2427              #t)))))
2428     (native-inputs
2429      `(("ruby" ,ruby)
2430        ("texlive-bin" ,texlive-bin)
2431        ;; The following packages are needed for build "tex.fmt", which we need
2432        ;; for a working "tex".
2433        ("texlive-tex-plain" ,texlive-tex-plain)
2434        ("texlive-cm" ,texlive-cm)
2435        ("texlive-knuth-lib" ,texlive-knuth-lib)
2436        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2437     (home-page "https://ctan.org/pkg/hyph-utf8")
2438     (synopsis "Hyphenation patterns expressed in UTF-8")
2439     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2440 hyphenation patterns in UTF-8 format, whereas older systems require
2441 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2442 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2443 etc).  The present package offers a collection of conversions of existing
2444 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2445 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2446 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2447 converters, will completely supplant the older patterns.")
2448     ;; Individual files each have their own license.  Most of these files are
2449     ;; independent hyphenation patterns.
2450     (license (list license:lppl1.0+
2451                    license:lppl1.2+
2452                    license:lppl1.3
2453                    license:lppl1.3+
2454                    license:lppl1.3a+
2455                    license:lgpl2.1
2456                    license:lgpl2.1+
2457                    license:lgpl3+
2458                    license:gpl2+
2459                    license:gpl3+
2460                    license:mpl1.1
2461                    license:asl2.0
2462                    license:expat
2463                    license:bsd-3
2464                    license:cc0
2465                    license:public-domain
2466                    license:wtfpl2))))
2467
2468 (define-public texlive-generic-hyph-utf8
2469   (deprecated-package "texlive-generic-hyph-utf8" texlive-hyph-utf8))
2470
2471 (define-public texlive-dehyph-exptl
2472   (package
2473     (inherit (simple-texlive-package
2474               "texlive-dehyph-exptl"
2475               (list "/tex/generic/dehyph-exptl/"
2476                     "/doc/generic/dehyph-exptl/")
2477               (base32
2478                "1fnqc63gz8gvdyfz45bx8dxn1r1rwrypahs3bqd2vlc8ff76xp86")
2479               #:trivial? #t))
2480     (propagated-inputs
2481      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2482        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2483     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2484     (synopsis "Hyphenation patterns for German")
2485     (description "The package provides experimental hyphenation patterns for
2486 the German language, covering both traditional and reformed orthography.  The
2487 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2488 bundle.")
2489     ;; Hyphenation patterns are under the Expat license; documentation is
2490     ;; under LPPL.
2491     (license (list license:expat license:lppl))))
2492
2493 (define-public texlive-generic-dehyph-exptl
2494   (deprecated-package "texlive-generic-dehyph-exptl" texlive-dehyph-exptl))
2495
2496 (define-public texlive-ukrhyph
2497   (package
2498     (inherit (simple-texlive-package
2499               "texlive-ukrhyph"
2500               (list "/doc/generic/ukrhyph/"
2501                     "/tex/generic/ukrhyph/")
2502               (base32
2503                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2504               #:trivial? #t))
2505     (home-page "https://www.ctan.org/pkg/ukrhyph")
2506     (synopsis "Hyphenation patterns for Ukrainian")
2507     (description "The package provides a range of hyphenation patterns for
2508 Ukrainian, depending on the encoding of the output font including the standard
2509 T2A.")
2510     (license license:lppl)))
2511
2512 (define-public texlive-ruhyphen
2513   (let ((template (simple-texlive-package
2514                    "texlive-ruhyphen"
2515                    (list "/source/generic/ruhyphen/"
2516                          "/tex/generic/ruhyphen/")
2517                    (base32
2518                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2519                    #:trivial? #t)))
2520     (package
2521       (inherit template)
2522       (arguments
2523        (substitute-keyword-arguments (package-arguments template)
2524          ((#:phases phases)
2525           `(modify-phases ,phases
2526              (replace 'build
2527                (lambda _
2528                  (let ((cwd (getcwd)))
2529                    ;; Remove generated files.
2530                    (for-each delete-file
2531                              (find-files "tex/generic/ruhyphen/"
2532                                          "^cyry.*.tex$"))
2533                    (substitute* "source/generic/ruhyphen/Makefile"
2534                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2535                    (with-directory-excursion "tex/generic/ruhyphen"
2536                      (invoke "make" "-f"
2537                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2538       (native-inputs
2539        `(("coreutils" ,coreutils)
2540          ("gawk" ,gawk)
2541          ("sed" ,sed)
2542          ("grep" ,grep)
2543          ("perl" ,perl)))
2544       (home-page "https://www.ctan.org/pkg/ruhyphen")
2545       (synopsis "Hyphenation patterns for Russian")
2546       (description "The package provides a collection of Russian hyphenation
2547 patterns supporting a number of Cyrillic font encodings, including T2,
2548 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2549       (license license:lppl))))
2550
2551 (define-public texlive-kpathsea
2552   (package
2553     (inherit (simple-texlive-package
2554               "texlive-kpathsea"
2555               (list "/web2c/amiga-pl.tcx"
2556                     "/web2c/cp1250cs.tcx"
2557                     "/web2c/cp1250pl.tcx"
2558                     "/web2c/cp1250t1.tcx"
2559                     "/web2c/cp227.tcx"
2560                     "/web2c/cp852-cs.tcx"
2561                     "/web2c/cp852-pl.tcx"
2562                     "/web2c/cp8bit.tcx"
2563                     "/web2c/empty.tcx"
2564                     "/web2c/fmtutil.cnf"
2565                     "/web2c/il1-t1.tcx"
2566                     "/web2c/il2-cs.tcx"
2567                     "/web2c/il2-pl.tcx"
2568                     "/web2c/il2-t1.tcx"
2569                     "/web2c/kam-cs.tcx"
2570                     "/web2c/kam-t1.tcx"
2571                     "/web2c/macce-pl.tcx"
2572                     "/web2c/macce-t1.tcx"
2573                     "/web2c/maz-pl.tcx"
2574                     "/web2c/mktex.cnf"
2575                     "/web2c/mktex.opt"
2576                     "/web2c/mktexdir"
2577                     "/web2c/mktexdir.opt"
2578                     "/web2c/mktexnam"
2579                     "/web2c/mktexnam.opt"
2580                     "/web2c/mktexupd"
2581                     "/web2c/natural.tcx"
2582                     "/web2c/tcvn-t5.tcx"
2583                     "/web2c/viscii-t5.tcx")
2584               (base32
2585                "1prvxq211hqfss1bhiykazqfcy298lsz3x8lbmbyrh9c8grnj4ip")
2586               #:trivial? #t))
2587     (home-page "https://www.tug.org/texlive/")
2588     (synopsis "Files related to the path searching library for TeX")
2589     (description "Kpathsea is a library and utility programs which provide
2590 path searching facilities for TeX file types, including the self-locating
2591 feature required for movable installations, layered on top of a general search
2592 mechanism.  This package provides supporting files.")
2593     (license license:lgpl3+)))
2594
2595 (define-public texlive-latexconfig
2596   (package
2597     (inherit (simple-texlive-package
2598               "texlive-latexconfig"
2599               (list "/tex/latex/latexconfig/")
2600               (base32
2601                "10ynmd8b9b9l1wl1mva23yz4zir53p6r5z31s39wmxz19pj12qvx")
2602               #:trivial? #t))
2603     (home-page "https://www.tug.org/")
2604     (synopsis "Configuration files for LaTeX-related formats")
2605     (description "The package provides configuration files for LaTeX-related
2606 formats.")
2607     (license license:lppl)))
2608
2609 (define-public texlive-latex-base
2610   (let ((template (simple-texlive-package
2611                    "texlive-latex-base"
2612                    (list "/doc/latex/base/"
2613                          "/source/latex/base/"
2614                          ;; Almost all files in /tex/latex/base are generated, but
2615                          ;; these are not:
2616                          "/tex/latex/base/idx.tex"
2617                          "/tex/latex/base/lablst.tex"
2618                          "/tex/latex/base/ltnews.cls"
2619                          "/tex/latex/base/ltxcheck.tex"
2620                          "/tex/latex/base/ltxguide.cls"
2621                          "/tex/latex/base/minimal.cls"
2622                          "/tex/latex/base/sample2e.tex"
2623                          "/tex/latex/base/small2e.tex"
2624                          "/tex/latex/base/testpage.tex"
2625                          "/tex/latex/base/texsys.cfg")
2626                    (base32
2627                     "11bcjmn0n7sv7g6r8v6nxl4x1pw0famqmq0v0pbjyz04akhvfvry")
2628                    #:trivial? #t)))
2629     (package
2630       (inherit template)
2631       (arguments
2632        (substitute-keyword-arguments (package-arguments template)
2633          ((#:modules modules '())
2634           '((guix build gnu-build-system)
2635             (guix build utils)
2636             (ice-9 match)
2637             (srfi srfi-26)))
2638          ((#:phases phases)
2639           `(modify-phases ,phases
2640              ;; The literal tab in the dtx file is translated to the string
2641              ;; "^^I" in the generated Lua file, which causes a syntax error.
2642              (add-after 'unpack 'fix-lua-sources
2643                (lambda _
2644                  (substitute* "source/latex/base/ltluatex.dtx"
2645                    (("  ") "  "))
2646                  #t))
2647              (replace 'build
2648                (lambda* (#:key inputs #:allow-other-keys)
2649                  ;; Find required fonts
2650                  (setenv "TFMFONTS"
2651                          (string-join
2652                           (map (match-lambda
2653                                  ((pkg-name . dir)
2654                                   (string-append
2655                                    (assoc-ref inputs pkg-name)
2656                                    "/share/texmf-dist/fonts/tfm/public"
2657                                    dir)))
2658                                '(("texlive-etex" . "/etex")
2659                                  ("texlive-cm" . "/cm")
2660                                  ("texlive-fonts-latex" . "/latex-fonts")
2661                                  ("texlive-knuth-lib" . "/knuth-lib")))
2662                           ":"))
2663                  (let ((cwd (getcwd)))
2664                    (setenv "TEXINPUTS"
2665                            (string-append
2666                             cwd "//:"
2667                             cwd "/source/latex/base//:"
2668                             cwd "/build:"
2669                             (string-join
2670                              (map (match-lambda ((_ . dir) dir)) inputs)
2671                              "//:"))))
2672
2673                  ;; This is the actual build step.
2674                  (mkdir "build")
2675                  (invoke "tex" "-ini" "-interaction=scrollmode"
2676                          "-output-directory=build" "unpack.ins")
2677
2678                  ;; XXX: We can't build all formats at this point, nor are they
2679                  ;; part of the LaTeX base, so we disable them.  Actually, we
2680                  ;; should be running this all in a profile hook, so that only
2681                  ;; selected formats and hyphenation patterns are included, but it
2682                  ;; takes long and TeX Live isn't designed to be modular like
2683                  ;; that.  Everything operates on a shared directory, which we
2684                  ;; would only have at profile generation time.
2685                  (let ((disabled-formats
2686                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2687                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2688                           "platex-dev eptex" "uplatex-dev euptex"
2689                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2690                           "luacsplain luatex" "optex luatex"
2691                           ,@(if (string-prefix? "powerpc64le"
2692                                                 (or (%current-target-system)
2693                                                     (%current-system)))
2694                               '("luajittex") '())
2695                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2696                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2697                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2698                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2699                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2700                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2701                    (mkdir "web2c")
2702                    (install-file (string-append
2703                                   (assoc-ref inputs "texlive-kpathsea")
2704                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2705                                  "web2c")
2706                    (make-file-writable "web2c/fmtutil.cnf")
2707                    (substitute* "web2c/fmtutil.cnf"
2708                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2709                       (string-append "#! " m))
2710                      (("translate-file=cp227")
2711                       (format #f "translate-file=~a/share/texmf-dist/web2c/cp227"
2712                               (assoc-ref inputs "texlive-kpathsea")))))
2713                  (invoke "fmtutil-sys" "--all"
2714                          "--fmtdir=web2c"
2715                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2716                  ;; We don't actually want to install it.
2717                  (delete-file "web2c/fmtutil.cnf")
2718                  #t))
2719              (add-after 'install 'install-more
2720                (lambda* (#:key inputs outputs #:allow-other-keys)
2721                  (let* ((out (assoc-ref outputs "out"))
2722                         (root (string-append out "/share/texmf-dist"))
2723                         (target (string-append root "/tex/latex/base"))
2724                         (web2c (string-append root "/web2c"))
2725                         (makeindex (string-append root "/makeindex/latex")))
2726                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2727
2728                    ;; The usedir directive in docstrip.ins is ignored, so these
2729                    ;; two files end up in the wrong place.  Move them.
2730                    (mkdir-p makeindex)
2731                    (for-each (lambda (file)
2732                                (install-file file makeindex)
2733                                (delete-file file))
2734                              '("build/gglo.ist"
2735                                "build/gind.ist"))
2736                    (for-each (cut install-file <> target)
2737                              (find-files "build" ".*"))
2738                    (for-each (cut install-file <> web2c)
2739                              (find-files "web2c" ".*"))
2740                    #t)))))))
2741       (native-inputs
2742        `(("texlive-bin" ,texlive-bin)
2743          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2744          ("texlive-tex-plain" ,texlive-tex-plain)
2745          ("texlive-kpathsea" ,texlive-kpathsea)
2746          ("texlive-cm" ,texlive-cm)
2747          ("texlive-fonts-latex" ,texlive-fonts-latex)
2748          ("texlive-knuth-lib" ,texlive-knuth-lib)
2749          ("texlive-luatexconfig"
2750           ,(texlive-origin
2751             "texlive-luatexconfig" (number->string %texlive-revision)
2752             (list "/tex/generic/config/luatex-unicode-letters.tex"
2753                   "/tex/generic/config/luatexiniconfig.tex"
2754                   "/web2c/texmfcnf.lua")
2755             (base32
2756              "0pk0ckwd5p58nqmhlajhbgxynym25jmhv48xm5ns540r996k0g2r")))))
2757       (propagated-inputs
2758        `(("texlive-dehyph-exptl" ,texlive-dehyph-exptl)
2759          ("texlive-etex" ,texlive-etex)
2760          ("texlive-hyph-utf8" ,texlive-hyph-utf8)
2761          ("texlive-hyphen-base" ,texlive-hyphen-base)
2762          ("texlive-hyphen-afrikaans" ,texlive-hyphen-afrikaans)
2763          ("texlive-hyphen-ancientgreek" ,texlive-hyphen-ancientgreek)
2764          ("texlive-hyphen-armenian" ,texlive-hyphen-armenian)
2765          ("texlive-hyphen-basque" ,texlive-hyphen-basque)
2766          ("texlive-hyphen-belarusian" ,texlive-hyphen-belarusian)
2767          ("texlive-hyphen-bulgarian" ,texlive-hyphen-bulgarian)
2768          ("texlive-hyphen-catalan" ,texlive-hyphen-catalan)
2769          ("texlive-hyphen-chinese" ,texlive-hyphen-chinese)
2770          ("texlive-hyphen-churchslavonic" ,texlive-hyphen-churchslavonic)
2771          ("texlive-hyphen-coptic" ,texlive-hyphen-coptic)
2772          ("texlive-hyphen-croatian" ,texlive-hyphen-croatian)
2773          ("texlive-hyphen-czech" ,texlive-hyphen-czech)
2774          ("texlive-hyphen-danish" ,texlive-hyphen-danish)
2775          ("texlive-hyphen-dutch" ,texlive-hyphen-dutch)
2776          ("texlive-hyphen-english" ,texlive-hyphen-english)
2777          ("texlive-hyphen-esperanto" ,texlive-hyphen-esperanto)
2778          ("texlive-hyphen-estonian" ,texlive-hyphen-estonian)
2779          ("texlive-hyphen-ethiopic" ,texlive-hyphen-ethiopic)
2780          ("texlive-hyphen-finnish" ,texlive-hyphen-finnish)
2781          ("texlive-hyphen-french" ,texlive-hyphen-french)
2782          ("texlive-hyphen-friulan" ,texlive-hyphen-friulan)
2783          ("texlive-hyphen-galician" ,texlive-hyphen-galician)
2784          ("texlive-hyphen-georgian" ,texlive-hyphen-georgian)
2785          ("texlive-hyphen-german" ,texlive-hyphen-german)
2786          ("texlive-hyphen-greek" ,texlive-hyphen-greek)
2787          ("texlive-hyphen-hungarian" ,texlive-hyphen-hungarian)
2788          ("texlive-hyphen-icelandic" ,texlive-hyphen-icelandic)
2789          ("texlive-hyphen-indic" ,texlive-hyphen-indic)
2790          ("texlive-hyphen-indonesian" ,texlive-hyphen-indonesian)
2791          ("texlive-hyphen-interlingua" ,texlive-hyphen-interlingua)
2792          ("texlive-hyphen-irish" ,texlive-hyphen-irish)
2793          ("texlive-hyphen-italian" ,texlive-hyphen-italian)
2794          ("texlive-hyphen-kurmanji" ,texlive-hyphen-kurmanji)
2795          ("texlive-hyphen-latin" ,texlive-hyphen-latin)
2796          ("texlive-hyphen-latvian" ,texlive-hyphen-latvian)
2797          ("texlive-hyphen-lithuanian" ,texlive-hyphen-lithuanian)
2798          ("texlive-hyphen-macedonian" ,texlive-hyphen-macedonian)
2799          ("texlive-hyphen-mongolian" ,texlive-hyphen-mongolian)
2800          ("texlive-hyphen-norwegian" ,texlive-hyphen-norwegian)
2801          ("texlive-hyphen-occitan" ,texlive-hyphen-occitan)
2802          ("texlive-hyphen-pali" ,texlive-hyphen-pali)
2803          ("texlive-hyphen-piedmontese" ,texlive-hyphen-piedmontese)
2804          ("texlive-hyphen-polish" ,texlive-hyphen-polish)
2805          ("texlive-hyphen-portuguese" ,texlive-hyphen-portuguese)
2806          ("texlive-hyphen-romanian" ,texlive-hyphen-romanian)
2807          ("texlive-hyphen-romansh" ,texlive-hyphen-romansh)
2808          ("texlive-hyphen-russian" ,texlive-hyphen-russian)
2809          ("texlive-hyphen-sanskrit" ,texlive-hyphen-sanskrit)
2810          ("texlive-hyphen-serbian" ,texlive-hyphen-serbian)
2811          ("texlive-hyphen-slovak" ,texlive-hyphen-slovak)
2812          ("texlive-hyphen-slovenian" ,texlive-hyphen-slovenian)
2813          ("texlive-hyphen-spanish" ,texlive-hyphen-spanish)
2814          ("texlive-hyphen-swedish" ,texlive-hyphen-swedish)
2815          ("texlive-hyphen-thai" ,texlive-hyphen-thai)
2816          ("texlive-hyphen-turkish" ,texlive-hyphen-turkish)
2817          ("texlive-hyphen-turkmen" ,texlive-hyphen-turkmen)
2818          ("texlive-hyphen-ukrainian" ,texlive-hyphen-ukrainian)
2819          ("texlive-hyphen-uppersorbian" ,texlive-hyphen-uppersorbian)
2820          ("texlive-hyphen-welsh" ,texlive-hyphen-welsh)
2821          ("texlive-unicode-data" ,texlive-unicode-data)
2822          ("texlive-ukrhyph" ,texlive-ukrhyph)
2823          ("texlive-ruhyphen" ,texlive-ruhyphen)
2824          ("texlive-latexconfig" ,texlive-latexconfig)))
2825       (home-page "https://www.ctan.org/pkg/latex-base")
2826       (synopsis "Base sources of LaTeX")
2827       (description
2828        "This bundle comprises the source of LaTeX itself, together with several
2829 packages which are considered \"part of the kernel\".  This bundle, together
2830 with the required packages, constitutes what every LaTeX distribution should
2831 contain.")
2832       (license license:lppl1.3c+))))
2833
2834 (define-public texlive-latex-atveryend
2835   (package
2836     (inherit (simple-texlive-package
2837               "texlive-latex-atveryend"
2838               '("/doc/latex/atveryend/README.md"
2839                 "/tex/latex/atveryend/")
2840               (base32
2841                "1gz5ssxjlqa53a8blsmdk2qjahzc910ldh26xjxfxgqnqb03rqx7")
2842               #:trivial? #t))
2843     (home-page "https://www.ctan.org/pkg/atveryend")
2844     (synopsis "Hooks at the very end of a document")
2845     (description
2846      "This LaTeX packages provides two hooks for @code{\\end@{document@}
2847 that are executed after the hook of @code{\\AtEndDocument}:
2848 @code{\\AfterLastShipout} can be used for code that is to be executed right
2849 after the last @code{\\clearpage} before the @file{.aux} file is closed.
2850 @code{\\AtVeryEndDocument} is used for code after closing and final reading
2851 of the @file{.aux} file.")
2852     (license license:lppl1.3c+)))
2853
2854 (define-public texlive-latex-auxhook
2855   (package
2856     (inherit (simple-texlive-package
2857               "texlive-latex-auxhook"
2858               '("/doc/latex/auxhook/README.md"
2859                 "/tex/latex/auxhook/")
2860               (base32
2861                "1xh445shr00rh43nnz03xh8k2mdrxgsr03lllqpgvwhm6yzsydkf")
2862               #:trivial? #t))
2863     (home-page "https://www.ctan.org/pkg/auxhook")
2864     (synopsis "Hooks for auxiliary files")
2865     (description
2866      "This package provides hooks for adding code at the beginning of
2867 @file{.aux} files.")
2868     (license license:lppl1.3c+)))
2869
2870 (define-public texlive-latex-epstopdf-pkg
2871   (package
2872     (inherit (simple-texlive-package
2873               "texlive-latex-epstopdf-pkg"
2874               '("/doc/latex/epstopdf-pkg/"
2875                 "/tex/latex/epstopdf-pkg/")
2876               (base32
2877                "0zl6jiyp2cvvyqx3lwxdkcvvnkqgbwj4issq07cagf61gljq6fns")
2878               #:trivial? #t))
2879     (home-page "https://www.ctan.org/pkg/epstopdf-pkg")
2880     (synopsis "Call @command{epstopdf} \"on the fly\"")
2881     (description
2882      "The package adds support for EPS files in the @code{graphicx} package
2883 when running under pdfTeX.  If an EPS graphic is detected, the package
2884 spawns a process to convert the EPS to PDF, using the script
2885 @command{epstopdf}.")
2886     (license license:lppl1.3c+)))
2887
2888 (define-public texlive-latex-filecontents
2889   (package
2890     (name "texlive-latex-filecontents")
2891     (version (number->string %texlive-revision))
2892     (source (origin
2893               (method svn-fetch)
2894               (uri (texlive-ref "latex" "filecontents"))
2895               (file-name (string-append name "-" version "-checkout"))
2896               (sha256
2897                (base32
2898                 "1cmfigg5jx3hmdyh4gv8kwxi7dg076ldkxmr46s05xvhzjig1z9x"))))
2899     (build-system texlive-build-system)
2900     (arguments '(#:tex-directory "latex/filecontents"))
2901     (home-page "https://www.ctan.org/pkg/filecontents")
2902     (synopsis "Extended filecontents and filecontents* environments")
2903     (description
2904      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2905 enable a LaTeX source file to generate external files as it runs through
2906 LaTeX.  However, there are two limitations of these environments: they refuse
2907 to overwrite existing files, and they can only be used in the preamble of a
2908 document.  The filecontents package removes these limitations, letting you
2909 overwrite existing files and letting you use @code{filecontents} /
2910 @code{filecontents*} anywhere.")
2911     (license license:lppl1.3c+)))
2912
2913 (define-public texlive-epsf
2914   (package
2915     (inherit (simple-texlive-package
2916               "texlive-epsf"
2917               (list "/doc/generic/epsf/"
2918                     "/tex/generic/epsf/")
2919               (base32
2920                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
2921               #:trivial? #t))
2922     (home-page "https://www.ctan.org/pkg/epsf")
2923     (synopsis "Simple macros for EPS inclusion")
2924     (description
2925      "This package provides the original (and now obsolescent) graphics
2926 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2927 particular).  For LaTeX users, the package is nowadays (rather strongly)
2928 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2929 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2930 users, via its Plain TeX version.)")
2931     (license license:public-domain)))
2932
2933 (define-public texlive-generic-epsf
2934   (deprecated-package "texlive-generic-epsf" texlive-epsf))
2935
2936 (define-public texlive-latex-fancyvrb
2937   (package
2938     (inherit (simple-texlive-package
2939               "texlive-latex-fancyvrb"
2940               (list "/doc/latex/fancyvrb/README"
2941                     "/tex/latex/fancyvrb/")
2942               (base32
2943                "005ylzlysmvy21rwkbnrf0hnp5bmsjsj11hydg1d9dnq9ffv2s1h")
2944               #:trivial? #t))
2945     (home-page "https://www.ctan.org/pkg/fancyvrb")
2946     (synopsis "Sophisticated verbatim text")
2947     (description
2948      "This package provides tools for the flexible handling of verbatim text
2949 including: verbatim commands in footnotes; a variety of verbatim environments
2950 with many parameters; ability to define new customized verbatim environments;
2951 save and restore verbatim text and environments; write and read files in
2952 verbatim mode; build \"example\" environments (showing both result and
2953 verbatim source).")
2954     (license license:lppl1.0+)))
2955
2956 (define-public texlive-graphics-def
2957   (package
2958     (inherit (simple-texlive-package
2959               "texlive-graphics-def"
2960               (list "/doc/latex/graphics-def/README.md"
2961                     "/tex/latex/graphics-def/")
2962               (base32
2963                "125lm2m9813p29yl7am21kgqdpigyqvrjarg73jpaczifbbbqklf")
2964               #:trivial? #t))
2965     (propagated-inputs
2966      `(("texlive-latex-epstopdf-pkg" ,texlive-latex-epstopdf-pkg)))
2967     (home-page "https://www.ctan.org/pkg/latex-graphics")
2968     (synopsis "Color and graphics option files")
2969     (description
2970      "This bundle is a combined distribution consisting of @file{dvips.def},
2971 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
2972 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
2973 packages.")
2974     (license license:lppl1.3c+)))
2975
2976 (define-public texlive-graphics-cfg
2977   (package
2978     (inherit (simple-texlive-package
2979               "texlive-graphics-cfg"
2980               (list "/doc/latex/graphics-cfg/README.md"
2981                     "/tex/latex/graphics-cfg/")
2982               (base32
2983                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
2984               #:trivial? #t))
2985     (home-page "https://www.ctan.org/pkg/latex-graphics")
2986     (synopsis "Sample configuration files for LaTeX color and graphics")
2987     (description
2988      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
2989 set default \"driver\" options for the color and graphics packages.")
2990     (license license:public-domain)))
2991
2992 (define-public texlive-latex-graphics
2993   (package
2994     (name "texlive-latex-graphics")
2995     (version (number->string %texlive-revision))
2996     (source (origin
2997               (method svn-fetch)
2998               (uri (texlive-ref "latex" "graphics"))
2999               (file-name (string-append name "-" version "-checkout"))
3000               (sha256
3001                (base32
3002                 "0asln498brkd1miyhc7029fjx7gcj6vbbas5aan6w289ac4yz54h"))))
3003     (build-system texlive-build-system)
3004     (arguments '(#:tex-directory "latex/graphics"))
3005     (propagated-inputs
3006      `(("texlive-graphics-cfg" ,texlive-graphics-cfg)
3007        ("texlive-graphics-def" ,texlive-graphics-def)))
3008     (home-page "https://www.ctan.org/pkg/latex-graphics")
3009     (synopsis "LaTeX standard graphics bundle")
3010     (description
3011      "This is a collection of LaTeX packages for producing color, including
3012 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
3013 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
3014 keyval, and lscape.")
3015     (license license:lppl1.3c+)))
3016
3017 (define-public texlive-latex-hycolor
3018   (package
3019     (inherit (simple-texlive-package
3020               "texlive-latex-hycolor"
3021               (list "/doc/latex/hycolor/README.md"
3022                     "/tex/latex/hycolor/")
3023               (base32
3024                "026lfb4l7b3q8g6zc68siqandhb1x98cbycn7njknqva6s99aiqn")
3025               #:trivial? #t))
3026     (home-page "https://www.ctan.org/pkg/latex-graphics")
3027     (synopsis "Color for hyperref and bookmark")
3028     (description
3029      "This package provides the code for the @code{color} option that is
3030 used by @code{hyperref} and @code{bookmark}.")
3031     (license license:lppl1.3c+)))
3032
3033 (define-public texlive-xcolor
3034   (let ((template (simple-texlive-package
3035                    "texlive-xcolor"
3036                    (list "/doc/latex/xcolor/"
3037                          "/source/latex/xcolor/")
3038                    (base32
3039                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
3040     (package
3041       (inherit template)
3042       (arguments
3043        (substitute-keyword-arguments (package-arguments template)
3044          ((#:tex-directory _ #t)
3045           "latex/xcolor")
3046          ((#:phases phases)
3047           `(modify-phases ,phases
3048              (add-after 'unpack 'chdir
3049                (lambda _ (chdir "source/latex/xcolor") #t))
3050              (add-after 'install 'move-files
3051                (lambda* (#:key outputs #:allow-other-keys)
3052                  (let ((share (string-append (assoc-ref outputs "out")
3053                                              "/share/texmf-dist")))
3054                    (mkdir-p (string-append share "/dvips/xcolor"))
3055                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
3056                                 (string-append share "/dvips/xcolor/xcolor.pro"))
3057                    #t)))))))
3058       (home-page "https://www.ctan.org/pkg/xcolor")
3059       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
3060       (description
3061        "The package starts from the basic facilities of the colorcolor package,
3062 and provides easy driver-independent access to several kinds of color tints,
3063 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
3064 document-wide target color model and offers complete tools for conversion
3065 between eight color models.  Additionally, there is a command for alternating
3066 row colors plus repeated non-aligned material (like horizontal lines) in
3067 tables.")
3068       (license license:lppl1.2+))))
3069
3070 (define-public texlive-latex-xcolor
3071   (deprecated-package "texlive-latex-xcolor" texlive-xcolor))
3072
3073 (define-public texlive-xmltex
3074   (let ((template (simple-texlive-package
3075                    "texlive-xmltex"
3076                    (list
3077                     "/doc/otherformats/xmltex/"
3078                     "/tex/xmltex/")
3079                    (base32
3080                     "023gv9axq05vwqz50fnkig24dzahwlc4raks2s8xc4pzrv2dv1zy"))))
3081     (package
3082       (inherit template)
3083       (arguments
3084        (substitute-keyword-arguments (package-arguments template)
3085          ((#:tex-directory _ #t)
3086           "tex/xmltex/base")
3087          ((#:phases phases '%standard-phases)
3088           `(modify-phases ,phases
3089              (add-before 'install 'generate-formats
3090                (lambda* (#:key inputs #:allow-other-keys)
3091                  (mkdir "web2c")
3092                  (for-each (lambda (f)
3093                              (copy-file f (basename f)))
3094                            (find-files "tex" "\\.(ini|tex)$"))
3095                  (invoke "fmtutil-sys" "--byfmt" "xmltex"
3096                          "--fmtdir=web2c")
3097                  (invoke "fmtutil-sys" "--byfmt" "pdfxmltex"
3098                          "--fmtdir=web2c")))
3099              (add-after 'install 'install-formats-and-wrappers
3100                (lambda* (#:key inputs outputs #:allow-other-keys)
3101                  (let* ((out (assoc-ref outputs "out"))
3102                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3103                         (pdftex (string-append texlive-bin "/bin/pdftex"))
3104                         (web2c (string-append out "/share/texmf-dist/web2c")))
3105                    (mkdir-p web2c)
3106                    (copy-recursively "web2c" web2c)
3107                    ;; Create convenience command wrappers.
3108                    (mkdir-p (string-append out "/bin"))
3109                    (symlink pdftex (string-append out "/bin/xmltex"))
3110                    (symlink pdftex (string-append out "/bin/pdfxmltex"))
3111                    #t)))))))
3112       (propagated-inputs
3113        ;; The following fonts are propagated as a texlive-updmap.cfg as the font
3114        ;; maps need to be recreated for the fonts to be usable.  They are
3115        ;; required by xmltex through mlnames.sty and unicode.sty.
3116        `(("texlive" ,(texlive-updmap.cfg
3117                       (list
3118                        texlive-amsfonts
3119                        texlive-babel
3120                        texlive-courier
3121                        texlive-helvetic
3122                        texlive-hyperref
3123                        texlive-symbol
3124                        texlive-tipa
3125                        texlive-times
3126                        texlive-zapfding
3127                        ;; The following fonts, while not required, are used if
3128                        ;; available:
3129                        texlive-stmaryrd
3130                        texlive-wasy)))))
3131       (native-inputs
3132        `(("texlive-tex-ini-files" ,texlive-tex-ini-files)))
3133       (home-page "https://www.ctan.org/pkg/xmltex/")
3134       (synopsis "Support for parsing XML documents")
3135       (description "The package provides an implementation of a parser for
3136 documents matching the XML 1.0 and XML Namespace Recommendations.  Element and
3137 attribute names, as well as character data, may use any characters allowed in
3138 XML, using UTF-8 or a suitable 8-bit encoding.")
3139       (license license:lppl1.0+))))        ;per xmltex/base/readme.txt
3140
3141 (define-public texlive-hyperref
3142   (let ((template (simple-texlive-package
3143                    "texlive-hyperref"
3144                    (list "/doc/latex/hyperref/"
3145                          "/source/latex/hyperref/"
3146                          ;; These files are not generated from the sources
3147                          "/tex/latex/hyperref/minitoc-hyper.sty"
3148                          "/tex/latex/hyperref/ntheorem-hyper.sty"
3149                          "/tex/latex/hyperref/xr-hyper.sty")
3150                    (base32
3151                     "1d9myrrwf9zr62j5vp9q4drxs7rj4b06wq04imrnzban5s4gaq6v"))))
3152     (package
3153       (inherit template)
3154       (arguments
3155        (substitute-keyword-arguments (package-arguments template)
3156          ((#:tex-directory _ #t)
3157           "latex/hyperref")
3158          ((#:phases phases)
3159           `(modify-phases ,phases
3160              (add-after 'unpack 'chdir
3161                (lambda _ (chdir "source/latex/hyperref") #t))))))
3162       (propagated-inputs
3163        `(("texlive-generic-atbegshi" ,texlive-generic-atbegshi)
3164          ("texlive-generic-bitset" ,texlive-generic-bitset)
3165          ("texlive-generic-etexcmds" ,texlive-generic-etexcmds)
3166          ("texlive-generic-gettitlestring" ,texlive-generic-gettitlestring)
3167          ("texlive-generic-iftex" ,texlive-generic-iftex)
3168          ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
3169          ("texlive-generic-intcalc" ,texlive-generic-intcalc)
3170          ("texlive-generic-kvdefinekeys" ,texlive-generic-kvdefinekeys)
3171          ("texlive-generic-kvsetkeys" ,texlive-generic-kvsetkeys)
3172          ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)
3173          ("texlive-generic-pdfescape" ,texlive-generic-pdfescape)
3174          ("texlive-latex-auxhook" ,texlive-latex-auxhook)
3175          ("texlive-latex-atveryend" ,texlive-latex-atveryend)
3176          ("texlive-latex-hycolor" ,texlive-latex-hycolor)
3177          ("texlive-latex-kvoptions" ,texlive-latex-kvoptions)
3178          ("texlive-latex-letltxmacro" ,texlive-latex-letltxmacro)
3179          ("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)
3180          ("texlive-latex-refcount" ,texlive-latex-refcount)
3181          ("texlive-latex-rerunfilecheck" ,texlive-latex-rerunfilecheck)
3182          ("texlive-latex-url" ,texlive-latex-url)))
3183       (home-page "https://www.ctan.org/pkg/hyperref")
3184       (synopsis "Extensive support for hypertext in LaTeX")
3185       (description
3186        "The @code{hyperref} package is used to handle cross-referencing commands
3187 in LaTeX to produce hypertext links in the document.  The package provides
3188 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
3189 embedded @code{pdfmark} commands for processing by Acrobat
3190 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
3191 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
3192 pdf and HTML backends.  The package is distributed with the @code{backref} and
3193 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
3194       (license license:lppl1.3+))))
3195
3196 (define-public texlive-latex-hyperref
3197   (deprecated-package "texlive-latex-hyperref" texlive-hyperref))
3198
3199 (define-public texlive-oberdiek
3200   (package
3201     (name "texlive-oberdiek")
3202     (version (number->string %texlive-revision))
3203     (source (origin
3204               (method svn-fetch)
3205               (uri (texlive-ref "latex" "oberdiek"))
3206               (file-name (string-append name "-" version "-checkout"))
3207               (sha256
3208                (base32
3209                 "1ff6yjchdmn7lyllfrnxygjr2ipkrjbb1rs5iyryn47rc3r8mpmk"))))
3210     (build-system texlive-build-system)
3211     (arguments
3212      '(#:tex-directory "latex/oberdiek"
3213        #:build-targets '("oberdiek.ins")
3214        #:phases
3215        (modify-phases %standard-phases
3216          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
3217          (add-after 'unpack 'do-not-process-ifpdf.ins
3218            (lambda _
3219              (substitute* "oberdiek.ins"
3220                (("ifpdf.ins") "ifpdf.dtx"))
3221              #t)))))
3222     (propagated-inputs
3223      `(("texlive-generic-iftex" ,texlive-generic-iftex)))
3224     (home-page "https://www.ctan.org/pkg/oberdiek")
3225     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
3226     (description
3227      "The bundle comprises various LaTeX packages, providing among others:
3228 better accessibility support for PDF files; extensible chemists reaction
3229 arrows; record information about document class(es) used; and many more.")
3230     (license license:lppl1.3+)))
3231
3232 (define-public texlive-latex-oberdiek
3233   (deprecated-package "texlive-latex-oberdiek" texlive-oberdiek))
3234
3235 (define-public texlive-latex-rerunfilecheck
3236   (package
3237     (inherit (simple-texlive-package
3238               "texlive-latex-rerunfilecheck"
3239               '("/doc/latex/rerunfilecheck/"
3240                 "/tex/latex/rerunfilecheck/")
3241               (base32
3242                "1myz0d5bxhxvl4220ikywh921qld8n324kk9kscqbc5iw4063g56")
3243               #:trivial? #t))
3244     (propagated-inputs
3245      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
3246        ("texlive-generic-uniquecounter" ,texlive-generic-uniquecounter)
3247        ("texlive-latex-atveryend" ,texlive-latex-atveryend)
3248        ("texlive-latex-kvoptions" ,texlive-latex-kvoptions)
3249        ("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)))
3250     (home-page "https://www.ctan.org/pkg/rerunfilecheck")
3251     (synopsis "Checksum based rerun checks on auxiliary files")
3252     (description
3253      "This package provides additional rerun warnings if some auxiliary
3254 files have changed.  It is based on MD5 checksum, provided by pdfTeX.")
3255     (license license:lppl1.3c+)))
3256
3257 (define-public texlive-latex-tools
3258   (package
3259     (name "texlive-latex-tools")
3260     (version (number->string %texlive-revision))
3261     (source (origin
3262               (method svn-fetch)
3263               (uri (texlive-ref "latex" "tools"))
3264               (file-name (string-append name "-" version "-checkout"))
3265               (sha256
3266                (base32
3267                 "1p92bg1wdlg28m7xbdipx8rxavvpbmsx8zy845bk2rdqhc9gbhkl"))))
3268     (build-system texlive-build-system)
3269     (arguments
3270      '(#:tex-directory "latex/tools"
3271        #:build-targets '("tools.ins")))
3272     (home-page "https://www.ctan.org/pkg/latex-tools")
3273     (synopsis "LaTeX standard tools bundle")
3274     (description
3275      "This package is a collection of (variously) simple tools provided as
3276 part of the LaTeX required tools distribution, comprising the following
3277 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
3278 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
3279 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
3280 xr, and xspace.")
3281     (license license:lppl1.3+)))
3282
3283 (define-public texlive-url
3284   (package
3285     (inherit (simple-texlive-package
3286               "texlive-url"
3287               (list "/doc/latex/url/"
3288                     "/tex/latex/url/")
3289               (base32
3290                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
3291               #:trivial? #t))
3292     (home-page "https://www.ctan.org/pkg/url")
3293     (synopsis "Verbatim with URL-sensitive line breaks")
3294     (description "The command @code{\\url} is a form of verbatim command that
3295 allows linebreaks at certain characters or combinations of characters, accepts
3296 reconfiguration, and can usually be used in the argument to another command.
3297 The command is intended for email addresses, hypertext links,
3298 directories/paths, etc., which normally have no spaces, so by default the
3299 package ignores spaces in its argument.  However, a package option allows
3300 spaces, which is useful for operating systems where spaces are a common part
3301 of file names.")
3302     ;; The license header states that it is under LPPL version 2 or later, but
3303     ;; the latest version is 1.3c.
3304     (license license:lppl1.3c+)))
3305
3306 (define-public texlive-latex-url
3307   (deprecated-package "texlive-latex-url" texlive-url))
3308
3309 (define-public texlive-tetex
3310   (package
3311     (inherit (simple-texlive-package
3312               "texlive-tetex"
3313               (list "/dvips/tetex/"
3314                     "/fonts/enc/dvips/tetex/"
3315                     "/fonts/map/dvips/tetex/")
3316               (base32
3317                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
3318               #:trivial? #t))
3319     (home-page "https://www.ctan.org/pkg/tetex")
3320     (synopsis "Font maps originally from teTeX")
3321     (description "This package provides font maps that were originally part of
3322 the now obsolete teTeX distributions but are still used at the core of the TeX
3323 Live distribution.")
3324     (license license:public-domain)))
3325
3326 (define-public texlive-latex-l3kernel
3327   (package
3328     (name "texlive-latex-l3kernel")
3329     (version (number->string %texlive-revision))
3330     (source (origin
3331               (method svn-fetch)
3332               (uri (texlive-ref "latex" "l3kernel"))
3333               (file-name (string-append name "-" version "-checkout"))
3334               (sha256
3335                (base32
3336                 "0w82d5a4d3rc950ms6ymj4mpw5ndz6qs5x53szcfgzgjxsns9l4w"))))
3337     (build-system texlive-build-system)
3338     (arguments
3339      '(#:tex-directory "latex/l3kernel"))
3340     (home-page "https://www.ctan.org/pkg/l3kernel")
3341     (synopsis "LaTeX3 programmers’ interface")
3342     (description
3343      "The l3kernel bundle provides an implementation of the LaTeX3
3344 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
3345 interface provides the foundation on which the LaTeX3 kernel and other future
3346 code are built: it is an API for TeX programmers.  The packages are set up so
3347 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
3348     (license license:lppl1.3c+)))
3349
3350 (define-public texlive-latex-l3packages
3351   (package
3352     (name "texlive-latex-l3packages")
3353     (version (number->string %texlive-revision))
3354     (source (origin
3355               (method svn-fetch)
3356               (uri (texlive-ref "latex" "l3packages"))
3357               (file-name (string-append name "-" version "-checkout"))
3358               (sha256
3359                (base32
3360                 "15m3ly55gj8hk5xrkpw5bkj0ddwkk4v7qxa6sl3rkymdka1xl3cc"))))
3361     (build-system texlive-build-system)
3362     (arguments
3363      '(#:tex-directory "latex/l3packages"
3364        ;; build-targets must be specified manually since they are in
3365        ;; sub-directories.
3366        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
3367        #:phases
3368        (modify-phases %standard-phases
3369          ;; All package sources are in sub-directories, so we need to add them
3370          ;; to TEXINPUTS.
3371          (add-after 'unpack 'set-TEXINPUTS
3372            (lambda _
3373              (let ((cwd (getcwd)))
3374                (setenv "TEXINPUTS"
3375                        (string-append cwd "/l3keys2e:"
3376                                       cwd "/xparse:"
3377                                       cwd "/xfrac:"
3378                                       cwd "/xfp:"
3379                                       cwd "/xtemplate"
3380                                       ;; The terminating ":" is required to include the
3381                                       ;; l3kernel input as well.
3382                                       ":")))
3383              #t)))
3384        ))
3385     (propagated-inputs
3386      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
3387     (home-page "https://www.ctan.org/pkg/l3packages")
3388     (synopsis "High-level LaTeX3 concepts")
3389     (description
3390      "This bundle holds prototype implementations of concepts for a LaTeX
3391 designer interface, to be used with the experimental LaTeX kernel as
3392 programming tools and kernel support.  Packages provided in this release are:
3393
3394 @enumerate
3395 @item l3keys2e, which makes the facilities of the kernel module l3keys
3396   available for use by LaTeX 2e packages;
3397 @item xfrac, which provides flexible splitlevel fractions;
3398 @item xparse, which provides a high-level interface for declaring document
3399   commands; and
3400 @item xtemplate, which provides a means of defining generic functions using a
3401   key-value syntax.
3402 @end enumerate\n")
3403     (license license:lppl1.3c+)))
3404
3405 (define-public texlive-fontspec
3406   (let ((template (simple-texlive-package
3407                    "texlive-fontspec"
3408                    (list "/doc/latex/fontspec/"
3409                          "/source/latex/fontspec/"
3410                          "/tex/latex/fontspec/fontspec.cfg")
3411                    (base32
3412                     "06rms8dw1j67v3rgv6xmfykdmgbxi5rp78yxc782cy1sw07blgsg"))))
3413     (package
3414       (inherit template)
3415       (arguments
3416        (substitute-keyword-arguments (package-arguments template)
3417          ((#:tex-directory _ #t)
3418           "latex/fontspec")
3419          ((#:phases phases)
3420           `(modify-phases ,phases
3421              (add-after 'unpack 'chdir
3422                (lambda _ (chdir "source/latex/fontspec/") #t))))))
3423       (propagated-inputs
3424        `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
3425       (home-page "https://www.ctan.org/pkg/fontspec")
3426       (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3427       (description
3428        "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3429 automatic and unified interface to feature-rich AAT and OpenType fonts through
3430 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3431 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3432       (license license:lppl1.3+))))
3433
3434 (define-public texlive-latex-fontspec
3435   (deprecated-package "texlive-latex-fontspec" texlive-fontspec))
3436
3437 (define-public texlive-l3build
3438   (let ((template (simple-texlive-package
3439                    "texlive-l3build"
3440                    (list "/doc/latex/l3build/"
3441                          "/doc/man/man1/l3build.1"
3442                          "/scripts/l3build/"
3443                          "/tex/latex/l3build/"
3444                          ;; TODO: The dtx file builds only the documentation.
3445                          ;; We avoid this for a simpler package definition,
3446                          ;; but it may be possible to exclude
3447                          ;; /doc/latex/l3build and the man page in the future.
3448                          "/source/latex/l3build/")
3449                    (base32
3450                     "0hqb0f5rpj3mfmxfyn8cgxrm1j5ij466a9y23s0xxpmv11ma5i0i")
3451                    #:trivial? #t)))
3452     (package
3453       (inherit template)
3454       (arguments
3455        (substitute-keyword-arguments (package-arguments template)
3456          ((#:phases phases)
3457           `(modify-phases ,phases
3458              (add-after 'install 'patch-shebangs-again
3459                (lambda* (#:key inputs outputs #:allow-other-keys)
3460                  ;; XXX: Since the 'patch-shebangs' phase cannot change the
3461                  ;; original source files patch the shebangs again here.
3462                  (let* ((coreutils (assoc-ref inputs "coreutils"))
3463                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3464                         (path (list (string-append coreutils "/bin")
3465                                     (string-append texlive-bin "/bin"))))
3466                    (for-each (lambda (file)
3467                                (format #t "~a~%" file)
3468                                (patch-shebang file path))
3469                              (find-files (assoc-ref outputs "out")))
3470                    #t)))))))
3471       (inputs
3472        `(("coreutils" ,coreutils)
3473          ("texlive-bin" ,texlive-bin)))
3474       (home-page "https://github.com/latex3/luaotfload")
3475       (synopsis "Testing and building system for LaTeX")
3476       (description
3477        "The l3build module is designed to support the development of
3478 high-quality LaTeX code by providing: a unit testing system, automated
3479 typesetting of code sources, and a reliable packaging system for CTAN
3480 releases.  The bundle consists of a Lua script to run the tasks and a
3481 @code{.tex} file which provides the testing environment.")
3482       (license license:lppl1.3c+))))
3483
3484 ;; The SVN directory contains little more than a dtx file that generates three
3485 ;; of the many lua files that should be installed as part of this package.
3486 ;; This is why we take the release from GitHub instead.
3487 (define-public texlive-luatex-lualibs
3488   (package
3489     (name "texlive-luatex-lualibs")
3490     (version "2.5")
3491     (source (origin
3492               (method url-fetch)
3493               (uri (string-append "https://github.com/lualatex/lualibs/"
3494                                   "releases/download/v"
3495                                   version "/lualibs.zip"))
3496               (file-name (string-append name "-" version ".zip"))
3497               (sha256
3498                (base32
3499                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
3500     (build-system gnu-build-system)
3501     (arguments
3502      `(#:make-flags
3503        (list (string-append "DESTDIR="
3504                             (assoc-ref %outputs "out")
3505                             "/share/texmf-dist"))
3506        #:phases
3507        (modify-phases %standard-phases
3508          (delete 'configure))))
3509     (native-inputs
3510      `(("texlive-bin" ,texlive-bin)
3511        ("unzip" ,unzip)
3512        ("zip" ,zip)))
3513     (home-page "https://github.com/lualatex/lualibs")
3514     (synopsis "Lua modules for general programming (in the (La)TeX world)")
3515     (description
3516      "Lualibs is a collection of Lua modules useful for general programming.
3517 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3518 this bundle for use independent of ConTeXt.")
3519     ;; GPL version 2 only
3520     (license license:gpl2)))
3521
3522 ;; TODO: We should be able to build this from the sources on Github with
3523 ;; texlive-l3build, but I haven't been able to get it to work.
3524 (define-public texlive-luaotfload
3525   (let ((template (simple-texlive-package
3526                    "texlive-luaotfload"
3527                    (list "/doc/luatex/luaotfload/"
3528                          "/doc/man/man1/luaotfload-tool.1"
3529                          "/doc/man/man5/luaotfload.conf.5"
3530                          "/source/luatex/luaotfload/fontloader-reference-load-order.lua"
3531                          "/source/luatex/luaotfload/fontloader-reference-load-order.tex"
3532                          "/scripts/luaotfload/luaotfload-tool.lua"
3533                          "/tex/luatex/luaotfload/")
3534                    (base32
3535                     "0a07m8gckkhzj30rjglj4abpx6pqhl9bx4vq2ak29k0wa3s9rm76")
3536                    #:trivial? #t)))
3537     (package
3538       (inherit template)
3539       (propagated-inputs
3540        `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3541       (home-page "https://github.com/lualatex/luaotfload")
3542       (synopsis "OpenType font loader for LuaTeX")
3543       (description
3544        "Luaotfload is an adaptation of the ConTeXt font loading system for the
3545 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3546 features accessible using an extended font request syntax while providing
3547 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3548 loading fonts by their proper names instead of file names.")
3549       ;; GPL version 2 only
3550       (license license:gpl2))))
3551
3552 (define-public texlive-luatex-luaotfload
3553   (deprecated-package "texlive-luatex-luaotfload" texlive-luaotfload))
3554
3555 (define-public texlive-latex-amsmath
3556   (package
3557     (name "texlive-latex-amsmath")
3558     (version (number->string %texlive-revision))
3559     (source (origin
3560               (method svn-fetch)
3561               (uri (texlive-ref "latex" "amsmath"))
3562               (file-name (string-append name "-" version "-checkout"))
3563               (sha256
3564                (base32
3565                 "1jx4sd35iwcr5qpvnirshp4rdffqq09k6sbmhwxi8kkir4x5hkmc"))))
3566     (build-system texlive-build-system)
3567     (arguments '(#:tex-directory "latex/amsmath"))
3568     (home-page "https://www.ctan.org/pkg/amsmath")
3569     (synopsis "AMS mathematical facilities for LaTeX")
3570     (description
3571      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3572 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3573 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3574 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3575 symbols), @code{amsopnamsopn} (for operator names) and
3576 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3577 This package is part of the LaTeX required distribution; however, several
3578 contributed packages add still further to its appeal; examples are
3579 @code{empheqempheq}, which provides functions for decorating and highlighting
3580 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3581 definitions.")
3582     (license license:lppl1.3c+)))
3583
3584 (define-public texlive-amscls
3585   (let ((template (simple-texlive-package
3586                    "texlive-amscls"
3587                    (list "/doc/latex/amscls/"
3588                          "/source/latex/amscls/"
3589                          "/bibtex/bst/amscls/")
3590                    (base32
3591                     "1mv96i5372257zaciv06n1wwa7v09q0fa9pbq9kck826a0syidvs"))))
3592     (package
3593       (inherit template)
3594       (arguments
3595        (substitute-keyword-arguments (package-arguments template)
3596          ((#:tex-directory _ #t)
3597           "latex/amscls")
3598          ((#:phases phases)
3599           `(modify-phases ,phases
3600              (add-after 'unpack 'chdir
3601                (lambda _ (chdir "source/latex/amscls/") #t))))))
3602       (home-page "https://www.ctan.org/pkg/amscls")
3603       (synopsis "AMS document classes for LaTeX")
3604       (description
3605        "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3606 articles for the AMS), @code{amsbookamsbook} (for books) and
3607 @code{amsprocamsproc} (for proceedings), together with some supporting
3608 material.  The material is made available as part of the AMS-LaTeX
3609 distribution.")
3610       (license license:lppl1.3c+))))
3611
3612 (define-public texlive-latex-amscls
3613   (deprecated-package "texlive-latex-amscls" texlive-amscls))
3614
3615 (define-public texlive-babel
3616   (let ((template (simple-texlive-package
3617                    "texlive-babel"
3618                    (list "/doc/latex/babel/"
3619                          "/source/latex/babel/"
3620                          "/makeindex/babel/")
3621                    (base32
3622                     "0xjj4h48vdb9ydyg13c5jyfi4vm39117c8jv2gjrvjw89h0djbp1"))))
3623     (package
3624       (inherit template)
3625       (arguments
3626        (substitute-keyword-arguments (package-arguments template)
3627          ((#:tex-directory _ #t)
3628           "generic/babel")
3629          ((#:phases phases)
3630           `(modify-phases ,phases
3631              (add-after 'unpack 'chdir
3632                (lambda _ (chdir "source/latex/babel/") #t))
3633              ;; This package tries to produce babel.aux twice but refuses to
3634              ;; overwrite the first one.
3635              (add-before 'build 'fix-ins
3636                (lambda _
3637                  (substitute* "babel.ins"
3638                    (("askonceonly") "askforoverwritefalse"))
3639                  #t))
3640              (add-after 'install 'install-locales
3641                (lambda* (#:key outputs #:allow-other-keys)
3642                  (let ((locale-directory
3643                         (string-append (assoc-ref outputs "out")
3644                                        "/share/texmf-dist/tex/generic/babel/locale/")))
3645                    (mkdir-p locale-directory)
3646                    (invoke "unzip" "locale.zip" "-d"
3647                            locale-directory))))))))
3648       (native-inputs
3649        `(("unzip" ,unzip)))
3650       (home-page "https://www.ctan.org/pkg/babel")
3651       (synopsis "Multilingual support for Plain TeX or LaTeX")
3652       (description
3653        "The package manages culturally-determined typographical (and other)
3654 rules, and hyphenation patterns for a wide range of languages.  A document may
3655 select a single language to be supported, or it may select several, in which
3656 case the document may switch from one language to another in a variety of
3657 ways.  Babel uses contributed configuration files that provide the detail of
3658 what has to be done for each language.  Users of XeTeX are advised to use the
3659 polyglossia package rather than Babel.")
3660       (license license:lppl1.3+))))
3661
3662 (define-public texlive-latex-babel
3663   (deprecated-package "texlive-latex-babel" texlive-babel))
3664
3665 (define-public texlive-generic-babel-english
3666   (package
3667     (name "texlive-generic-babel-english")
3668     (version (number->string %texlive-revision))
3669     (source (origin
3670               (method svn-fetch)
3671               (uri (texlive-ref "generic" "babel-english"))
3672               (file-name (string-append name "-" version "-checkout"))
3673               (sha256
3674                (base32
3675                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3676     (build-system texlive-build-system)
3677     (arguments '(#:tex-directory "generic/babel-english"))
3678     (home-page "https://www.ctan.org/pkg/babel-english")
3679     (synopsis "Babel support for English")
3680     (description
3681      "This package provides the language definition file for support of
3682 English in @code{babel}.  Care is taken to select British hyphenation patterns
3683 for British English and Australian text, and default (\"american\") patterns
3684 for Canadian and USA text.")
3685     (license license:lppl1.3+)))
3686
3687 (define-public texlive-generic-babel-german
3688   (package
3689     (name "texlive-generic-babel-german")
3690     (version (number->string %texlive-revision))
3691     (source (origin
3692               (method svn-fetch)
3693               (uri (texlive-ref "generic" "babel-german"))
3694               (file-name (string-append name "-" version "-checkout"))
3695               (sha256
3696                (base32
3697                 "129f9w41cb6yyrr6kpv3zz9ml6334hyq1wcz7j9jn47p0hlxqfk8"))))
3698     (build-system texlive-build-system)
3699     (arguments '(#:tex-directory "generic/babel-german"))
3700     (home-page "https://www.ctan.org/pkg/babel-german")
3701     (synopsis "Babel support for German")
3702     (description
3703      "This package provides the language definition file for support of German
3704 in @code{babel}.  It provides all the necessary macros, definitions and
3705 settings to typeset German documents.  The bundle includes support for the
3706 traditional and reformed German orthography as well as for the Austrian and
3707 Swiss varieties of German.")
3708     (license license:lppl1.3+)))
3709
3710 (define-public texlive-babel-swedish
3711   (let ((template (simple-texlive-package
3712                    "texlive-babel-swedish"
3713                    (list "/source/generic/babel-swedish/")
3714                    (base32
3715                     "0swdg2l5i7cbcvy4q4xgsnwwnbxiyvs6f5b72kiw7mjn24v27g8f"))))
3716     (package
3717       (inherit template)
3718       (arguments
3719        (substitute-keyword-arguments (package-arguments template)
3720          ((#:tex-directory _ '())
3721           "generic/babel-swedish")
3722          ((#:build-targets _ '())
3723           ''("swedish.ins")) ; TODO: use dtx and build documentation
3724          ((#:phases phases)
3725           `(modify-phases ,phases
3726              (add-after 'unpack 'chdir
3727                (lambda _ (chdir "source/generic/babel-swedish")))))))
3728       (home-page "https://www.ctan.org/pkg/babel-swedish")
3729       (synopsis "Babel support for Swedish")
3730       (description "This package provides the language definition file for
3731 support of Swedish in @code{babel}.  It provides all the necessary macros,
3732 definitions and settings to typeset Swedish documents.")
3733       (license license:lppl1.3c+))))
3734
3735 (define-public texlive-latex-cyrillic
3736   (package
3737     (name "texlive-latex-cyrillic")
3738     (version (number->string %texlive-revision))
3739     (source (origin
3740               (method svn-fetch)
3741               (uri (texlive-ref "latex" "cyrillic"))
3742               (file-name (string-append name "-" version "-checkout"))
3743               (sha256
3744                (base32
3745                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3746     (build-system texlive-build-system)
3747     (arguments
3748      '(#:tex-directory "latex/cyrillic"))
3749     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3750     (synopsis "Support for Cyrillic fonts in LaTeX")
3751     (description
3752      "This bundle of macros files provides macro support (including font
3753 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3754 T2* and X2 encodings. These encodings cover (between them) pretty much every
3755 language that is written in a Cyrillic alphabet.")
3756     (license license:lppl1.3c+)))
3757
3758 (define-public texlive-psnfss
3759   (let ((template (simple-texlive-package
3760                    "texlive-psnfss"
3761                    (list "/doc/latex/psnfss/"
3762                          "/source/latex/psnfss/"
3763                          "/fonts/map/dvips/psnfss/"
3764
3765                          ;; Only the .sty files are generated from the sources.
3766                          "/tex/latex/psnfss/8rbch.fd"
3767                          "/tex/latex/psnfss/8rpag.fd"
3768                          "/tex/latex/psnfss/8rpbk.fd"
3769                          "/tex/latex/psnfss/8rpcr.fd"
3770                          "/tex/latex/psnfss/8rphv.fd"
3771                          "/tex/latex/psnfss/8rpnc.fd"
3772                          "/tex/latex/psnfss/8rppl.fd"
3773                          "/tex/latex/psnfss/8rptm.fd"
3774                          "/tex/latex/psnfss/8rput.fd"
3775                          "/tex/latex/psnfss/8rpzc.fd"
3776                          "/tex/latex/psnfss/omlbch.fd"
3777                          "/tex/latex/psnfss/omlpag.fd"
3778                          "/tex/latex/psnfss/omlpbk.fd"
3779                          "/tex/latex/psnfss/omlpcr.fd"
3780                          "/tex/latex/psnfss/omlphv.fd"
3781                          "/tex/latex/psnfss/omlpnc.fd"
3782                          "/tex/latex/psnfss/omlppl.fd"
3783                          "/tex/latex/psnfss/omlptm.fd"
3784                          "/tex/latex/psnfss/omlptmcm.fd"
3785                          "/tex/latex/psnfss/omlput.fd"
3786                          "/tex/latex/psnfss/omlpzc.fd"
3787                          "/tex/latex/psnfss/omlzplm.fd"
3788                          "/tex/latex/psnfss/omlzpple.fd"
3789                          "/tex/latex/psnfss/omlztmcm.fd"
3790                          "/tex/latex/psnfss/omsbch.fd"
3791                          "/tex/latex/psnfss/omspag.fd"
3792                          "/tex/latex/psnfss/omspbk.fd"
3793                          "/tex/latex/psnfss/omspcr.fd"
3794                          "/tex/latex/psnfss/omsphv.fd"
3795                          "/tex/latex/psnfss/omspnc.fd"
3796                          "/tex/latex/psnfss/omsppl.fd"
3797                          "/tex/latex/psnfss/omsptm.fd"
3798                          "/tex/latex/psnfss/omsput.fd"
3799                          "/tex/latex/psnfss/omspzc.fd"
3800                          "/tex/latex/psnfss/omspzccm.fd"
3801                          "/tex/latex/psnfss/omszplm.fd"
3802                          "/tex/latex/psnfss/omszpple.fd"
3803                          "/tex/latex/psnfss/omsztmcm.fd"
3804                          "/tex/latex/psnfss/omxpsycm.fd"
3805                          "/tex/latex/psnfss/omxzplm.fd"
3806                          "/tex/latex/psnfss/omxzpple.fd"
3807                          "/tex/latex/psnfss/omxztmcm.fd"
3808                          "/tex/latex/psnfss/ot1bch.fd"
3809                          "/tex/latex/psnfss/ot1pag.fd"
3810                          "/tex/latex/psnfss/ot1pbk.fd"
3811                          "/tex/latex/psnfss/ot1pcr.fd"
3812                          "/tex/latex/psnfss/ot1phv.fd"
3813                          "/tex/latex/psnfss/ot1pnc.fd"
3814                          "/tex/latex/psnfss/ot1ppl.fd"
3815                          "/tex/latex/psnfss/ot1pplj.fd"
3816                          "/tex/latex/psnfss/ot1pplx.fd"
3817                          "/tex/latex/psnfss/ot1ptm.fd"
3818                          "/tex/latex/psnfss/ot1ptmcm.fd"
3819                          "/tex/latex/psnfss/ot1put.fd"
3820                          "/tex/latex/psnfss/ot1pzc.fd"
3821                          "/tex/latex/psnfss/ot1zplm.fd"
3822                          "/tex/latex/psnfss/ot1zpple.fd"
3823                          "/tex/latex/psnfss/ot1ztmcm.fd"
3824                          "/tex/latex/psnfss/t1bch.fd"
3825                          "/tex/latex/psnfss/t1pag.fd"
3826                          "/tex/latex/psnfss/t1pbk.fd"
3827                          "/tex/latex/psnfss/t1pcr.fd"
3828                          "/tex/latex/psnfss/t1phv.fd"
3829                          "/tex/latex/psnfss/t1pnc.fd"
3830                          "/tex/latex/psnfss/t1ppl.fd"
3831                          "/tex/latex/psnfss/t1pplj.fd"
3832                          "/tex/latex/psnfss/t1pplx.fd"
3833                          "/tex/latex/psnfss/t1ptm.fd"
3834                          "/tex/latex/psnfss/t1put.fd"
3835                          "/tex/latex/psnfss/t1pzc.fd"
3836                          "/tex/latex/psnfss/ts1bch.fd"
3837                          "/tex/latex/psnfss/ts1pag.fd"
3838                          "/tex/latex/psnfss/ts1pbk.fd"
3839                          "/tex/latex/psnfss/ts1pcr.fd"
3840                          "/tex/latex/psnfss/ts1phv.fd"
3841                          "/tex/latex/psnfss/ts1pnc.fd"
3842                          "/tex/latex/psnfss/ts1ppl.fd"
3843                          "/tex/latex/psnfss/ts1pplj.fd"
3844                          "/tex/latex/psnfss/ts1pplx.fd"
3845                          "/tex/latex/psnfss/ts1ptm.fd"
3846                          "/tex/latex/psnfss/ts1put.fd"
3847                          "/tex/latex/psnfss/ts1pzc.fd"
3848                          "/tex/latex/psnfss/ufplm.fd"
3849                          "/tex/latex/psnfss/ufplmbb.fd"
3850                          "/tex/latex/psnfss/upsy.fd"
3851                          "/tex/latex/psnfss/upzd.fd")
3852                    (base32
3853                     "1ql4gidwf5m5gwcwwmx7vj60lj4xygw02pm5mzin49nlwsa1vbnv"))))
3854     (package
3855       (inherit template)
3856       (arguments
3857        (substitute-keyword-arguments (package-arguments template)
3858          ((#:tex-directory _ #t)
3859           "latex/psnfss")
3860          ((#:phases phases)
3861           `(modify-phases ,phases
3862              (add-after 'unpack 'chdir
3863                (lambda _
3864                  (chdir "source/latex/psnfss") #t))))))
3865       (native-inputs
3866        `(("texlive-cm" ,texlive-cm)))
3867       (home-page "https://www.ctan.org/pkg/psnfss")
3868       (synopsis "Font support for common PostScript fonts")
3869       (description
3870        "The PSNFSS collection includes a set of files that provide a complete
3871 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3872 PostScript fonts.  The base set of text fonts covered by PSNFSS includes the
3873 AvantGarde, Bookman, Courier, Helvetica, New Century Schoolbook, Palatino,
3874 Symbol, Times Roman and Zapf Dingbats fonts.  In addition, the fonts Bitstream
3875 Charter and Adobe Utopia are covered.  Separate packages are provided to load
3876 each font for use as the main text font.  The package @code{helvet} allows
3877 Helvetica to be loaded with its size scaled to something more appropriate for
3878 use as a Sans-Serif font to match Times, while @code{pifont} provides the
3879 means to select single glyphs from symbol fonts.  The bundle as a whole is
3880 part of the LaTeX required set of packages.")
3881       (license license:lppl1.2+))))
3882
3883 (define-public texlive-latex-psnfss
3884   (deprecated-package "texlive-latex-psnfss" texlive-psnfss))
3885
3886 ;; For user profiles
3887 (define-public texlive-base
3888   (let ((default-packages
3889           (list texlive-bin
3890                 texlive-dvips
3891                 texlive-fontname
3892                 texlive-cm
3893                 texlive-cm-super ; to avoid bitmap fonts
3894                 texlive-fonts-latex
3895                 texlive-metafont
3896                 texlive-latex-base
3897                 texlive-kpathsea       ;for mktex.opt
3898                 ;; LaTeX packages from the "required" set.
3899                 texlive-latex-amsmath
3900                 texlive-amscls
3901                 texlive-babel
3902                 texlive-generic-babel-english
3903                 texlive-latex-cyrillic
3904                 texlive-latex-graphics
3905                 texlive-psnfss
3906                 texlive-latex-tools
3907                 texlive-tetex)))
3908     (package
3909       (name "texlive-base")
3910       (version (number->string %texlive-revision))
3911       (source #f)
3912       (build-system trivial-build-system)
3913       (arguments
3914        '(#:builder
3915          (begin (mkdir (assoc-ref %outputs "out")))))
3916       (propagated-inputs
3917        (map (lambda (package)
3918               (list (package-name package) package))
3919             default-packages))
3920       (home-page (package-home-page texlive-bin))
3921       (synopsis "TeX Live base packages")
3922       (description "This is a very limited subset of the TeX Live distribution.
3923 It includes little more than the required set of LaTeX packages.")
3924       (license (fold (lambda (package result)
3925                        (match (package-license package)
3926                          ((lst ...)
3927                           (append lst result))
3928                          ((? license:license? license)
3929                           (cons license result))))
3930                      '()
3931                      default-packages)))))
3932
3933 ;;; TODO: Add a TeX Live profile hook computing fonts maps (and others?)
3934 ;;; configuration from the packages in the profile, similar to what's done
3935 ;;; below.
3936 (define-public texlive-updmap.cfg
3937   (lambda* (#:optional (packages '()))
3938     "Return a 'texlive-updmap.cfg' package which contains the fonts map
3939 configuration of a base set of packages plus PACKAGES."
3940     (let ((default-packages (match (package-propagated-inputs texlive-base)
3941                               (((labels packages) ...) packages))))
3942       (package
3943         (version (number->string %texlive-revision))
3944         (source (origin
3945                   (method url-fetch)
3946                   (uri (string-append "https://tug.org/svn/texlive/tags/"
3947                                       %texlive-tag
3948                                       "/Master/texmf-dist/web2c/updmap.cfg"
3949                                       "?revision=" version))
3950                   (file-name "updmap.cfg")
3951                   (sha256
3952                    (base32
3953                     "1q3l7yx5sng080ibfb8z3rdah0hhq170j6xw8z1w8i4w9m37lp94"))))
3954         (name "texlive-updmap.cfg")
3955         (build-system copy-build-system)
3956         (arguments
3957          '(#:modules ((guix build copy-build-system)
3958                       (guix build utils)
3959                       (ice-9 popen)
3960                       (ice-9 textual-ports))
3961            #:install-plan '(("updmap.cfg" "share/texmf-config/web2c/")
3962                             ("map" "share/texmf-dist/fonts/map"))
3963            #:phases
3964            (modify-phases %standard-phases
3965              (add-before 'install 'regenerate-updmap.cfg
3966                (lambda _
3967                  (make-file-writable "updmap.cfg")
3968
3969                  ;; Disable unavailable map files.
3970                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
3971                                           "--syncwithtrees"
3972                                           "--nohash"
3973                                           "--cnffile" "updmap.cfg")))
3974                    (display "Y\n" port)
3975                    (when (not (zero? (status:exit-val (close-pipe port))))
3976                      (error "failed to filter updmap.cfg")))
3977
3978                  ;; Set TEXMFSYSVAR to a sane and writable value; updmap fails
3979                  ;; if it cannot create its log file there.
3980                  (setenv "TEXMFSYSVAR" (getcwd))
3981
3982                  ;; Generate maps.
3983                  (invoke "updmap-sys"
3984                          "--cnffile"           "updmap.cfg"
3985                          "--dvipdfmxoutputdir" "map/dvipdfmx/updmap/"
3986                          "--dvipsoutputdir"    "map/dvips/updmap/"
3987                          "--pdftexoutputdir"   "map/pdftex/updmap/"))))))
3988         (propagated-inputs (map (lambda (package)
3989                                   (list (package-name package) package))
3990                                 (append default-packages packages)))
3991         (home-page (package-home-page texlive-bin))
3992         (synopsis "TeX Live fonts map configuration")
3993         (description "This package contains the fonts map configuration file
3994 generated for the base TeX Live packages as well as, optionally, user-provided
3995 ones.")
3996         (license (delete-duplicates
3997                   (fold (lambda (package result)
3998                           (match (package-license package)
3999                             ((lst ...)
4000                              (append lst result))
4001                             ((? license:license? license)
4002                              (cons license result))))
4003                         '()
4004                         (append default-packages packages))))))))
4005
4006 ;;; Deprecated.
4007 (define texlive-union texlive-updmap.cfg)
4008
4009 ;; For use in package definitions only
4010 (define-public texlive-tiny
4011   (package
4012     (inherit (texlive-updmap.cfg))
4013     (name "texlive-tiny")
4014     (description "This is a very limited subset of the TeX Live distribution.
4015 It includes little more than the required set of LaTeX packages.")))
4016
4017 (define-public texlive-tipa
4018   (package
4019     (inherit (simple-texlive-package
4020               "texlive-tipa"
4021               (list "/tex4ht/ht-fonts/alias/tipa/"
4022                     "/doc/fonts/tipa/"
4023                     "/fonts/map/dvips/tipa/"
4024                     "/fonts/source/public/tipa/"
4025                     "/fonts/tfm/public/tipa/"
4026                     "/fonts/type1/public/tipa/"
4027                     "/tex/latex/tipa/")
4028               (base32
4029                "0cqzf8vb10b8jw99m9gflskxa4c3rpiznxglix6chl5lai5sgw44")
4030               #:trivial? #t))
4031     (home-page "https://www.ctan.org/pkg/tipa")
4032     (synopsis "Fonts and macros for IPA phonetics characters")
4033     (description "These fonts are considered the \"ultimate answer\" to IPA
4034 typesetting.  The encoding of these 8-bit fonts has been registered as LaTeX
4035 standard encoding T3, and the set of addendum symbols as encoding
4036 TS3. \"Times-like\" Adobe Type 1 versions are provided for both the T3 and the
4037 TS3 fonts.")
4038     (license license:lppl)))
4039
4040 (define-public texlive-latex-amsrefs
4041   (package
4042     (name "texlive-latex-amsrefs")
4043     (version (number->string %texlive-revision))
4044     (source (origin
4045               (method svn-fetch)
4046               (uri (texlive-ref "latex" "amsrefs"))
4047               (file-name (string-append name "-" version "-checkout"))
4048               (sha256
4049                (base32
4050                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
4051     (build-system texlive-build-system)
4052     (arguments '(#:tex-directory "latex/amsrefs"))
4053     (home-page "https://www.ctan.org/pkg/amsrefs")
4054     (synopsis "LaTeX-based replacement for BibTeX")
4055     (description
4056      "Amsrefs is a LaTeX package for bibliographies that provides an archival
4057 data format similar to the format of BibTeX database files, but adapted to
4058 make direct processing by LaTeX easier.  The package can be used either in
4059 conjunction with BibTeX or as a replacement for BibTeX.")
4060     (license license:lppl1.3+)))
4061
4062 (define-public texlive-latex-bigfoot
4063   (package
4064     (name "texlive-latex-bigfoot")
4065     (version (number->string %texlive-revision))
4066     (source (origin
4067               (method svn-fetch)
4068               (uri (texlive-ref "latex" "bigfoot"))
4069               (file-name (string-append name "-" version "-checkout"))
4070               (sha256
4071                (base32
4072                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
4073     (build-system texlive-build-system)
4074     (arguments
4075      '(#:tex-directory "latex/bigfoot"
4076        #:phases
4077        (modify-phases %standard-phases
4078          (add-after 'unpack 'remove-generated-file
4079            (lambda _
4080              (for-each delete-file (find-files "." "\\.drv$"))
4081              #t)))))
4082     (home-page "https://www.ctan.org/pkg/bigfoot")
4083     (synopsis "Footnotes for critical editions")
4084     (description
4085      "This package aims to provide a one-stop solution to requirements for
4086 footnotes.  It offers: Multiple footnote apparatus superior to that of
4087 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
4088 into a single paragraph (this choice may be selected per footnote series);
4089 Things you might have expected (such as @code{\\verb}-like material in
4090 footnotes, and color selections over page breaks) now work.  Note that the
4091 majority of the bigfoot package's interface is identical to that of
4092 @code{manyfoot}; users should seek information from that package's
4093 documentation.  The bigfoot bundle also provides the @code{perpage} and
4094 @code{suffix} packages.")
4095     (license license:gpl2+)))
4096
4097 (define-public texlive-latex-blindtext
4098   (package
4099     (name "texlive-latex-blindtext")
4100     (version (number->string %texlive-revision))
4101     (source (origin
4102               (method svn-fetch)
4103               (uri (texlive-ref "latex" "blindtext"))
4104               (file-name (string-append name "-" version "-checkout"))
4105               (sha256
4106                (base32
4107                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
4108     (build-system texlive-build-system)
4109     (arguments '(#:tex-directory "latex/blindtext"))
4110     (home-page "https://www.ctan.org/pkg/blindtext")
4111     (synopsis "Producing 'blind' text for testing")
4112     (description
4113      "The package provides the commands @code{\\blindtext} and
4114 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
4115 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
4116 an entire random document with sections, lists, mathematics, etc.  The package
4117 supports three languages, @code{english}, @code{(n)german} and @code{latin};
4118 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
4119 ipsum\" text, see the @code{lipsum} package).")
4120     (license license:lppl)))
4121
4122 (define-public texlive-latex-dinbrief
4123   (package
4124     (name "texlive-latex-dinbrief")
4125     (version (number->string %texlive-revision))
4126     (source (origin
4127               (method svn-fetch)
4128               (uri (texlive-ref "latex" "dinbrief"))
4129               (file-name (string-append name "-" version "-checkout"))
4130               (sha256
4131                (base32
4132                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
4133     (build-system texlive-build-system)
4134     (arguments
4135      '(#:tex-directory "latex/dinbrief"
4136        #:phases
4137        (modify-phases %standard-phases
4138          (add-after 'unpack 'remove-generated-file
4139            (lambda _
4140              (delete-file "dinbrief.drv")
4141              #t))
4142          (add-after 'unpack 'fix-encoding-error
4143            (lambda _
4144              (with-fluids ((%default-port-encoding "ISO-8859-1"))
4145                (substitute* "dinbrief.dtx"
4146                  (("zur Verf.+ung. In der Pr\"aambel")
4147                   "zur Verf\"ung. In der Pr\"aambel")))
4148              #t)))))
4149     (home-page "https://www.ctan.org/pkg/dinbrief")
4150     (synopsis "German letter DIN style")
4151     (description
4152      "This package implements a document layout for writing letters according
4153 to the rules of DIN (Deutsches Institut für Normung, German standardisation
4154 institute).  A style file for LaTeX 2.09 (with limited support of the
4155 features) is part of the package.  Since the letter layout is based on a
4156 German standard, the user guide is written in German, but most macros have
4157 English names from which the user can recognize what they are used for.  In
4158 addition there are example files showing how letters may be created with the
4159 package.")
4160     (license license:lppl)))
4161
4162 (define-public texlive-latex-draftwatermark
4163   (package
4164     (name "texlive-latex-draftwatermark")
4165     (version (number->string %texlive-revision))
4166     (source (origin
4167               (method svn-fetch)
4168               (uri (texlive-ref "latex" "draftwatermark"))
4169               (file-name (string-append name "-" version "-checkout"))
4170               (sha256
4171                (base32
4172                 "0alshj9d2cdssqfawhyqmgsvqysmn7dgfk8bc59ni1bii3ydm2zm"))))
4173     (build-system texlive-build-system)
4174     (arguments '(#:tex-directory "latex/draftwatermark"))
4175     (home-page "https://www.ctan.org/pkg/draftwatermark")
4176     (synopsis "Put a grey textual watermark on document pages")
4177     (description
4178      "This package provides a means to add a textual, light grey watermark on
4179 every page or on the first page of a document.  Typical usage may consist in
4180 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
4181 package performs a similar function to that of @code{draftcopy}, but its
4182 implementation is output device independent, and made very simple by relying
4183 on everypage.")
4184     (license license:lppl1.3+)))
4185
4186 (define-public texlive-latex-environ
4187   (package
4188     (name "texlive-latex-environ")
4189     (version (number->string %texlive-revision))
4190     (source (origin
4191               (method svn-fetch)
4192               (uri (texlive-ref "latex" "environ"))
4193               (file-name (string-append name "-" version "-checkout"))
4194               (sha256
4195                (base32
4196                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
4197     (build-system texlive-build-system)
4198     (arguments '(#:tex-directory "latex/environ"))
4199     (home-page "https://www.ctan.org/pkg/environ")
4200     (synopsis "New interface for environments in LaTeX")
4201     (description
4202      "This package provides the @code{\\collect@@body} command (as in
4203 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
4204 for collecting the body text of an environment.  These commands are used to
4205 define a new author interface to creating new environments.")
4206     (license license:lppl)))
4207
4208 (define-public texlive-latex-eqparbox
4209   (package
4210     (name "texlive-latex-eqparbox")
4211     (version (number->string %texlive-revision))
4212     (source (origin
4213               (method svn-fetch)
4214               (uri (texlive-ref "latex" "eqparbox"))
4215               (file-name (string-append name "-" version "-checkout"))
4216               (sha256
4217                (base32
4218                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
4219     (build-system texlive-build-system)
4220     (arguments '(#:tex-directory "latex/eqparbox"))
4221     (home-page "https://www.ctan.org/pkg/eqparbox")
4222     (synopsis "Create equal-widthed parboxes")
4223     (description
4224      "LaTeX users sometimes need to ensure that two or more blocks of text
4225 occupy the same amount of horizontal space on the page.  To that end, the
4226 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
4227 just like @code{\\parbox}, except that instead of specifying a width, one
4228 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
4229 where they are in the document---will stretch to fit the widest
4230 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
4231 for a variety of alignment purposes, as is evidenced by the examples in
4232 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
4233 also provided.")
4234     (license license:lppl1.3+)))
4235
4236 (define-public texlive-latex-etoc
4237   (package
4238     (inherit (simple-texlive-package
4239               "texlive-latex-etoc"
4240               '("/doc/latex/etoc/README.md"
4241                 "/doc/latex/etoc/etoc.pdf"
4242                 "/tex/latex/etoc/")
4243               (base32
4244                "0i4fgqzqajirjyih6gbx890l17y648mdfqm09v3iz4af0dz4mbdy")
4245               #:trivial? #t))
4246     (home-page "https://www.ctan.org/pkg/etoc")
4247     (synopsis "Completely customisable TOCs")
4248     (description
4249      "This package gives the user complete control of how the entries of
4250 the table of contents should be constituted from the name, number, and page
4251 number of each sectioning unit.  The layout is controlled by the definition
4252 of ‘line styles’ for each sectioning level used in the document.
4253
4254 The package provides its own custom line styles (which may be used as
4255 examples), and continues to support the standard formatting inherited from
4256 the LaTeX document classes, but the package can also allow the user to
4257 delegate the details to packages dealing with list making environments (such
4258 as enumitem).  The package’s default global style typesets tables of contents
4259 in a multi-column format, with either a standard heading, or a ruled title
4260 (optionally with a frame around the table).
4261
4262 The @code{\\tableofcontents} command may be used arbitrarily many times in
4263 the same document, while @code{\\localtableofcontents} provides a ‘local’
4264 table of contents.")
4265     (license license:lppl1.3c+)))
4266
4267 (define-public texlive-latex-expdlist
4268   (package
4269     (name "texlive-latex-expdlist")
4270     (version (number->string %texlive-revision))
4271     (source (origin
4272               (method svn-fetch)
4273               (uri (texlive-ref "latex" "expdlist"))
4274               (file-name (string-append name "-" version "-checkout"))
4275               (sha256
4276                (base32
4277                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
4278     (build-system texlive-build-system)
4279     (arguments
4280      '(#:tex-directory "latex/expdlist"
4281        #:phases
4282        (modify-phases %standard-phases
4283          (add-after 'unpack 'remove-generated-file
4284            (lambda _
4285              (for-each delete-file
4286                        (find-files "." "\\.drv$"))
4287              #t)))))
4288     (home-page "https://www.ctan.org/pkg/expdlist")
4289     (synopsis "Expanded description environments")
4290     (description
4291      "The package provides additional features for the LaTeX
4292 @code{description} environment, including adjustable left margin.  The package
4293 also allows the user to \"break\" a list (for example, to interpose a comment)
4294 without affecting the structure of the list (this works for @code{itemize} and
4295 @code{enumerate} lists, and numbered lists remain in sequence).")
4296     (license license:lppl)))
4297
4298 (define-public texlive-filemod
4299   (package
4300     (inherit (simple-texlive-package
4301               "texlive-filemod"
4302               (list "/doc/latex/filemod/"
4303                     "/tex/latex/filemod/"
4304                     "/tex/generic/filemod/")
4305               (base32
4306                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
4307               #:trivial? #t))
4308     (home-page "https://www.ctan.org/pkg/filemod")
4309     (synopsis "Provide file modification times, and compare them")
4310     (description
4311      "This package provides macros to read and compare the modification dates
4312 of files.  The files may be @code{.tex} files, images or other files (as long
4313 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
4314 of pdfLaTeX to find the file modification date as PDF date string, parses the
4315 string and returns the value to the user.  The package will also work for DVI
4316 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
4317 mode.  The functionality is provided by purely expandable macros or by faster
4318 but non-expandable ones.")
4319     (license license:lppl1.3+)))
4320
4321 (define-public texlive-latex-filemod
4322   (deprecated-package "texlive-latex-filemod" texlive-filemod))
4323
4324 (define-public texlive-latex-hanging
4325   (package
4326     (inherit (simple-texlive-package
4327               "texlive-latex-hanging"
4328               '("/tex/latex/hanging/")
4329               (base32
4330                "0s86yaxyfv9zxf4svwg9s13by9vrw38apfg0hsfchsimsdd6gsbb")
4331               #:trivial? #t))
4332     (home-page "https://www.ctan.org/pkg/hanging")
4333     (synopsis "Typeset hanging paragraphs")
4334     (description
4335      "The @code{hanging} package facilitates the typesetting of hanging
4336 paragraphs.  The package also enables typesetting with hanging punctuation,
4337 by making punctuation characters active.")
4338     (license license:lppl1.3c+)))
4339
4340 (define-public texlive-latex-ifplatform
4341   (package
4342     (name "texlive-latex-ifplatform")
4343     (version (number->string %texlive-revision))
4344     (source (origin
4345               (method svn-fetch)
4346               (uri (texlive-ref "latex" "ifplatform"))
4347               (file-name (string-append name "-" version "-checkout"))
4348               (sha256
4349                (base32
4350                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
4351     (build-system texlive-build-system)
4352     (arguments '(#:tex-directory "latex/ifplatform"))
4353     (home-page "https://www.ctan.org/pkg/ifplatform")
4354     (synopsis "Conditionals to test which platform is being used")
4355     (description
4356      "This package uses the (La)TeX extension @code{-shell-escape} to
4357 establish whether the document is being processed on a Windows or on a
4358 Unix-like system, or on Cygwin (Unix environment over a Windows system).
4359 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
4360 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
4361 on a Unix-like system, which may be used to distinguish between various
4362 classes of systems.")
4363     (license license:lppl)))
4364
4365 (define-public texlive-latex-natbib
4366   (package
4367     (name "texlive-latex-natbib")
4368     (version (number->string %texlive-revision))
4369     (source (origin
4370               (method svn-fetch)
4371               (uri (texlive-ref "latex" "natbib"))
4372               (file-name (string-append name "-" version "-checkout"))
4373               (sha256
4374                (base32
4375                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
4376     (build-system texlive-build-system)
4377     (arguments '(#:tex-directory "latex/natbib"))
4378     (home-page "https://www.ctan.org/pkg/natbib")
4379     (synopsis "Flexible bibliography support")
4380     (description
4381      "This bundle provides a package that implements both author-year and
4382 numbered references, as well as much detailed of support for other
4383 bibliography use.  Also provided are versions of the standard BibTeX styles
4384 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
4385 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
4386 designed from the start to be compatible with @code{natbib}.")
4387     (license license:lppl)))
4388
4389 (define-public texlive-latex-pdftexcmds
4390   (package
4391     (inherit (simple-texlive-package
4392               "texlive-latex-pdftexcmds"
4393               '("/doc/latex/pdftexcmds/"
4394                 "/tex/latex/pdftexcmds/")
4395               (base32
4396                "0kqav8jri789698wxwr2ww8ssn74fvw3agrv677nz5qyq5zmix8h")
4397               #:trivial? #t))
4398     (propagated-inputs
4399      `(("texlive-generic-iftex" ,texlive-generic-iftex)
4400        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
4401        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
4402     (home-page "https://www.ctan.org/pkg/pdftexcmds")
4403     (synopsis "LuaTeX support for pdfTeX utility functions")
4404     (description
4405      "This package makes a number of utility functions from pdfTeX
4406 available for luaTeX by reimplementing them using Lua.")
4407     (license license:lppl1.3c+)))
4408
4409 (define-public texlive-latex-psfrag
4410   (package
4411     (name "texlive-latex-psfrag")
4412     (version (number->string %texlive-revision))
4413     (source (origin
4414               (method svn-fetch)
4415               (uri (texlive-ref "latex" "psfrag"))
4416               (file-name (string-append name "-" version "-checkout"))
4417               (sha256
4418                (base32
4419                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
4420     (build-system texlive-build-system)
4421     (arguments '(#:tex-directory "latex/psfrag"))
4422     (home-page "https://www.ctan.org/pkg/psfrag")
4423     (synopsis "Replace strings in encapsulated PostScript figures")
4424     (description
4425      "This package allows LaTeX constructions (equations, picture
4426 environments, etc.) to be precisely superimposed over Encapsulated PostScript
4427 figures, using your own favorite drawing tool to create an EPS figure and
4428 placing simple text \"tags\" where each replacement is to be placed, with
4429 PSfrag automatically removing these tags from the figure and replacing them
4430 with a user specified LaTeX construction, properly aligned, scaled, and/or
4431 rotated.")
4432     (license (license:fsf-free "file://psfrag.dtx"))))
4433
4434 (define-public texlive-pstool
4435   (package
4436     (inherit (simple-texlive-package
4437               "texlive-pstool"
4438               (list "/doc/latex/pstool/"
4439                     "/tex/latex/pstool/")
4440               (base32
4441                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
4442               #:trivial? #t))
4443     (propagated-inputs
4444      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
4445        ("texlive-latex-filemod" ,texlive-latex-filemod)
4446        ("texlive-latex-graphics" ,texlive-latex-graphics)
4447        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
4448        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
4449        ("texlive-oberdiek" ,texlive-oberdiek)
4450        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
4451        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
4452        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
4453        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
4454     (home-page "https://www.ctan.org/pkg/pstool")
4455     (synopsis "Process PostScript graphics within pdfLaTeX documents")
4456     (description
4457      "This is a package for processing PostScript graphics with @code{psfrag}
4458 labels within pdfLaTeX documents.  Every graphic is compiled individually,
4459 drastically speeding up compilation time when only a single figure needs
4460 re-processing.")
4461     (license license:lppl)))
4462
4463 (define-public texlive-latex-pstool
4464   (deprecated-package "texlive-latex-pstool" texlive-pstool))
4465
4466 (define-public texlive-latex-refcount
4467   (package
4468     (inherit (simple-texlive-package
4469               "texlive-latex-refcount"
4470               (list "/doc/latex/refcount/"
4471                     "/tex/latex/refcount/")
4472               (base32
4473                "0pkmqj2qihndlv3ks33xzqw91q46jx79r3aygj68d8dflyddi583")
4474               #:trivial? #t))
4475     (home-page "https://www.ctan.org/pkg/refcount")
4476     (synopsis "Counter operations with label references")
4477     (description
4478      "This package provides the @code{\\setcounterref} and
4479 @code{\\addtocounterref} commands which use the section (or other) number
4480 from the reference as the value to put into the counter.  It also provides
4481 @code{\\setcounterpageref} and @code{\\addtocounterpageref} that do the
4482 corresponding thing with the page reference of the label.")
4483     (license license:lppl1.3c+)))
4484
4485 (define-public texlive-seminar
4486   (package
4487     (inherit (simple-texlive-package
4488               "texlive-seminar"
4489               (list "/doc/latex/seminar/"
4490                     "/tex/latex/seminar/")
4491               (base32
4492                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
4493               #:trivial? #t))
4494     (home-page "https://www.ctan.org/pkg/seminar")
4495     (synopsis "Make overhead slides")
4496     ;; TODO: This package may need fancybox and xcomment at runtime.
4497     (description
4498      "This package provides a class that produces overhead
4499 slides (transparencies), with many facilities.  Seminar is not nowadays
4500 reckoned a good basis for a presentation — users are advised to use more
4501 recent classes such as powerdot or beamer, both of which are tuned to
4502 21st-century presentation styles.")
4503     (license license:lppl1.2+)))
4504
4505 (define-public texlive-latex-seminar
4506   (deprecated-package "texlive-latex-seminar" texlive-seminar))
4507
4508 (define-public texlive-latex-trimspaces
4509   (package
4510     (name "texlive-latex-trimspaces")
4511     (version (number->string %texlive-revision))
4512     (source (origin
4513               (method svn-fetch)
4514               (uri (texlive-ref "latex" "trimspaces"))
4515               (file-name (string-append name "-" version "-checkout"))
4516               (sha256
4517                (base32
4518                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
4519     (build-system texlive-build-system)
4520     (arguments
4521      '(#:tex-directory "latex/trimspaces"
4522        #:tex-format "latex"
4523        #:phases
4524        (modify-phases %standard-phases
4525          (add-after 'unpack 'fix-bug
4526            (lambda _
4527              ;; The "ins" file refers to the wrong source file.
4528              (substitute* "trimspaces.ins"
4529                (("pstool.tex") "trimspaces.tex"))
4530              #t)))))
4531     (inputs
4532      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
4533     (home-page "https://www.ctan.org/pkg/trimspaces")
4534     (synopsis "Trim spaces around an argument or within a macro")
4535     (description
4536      "This very short package allows you to expandably remove spaces around a
4537 token list (commands are provided to remove spaces before, spaces after, or
4538 both); or to remove surrounding spaces within a macro definition, or to define
4539 space-stripped macros.")
4540     (license license:lppl)))
4541
4542 (define-public texlive-latex-capt-of
4543   (package
4544     (name "texlive-latex-capt-of")
4545     (version (number->string %texlive-revision))
4546     (source (origin
4547               (method svn-fetch)
4548               (uri (svn-reference
4549                     (url (string-append "svn://www.tug.org/texlive/tags/"
4550                                         %texlive-tag "/Master/texmf-dist/"
4551                                         "/tex/latex/capt-of"))
4552                     (revision %texlive-revision)))
4553               (file-name (string-append name "-" version "-checkout"))
4554               (sha256
4555                (base32
4556                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
4557     (build-system trivial-build-system)
4558     (arguments
4559      `(#:modules ((guix build utils))
4560        #:builder
4561        (begin
4562          (use-modules (guix build utils))
4563          (let ((target (string-append (assoc-ref %outputs "out")
4564                                       "/share/texmf-dist/tex/latex/capt-of")))
4565            (mkdir-p target)
4566            (copy-recursively (assoc-ref %build-inputs "source") target)
4567            #t))))
4568     (home-page "https://www.ctan.org/pkg/capt-of")
4569     (synopsis "Captions on more than floats")
4570     (description
4571      "This package defines a command @code{\\captionof} for putting a caption
4572 to something that's not a float.")
4573     (license license:lppl)))
4574
4575 (define-public texlive-doi
4576   (package
4577     (inherit (simple-texlive-package
4578               "texlive-doi"
4579               (list "/doc/latex/doi/README.md"
4580                     "/tex/latex/doi/")
4581               (base32
4582                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
4583               #:trivial? #t))
4584     (home-page "https://www.ctan.org/pkg/doi")
4585     (synopsis "Create correct hyperlinks for DOI numbers")
4586     (description
4587      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
4588 elected to use nasty characters in their DOI numbering scheme (@code{<},
4589 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
4590 upset LaTeX, or your PDF reader.  This package contains a single user-level
4591 command @code{\\doi{}}, which takes a DOI number, and creates a correct
4592 hyperlink to the target of the DOI.")
4593     ;; Any version of the LPPL.
4594     (license license:lppl1.3+)))
4595
4596 (define-public texlive-latex-doi
4597   (deprecated-package "texlive-latex-doi" texlive-doi))
4598
4599 (define-public texlive-etoolbox
4600   (package
4601     (inherit (simple-texlive-package
4602               "texlive-etoolbox"
4603               (list "/doc/latex/etoolbox/"
4604                     "/tex/latex/etoolbox/")
4605               (base32
4606                "1w9mycfa0lx9whjzfybx58608phcrfk33w3igy566qv23a1z9rzc")
4607               #:trivial? #t))
4608     (home-page "https://www.ctan.org/pkg/etoolbox")
4609     (synopsis "e-TeX tools for LaTeX")
4610     (description
4611      "This package is a toolbox of programming facilities geared primarily
4612 towards LaTeX class and package authors.  It provides LaTeX frontends to some
4613 of the new primitives provided by e-TeX as well as some generic tools which
4614 are not strictly related to e-TeX but match the profile of this package.  The
4615 package provides functions that seem to offer alternative ways of implementing
4616 some LaTeX kernel commands; nevertheless, the package will not modify any part
4617 of the LaTeX kernel.")
4618     (license license:lppl1.3+)))
4619
4620 (define-public texlive-latex-etoolbox
4621   (deprecated-package "texlive-latex-etoolbox" texlive-etoolbox))
4622
4623 (define-public texlive-latex-fncychap
4624   (package
4625     (name "texlive-latex-fncychap")
4626     (version (number->string %texlive-revision))
4627     (source (origin
4628               (method svn-fetch)
4629               (uri (svn-reference
4630                     (url (string-append "svn://www.tug.org/texlive/tags/"
4631                                         %texlive-tag "/Master/texmf-dist/"
4632                                         "/tex/latex/fncychap"))
4633                     (revision %texlive-revision)))
4634               (file-name (string-append name "-" version "-checkout"))
4635               (sha256
4636                (base32
4637                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
4638     (build-system trivial-build-system)
4639     (arguments
4640      `(#:modules ((guix build utils))
4641        #:builder
4642        (begin
4643          (use-modules (guix build utils))
4644          (let ((target (string-append (assoc-ref %outputs "out")
4645                                       "/share/texmf-dist/tex/latex/fncychap")))
4646            (mkdir-p target)
4647            (copy-recursively (assoc-ref %build-inputs "source") target)
4648            #t))))
4649     (home-page "https://www.ctan.org/pkg/fncychap")
4650     (synopsis "Seven predefined chapter heading styles")
4651     (description
4652      "This package provides seven predefined chapter heading styles.  Each
4653 style can be modified using a set of simple commands.  Optionally one can
4654 modify the formatting routines in order to create additional chapter
4655 headings.")
4656     (license license:lppl1.3+)))
4657
4658 (define-public texlive-latex-framed
4659   (package
4660     (name "texlive-latex-framed")
4661     (version (number->string %texlive-revision))
4662     (source (origin
4663               (method svn-fetch)
4664               (uri (svn-reference
4665                     (url (string-append "svn://www.tug.org/texlive/tags/"
4666                                         %texlive-tag "/Master/texmf-dist/"
4667                                         "/tex/latex/framed"))
4668                     (revision %texlive-revision)))
4669               (file-name (string-append name "-" version "-checkout"))
4670               (sha256
4671                (base32
4672                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4673     (build-system trivial-build-system)
4674     (arguments
4675      `(#:modules ((guix build utils))
4676        #:builder
4677        (begin
4678          (use-modules (guix build utils))
4679          (let ((target (string-append (assoc-ref %outputs "out")
4680                                       "/share/texmf-dist/tex/latex/framed")))
4681            (mkdir-p target)
4682            (copy-recursively (assoc-ref %build-inputs "source") target)
4683            #t))))
4684     (home-page "https://www.ctan.org/pkg/framed")
4685     (synopsis "Framed or shaded regions that can break across pages")
4686     (description
4687      "The package creates three environments: @code{framed}, which puts an
4688 ordinary frame box around the region, @code{shaded}, which shades the region,
4689 and @code{leftbar}, which places a line at the left side.  The environments
4690 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4691 title that is “attached” to the environment); breaks are also allowed in the
4692 course of the framed/shaded matter.  There is also a command
4693 @code{\\MakeFramed} to make your own framed-style environments.")
4694     ;; The header states: "These macros may be freely transmitted, reproduced,
4695     ;; or modified for any purpose provided that this notice is left intact."
4696     (license (license:fsf-free "file://framed.sty"))))
4697
4698 (define-public texlive-latex-g-brief
4699   (package
4700     (name "texlive-latex-g-brief")
4701     (version (number->string %texlive-revision))
4702     (source (origin
4703               (method svn-fetch)
4704               (uri (texlive-ref "latex" "g-brief"))
4705               (file-name (string-append name "-" version "-checkout"))
4706               (sha256
4707                (base32
4708                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
4709     (build-system texlive-build-system)
4710     (arguments
4711      '(#:tex-directory "latex/g-brief"
4712        #:phases
4713        (modify-phases %standard-phases
4714          (add-after 'unpack 'remove-generated-file
4715            (lambda _
4716              (delete-file "g-brief.drv")
4717              #t)))))
4718     (home-page "https://www.ctan.org/pkg/g-brief")
4719     (synopsis "Letter document class")
4720     (description
4721      "This package is designed for formatting formless letters in German; it
4722 can also be used for English (by those who can read the documentation).  There
4723 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4724 \"old\" and a \"new\" version of g-brief.")
4725     (license license:lppl)))
4726
4727 (define-public texlive-latex-galois
4728   (package
4729     (name "texlive-latex-galois")
4730     (version (number->string %texlive-revision))
4731     (source (origin
4732               (method svn-fetch)
4733               (uri (texlive-ref "latex" "galois"))
4734               (file-name (string-append name "-" version "-checkout"))
4735               (sha256
4736                (base32
4737                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4738     (build-system texlive-build-system)
4739     (arguments '(#:tex-directory "latex/galois"))
4740     (home-page "https://www.ctan.org/pkg/galois")
4741     (synopsis "Typeset Galois connections")
4742     (description
4743      "The package deals with connections in two-dimensional style, optionally
4744 in colour.")
4745     (license license:lppl)))
4746
4747 (define-public texlive-latex-gcite
4748   (package
4749     (name "texlive-latex-gcite")
4750     (version (number->string %texlive-revision))
4751     (source (origin
4752               (method svn-fetch)
4753               (uri (texlive-ref "latex" "gcite"))
4754               (file-name (string-append name "-" version "-checkout"))
4755               (sha256
4756                (base32
4757                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4758     (build-system texlive-build-system)
4759     (arguments '(#:tex-directory "latex/gcite"))
4760     (home-page "https://www.ctan.org/pkg/gcite")
4761     (synopsis "Citations in a reader-friendly style")
4762     (description
4763      "The package allows citations in the German style, which is considered by
4764 many to be particularly reader-friendly.  The citation provides a small amount
4765 of bibliographic information in a footnote on the page where each citation is
4766 made.  It combines a desire to eliminate unnecessary page-turning with the
4767 look-up efficiency afforded by numeric citations.  The package makes use of
4768 BibLaTeX, and is considered experimental.")
4769     (license license:lppl1.3+)))
4770
4771 (define-public texlive-latex-geometry
4772   (package
4773     (name "texlive-latex-geometry")
4774     (version (number->string %texlive-revision))
4775     (source (origin
4776               (method svn-fetch)
4777               (uri (texlive-ref "latex" "geometry"))
4778               (file-name (string-append name "-" version "-checkout"))
4779               (sha256
4780                (base32
4781                 "0a9nrmiwksnpa6iaapirqid974ai56qgin2n4h9mggy9v8gp7r71"))))
4782     (build-system texlive-build-system)
4783     (arguments '(#:tex-directory "latex/geometry"))
4784     (propagated-inputs
4785      `(("texlive-oberdiek" ,texlive-oberdiek))) ;for ifpdf
4786     (home-page "https://www.ctan.org/pkg/geometry")
4787     (synopsis "Flexible and complete interface to document dimensions")
4788     (description
4789      "This package provides an easy and flexible user interface to customize
4790 page layout, implementing auto-centering and auto-balancing mechanisms so that
4791 the users have only to give the least description for the page layout.  The
4792 package knows about all the standard paper sizes, so that the user need not
4793 know what the nominal \"real\" dimensions of the paper are, just its standard
4794 name (such as a4, letter, etc.).  An important feature is the package's
4795 ability to communicate the paper size it's set up to the output.")
4796     (license license:lppl)))
4797
4798 (define-public texlive-latex-mdwtools
4799   (package
4800     (name "texlive-latex-mdwtools")
4801     (version (number->string %texlive-revision))
4802     (source (origin
4803               (method svn-fetch)
4804               (uri (texlive-ref "latex" "mdwtools"))
4805               (file-name (string-append name "-" version "-checkout"))
4806               (sha256
4807                (base32
4808                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4809     (build-system texlive-build-system)
4810     (arguments '(#:tex-directory "latex/mdwtools"))
4811     (home-page "https://www.ctan.org/pkg/mdwtools")
4812     (synopsis "Miscellaneous tools by Mark Wooding")
4813     (description
4814      "This collection of tools includes: @code{atsupport} for short commands
4815 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4816 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4817 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4818 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4819 array environments; verbatim handling; and syntax diagrams.")
4820     (license license:gpl3+)))
4821
4822 (define-public texlive-latex-polyglossia
4823   (package
4824     (name "texlive-latex-polyglossia")
4825     (version (number->string %texlive-revision))
4826     (source (origin
4827               (method svn-fetch)
4828               (uri (texlive-ref "latex" "polyglossia"))
4829               (file-name (string-append name "-" version "-checkout"))
4830               (sha256
4831                (base32
4832                 "0c3hrki9pmhz4iall0436wrlrg6qkb1fsdfhz9hv7ysxryr2gihj"))))
4833     (build-system texlive-build-system)
4834     (arguments '(#:tex-directory "latex/polyglossia"))
4835     (home-page "https://www.ctan.org/pkg/polyglossia")
4836     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4837     (description
4838      "This package provides a complete Babel replacement for users of LuaLaTeX
4839 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4840     (license license:lppl1.3+)))
4841
4842 (define-public texlive-latex-supertabular
4843   (package
4844     (name "texlive-latex-supertabular")
4845     (version (number->string %texlive-revision))
4846     (source (origin
4847               (method svn-fetch)
4848               (uri (texlive-ref "latex" "supertabular"))
4849               (file-name (string-append name "-" version "-checkout"))
4850               (sha256
4851                (base32
4852                 "19fd0bqxjkzc16bza3w20pnsc90gbhbllm244b3h6sink4dlnn54"))))
4853     (build-system texlive-build-system)
4854     (arguments '(#:tex-directory "latex/supertabular"))
4855     (home-page "https://www.ctan.org/pkg/supertabular")
4856     (synopsis "Multi-page tables package")
4857     (description
4858      "This package was a predecessor of @code{longtable}; the newer
4859 package (designed on quite different principles) is easier to use and more
4860 flexible, in many cases, but supertabular retains its usefulness in a few
4861 situations where longtable has problems.")
4862     (license license:lppl1.3+)))
4863
4864 (define-public texlive-tex-texinfo
4865   (package
4866     (name "texlive-tex-texinfo")
4867     (version (number->string %texlive-revision))
4868     (source (origin
4869               (method svn-fetch)
4870               (uri (svn-reference
4871                     (url (string-append "svn://www.tug.org/texlive/tags/"
4872                                         %texlive-tag "/Master/texmf-dist/"
4873                                         "/tex/texinfo"))
4874                     (revision %texlive-revision)))
4875               (file-name (string-append name "-" version "-checkout"))
4876               (sha256
4877                (base32
4878                 "1ngzgiy8wd3b9gnbx802x90xa179xxm7vf5jhfdkpgrfxwlycfby"))))
4879     (build-system trivial-build-system)
4880     (arguments
4881      `(#:modules ((guix build utils))
4882        #:builder
4883        (begin
4884          (use-modules (guix build utils))
4885          (let ((target (string-append (assoc-ref %outputs "out")
4886                                       "/share/texmf-dist/tex/texinfo")))
4887            (mkdir-p target)
4888            (copy-recursively (assoc-ref %build-inputs "source") target)
4889            #t))))
4890     (home-page "https://www.ctan.org/pkg/texinfo")
4891     (synopsis "TeX macros to handle Texinfo files")
4892     (description
4893      "Texinfo is the preferred format for documentation in the GNU project;
4894 the format may be used to produce online or printed output from a single
4895 source.  The Texinfo macros may be used to produce printable output using TeX;
4896 other programs in the distribution offer online interactive use (with
4897 hypertext linkages in some cases).")
4898     (license license:gpl3+)))
4899
4900 (define-public texlive-latex-upquote
4901   (package
4902     (name "texlive-latex-upquote")
4903     (version (number->string %texlive-revision))
4904     (source (origin
4905               (method svn-fetch)
4906               (uri (texlive-ref "latex" "upquote"))
4907               (file-name (string-append name "-" version "-checkout"))
4908               (sha256
4909                (base32
4910                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
4911     (build-system texlive-build-system)
4912     (arguments '(#:tex-directory "latex/upquote"))
4913     (home-page "https://www.ctan.org/pkg/upquote")
4914     (synopsis "Show \"realistic\" quotes in verbatim")
4915     (description
4916      "Typewriter-style fonts are best for program listings, but Computer
4917 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
4918 single quotes.  Other fonts, and most programming languages, print @code{`} as
4919 a grave accent and @code{'} upright; @code{'} is used both to open and to
4920 close quoted strings.  The package switches the typewriter font to Computer
4921 Modern Typewriter in OT1 encoding, and modifies the behaviour of
4922 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
4923 in the expected way.  It does this regardless of other fonts or encodings in
4924 use, so long as the package is loaded after the other fonts were.  The package
4925 does not affect @code{\\tt}, @code{\\texttt}, etc.")
4926     (license license:lppl1.2+)))
4927
4928 (define-public texlive-latex-anysize
4929   (package
4930     (name "texlive-latex-anysize")
4931     (version (number->string %texlive-revision))
4932     (source (origin
4933               (method svn-fetch)
4934               (uri (svn-reference
4935                     (url (string-append "svn://www.tug.org/texlive/tags/"
4936                                         %texlive-tag "/Master/texmf-dist/"
4937                                         "/tex/latex/anysize"))
4938                     (revision %texlive-revision)))
4939               (file-name (string-append name "-" version "-checkout"))
4940               (sha256
4941                (base32
4942                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
4943     (build-system trivial-build-system)
4944     (arguments
4945      `(#:modules ((guix build utils))
4946        #:builder
4947        (begin
4948          (use-modules (guix build utils))
4949          (let ((target (string-append (assoc-ref %outputs "out")
4950                                       "/share/texmf-dist/tex/latex/anysize")))
4951            (mkdir-p target)
4952            (copy-recursively (assoc-ref %build-inputs "source") target)
4953            #t))))
4954     (home-page "https://www.ctan.org/pkg/anysize")
4955     (synopsis "Simple package to set up document margins")
4956     (description
4957      "This is a simple package to set up document margins.  This package is
4958 considered obsolete; alternatives are the @code{typearea} package from the
4959 @code{koma-script} bundle, or the @code{geometry} package.")
4960     (license license:public-domain)))
4961
4962 (define-public texlive-latex-appendix
4963   (package
4964     (name "texlive-latex-appendix")
4965     (version (number->string %texlive-revision))
4966     (source (origin
4967               (method svn-fetch)
4968               (uri (texlive-ref "latex" "appendix"))
4969               (file-name (string-append name "-" version "-checkout"))
4970               (sha256
4971                (base32
4972                 "1gc2brr2rs495w7qi6spdva1xrza94x7a36dncjdkghnsq8r92h4"))))
4973     (build-system texlive-build-system)
4974     (arguments '(#:tex-directory "latex/appendix"))
4975     (home-page "https://www.ctan.org/pkg/appendix")
4976     (synopsis "Extra control of appendices")
4977     (description
4978      "The appendix package provides various ways of formatting the titles of
4979 appendices.  Also (sub)appendices environments are provided that can be used,
4980 for example, for per chapter/section appendices.  An @code{appendices}
4981 environment is provided which can be used instead of the @code{\\appendix}
4982 command.")
4983     (license license:lppl)))
4984
4985 (define-public texlive-latex-bookmark
4986   (package
4987     (inherit (simple-texlive-package
4988               "texlive-latex-bookmark"
4989               (list "/doc/latex/bookmark/"
4990                     "/tex/latex/bookmark/")
4991               (base32
4992                "1vl1rrydh5jh78llp4i5r1hvznghm9gddwcnfnzwlgp9z67gybh1")
4993               #:trivial? #t))
4994     (home-page "https://www.ctan.org/pkg/bookmark")
4995     (synopsis "Bookmark (outline) organization for hyperref")
4996     (description
4997      "This package implements a new bookmark (outline) organization for the
4998 @code{hyperref} package.  Bookmark properties such as style and color.  Other
4999 action types are available (URI, GoToR, Named).")
5000     (license license:lppl1.3c+)))
5001
5002 (define-public texlive-latex-changebar
5003   (package
5004     (name "texlive-latex-changebar")
5005     (version (number->string %texlive-revision))
5006     (source (origin
5007               (method svn-fetch)
5008               (uri (texlive-ref "latex" "changebar"))
5009               (file-name (string-append name "-" version "-checkout"))
5010               (sha256
5011                (base32
5012                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
5013     (build-system texlive-build-system)
5014     (arguments '(#:tex-directory "latex/changebar"))
5015     (home-page "https://www.ctan.org/pkg/changebar")
5016     (synopsis "Generate changebars in LaTeX documents")
5017     (description
5018      "Identify areas of text to be marked with changebars with the
5019 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
5020 package uses @code{drivers} to place the bars; the available drivers can work
5021 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
5022 drivers, and VTeX and pdfTeX.")
5023     (license license:lppl)))
5024
5025 (define-public texlive-latex-cmap
5026   (package
5027     (name "texlive-latex-cmap")
5028     (version (number->string %texlive-revision))
5029     (source (origin
5030               (method svn-fetch)
5031               (uri (svn-reference
5032                     (url (string-append "svn://www.tug.org/texlive/tags/"
5033                                         %texlive-tag "/Master/texmf-dist/"
5034                                         "/tex/latex/cmap"))
5035                     (revision %texlive-revision)))
5036               (file-name (string-append name "-" version "-checkout"))
5037               (sha256
5038                (base32
5039                 "1s1rv6zgw105w2j6ffhnk914qrix87y1ndzri1q72g2kbr91zlbg"))))
5040     (build-system trivial-build-system)
5041     (arguments
5042      `(#:modules ((guix build utils))
5043        #:builder
5044        (begin
5045          (use-modules (guix build utils))
5046          (let ((target (string-append (assoc-ref %outputs "out")
5047                                       "/share/texmf-dist/tex/latex/cmap")))
5048            (mkdir-p target)
5049            (copy-recursively (assoc-ref %build-inputs "source") target)
5050            #t))))
5051     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
5052 Master/texmf-dist/tex/latex/cmap/")
5053     (synopsis "CMap support for PDF files")
5054     (description
5055      "This package embeds CMap tables into PDF files to make search and
5056 copy-and-paste functions work properly.")
5057     (license license:lppl)))
5058
5059 (define-public texlive-latex-colortbl
5060   (package
5061     (name "texlive-latex-colortbl")
5062     (version (number->string %texlive-revision))
5063     (source (origin
5064               (method svn-fetch)
5065               (uri (texlive-ref "latex" "colortbl"))
5066               (file-name (string-append name "-" version "-checkout"))
5067               (sha256
5068                (base32
5069                 "1qa0mh0fy9hcvfsmprv6q50q0qzdjjfbxi3axap26z6zg3qj68bc"))))
5070     (build-system texlive-build-system)
5071     (arguments '(#:tex-directory "latex/colortbl"))
5072     (home-page "https://www.ctan.org/pkg/colortbl")
5073     (synopsis "Add colour to LaTeX tables")
5074     (description
5075      "This package allows rows, columns, and even individual cells in LaTeX
5076 tables to be coloured.")
5077     (license license:lppl)))
5078
5079 (define-public texlive-latex-fancybox
5080   (package
5081     (name "texlive-latex-fancybox")
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/fancybox"))
5089                     (revision %texlive-revision)))
5090               (file-name (string-append name "-" version "-checkout"))
5091               (sha256
5092                (base32
5093                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
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/fancybox")))
5102            (mkdir-p target)
5103            (copy-recursively (assoc-ref %build-inputs "source") target)
5104            #t))))
5105     (home-page "https://www.ctan.org/pkg/fancybox")
5106     (synopsis "Variants of \\fbox and other games with boxes")
5107     (description
5108      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
5109 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
5110 using box macros and flexible verbatim macros.  You can box mathematics,
5111 floats, center, flushleft, and flushright, lists, and pages.")
5112     (license license:lppl1.2+)))
5113
5114 (define-public texlive-latex-fancyhdr
5115   (package
5116     (name "texlive-latex-fancyhdr")
5117     (version (number->string %texlive-revision))
5118     (source (origin
5119               (method svn-fetch)
5120               (uri (svn-reference
5121                     (url (string-append "svn://www.tug.org/texlive/tags/"
5122                                         %texlive-tag "/Master/texmf-dist/"
5123                                         "/tex/latex/fancyhdr"))
5124                     (revision %texlive-revision)))
5125               (file-name (string-append name "-" version "-checkout"))
5126               (sha256
5127                (base32
5128                 "0hrwspqkqfahxyzzsnjyrxlgxj06zw1f3636gx76pvl4xhvdj1cj"))))
5129     (build-system trivial-build-system)
5130     (arguments
5131      `(#:modules ((guix build utils))
5132        #:builder
5133        (begin
5134          (use-modules (guix build utils))
5135          (let ((target (string-append (assoc-ref %outputs "out")
5136                                       "/share/texmf-dist/tex/latex/fancyhdr")))
5137            (mkdir-p target)
5138            (copy-recursively (assoc-ref %build-inputs "source") target)
5139            #t))))
5140     (home-page "https://www.ctan.org/pkg/fancyhdr")
5141     (synopsis "Extensive control of page headers and footers in LaTeX2e")
5142     (description
5143      "The package provides extensive facilities, both for constructing headers
5144 and footers, and for controlling their use (for example, at times when LaTeX
5145 would automatically change the heading style in use).")
5146     (license license:lppl)))
5147
5148 (define-public texlive-latex-float
5149   (package
5150     (name "texlive-latex-float")
5151     (version (number->string %texlive-revision))
5152     (source (origin
5153               (method svn-fetch)
5154               (uri (texlive-ref "latex" "float"))
5155               (file-name (string-append name "-" version "-checkout"))
5156               (sha256
5157                (base32
5158                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
5159     (build-system texlive-build-system)
5160     (arguments '(#:tex-directory "latex/float"))
5161     (home-page "https://www.ctan.org/pkg/float")
5162     (synopsis "Improved interface for floating objects")
5163     (description
5164      "This package improves the interface for defining floating objects such
5165 as figures and tables.  It introduces the boxed float, the ruled float and the
5166 plaintop float.  You can define your own floats and improve the behaviour of
5167 the old ones.  The package also provides the @code{H} float modifier option of
5168 the obsolete @code{here} package.  You can select this as automatic default
5169 with @code{\\floatplacement{figure}{H}}.")
5170     (license license:lppl)))
5171
5172 (define-public texlive-latex-footmisc
5173   (package
5174     (name "texlive-latex-footmisc")
5175     (version (number->string %texlive-revision))
5176     (source (origin
5177               (method svn-fetch)
5178               (uri (texlive-ref "latex" "footmisc"))
5179               (file-name (string-append name "-" version "-checkout"))
5180               (sha256
5181                (base32
5182                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
5183     (build-system texlive-build-system)
5184     (arguments '(#:tex-directory "latex/footmisc"))
5185     (home-page "https://www.ctan.org/pkg/footmisc")
5186     (synopsis "Range of footnote options")
5187     (description
5188      "This is a collection of ways to change the typesetting of footnotes.
5189 The package provides means of changing the layout of the footnotes themselves,
5190 a way to number footnotes per page, to make footnotes disappear in a
5191 \"moving\" argument, and to deal with multiple references to footnotes from
5192 the same place.  The package also has a range of techniques for labelling
5193 footnotes with symbols rather than numbers.")
5194     (license license:lppl1.3+)))
5195
5196 (define-public texlive-latex-letltxmacro
5197   (package
5198     (inherit (simple-texlive-package
5199               "texlive-latex-letltxmacro"
5200               (list "/doc/latex/letltxmacro/"
5201                     "/tex/latex/letltxmacro/")
5202               (base32
5203                "0yy1m1jiyxq2pssp0pidaa2swx6lyxw3zwpm2r8m0v2r3lvsyyxx")
5204               #:trivial? #t))
5205     (home-page "https://www.ctan.org/pkg/letltxmacro")
5206     (synopsis "Let assignment for macros")
5207     (description
5208      "TeX’s @code{\\let} assignment does not work for LaTeX macros with
5209 optional arguments, or for macros that are defined as robust macros by
5210 @code{\\DeclareRobustCommand}.  This package defines @code{\\LetLtxMacro}
5211 that also takes care of the involved internal macros.")
5212     (license license:lppl1.3c+)))
5213
5214 (define-public texlive-latex-listings
5215   (package
5216     (name "texlive-latex-listings")
5217     (version (number->string %texlive-revision))
5218     (source (origin
5219               (method svn-fetch)
5220               (uri (texlive-ref "latex" "listings"))
5221               (file-name (string-append name "-" version "-checkout"))
5222               (sha256
5223                (base32
5224                 "082zri3gp8s6p2difhk1pbix2vzmvsf6fmld2z78v35xwk3fiya0"))))
5225     (build-system texlive-build-system)
5226     (arguments
5227      '(#:tex-directory "latex/listings"
5228        #:build-targets '("listings.ins")))
5229     (home-page "https://www.ctan.org/pkg/listings")
5230     (synopsis "Typeset source code listings using LaTeX")
5231     (description
5232      "The package enables the user to typeset programs (programming code)
5233 within LaTeX; the source code is read directly by TeX---no front-end processor
5234 is needed.  Keywords, comments and strings can be typeset using different
5235 styles.  Support for @code{hyperref} is provided.")
5236     (license license:lppl1.3+)))
5237
5238 (define-public texlive-latex-jknapltx
5239   (package
5240     (name "texlive-latex-jknapltx")
5241     (version (number->string %texlive-revision))
5242     (source (origin
5243               (method svn-fetch)
5244               (uri (svn-reference
5245                     (url (string-append "svn://www.tug.org/texlive/tags/"
5246                                         %texlive-tag "/Master/texmf-dist/"
5247                                         "/tex/latex/jknapltx"))
5248                     (revision %texlive-revision)))
5249               (file-name (string-append name "-" version "-checkout"))
5250               (sha256
5251                (base32
5252                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
5253     (build-system trivial-build-system)
5254     (arguments
5255      `(#:modules ((guix build utils))
5256        #:builder
5257        (begin
5258          (use-modules (guix build utils))
5259          (let ((target (string-append (assoc-ref %outputs "out")
5260                                       "/share/texmf-dist/tex/latex/jknapltx")))
5261            (mkdir-p target)
5262            (copy-recursively (assoc-ref %build-inputs "source") target)
5263            #t))))
5264     (home-page "https://www.ctan.org/pkg/jknappen")
5265     (synopsis "Miscellaneous packages by Joerg Knappen")
5266     (description
5267      "This package provides miscellaneous macros by Joerg Knappen, including:
5268 represent counters in greek; Maxwell's non-commutative division;
5269 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
5270 @code{inputenc} definition files that allow verbatim input in the respective
5271 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
5272 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
5273 transliterate semitic languages; patches to make (La)TeX formulae embeddable
5274 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
5275     (license license:gpl2)))
5276
5277 (define-public texlive-latex-kvoptions
5278   (package
5279     (inherit (simple-texlive-package
5280               "texlive-latex-kvoptions"
5281               (list "/doc/latex/kvoptions/"
5282                     "/tex/latex/kvoptions/")
5283               (base32
5284                "04v733njj6ynf1prj5rxljqbjq925jyycdprc78n7g01knn13wgr")
5285               #:trivial? #t))
5286     (propagated-inputs
5287      `(("texlive-generic-kvsetkeys" ,texlive-generic-kvsetkeys)
5288        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
5289     (home-page "https://www.ctan.org/pkg/kvoptions")
5290     (synopsis "Key/value format for package options")
5291     (description
5292      "This package provides facilities for using key-value format in
5293 package options.")
5294     (license license:lppl1.3c+)))
5295
5296 (define-public texlive-fonts-ec
5297   (package
5298     (name "texlive-fonts-ec")
5299     (version (number->string %texlive-revision))
5300     (source (origin
5301               (method svn-fetch)
5302               (uri (svn-reference
5303                     (url (string-append "svn://www.tug.org/texlive/tags/"
5304                                         %texlive-tag "/Master/texmf-dist/"
5305                                         "/fonts/source/jknappen/ec/"))
5306                     (revision %texlive-revision)))
5307               (file-name (string-append name "-" version "-checkout"))
5308               (sha256
5309                (base32
5310                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
5311     (build-system gnu-build-system)
5312     (arguments
5313      `(#:modules ((guix build gnu-build-system)
5314                   (guix build utils)
5315                   (srfi srfi-1)
5316                   (srfi srfi-26))
5317        #:tests? #f                      ; no tests
5318        #:phases
5319        (modify-phases %standard-phases
5320          (delete 'configure)
5321          (replace 'build
5322            (lambda* (#:key inputs #:allow-other-keys)
5323              (let ((mf (assoc-ref inputs "texlive-metafont")))
5324                ;; Tell mf where to find mf.base
5325                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5326                ;; Tell mf where to look for source files
5327                (setenv "MFINPUTS"
5328                        (string-append (getcwd) ":"
5329                                       mf "/share/texmf-dist/metafont/base:"
5330                                       (assoc-ref inputs "texlive-cm")
5331                                       "/share/texmf-dist/fonts/source/public/cm")))
5332              (mkdir "build")
5333              (for-each (lambda (font)
5334                          (format #t "building font ~a\n" font)
5335                          (invoke "mf" "-progname=mf"
5336                                  "-output-directory=build"
5337                                  (string-append "\\"
5338                                                 "mode:=ljfour; "
5339                                                 "mag:=1; "
5340                                                 "batchmode; "
5341                                                 "input " (basename font ".mf"))))
5342                        (find-files "." "[0-9]+\\.mf$"))
5343              #t))
5344          (replace 'install
5345            (lambda* (#:key outputs #:allow-other-keys)
5346              (let* ((out (assoc-ref outputs "out"))
5347                     (tfm (string-append
5348                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
5349                     (mf  (string-append
5350                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
5351                (for-each (cut install-file <> tfm)
5352                          (find-files "build" "\\.*"))
5353                (for-each (cut install-file <> mf)
5354                          (find-files "." "\\.mf"))
5355                #t))))))
5356     (native-inputs
5357      `(("texlive-bin" ,texlive-bin)
5358        ("texlive-metafont" ,texlive-metafont)
5359        ("texlive-cm" ,texlive-cm)))
5360     (home-page "https://www.ctan.org/pkg/ec")
5361     (synopsis "Computer modern fonts in T1 and TS1 encodings")
5362     (description
5363      "The EC fonts are European Computer Modern Fonts, supporting the complete
5364 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
5365 These fonts are intended to be stable with no changes being made to the tfm
5366 files.  The set also contains a Text Companion Symbol font, called @code{tc},
5367 featuring many useful characters needed in text typesetting, for example
5368 oldstyle digits, currency symbols (including the newly created Euro symbol),
5369 the permille sign, copyright, trade mark and servicemark as well as a copyleft
5370 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
5371 EC fonts supersede the preliminary version released as the DC fonts.  The
5372 fonts are available in (traced) Adobe Type 1 format, as part of the
5373 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
5374 set, Latin Modern, is not actually a direct development of the EC set, and
5375 differs from the EC in a number of particulars.")
5376     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
5377 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
5378
5379 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
5380 ;; fails with obscure TeX-typical error messages.
5381 (define-public texlive-ae
5382   (package
5383     (inherit (simple-texlive-package
5384               "texlive-ae"
5385               (list "/doc/fonts/ae/"
5386                     "/source/fonts/ae/"
5387                     "/fonts/tfm/public/ae/"
5388                     "/fonts/vf/public/ae/"
5389                     "/tex/latex/ae/")
5390               (base32
5391                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
5392               #:trivial? #t))
5393     (home-page "https://www.ctan.org/pkg/ae")
5394     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
5395     (description
5396      "This package provides a set of virtual fonts which emulates T1 coded
5397 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
5398 stands for \"Almost European\".  The main use of the package was to produce
5399 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
5400 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
5401 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
5402     (license license:lppl1.3+)))
5403
5404 (define-public texlive-inconsolata
5405   (package
5406     (inherit (simple-texlive-package
5407               "texlive-inconsolata"
5408               (list "/doc/fonts/inconsolata/"
5409                     "/fonts/enc/dvips/inconsolata/"
5410                     "/fonts/map/dvips/inconsolata/"
5411                     "/fonts/opentype/public/inconsolata/"
5412                     "/fonts/tfm/public/inconsolata/"
5413                     "/fonts/type1/public/inconsolata/"
5414                     "/tex/latex/inconsolata/")
5415               (base32
5416                "19lvma52vk7x8d7j4s9ymjwm3w2k08860fh6dkzn76scgpdm4wlb")
5417               #:trivial? #t))
5418     (home-page "https://www.ctan.org/pkg/inconsolata")
5419     (synopsis "Monospaced font with support files for use with TeX")
5420     (description
5421      "Inconsolata is a monospaced font designed by Raph Levien.  This package
5422 contains the font (in both Adobe Type 1 and OpenType formats) in regular and
5423 bold weights, with additional glyphs and options to control slashed zero,
5424 upright quotes and a shapelier lower-case L, plus metric files for use with
5425 TeX, and LaTeX font definition and other relevant files.")
5426     (license (list license:lppl1.3+
5427                    license:silofl1.1
5428                    license:asl2.0))))
5429
5430 (define-public texlive-times
5431   (package
5432     (inherit (simple-texlive-package
5433               "texlive-times"
5434               (list "/dvips/times/"
5435                     "/fonts/afm/adobe/times/"
5436                     "/fonts/afm/urw/times/"
5437                     "/fonts/tfm/adobe/times/"
5438                     "/fonts/tfm/urw35vf/times/"
5439                     "/fonts/type1/urw/times/"
5440                     "/fonts/vf/adobe/times/"
5441                     "/fonts/vf/urw35vf/times/"
5442                     "/fonts/map/dvips/times/"
5443                     "/tex/latex/times/")
5444               (base32
5445                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
5446               #:trivial? #t))
5447     (home-page "https://ctan.org/pkg/urw-base35")
5448     (synopsis "URW Base 35 font pack for LaTeX")
5449     (description
5450      "This package provides a drop-in replacements for the Times font from
5451 Adobe's basic set.")
5452     ;; No license version specified.
5453     (license license:gpl3+)))
5454
5455 (define-public texlive-fonts-adobe-times
5456   (deprecated-package "texlive-fonts-adobe-times" texlive-times))
5457
5458 (define-public texlive-palatino
5459   (package
5460     (inherit (simple-texlive-package
5461               "texlive-palatino"
5462               (list "/dvips/palatino/"
5463                     "/fonts/afm/adobe/palatino/"
5464                     "/fonts/afm/urw/palatino/"
5465                     "/fonts/tfm/adobe/palatino/"
5466                     "/fonts/tfm/urw35vf/palatino/"
5467                     "/fonts/type1/urw/palatino/"
5468                     "/fonts/vf/adobe/palatino/"
5469                     "/fonts/vf/urw35vf/palatino/"
5470
5471                     "/fonts/map/dvips/palatino/"
5472                     "/tex/latex/palatino/")
5473               (base32
5474                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
5475               #:trivial? #t))
5476     (home-page "https://ctan.org/pkg/urw-base35")
5477     (synopsis "URW Base 35 font pack for LaTeX")
5478     (description
5479      "This package provides a drop-in replacements for the Palatino font from
5480 Adobe's basic set.")
5481     ;; No license version specified.
5482     (license license:gpl3+)))
5483
5484 (define-public texlive-fonts-adobe-palatino
5485   (deprecated-package "texlive-fonts-adobe-palatino" texlive-palatino))
5486
5487 (define-public texlive-zapfding
5488   (package
5489     (inherit (simple-texlive-package
5490               "texlive-zapfding"
5491               (list "/dvips/zapfding/"
5492                     "/fonts/afm/adobe/zapfding/"
5493                     "/fonts/afm/urw/zapfding/"
5494                     "/fonts/tfm/adobe/zapfding/"
5495                     "/fonts/tfm/urw35vf/zapfding/"
5496                     "/fonts/type1/urw/zapfding/"
5497                     "/fonts/map/dvips/zapfding/"
5498                     "/tex/latex/zapfding/")
5499               (base32
5500                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
5501               #:trivial? #t))
5502     (home-page "https://ctan.org/pkg/urw-base35")
5503     (synopsis "URW Base 35 font pack for LaTeX")
5504     (description
5505      "This package provides a drop-in replacements for the Zapfding font from
5506 Adobe's basic set.")
5507     ;; No license version specified.
5508     (license license:gpl3+)))
5509
5510 (define-public texlive-fonts-adobe-zapfding
5511   (deprecated-package "texlive-fonts-adobe-zapfding" texlive-zapfding))
5512
5513 (define-public texlive-fonts-rsfs
5514   (package
5515     (name "texlive-fonts-rsfs")
5516     (version (number->string %texlive-revision))
5517     (source (origin
5518               (method svn-fetch)
5519               (uri (svn-reference
5520                     (url (string-append "svn://www.tug.org/texlive/tags/"
5521                                         %texlive-tag "/Master/texmf-dist/"
5522                                         "/fonts/source/public/rsfs/"))
5523                     (revision %texlive-revision)))
5524               (file-name (string-append name "-" version "-checkout"))
5525               (sha256
5526                (base32
5527                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
5528     (build-system gnu-build-system)
5529     (arguments
5530      `(#:modules ((guix build gnu-build-system)
5531                   (guix build utils)
5532                   (srfi srfi-1)
5533                   (srfi srfi-26))
5534        #:tests? #f                      ; no tests
5535        #:phases
5536        (modify-phases %standard-phases
5537          (delete 'configure)
5538          (replace 'build
5539            (lambda* (#:key inputs #:allow-other-keys)
5540              (let ((mf (assoc-ref inputs "texlive-metafont")))
5541                ;; Tell mf where to find mf.base
5542                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5543                ;; Tell mf where to look for source files
5544                (setenv "MFINPUTS"
5545                        (string-append (getcwd) ":"
5546                                       mf "/share/texmf-dist/metafont/base:"
5547                                       (assoc-ref inputs "texlive-cm")
5548                                       "/share/texmf-dist/fonts/source/public/cm")))
5549              (mkdir "build")
5550              (for-each (lambda (font)
5551                          (format #t "building font ~a\n" font)
5552                          (invoke "mf" "-progname=mf"
5553                                  "-output-directory=build"
5554                                  (string-append "\\"
5555                                                 "mode:=ljfour; "
5556                                                 "mag:=1; "
5557                                                 "batchmode; "
5558                                                 "input " (basename font ".mf"))))
5559                        (find-files "." "[0-9]+\\.mf$"))
5560              #t))
5561          (replace 'install
5562            (lambda* (#:key outputs #:allow-other-keys)
5563              (let* ((out (assoc-ref outputs "out"))
5564                     (tfm (string-append
5565                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
5566                     (mf  (string-append
5567                           out "/share/texmf-dist/fonts/source/public/rsfs")))
5568                (for-each (cut install-file <> tfm)
5569                          (find-files "build" "\\.*"))
5570                (for-each (cut install-file <> mf)
5571                          (find-files "." "\\.mf"))
5572                #t))))))
5573     (native-inputs
5574      `(("texlive-bin" ,texlive-bin)
5575        ("texlive-metafont" ,texlive-metafont)
5576        ("texlive-cm" ,texlive-cm)))
5577     (home-page "https://www.ctan.org/pkg/rsfs")
5578     (synopsis "Ralph Smith's Formal Script font")
5579     (description
5580      "The fonts provide uppercase formal script letters for use as symbols in
5581 scientific and mathematical typesetting (in contrast to the informal script
5582 fonts such as that used for the calligraphic symbols in the TeX maths symbol
5583 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
5584 format.  LaTeX support, for using these fonts in mathematics, is available via
5585 one of the packages @code{calrsfs} and @code{mathrsfs}.")
5586     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
5587
5588 (define-public texlive-latex-eso-pic
5589   (package
5590     (name "texlive-latex-eso-pic")
5591     (version (number->string %texlive-revision))
5592     (source (origin
5593               (method svn-fetch)
5594               (uri (texlive-ref "latex" "eso-pic"))
5595               (file-name (string-append name "-" version "-checkout"))
5596               (sha256
5597                (base32
5598                 "0y2y08kr3w6asm9lblj9yywqmhaal36fq71zzcbfsc7cvwf641q7"))))
5599     (build-system texlive-build-system)
5600     (arguments '(#:tex-directory "latex/eso-pic"))
5601     (home-page "https://www.ctan.org/pkg/eso-pic")
5602     (synopsis "Add picture commands (or backgrounds) to every page")
5603     (description
5604      "The package adds one or more user commands to LaTeX's @code{shipout}
5605 routine, which may be used to place the output at fixed positions.  The
5606 @code{grid} option may be used to find the correct places.")
5607     (license license:lppl1.3+)))
5608
5609 (define-public texlive-latex-eepic
5610   (package
5611     (name "texlive-latex-eepic")
5612     (version (number->string %texlive-revision))
5613     (source (origin
5614               (method svn-fetch)
5615               (uri (svn-reference
5616                     (url (string-append "svn://www.tug.org/texlive/tags/"
5617                                         %texlive-tag "/Master/texmf-dist/"
5618                                         "/tex/latex/eepic"))
5619                     (revision %texlive-revision)))
5620               (file-name (string-append name "-" version "-checkout"))
5621               (sha256
5622                (base32
5623                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
5624     (build-system trivial-build-system)
5625     (arguments
5626      `(#:modules ((guix build utils))
5627        #:builder
5628        (begin
5629          (use-modules (guix build utils))
5630          (let ((target (string-append (assoc-ref %outputs "out")
5631                                       "/share/texmf-dist/tex/latex/eepic")))
5632            (mkdir-p target)
5633            (copy-recursively (assoc-ref %build-inputs "source") target)
5634            #t))))
5635     (home-page "https://www.ctan.org/pkg/eepic")
5636     (synopsis "Extensions to epic and the LaTeX drawing tools")
5637     (description
5638      "Extensions to @code{epic} and the LaTeX picture drawing environment,
5639 include the drawing of lines at any slope, the drawing of circles in any
5640 radii, and the drawing of dotted and dashed lines much faster with much less
5641 TeX memory, and providing several new commands for drawing ellipses, arcs,
5642 splines, and filled circles and ellipses.  The package uses @code{tpic}
5643 @code{\\special} commands.")
5644     (license license:public-domain)))
5645
5646 (define-public texlive-latex-enumitem
5647   (package
5648     (name "texlive-latex-enumitem")
5649     (version (number->string %texlive-revision))
5650     (source (origin
5651               (method svn-fetch)
5652               (uri (svn-reference
5653                     (url (string-append "svn://www.tug.org/texlive/tags/"
5654                                         %texlive-tag "/Master/texmf-dist/"
5655                                         "/tex/latex/enumitem"))
5656                     (revision %texlive-revision)))
5657               (file-name (string-append name "-" version "-checkout"))
5658               (sha256
5659                (base32
5660                 "1j8svflnx9w897mdavyf1f0n256wh4bbclrhv5vx7b501gmlbp7d"))))
5661     (build-system trivial-build-system)
5662     (arguments
5663      `(#:modules ((guix build utils))
5664        #:builder
5665        (begin
5666          (use-modules (guix build utils))
5667          (let ((target (string-append (assoc-ref %outputs "out")
5668                                       "/share/texmf-dist/tex/latex/enumitem")))
5669            (mkdir-p target)
5670            (copy-recursively (assoc-ref %build-inputs "source") target)
5671            #t))))
5672     (home-page "https://www.ctan.org/pkg/enumitem")
5673     (synopsis "Customize basic list environments")
5674     (description
5675      "This package is intended to ease customizing the three basic list
5676 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5677 extends their syntax to allow an optional argument where a set of parameters
5678 in the form @code{key=value} are available, for example:
5679 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5680     (license license:lppl1.3+)))
5681
5682 (define-public texlive-latex-multirow
5683   (package
5684     (name "texlive-latex-multirow")
5685     (version (number->string %texlive-revision))
5686     (source (origin
5687               (method svn-fetch)
5688               (uri (texlive-ref "latex" "multirow"))
5689               (file-name (string-append name "-" version "-checkout"))
5690               (sha256
5691                (base32
5692                 "1bfpl8mr4h3p46649wb7pdkc3l44r8fqbv89abb3jj0zh8c10928"))))
5693     (build-system texlive-build-system)
5694     (arguments '(#:tex-directory "latex/multirow"))
5695     (home-page "https://www.ctan.org/pkg/multirow")
5696     (synopsis "Create tabular cells spanning multiple rows")
5697     (description
5698      "The package provides tools for creating tabular cells spanning multiple
5699 rows.  It has a lot of flexibility, including an option for specifying an
5700 entry at the \"natural\" width of its text.")
5701     (license license:lppl1.3+)))
5702
5703 (define-public texlive-latex-overpic
5704   (package
5705     (name "texlive-latex-overpic")
5706     (version (number->string %texlive-revision))
5707     (source (origin
5708               (method svn-fetch)
5709               (uri (svn-reference
5710                     (url (string-append "svn://www.tug.org/texlive/tags/"
5711                                         %texlive-tag "/Master/texmf-dist/"
5712                                         "/tex/latex/overpic"))
5713                     (revision %texlive-revision)))
5714               (file-name (string-append name "-" version "-checkout"))
5715               (sha256
5716                (base32
5717                 "1ygsr0rsdabj61zask3346xrwiphz5i6f1nfb9k4d3234psh09kb"))))
5718     (build-system trivial-build-system)
5719     (arguments
5720      `(#:modules ((guix build utils))
5721        #:builder
5722        (begin
5723          (use-modules (guix build utils))
5724          (let ((target (string-append (assoc-ref %outputs "out")
5725                                       "/share/texmf-dist/tex/latex/overpic")))
5726            (mkdir-p target)
5727            (copy-recursively (assoc-ref %build-inputs "source") target)
5728            #t))))
5729     (home-page "https://www.ctan.org/pkg/overpic")
5730     (synopsis "Combine LaTeX commands over included graphics")
5731     (description
5732      "The @code{overpic} environment is a cross between the LaTeX
5733 @code{picture} environment and the @code{\\includegraphics} command of
5734 @code{graphicx}.  The resulting picture environment has the same dimensions as
5735 the included graphic.  LaTeX commands can be placed on the graphic at defined
5736 positions; a grid for orientation is available.")
5737     (license license:lppl1.0+)))
5738
5739 (define-public texlive-latex-parskip
5740   (package
5741     (name "texlive-latex-parskip")
5742     (version (number->string %texlive-revision))
5743     (source (origin
5744               (method svn-fetch)
5745               (uri (svn-reference
5746                     (url (string-append "svn://www.tug.org/texlive/tags/"
5747                                         %texlive-tag "/Master/texmf-dist/"
5748                                         "/tex/latex/parskip"))
5749                     (revision %texlive-revision)))
5750               (file-name (string-append name "-" version "-checkout"))
5751               (sha256
5752                (base32
5753                 "12kdsrr55lp0s4xl279gh6mi9gw909vmd96p10dvhbazgxn3ccxs"))))
5754     (build-system trivial-build-system)
5755     (arguments
5756      `(#:modules ((guix build utils))
5757        #:builder
5758        (begin
5759          (use-modules (guix build utils))
5760          (let ((target (string-append (assoc-ref %outputs "out")
5761                                       "/share/texmf-dist/tex/latex/parskip")))
5762            (mkdir-p target)
5763            (copy-recursively (assoc-ref %build-inputs "source") target)
5764            #t))))
5765     (home-page "https://www.ctan.org/pkg/parskip")
5766     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5767     (description
5768      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5769 that is untidy; this package (though it is no substitute for a properly
5770 designed class) helps alleviate this untidiness.")
5771     (license license:lppl)))
5772
5773 (define-public texlive-latex-pdfpages
5774   (package
5775     (name "texlive-latex-pdfpages")
5776     (version (number->string %texlive-revision))
5777     (source (origin
5778               (method svn-fetch)
5779               (uri (texlive-ref "latex" "pdfpages"))
5780               (file-name (string-append name "-" version "-checkout"))
5781               (sha256
5782                (base32
5783                 "1r1g9lb6bqjrahqmdkazsnifcyxgkp8r33za2h60h50jfvrab66f"))))
5784     (build-system texlive-build-system)
5785     (arguments '(#:tex-directory "latex/pdfpages"))
5786     (home-page "https://www.ctan.org/pkg/pdfpages")
5787     (synopsis "Include PDF documents in LaTeX")
5788     (description
5789      "This package simplifies the inclusion of external multi-page PDF
5790 documents in LaTeX documents.  Pages may be freely selected and it is possible
5791 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5792 hypertext features like hyperlinks and article threads are provided.  The
5793 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5794 use this package to insert PostScript files, in addition to PDF files.")
5795     (license license:lppl1.3+)))
5796
5797 (define-public texlive-stmaryrd
5798   (let ((template (simple-texlive-package
5799                    "texlive-stmaryrd"
5800                    (list "/fonts/afm/public/stmaryrd/"
5801                          "/fonts/map/dvips/stmaryrd/"
5802                          "/fonts/source/public/stmaryrd/"
5803                          "/fonts/tfm/public/stmaryrd/"
5804                          "/fonts/type1/public/stmaryrd/"
5805                          "/source/fonts/stmaryrd/"
5806                          "/doc/fonts/stmaryrd/")
5807                    (base32
5808                     "0yn0yl6x1z9ab5gb56lhvkqabd2agz3ggxifwxkiysrj5780j29z"))))
5809     (package
5810       (inherit template)
5811       (arguments (substitute-keyword-arguments (package-arguments template)
5812                    ((#:tex-directory _ #t)
5813                     "latex/stmaryrd")
5814                    ((#:phases phases)
5815                     `(modify-phases ,phases
5816                        (add-after 'unpack 'chdir
5817                          (lambda _
5818                            (chdir "source/fonts/stmaryrd")
5819                            #t))
5820                        (add-after 'chdir 'patch-ins
5821                          (lambda _
5822                            (substitute* "stmaryrd.ins"
5823                              (("^%% LaTeX2e.*") "\\input docstrip\n")
5824                              (("fontdef\\}\\}" line)
5825                               (string-append line "\n\\endbatchfile")))
5826                            #t))))))
5827       (home-page "https://www.ctan.org/pkg/stmaryrd")
5828       (synopsis "St Mary Road symbols for theoretical computer science")
5829       (description
5830        "The fonts were originally distributed as Metafont sources only, but
5831 Adobe Type 1 versions are also now available.  Macro support is provided for
5832 use under LaTeX; the package supports the @code{only} option (provided by the
5833 @code{somedefs} package) to restrict what is loaded, for those who don't need
5834 the whole font.")
5835       (license license:lppl))))
5836
5837 (define-public texlive-fonts-stmaryrd
5838   (deprecated-package "texlive-fonts-stmaryrd" texlive-stmaryrd))
5839
5840 (define-public texlive-latex-subfigure
5841   (package
5842     (name "texlive-latex-subfigure")
5843     (version (number->string %texlive-revision))
5844     (source (origin
5845               (method svn-fetch)
5846               (uri (texlive-ref "latex" "subfigure"))
5847               (file-name (string-append name "-" version "-checkout"))
5848               (sha256
5849                (base32
5850                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5851     (build-system texlive-build-system)
5852     (arguments '(#:tex-directory "latex/subfigure"))
5853     (home-page "https://www.ctan.org/pkg/subfigure")
5854     (synopsis "Figures divided into subfigures")
5855     (description
5856      "This (deprecated) package provides support for the manipulation and
5857 reference of small or \"sub\" figures and tables within a single figure or
5858 table environment.  It is convenient to use this package when your subfigures
5859 are to be separately captioned, referenced, or are to be included in the
5860 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
5861 used inside a figure environment for each subfigure.  An optional first
5862 argument is used as the caption for that subfigure.  The package is now
5863 considered obsolete: it was superseded by @code{subfig}, but users may find
5864 the more recent @code{subcaption} package more satisfactory.")
5865     (license license:lppl)))
5866
5867 (define-public texlive-latex-tabulary
5868   (package
5869     (name "texlive-latex-tabulary")
5870     (version (number->string %texlive-revision))
5871     (source (origin
5872               (method svn-fetch)
5873               (uri (texlive-ref "latex" "tabulary"))
5874               (file-name (string-append name "-" version "-checkout"))
5875               (sha256
5876                (base32
5877                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
5878     (build-system texlive-build-system)
5879     (arguments '(#:tex-directory "latex/tabulary"))
5880     (home-page "https://www.ctan.org/pkg/tabulary")
5881     (synopsis "Tabular with variable width columns balanced")
5882     (description
5883      "The package defines a @code{tabular*}-like environment, @code{tabulary},
5884 taking a \"total width\" argument as well as the column specifications.  The
5885 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
5886 variable width columns (@code{\\raggedright}, @code{\\centering},
5887 @code{\\raggedleft}, and normally justified).  In contrast to
5888 @code{tabularx}'s @code{X} columns, the width of each column is weighted
5889 according to the natural width of the widest cell in the column.")
5890     (license license:lppl)))
5891
5892 (define-public texlive-latex-threeparttable
5893   (package
5894     (name "texlive-latex-threeparttable")
5895     (version (number->string %texlive-revision))
5896     (source (origin
5897               (method svn-fetch)
5898               (uri (svn-reference
5899                     (url (string-append "svn://www.tug.org/texlive/tags/"
5900                                         %texlive-tag "/Master/texmf-dist/"
5901                                         "/tex/latex/threeparttable"))
5902                     (revision %texlive-revision)))
5903               (file-name (string-append name "-" version "-checkout"))
5904               (sha256
5905                (base32
5906                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
5907     (build-system trivial-build-system)
5908     (arguments
5909      `(#:modules ((guix build utils))
5910        #:builder
5911        (begin
5912          (use-modules (guix build utils))
5913          (let ((target (string-append (assoc-ref %outputs "out")
5914                                       "/share/texmf-dist/tex/latex/threeparttable")))
5915            (mkdir-p target)
5916            (copy-recursively (assoc-ref %build-inputs "source") target)
5917            #t))))
5918     (home-page "https://www.ctan.org/pkg/threeparttable")
5919     (synopsis "Tables with captions and notes all the same width")
5920     (description
5921      "This package facilitates tables with titles (captions) and notes.  The
5922 title and notes are given a width equal to the body of the table (a
5923 @code{tabular} environment).  By itself, a @code{threeparttable} does not
5924 float, but you can put it in a @code{table} or a @code{table*} or some other
5925 environment.")
5926     (license (license:fsf-free "file://threeparttable.sty"))))
5927
5928 (define-public texlive-txfonts
5929   (package
5930     (inherit (simple-texlive-package
5931               "texlive-txfonts"
5932               (list "/doc/fonts/txfonts/"
5933
5934                     "/fonts/afm/public/txfonts/"
5935                     "/fonts/tfm/public/txfonts/"
5936                     "/fonts/type1/public/txfonts/"
5937                     "/fonts/vf/public/txfonts/"
5938
5939                     "/fonts/map/dvips/txfonts/"
5940                     "/fonts/enc/dvips/txfonts/"
5941                     "/tex/latex/txfonts/")
5942               (base32
5943                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
5944               #:trivial? #t))
5945     (home-page "https://www.ctan.org/pkg/txfonts")
5946     (synopsis "Times-like fonts in support of mathematics")
5947     (description
5948      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
5949 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
5950 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
5951 providing all the symbols of the Computer Modern and AMS fonts, including all
5952 the Greek capital letters from CMR; and additional maths fonts of various
5953 other symbols.
5954
5955 The set is complemented by a sans-serif set of text fonts, based on
5956 Helvetica/NimbusSanL, and a monospace set.
5957
5958 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
5959 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
5960     ;; Any version of the GPL with font exception.
5961     (license license:gpl3+)))
5962
5963 (define-public texlive-fonts-txfonts
5964   (deprecated-package "texlive-fonts-txfonts" texlive-txfonts))
5965
5966 (define-public texlive-fonts-iwona
5967   (package
5968     (name "texlive-fonts-iwona")
5969     (version "0.995b")
5970     (source (origin
5971               (method url-fetch)
5972               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
5973                                   (string-map (lambda (c)
5974                                                 (if (char=? c #\.)
5975                                                     #\_ c))
5976                                               version)
5977                                   ".zip"))
5978               (sha256
5979                (base32
5980                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
5981     (build-system trivial-build-system)
5982     (arguments
5983      `(#:modules ((guix build utils))
5984        #:builder
5985        (begin
5986          (use-modules (guix build utils))
5987          (let ((target (string-append (assoc-ref %outputs "out")
5988                                       "/share/texmf-dist/"))
5989                (unzip  (string-append (assoc-ref %build-inputs "unzip")
5990                                       "/bin/unzip")))
5991            (invoke unzip (assoc-ref %build-inputs "source"))
5992            (mkdir-p target)
5993            (copy-recursively "iwona" target)
5994            #t))))
5995     (native-inputs
5996      `(("unzip" ,unzip)))
5997     (home-page "http://jmn.pl/en/kurier-i-iwona/")
5998     (synopsis "Sans-serif typeface for TeX")
5999     (description "Iwona is a two-element sans-serif typeface. It was created
6000 as an alternative version of the Kurier typeface, which was designed in 1975
6001 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
6002 supervision of Roman Tomaszewski.  Kurier was designed for linotype
6003 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
6004 alternative version of the Kurier fonts.  The difference lies in the absence
6005 of ink traps which typify the Kurier font.")
6006     (license license:gfl1.0)))
6007
6008 (define-public texlive-jknappen
6009   (package
6010     (inherit (simple-texlive-package
6011               "texlive-jknappen"
6012               (list "/fonts/source/jknappen/"
6013                     "/fonts/tfm/jknappen/"
6014                     "/tex4ht/ht-fonts/alias/jknappen/"
6015                     "/tex4ht/ht-fonts/unicode/jknappen/")
6016               (base32
6017                "0xvy3c845jc7iw1h9rcm1r2yvm1ni1sm9r9k9j2cfc82xy43rwij")
6018               #:trivial? #t))
6019     (home-page "https://www.ctan.org/pkg/jknappen")
6020     (synopsis "Miscellaneous packages by Jörg Knappen")
6021     (description
6022      "This package contains a collection of macros by Jörg Knappen:
6023 @table @code
6024 @item greekctr
6025 New counterstyles @code{\\greek} and @code{\\Greek}.
6026 @item holtpolt
6027 Non-commutative fractions
6028 @item latin1jk
6029 @itemx latin2jk
6030 @itemx latin3jk
6031 Inputenc definition files that allow verbatim input in the respective ISO
6032 Latin codes.
6033 @item mathbol
6034 Blackboard bold fonts for use in maths.
6035 @item mathrsfs
6036 Mathematical script letters, as traditionally used in physics for Lagrangian,
6037 Hamiltonian, path integral measures, etc.
6038 @item parboxx
6039 New alignment options for parboxen at top and bottom of the box.
6040 @item sans
6041 Interchanges the roles of sans serif and roman fonts throughout the document.
6042 @item semtrans
6043 Support for special latin letters and diacritics used in transliteration of
6044 semitic languages
6045 @item smartmn
6046 Intelligent hyphen/minus, which guesses whether to render as hyphen or minus.
6047 @item sgmlcmpt
6048 Commands replacing the characters <, >, and &.
6049 @item tccompat
6050 A compatibility package for users of the older versions of the textcomp package.
6051 @item young
6052 Simple Young tableaux.
6053 @end table")
6054     (license license:gpl2)))                    ;per the 00readme_txt file.
6055
6056 (define-public texlive-jadetex
6057   (let ((template (simple-texlive-package
6058                    "texlive-jadetex"
6059                    (list "/doc/man/man1/jadetex.1"
6060                          "/doc/man/man1/jadetex.man1.pdf"
6061                          "/doc/man/man1/pdfjadetex.1"
6062                          "/doc/man/man1/pdfjadetex.man1.pdf"
6063                          "/source/jadetex/base/"
6064                          ;; The following files are not generated from
6065                          ;; sources.
6066                          "/tex/jadetex/base/jadetex.ini"
6067                          "/tex/jadetex/base/pdfjadetex.ini"
6068                          "/tex/jadetex/base/uentities.sty")
6069                    (base32
6070                     "03chyc3vjqgxcj985gy4k0bd0lf1n4a6sgbhc7k84jparjk3hx4i"))))
6071     (package
6072       (inherit template)
6073       (arguments
6074        (substitute-keyword-arguments (package-arguments template)
6075          ((#:tex-directory _ #t)
6076           "jadetex/base")
6077          ((#:phases phases)
6078           `(modify-phases ,phases
6079              (add-after 'unpack 'unify-source-directory
6080                (lambda _
6081                  (chdir "source/jadetex/base")
6082                  (for-each (lambda (f)
6083                              (copy-file f (basename f)))
6084                            (find-files "../../../tex/jadetex/base"))
6085                  #t))
6086              (add-after 'build 'generate-formats
6087                (lambda* (#:key inputs #:allow-other-keys)
6088                  (mkdir "web2c")
6089                  (for-each (lambda (f)
6090                              (symlink f (basename f)))
6091                            (find-files "build"))
6092                  (invoke "fmtutil-sys" "--byfmt" "jadetex"
6093                          "--fmtdir=web2c")
6094                  (invoke "fmtutil-sys" "--byfmt" "pdfjadetex"
6095                          "--fmtdir=web2c")))
6096              (add-after 'install 'install-formats-and-wrappers
6097                (lambda* (#:key inputs outputs #:allow-other-keys)
6098                  (let* ((out (assoc-ref outputs "out"))
6099                         (texlive-bin (assoc-ref inputs "texlive-bin"))
6100                         (pdftex (string-append texlive-bin "/bin/pdftex"))
6101                         (web2c (string-append out "/share/texmf-dist/web2c")))
6102                    (mkdir-p web2c)
6103                    (copy-recursively "web2c" web2c)
6104                    ;; Create convenience command wrappers.
6105                    (mkdir-p (string-append out "/bin"))
6106                    (symlink pdftex (string-append out "/bin/jadetex"))
6107                    (symlink pdftex (string-append out "/bin/pdfjadetex"))
6108                    #t)))))))
6109       (propagated-inputs
6110        ;; Propagate the texlive-updmap.cfg input used by xmltex, which provides the
6111        ;; required fonts for its use.
6112        `(("texlive-xmltex" ,texlive-xmltex)
6113          ("texlive-kpathsea" ,texlive-kpathsea))) ;for fmtutil.cnf template
6114       (native-inputs
6115        `(("texlive-cm" ,texlive-cm)     ;for cmex10 and others
6116          ("texlive-fonts-latex" ,texlive-fonts-latex) ;for lasy6
6117          ;; The t1cmr.fd file of texlive-latex-base refers to the ecrm font,
6118          ;; provided by the jknappen package collection.
6119          ("texlive-jknappen" ,texlive-jknappen)
6120          ("texlive-generic-ulem" ,texlive-generic-ulem)
6121          ("texlive-hyperref" ,texlive-hyperref)
6122          ("texlive-latex-colortbl" ,texlive-latex-colortbl)
6123          ("texlive-latex-fancyhdr" ,texlive-latex-fancyhdr)
6124          ("texlive-latex-graphics" ,texlive-latex-graphics) ;for color.sty
6125          ("texlive-latex-tools" ,texlive-latex-tools)       ;for array.sty
6126          ("texlive-marvosym" ,texlive-marvosym)
6127          ("texlive-tex-ini-files" ,texlive-tex-ini-files))) ;for pdftexconfig
6128       (home-page "https://www.ctan.org/pkg/jadetex/")
6129       (synopsis "TeX macros to produce TeX output using OpenJade")
6130       (description "JadeTeX is a companion package to the OpenJade DSSSL
6131 processor.  OpenJade applies a DSSSL stylesheet to an SGML or XML document.
6132 The output of this process can be in a number of forms, including a set of
6133 high level LaTeX macros.  It is the task of the JadeTeX package to transform
6134 these macros into DVI/PostScript (using the @command{jadetex} command) or
6135 Portable Document Format (PDF) form (using the @command{pdfjadetex}
6136 command).")
6137       ;; The license text is found at the header of the jadetex.dtx file.
6138       (license license:expat))))
6139
6140 (define-public texlive-libertine
6141   (package
6142     (inherit (simple-texlive-package
6143               "texlive-libertine"
6144               (list "/doc/fonts/libertine/"
6145
6146                     "/fonts/enc/dvips/libertine/"
6147                     "/fonts/map/dvips/libertine/"
6148                     "/fonts/opentype/public/libertine/"
6149                     "/fonts/tfm/public/libertine/"
6150                     "/fonts/type1/public/libertine/"
6151                     "/fonts/vf/public/libertine/"
6152
6153                     "/tex/latex/libertine/")
6154               (base32
6155                "1d5r80isyvs2v3i8pzlhsn7ns6bn8ldkbs82g25widraixlhg6yg")
6156               #:trivial? #t))
6157     (home-page "https://www.ctan.org/pkg/libertine")
6158     (synopsis "Use Linux Libertine and Biolinum fonts with LaTeX")
6159     (description
6160      "The package provides the Libertine and Biolinum fonts in both Type 1 and
6161 OTF styles, together with support macros for their use.  Monospaced and
6162 display fonts, and the \"keyboard\" set are also included, in OTF style, only.
6163 The @code{mweights} package is used to manage the selection of font weights.
6164 The package supersedes both the @code{libertineotf} and the
6165 @code{libertine-legacy} packages.")
6166     (license (list license:gpl2+        ; with font exception
6167                    license:silofl1.1
6168                    license:lppl))))
6169
6170 (define-public texlive-dejavu
6171   (package
6172     (inherit (simple-texlive-package
6173               "texlive-dejavu"
6174               (list "/doc/fonts/dejavu/"
6175
6176                     "/fonts/enc/dvips/dejavu/"
6177                     "/fonts/map/dvips/dejavu/"
6178
6179                     "/fonts/afm/public/dejavu/"
6180                     "/fonts/tfm/public/dejavu/"
6181                     "/fonts/truetype/public/dejavu/"
6182                     "/fonts/type1/public/dejavu/"
6183                     "/fonts/vf/public/dejavu/"
6184
6185                     "/tex/latex/dejavu/")
6186               (base32
6187                "0y4qf5jl0xncah9nkcaalmy69wwq02n3j895zp71n2p0nfi24aka")
6188               #:trivial? #t))
6189     (home-page "https://www.ctan.org/pkg/libertine")
6190     (synopsis "LaTeX support for the DejaVu fonts")
6191     (description
6192      "The package contains LaTeX support for the DejaVu fonts, which are
6193 derived from the Vera fonts but contain more characters and styles.  The fonts
6194 are included in the original TrueType format, and in converted Type 1 format.
6195 The (currently) supported encodings are: OT1, T1, IL2, TS1, T2*, X2, QX, and
6196 LGR.  The package doesn't (currently) support mathematics.")
6197     (license license:lppl)))
6198
6199 (define-public texlive-latex-titlesec
6200   (package
6201     (name "texlive-latex-titlesec")
6202     (version (number->string %texlive-revision))
6203     (source (origin
6204               (method svn-fetch)
6205               (uri (svn-reference
6206                     (url (string-append "svn://www.tug.org/texlive/tags/"
6207                                         %texlive-tag "/Master/texmf-dist/"
6208                                         "/tex/latex/titlesec"))
6209                     (revision %texlive-revision)))
6210               (file-name (string-append name "-" version "-checkout"))
6211               (sha256
6212                (base32
6213                 "1kw7dvxvdfbf31zw0n8r0g5xak3vcdf25n33fqw93j59zpc5nvbl"))))
6214     (build-system trivial-build-system)
6215     (arguments
6216      `(#:modules ((guix build utils))
6217        #:builder
6218        (begin
6219          (use-modules (guix build utils))
6220          (let ((target (string-append (assoc-ref %outputs "out")
6221                                       "/share/texmf-dist/tex/latex/titlesec")))
6222            (mkdir-p target)
6223            (copy-recursively (assoc-ref %build-inputs "source") target)
6224            #t))))
6225     (home-page "https://www.ctan.org/pkg/titlesec")
6226     (synopsis "Select alternative section titles")
6227     (description
6228      "This package provides an interface to sectioning commands for selection
6229 from various title styles, e.g. for marginal titles and to change the font of
6230 all headings with a single command, also providing simple one-step page
6231 styles.  It also includes a package to change the page styles when there are
6232 floats in a page.  You may assign headers/footers to individual floats, too.")
6233     (license license:lppl)))
6234
6235 (define-public texlive-latex-type1cm
6236   (package
6237     (name "texlive-latex-type1cm")
6238     (version (number->string %texlive-revision))
6239     (source (origin
6240               (method svn-fetch)
6241               (uri (texlive-ref "latex" "type1cm"))
6242               (file-name (string-append name "-" version "-checkout"))
6243               (sha256
6244                (base32
6245                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
6246     (build-system texlive-build-system)
6247     (arguments '(#:tex-directory "latex/type1cm"))
6248     (home-page "https://www.ctan.org/pkg/type1cm")
6249     (synopsis "Arbitrary size font selection in LaTeX")
6250     (description
6251      "LaTeX, by default, restricts the sizes at which you can use its default
6252 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
6253 specified by Knuth).  The @code{type1cm} package removes this restriction;
6254 this is particularly useful when using scalable versions of the CM
6255 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
6256 PCTeX, etc.).  In fact, since modern distributions will automatically generate
6257 any bitmap font you might need, @code{type1cm} has wider application than just
6258 those using scalable versions of the fonts.  Note that the LaTeX distribution
6259 now contains a package @code{fix-cm},f which performs the task of
6260 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
6261 @code{ec} fonts.")
6262     (license license:lppl)))
6263
6264 (define-public texlive-lh
6265   (let ((template (simple-texlive-package
6266                    "texlive-lh"
6267                    (list "/doc/fonts/lh/"
6268                          "/source/fonts/lh/"
6269                          "/source/latex/lh/"
6270                          "/fonts/source/lh/"
6271                          "/tex/plain/lh/")
6272                    (base32
6273                     "0vw75i52asi5sssp8k9r8dy4ihvqbvmbsl3dini3ls8cky15lz37"))))
6274     (package
6275       (inherit template)
6276       (arguments
6277        (substitute-keyword-arguments (package-arguments template)
6278          ((#:tex-directory _ #t)
6279           "latex/lh")
6280          ((#:build-targets _ '())
6281           ''("nfssfox.ins" "lcyfonts.ins" "ot2fonts.ins" "t2ccfonts.ins"))
6282          ((#:phases phases)
6283           `(modify-phases ,phases
6284              (add-after 'unpack 'chdir
6285                (lambda _ (chdir "source/latex/lh") #t))))))
6286       (home-page "https://www.ctan.org/pkg/lh")
6287       (synopsis "Cyrillic fonts that support LaTeX standard encodings")
6288       (description
6289        "The LH fonts address the problem of the wide variety of alphabets that
6290 are written with Cyrillic-style characters.  The fonts are the original basis
6291 of the set of T2* and X2 encodings that are now used when LaTeX users need to
6292 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
6293 offered through the latex-cyrillic and t2 bundles, and the package itself
6294 offers support for other (more traditional) encodings.  The fonts, in the
6295 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
6296 CM-Super family of fonts.  The package also offers its own LaTeX support for
6297 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
6298       (license license:lppl))))
6299
6300 (define-public texlive-latex-lh
6301   (deprecated-package "texlive-latex-lh" texlive-lh))
6302
6303 (define-public texlive-marvosym
6304   (package
6305     (inherit (simple-texlive-package
6306               "texlive-marvosym"
6307               (list "/doc/fonts/marvosym/"
6308                     "/fonts/afm/public/marvosym/"
6309                     "/fonts/map/dvips/marvosym/"
6310                     "/fonts/tfm/public/marvosym/"
6311                     "/fonts/truetype/public/marvosym/"
6312                     "/fonts/type1/public/marvosym/"
6313                     "/tex/latex/marvosym/")
6314               (base32
6315                "0m3bbg06cia8ni86fjhvb7x4a5qcxgnpqcvicfms91w2px9ysc46")
6316               #:trivial? #t))
6317     (home-page "https://martinvogel.de/blog/index.php?\
6318 /archives/131-Marvosym.ttf.html")
6319     (synopsis "Martin Vogel's Symbols (marvosym) font")
6320     (description "The Martin Vogel’s Symbols fonts (marvosym) contains the
6321 Euro currency symbol as defined by the European commission, along with symbols
6322 for structural engineering, symbols for steel cross-sections, astronomy
6323 signs (sun, moon, planets), the 12 signs of the zodiac, scissor symbols, CE
6324 sign and others.  This package contains both the original TrueType font and
6325 the derived Type 1 font, together with support files for TeX (LaTeX).")
6326     (license (list license:lppl          ;for TeX support files
6327                    license:silofl1.1)))) ;for fonts
6328
6329 (define-public texlive-metapost
6330   (package
6331     (name "texlive-metapost")
6332     (version (number->string %texlive-revision))
6333     (source (origin
6334               (method svn-fetch)
6335               (uri (svn-reference
6336                     (url (string-append "svn://www.tug.org/texlive/tags/"
6337                                         %texlive-tag "/Master/texmf-dist/"
6338                                         "/metapost"))
6339                     (revision %texlive-revision)))
6340               (file-name (string-append name "-" version "-checkout"))
6341               (sha256
6342                (base32
6343                 "01ghqyaxxkfscs9jjgnx65hmvqllfzgxc0r5vwpqs7y1h97y6cgc"))))
6344     (build-system trivial-build-system)
6345     (arguments
6346      `(#:modules ((guix build utils))
6347        #:builder
6348        (begin
6349          (use-modules (guix build utils))
6350          (let ((target (string-append (assoc-ref %outputs "out")
6351                                       "/share/texmf-dist/metapost")))
6352            (mkdir-p target)
6353            (copy-recursively (assoc-ref %build-inputs "source") target)
6354            #t))))
6355     (home-page "https://www.ctan.org/pkg/metapost")
6356     (synopsis "Create scalable illustrations")
6357     (description
6358      "MetaPost uses a language based on that of Metafont to produce precise
6359 technical illustrations.  Its output is scalable PostScript or SVG, rather
6360 than the bitmaps Metafont creates.")
6361     (license license:lppl)))
6362
6363 (define-public texlive-latex-acmart
6364   (package
6365     (name "texlive-latex-acmart")
6366     (version "1.60")
6367     (source (origin
6368               (method svn-fetch)
6369               (uri (texlive-ref "latex" "acmart"))
6370               (sha256
6371                (base32
6372                 "1avk9wl7hmgxvv8axd134wl6l8khvw7chw568nc8q70xwiwcqcpk"))
6373               (file-name (string-append name "-" version "-checkout"))))
6374     (build-system texlive-build-system)
6375     (arguments '(#:tex-directory "latex/acmart"))
6376     (home-page "https://www.ctan.org/pkg/acmart")
6377     (synopsis "Class for typesetting publications of ACM")
6378     (description
6379      "This package provides a class for typesetting publications of the
6380 Association for Computing Machinery (ACM).")
6381     (license license:lppl1.3+)))
6382
6383 (define-public texlive-latex-varwidth
6384   (package
6385     (name "texlive-latex-varwidth")
6386     (version (number->string %texlive-revision))
6387     (source (origin
6388               (method svn-fetch)
6389               (uri (svn-reference
6390                     (url (string-append "svn://www.tug.org/texlive/tags/"
6391                                         %texlive-tag "/Master/texmf-dist/"
6392                                         "/tex/latex/varwidth"))
6393                     (revision %texlive-revision)))
6394               (file-name (string-append name "-" version "-checkout"))
6395               (sha256
6396                (base32
6397                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
6398     (build-system trivial-build-system)
6399     (arguments
6400      `(#:modules ((guix build utils))
6401        #:builder
6402        (begin
6403          (use-modules (guix build utils))
6404          (let ((target (string-append (assoc-ref %outputs "out")
6405                                       "/share/texmf-dist/tex/latex/varwidth")))
6406            (mkdir-p target)
6407            (copy-recursively (assoc-ref %build-inputs "source") target)
6408            #t))))
6409     (home-page "https://www.ctan.org/pkg/varwidth")
6410     (synopsis "Variable-width minipage")
6411     (description
6412      "The @code{varwidth} environment is superficially similar to
6413 @code{minipage}, but the specified width is just a maximum value — the box may
6414 get a narrower “natural” width.")
6415     (license license:lppl)))
6416
6417 (define-public texlive-wasy
6418   (package
6419     (inherit (simple-texlive-package
6420               "texlive-wasy"
6421               (list "/fonts/source/public/wasy/"
6422                     "/fonts/tfm/public/wasy/"
6423                     "/tex/plain/wasy/"
6424                     "/doc/fonts/wasy/")
6425               (base32
6426                "1swzxgld3lndi5q0q6zkwbw06ndh13fvp04as7zpwyhh646s0hbx")
6427               #:trivial? #t))
6428     (home-page "https://www.ctan.org/pkg/wasy")
6429     (synopsis "Waldi symbol fonts")
6430     (description "This package provides the @code{wasy} (Waldi symbol) fonts,
6431 in the Metafont and Adobe Type 1 formats.  Support under LaTeX is provided by
6432 the @code{wasysym} package.")
6433     (license license:public-domain)))
6434
6435 (define-public texlive-wasysym
6436   (package
6437     (name "texlive-wasysym")
6438     (version (number->string %texlive-revision))
6439     (source (origin
6440               (method svn-fetch)
6441               (uri (texlive-ref "latex" "wasysym"))
6442               (file-name (string-append name "-" version "-checkout"))
6443               (sha256
6444                (base32
6445                 "0zxcf0pfqf439cfwl0r5dd93b0v4pbiih36n2pwshdlvnmy0nr50"))))
6446     (build-system texlive-build-system)
6447     (arguments '(#:tex-directory "latex/wasysym"))
6448     (home-page "https://www.ctan.org/pkg/wasysym")
6449     (synopsis "LaTeX support file to use the @code{wasy} fonts")
6450     (description
6451      "The @code{wasy} (Waldi Symbol) font by Roland Waldi provides many glyphs like
6452 male and female symbols and astronomical symbols, as well as the complete
6453 @code{lasy} font set and other odds and ends.  The @code{wasysym} package
6454 implements an easy to use interface for these symbols.")
6455     (license license:lppl)))
6456
6457 (define-public texlive-latex-wasysym
6458   (deprecated-package "texlive-latex-wasysym" texlive-wasysym))
6459
6460 (define-public texlive-latex-wrapfig
6461   (package
6462     (name "texlive-latex-wrapfig")
6463     (version (number->string %texlive-revision))
6464     (source (origin
6465               (method svn-fetch)
6466               (uri (svn-reference
6467                     (url (string-append "svn://www.tug.org/texlive/tags/"
6468                                         %texlive-tag "/Master/texmf-dist/"
6469                                         "/tex/latex/wrapfig"))
6470                     (revision %texlive-revision)))
6471               (file-name (string-append name "-" version "-checkout"))
6472               (sha256
6473                (base32
6474                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
6475     (build-system trivial-build-system)
6476     (arguments
6477      `(#:modules ((guix build utils))
6478        #:builder
6479        (begin
6480          (use-modules (guix build utils))
6481          (let ((target (string-append (assoc-ref %outputs "out")
6482                                       "/share/texmf-dist/tex/latex/wrapfig")))
6483            (mkdir-p target)
6484            (copy-recursively (assoc-ref %build-inputs "source") target)
6485            #t))))
6486     (home-page "https://www.ctan.org/pkg/wrapfig")
6487     (synopsis "Produces figures which text can flow around")
6488     (description
6489      "This package allows figures or tables to have text wrapped around them.
6490 It does not work in combination with list environments, but can be used in a
6491 @code{parbox} or @code{minipage}, and in two-column format.")
6492     (license license:lppl)))
6493
6494 (define-public texlive-latex-ucs
6495   (package
6496     (name "texlive-latex-ucs")
6497     (version (number->string %texlive-revision))
6498     (source (origin
6499               (method svn-fetch)
6500               (uri (svn-reference
6501                     (url (string-append "svn://www.tug.org/texlive/tags/"
6502                                         %texlive-tag "/Master/texmf-dist/"
6503                                         "/tex/latex/ucs"))
6504                     (revision %texlive-revision)))
6505               (file-name (string-append name "-" version "-checkout"))
6506               (sha256
6507                (base32
6508                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
6509     (build-system trivial-build-system)
6510     (arguments
6511      `(#:modules ((guix build utils))
6512        #:builder
6513        (begin
6514          (use-modules (guix build utils))
6515          (let ((target (string-append (assoc-ref %outputs "out")
6516                                       "/share/texmf-dist/tex/latex/ucs")))
6517            (mkdir-p target)
6518            (copy-recursively (assoc-ref %build-inputs "source") target)
6519            #t))))
6520     (home-page "https://www.ctan.org/pkg/ucs")
6521     (synopsis "Extended UTF-8 input encoding support for LaTeX")
6522     (description
6523      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
6524 together with a large number of support files.  The @code{utf8x.def}
6525 definition file for use with @code{inputenc} covers a wider range of Unicode
6526 characters than does @code{utf8.def} in the LaTeX distribution.  The package
6527 provides facilities for efficient use of its large sets of Unicode characters.
6528 Glyph production may be controlled by various options, which permits use of
6529 non-ASCII characters when coding mathematical formulae.  Note that the bundle
6530 previously had an alias “unicode”; that alias has now been withdrawn, and no
6531 package of that name now exists.")
6532     (license license:lppl1.3+)))
6533
6534 (define-public texlive-latex-preview
6535   (package
6536     (name "texlive-latex-preview")
6537     (version (number->string %texlive-revision))
6538     (source (origin
6539               (method svn-fetch)
6540               (uri (texlive-ref "latex" "preview"))
6541               (file-name (string-append name "-" version "-checkout"))
6542               (sha256
6543                (base32
6544                 "1mcp0x3snhx9phhfxqwn6d12b84vi049ljd1l11ianp3i4kad6ls"))))
6545     (build-system texlive-build-system)
6546     (arguments
6547      '(#:tex-directory "latex/preview"
6548        #:phases
6549        (modify-phases %standard-phases
6550          (add-after 'unpack 'remove-generated-file
6551            (lambda _
6552              (delete-file "preview.drv")
6553              #t)))))
6554     (home-page "https://www.ctan.org/pkg/preview")
6555     (synopsis "Extract bits of a LaTeX source for output")
6556     (description
6557      "The main purpose of the preview package is the extraction of selected
6558 elements from a LaTeX source, like formulas or graphics, into separate
6559 pages of a DVI file.  A flexible and convenient interface allows it to
6560 specify what commands and constructs should be extracted.  This works
6561 with DVI files postprocessed by either Dvips and Ghostscript or
6562 dvipng, but it also works when you are using PDFTeX for generating PDF
6563 files.")
6564     (license license:gpl3+)))
6565
6566 (define-public texlive-latex-acronym
6567   (package
6568     (name "texlive-latex-acronym")
6569     (version (number->string %texlive-revision))
6570     (source (origin
6571               (method svn-fetch)
6572               (uri (texlive-ref "latex" "acronym"))
6573               (file-name (string-append name "-" version "-checkout"))
6574               (sha256
6575                (base32
6576                 "0dl3dliz0vwds3804s1kxaj0ghd721v2c6hws9ghx0bjky09yxbx"))))
6577     (build-system texlive-build-system)
6578     (arguments '(#:tex-directory "latex/acronym"))
6579     (home-page "https://www.ctan.org/pkg/acronym")
6580     (synopsis "Expand acronyms at least once")
6581     (description
6582      "This package ensures that all acronyms used in the text are spelled out
6583 in full at least once.  It also provides an environment to build a list of
6584 acronyms used.  The package is compatible with PDF bookmarks.  The package
6585 requires the suffix package, which in turn requires that it runs under
6586 e-TeX.")
6587     (license license:lppl1.3+)))
6588
6589 (define-public texlive-pdftex
6590   (package
6591     (inherit (simple-texlive-package
6592               "texlive-pdftex"
6593               (list "/doc/pdftex/"
6594                     "/doc/man/man1/pdfetex.1"
6595                     "/doc/man/man1/pdftex.1"
6596
6597                     "/fonts/map/dvips/dummy-space/dummy-space.map"
6598                     "/fonts/tfm/public/pdftex/dummy-space.tfm"
6599                     "/fonts/type1/public/pdftex/dummy-space.pfb"
6600                     "/scripts/simpdftex/simpdftex"
6601
6602                     "/tex/generic/config/pdftex-dvi.tex"
6603                     "/tex/generic/pdftex/")
6604               (base32
6605                "181krzhxs61s62fr6gz7x08c57rbgc2b8i2pr7r8hr6f706ywp26")
6606               #:trivial? #t))
6607     (home-page "https://www.ctan.org/pkg/pdftex")
6608     (synopsis "TeX extension for direct creation of PDF")
6609     (description
6610      "This package provides an extension of TeX which can be configured to
6611 directly generate PDF documents instead of DVI.")
6612     (license license:gpl2+)))
6613
6614 (define-public texlive-generic-pdftex
6615   (deprecated-package "texlive-generic-pdftex" texlive-pdftex))
6616
6617 (define texlive-texmf
6618   (package
6619    (name "texlive-texmf")
6620    (version "20200406")
6621    (source texlive-texmf-src)
6622    (build-system gnu-build-system)
6623    (inputs
6624     `(("texlive-bin" ,texlive-bin)
6625       ("lua" ,lua)
6626       ("perl" ,perl)
6627       ("python" ,python)
6628       ("ruby" ,ruby)
6629       ("tcsh" ,tcsh)))
6630    (arguments
6631     `(#:modules ((guix build gnu-build-system)
6632                  (guix build utils)
6633                  (srfi srfi-26))
6634
6635       ;; This package takes 4 GiB, which we can't afford to distribute from
6636       ;; our servers.
6637       #:substitutable? #f
6638
6639       #:phases
6640         (modify-phases (map (cut assq <> %standard-phases)
6641                             '(set-paths unpack patch-source-shebangs))
6642           (add-after 'unpack 'unset-environment-variables
6643             (lambda _
6644               (unsetenv "TEXMF")
6645               (unsetenv "TEXMFCNF")
6646               #t))
6647           (add-after 'patch-source-shebangs 'install
6648             (lambda* (#:key outputs #:allow-other-keys)
6649               (let ((share (string-append (assoc-ref outputs "out") "/share")))
6650                 (mkdir-p share)
6651                 (invoke "mv" "texmf-dist" share))))
6652           (add-after 'install 'texmf-config
6653             (lambda* (#:key inputs outputs #:allow-other-keys)
6654               (let* ((out (assoc-ref outputs "out"))
6655                      (share (string-append out "/share"))
6656                      (texmfroot (string-append share "/texmf-dist/web2c"))
6657                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
6658                      (texlive-bin (assoc-ref inputs "texlive-bin"))
6659                      (texbin (string-append texlive-bin "/bin"))
6660                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
6661                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
6662                 (substitute* texmfcnf
6663                   (("TEXMFROOT = \\$SELFAUTOPARENT")
6664                    (string-append "TEXMFROOT = " share))
6665                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
6666                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
6667                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
6668                 ;; Register paths in texmfcnf.lua, needed for context.
6669                 (substitute* (string-append texmfroot "/texmfcnf.lua")
6670                   (("selfautodir:") out)
6671                   (("selfautoparent:") (string-append share "/")))
6672                 ;; Set path to TeXLive Perl modules
6673                 (setenv "PERL5LIB"
6674                         (string-append (getenv "PERL5LIB") ":" tlpkg))
6675                 ;; Configure the texmf-dist tree; inspired from
6676                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
6677                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
6678                 (setenv "TEXMFCNF" texmfroot)
6679                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
6680                 (invoke "mktexlsr")
6681                 (invoke "fmtutil-sys" "--all")))))))
6682    (properties `((max-silent-time . 9600))) ; don't time out while grafting
6683    (synopsis "TeX Live, a package of the TeX typesetting system")
6684    (description
6685     "TeX Live provides a comprehensive TeX document production system.
6686 It includes all the major TeX-related programs, macro packages, and fonts
6687 that are free software, including support for many languages around the
6688 world.
6689
6690 This package contains the complete tree of texmf-dist data.")
6691    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6692    (home-page "https://www.tug.org/texlive/")))
6693
6694 (define-public texlive
6695   (package
6696    (name "texlive")
6697    (version "20200406")
6698    (source #f)
6699    (build-system trivial-build-system)
6700    (inputs `(("bash" ,bash-minimal)     ;for wrap-program
6701              ("texlive-bin" ,texlive-bin)
6702              ("texlive-texmf" ,texlive-texmf)))
6703    (native-search-paths
6704     (list (search-path-specification
6705            (variable "TEXMFLOCAL")
6706            (files '("share/texmf-local")))))
6707    (arguments
6708     `(#:modules ((guix build utils))
6709       #:builder
6710         ;; Build the union of texlive-bin and texlive-texmf, but take the
6711         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
6712         (begin
6713           (use-modules (guix build utils))
6714           (let ((out (assoc-ref %outputs "out"))
6715                 (bin (assoc-ref %build-inputs "texlive-bin"))
6716                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
6717                 (bash (assoc-ref %build-inputs "bash")))
6718                (mkdir out)
6719                (with-directory-excursion out
6720                  (for-each
6721                    (lambda (name)
6722                      (symlink (string-append bin "/" name) name))
6723                    '("include" "lib"))
6724                  (mkdir "bin")
6725                  (with-directory-excursion "bin"
6726                    (setenv "PATH" (string-append bash "/bin"))
6727                    (for-each
6728                      (lambda (name)
6729                        (symlink name (basename name))
6730                        (wrap-program
6731                          (basename name)
6732                          `("TEXMFCNF" =
6733                            (,(string-append texmf "/share/texmf-dist/web2c")))))
6734                      (find-files (string-append bin "/bin/") "")))
6735                  (mkdir "share")
6736                  (with-directory-excursion "share"
6737                    (for-each
6738                      (lambda (name)
6739                        (symlink (string-append bin "/share/" name) name))
6740                      '("info" "man" "tlpkg"))
6741                    (for-each
6742                      (lambda (name)
6743                        (symlink (string-append texmf "/share/" name) name))
6744                      '("texmf-dist" "texmf-var"))))
6745                #t))))
6746    (synopsis "TeX Live, a package of the TeX typesetting system")
6747    (description
6748     "TeX Live provides a comprehensive TeX document production system.
6749 It includes all the major TeX-related programs, macro packages, and fonts
6750 that are free software, including support for many languages around the
6751 world.
6752
6753 This package contains the complete TeX Live distribution.")
6754    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6755    (home-page "https://www.tug.org/texlive/")))
6756
6757 (define-public perl-text-bibtex
6758   (package
6759     (name "perl-text-bibtex")
6760     (version "0.85")
6761     (source
6762      (origin
6763        (method url-fetch)
6764        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
6765                            version ".tar.gz"))
6766        (sha256
6767         (base32
6768          "036kxgbn1jf70pfm2lmjlzjwnhbkd888fp5lyvmkjpdd15gla18h"))))
6769     (build-system perl-build-system)
6770     (arguments
6771      `(#:phases
6772        (modify-phases %standard-phases
6773          (add-after 'unpack 'add-output-directory-to-rpath
6774            (lambda* (#:key outputs #:allow-other-keys)
6775              (substitute* "inc/MyBuilder.pm"
6776                (("-Lbtparse" line)
6777                 (string-append "-Wl,-rpath="
6778                                (assoc-ref outputs "out") "/lib " line)))
6779              #t))
6780          (add-after 'unpack 'install-libraries-to-/lib
6781            (lambda* (#:key outputs #:allow-other-keys)
6782              (substitute* "Build.PL"
6783                (("lib64") "lib"))
6784              #t)))))
6785     (native-inputs
6786      `(("perl-capture-tiny" ,perl-capture-tiny)
6787        ("perl-config-autoconf" ,perl-config-autoconf)
6788        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6789        ("perl-module-build" ,perl-module-build)))
6790     (home-page "https://metacpan.org/release/Text-BibTeX")
6791     (synopsis "Interface to read and parse BibTeX files")
6792     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
6793 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
6794 at many different levels: you may work with BibTeX entries as simple field to
6795 string mappings, or get at the original form of the data as a list of simple
6796 values (strings, macros, or numbers) pasted together.")
6797     (license license:perl-license)))
6798
6799 (define-public biber
6800   (package
6801     ;; Note: When updating Biber, make sure it matches our BibLaTeX version by
6802     ;; checking the Biber/BibLaTeX compatibility matrix in the BibLaTeX manual
6803     ;; at <https://ctan.org/pkg/biblatex>.
6804     (name "biber")
6805     (version "2.12")
6806     (source (origin
6807               (method git-fetch)
6808               (uri (git-reference
6809                     (url "https://github.com/plk/biber/")
6810                     (commit (string-append "v" version))))
6811               (file-name (git-file-name name version))
6812               ;; TODO: Patch awaiting inclusion upstream (see:
6813               ;; https://github.com/plk/biber/issues/239).
6814               (patches (search-patches "biber-fix-encoding-write.patch"
6815                                        "biber-sortinithash.patch"))
6816               (sha256
6817                (base32
6818                 "1g1hi6zvf2hmrjly1sidjaxy5440gfqm4p7p3n7kayshnjsmlskx"))))
6819     (build-system perl-build-system)
6820     (arguments
6821      `(#:phases
6822        (modify-phases %standard-phases
6823          (add-after 'install 'wrap-programs
6824            (lambda* (#:key outputs #:allow-other-keys)
6825              (let* ((out (assoc-ref outputs "out"))
6826                     (perl5lib (getenv "PERL5LIB")))
6827                (wrap-program (string-append out "/bin/biber")
6828                  `("PERL5LIB" ":" prefix
6829                    (,(string-append perl5lib ":" out
6830                                     "/lib/perl5/site_perl")))))
6831              #t)))))
6832     (inputs
6833      `(("perl-autovivification" ,perl-autovivification)
6834        ("perl-class-accessor" ,perl-class-accessor)
6835        ("perl-data-dump" ,perl-data-dump)
6836        ("perl-data-compare" ,perl-data-compare)
6837        ("perl-data-uniqid" ,perl-data-uniqid)
6838        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
6839        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
6840        ("perl-file-slurper" ,perl-file-slurper)
6841        ("perl-ipc-cmd" ,perl-ipc-cmd)
6842        ("perl-ipc-run3" ,perl-ipc-run3)
6843        ("perl-list-allutils" ,perl-list-allutils)
6844        ("perl-list-moreutils" ,perl-list-moreutils)
6845        ("perl-mozilla-ca" ,perl-mozilla-ca)
6846        ("perl-regexp-common" ,perl-regexp-common)
6847        ("perl-log-log4perl" ,perl-log-log4perl)
6848        ;; We cannot use perl-unicode-collate here, because otherwise the
6849        ;; hardcoded hashes in the tests would differ.  See
6850        ;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
6851        ;;("perl-unicode-collate" ,perl-unicode-collate)
6852        ("perl-unicode-normalize" ,perl-unicode-normalize)
6853        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
6854        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
6855        ("perl-encode-jis2k" ,perl-encode-jis2k)
6856        ("perl-encode-hanextra" ,perl-encode-hanextra)
6857        ("perl-xml-libxml" ,perl-xml-libxml)
6858        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
6859        ("perl-xml-libxslt" ,perl-xml-libxslt)
6860        ("perl-xml-writer" ,perl-xml-writer)
6861        ("perl-sort-key" ,perl-sort-key)
6862        ("perl-text-csv" ,perl-text-csv)
6863        ("perl-text-csv-xs" ,perl-text-csv-xs)
6864        ("perl-text-roman" ,perl-text-roman)
6865        ("perl-uri" ,perl-uri)
6866        ("perl-text-bibtex" ,perl-text-bibtex)
6867        ("perl-libwww" ,perl-libwww)
6868        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
6869        ("perl-business-isbn" ,perl-business-isbn)
6870        ("perl-business-issn" ,perl-business-issn)
6871        ("perl-business-ismn" ,perl-business-ismn)
6872        ("perl-lingua-translit" ,perl-lingua-translit)))
6873     (native-inputs
6874      `(("perl-config-autoconf" ,perl-config-autoconf)
6875        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6876        ("perl-module-build" ,perl-module-build)
6877        ;; for tests
6878        ("perl-file-which" ,perl-file-which)
6879        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
6880        ("perl-test-differences" ,perl-test-differences)))
6881     (home-page "http://biblatex-biber.sourceforge.net/")
6882     (synopsis "Backend for the BibLaTeX citation management tool")
6883     (description "Biber is a BibTeX replacement for users of biblatex.  Among
6884 other things it comes with full Unicode support.")
6885     (license license:artistic2.0)))
6886
6887 (define-public rubber
6888   (package
6889     (name "rubber")
6890     (version "1.5.1")
6891     (source (origin
6892               (method url-fetch)
6893               (uri (list (string-append "https://launchpad.net/rubber/trunk/"
6894                                         version "/+download/rubber-"
6895                                         version ".tar.gz")
6896                          (string-append "http://ebeffara.free.fr/pub/rubber-"
6897                                         version ".tar.gz")))
6898               (sha256
6899                (base32
6900                 "178dmrp0mza5gqjiqgk6dqs0c10s0c517pk6k9pjbam86vf47a1p"))))
6901     (build-system python-build-system)
6902     (arguments
6903      '(#:tests? #f ; no `check' target
6904        #:phases
6905        (modify-phases %standard-phases
6906          (delete 'build)
6907          (replace 'install
6908            (lambda* (#:key outputs #:allow-other-keys)
6909              ;; texlive is required to build the PDF documentation; do not
6910              ;; build it.
6911              (invoke "python" "setup.py" "build" "--pdf=False" "install"
6912                      (string-append "--prefix=" (assoc-ref outputs "out"))))))))
6913     (native-inputs `(("texinfo" ,texinfo)))
6914     (home-page "https://launchpad.net/rubber")
6915     (synopsis "Wrapper for LaTeX and friends")
6916     (description
6917      "Rubber is a program whose purpose is to handle all tasks related to the
6918 compilation of LaTeX documents.  This includes compiling the document itself,
6919 of course, enough times so that all references are defined, and running BibTeX
6920 to manage bibliographic references.  Automatic execution of dvips to produce
6921 PostScript documents is also included, as well as usage of pdfLaTeX to produce
6922 PDF documents.")
6923     (license license:gpl2+)))
6924
6925 (define-public texmaker
6926   (package
6927     (name "texmaker")
6928     (version "5.0.4")
6929     (source (origin
6930               (method url-fetch)
6931               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
6932                                   version ".tar.bz2"))
6933               (sha256
6934                (base32
6935                 "1qnh5g8zkjpjmw2l8spcynpfgs3wpcfcla5ms2kkgvkbdlzspqqx"))))
6936     (build-system gnu-build-system)
6937     (arguments
6938      `(#:phases
6939        (modify-phases %standard-phases
6940          ;; Qt has its own configuration utility.
6941          (replace 'configure
6942            (lambda* (#:key outputs #:allow-other-keys)
6943              (let ((out (assoc-ref outputs "out")))
6944                (invoke "qmake"
6945                        (string-append "PREFIX=" out)
6946                        (string-append "DESKTOPDIR=" out "/share/applications")
6947                        (string-append "ICONDIR=" out "/share/pixmaps")
6948                        (string-append "METAINFODIR=" out "/share/metainfo")
6949                        "texmaker.pro")))))))
6950     (inputs
6951      `(("poppler-qt5" ,poppler-qt5)
6952        ("qtbase" ,qtbase)
6953        ("qtscript" ,qtscript)
6954        ("qtwebkit" ,qtwebkit)
6955        ("zlib" ,zlib)))
6956     (native-inputs
6957      `(("pkg-config" ,pkg-config)))
6958     (home-page "http://www.xm1math.net/texmaker/")
6959     (synopsis "LaTeX editor")
6960     (description "Texmaker is a program that integrates many tools needed to
6961 develop documents with LaTeX, in a single application.")
6962     (license license:gpl2+)))
6963
6964 (define-public teximpatient
6965   (package
6966     (name "teximpatient")
6967     (version "2.4")
6968     (source (origin
6969               (method url-fetch/tarbomb)
6970               (uri (string-append "mirror://gnu/" name "/" name "-"
6971                                   version ".tar.gz"))
6972               (sha256
6973                (base32
6974                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
6975     (build-system gnu-build-system)
6976     (arguments
6977      `(#:tests? #f ; there are none
6978        #:phases
6979        (modify-phases %standard-phases
6980          (add-after 'unpack 'fix-packaging-error
6981            (lambda* (#:key inputs #:allow-other-keys)
6982              ;; This file should have been part of the tarball.
6983              (install-file (car
6984                             (find-files
6985                              (assoc-ref inputs "automake")
6986                              "^install-sh$"))
6987                            ".")
6988              ;; Remove generated file.
6989              (delete-file "book.pdf")
6990              #t)))))
6991     (native-inputs
6992      `(("texlive" ,(texlive-updmap.cfg (list texlive-amsfonts
6993                                         texlive-fonts-adobe-palatino
6994                                         texlive-fonts-adobe-zapfding
6995                                         texlive-knuth-lib
6996                                         texlive-fonts-mflogo-font
6997                                         texlive-pdftex)))
6998        ("automake" ,automake)))
6999     (home-page "https://www.gnu.org/software/teximpatient/")
7000     (synopsis "Book on TeX, plain TeX and Eplain")
7001     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
7002 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
7003 and Karl Berry.")
7004     (license license:fdl1.3+)))
7005
7006 (define-public lyx
7007   (package
7008     (name "lyx")
7009     (version "2.3.6.1")
7010     (source (origin
7011               (method url-fetch)
7012               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
7013                                   (version-major+minor version) ".x/"
7014                                   "lyx-" version ".tar.xz"))
7015               (sha256
7016                (base32
7017                 "0y7sx804ral14py5jwmb3icvyd6rsw806dfclw0qx28r6iix5gn6"))
7018               (modules '((guix build utils)))
7019               (snippet
7020                '(begin
7021                   (delete-file-recursively "3rdparty")
7022                   #t))))
7023     (build-system qt-build-system)
7024     (arguments
7025      `(#:configure-flags `("-DLYX_USE_QT=QT5"
7026                            "-DLYX_EXTERNAL_BOOST=1"
7027                            "-DLYX_INSTALL=1"
7028                            "-DLYX_RELEASE=1"
7029                            "-DLYX_PROGRAM_SUFFIX=OFF"
7030                            ,(string-append "-DLYX_INSTALL_PREFIX="
7031                                            (assoc-ref %outputs "out")))
7032        #:phases
7033        (modify-phases %standard-phases
7034          (add-after 'unpack 'patch-python
7035            (lambda* (#:key inputs #:allow-other-keys)
7036              (substitute* '("lib/configure.py"
7037                             "src/support/ForkedCalls.cpp"
7038                             "src/support/Systemcall.cpp"
7039                             "src/support/os.cpp"
7040                             "src/support/filetools.cpp")
7041                (("\"python ")
7042                 (string-append "\""
7043                                (assoc-ref inputs "python")
7044                                "/bin/python3 ")))
7045              #t))
7046          (add-after 'unpack 'add-missing-test-file
7047            (lambda _
7048              ;; Create missing file that would cause tests to fail.
7049              (with-output-to-file "src/tests/check_layout.cmake"
7050                (const #t))
7051              #t)))))
7052     (inputs
7053      `(("boost" ,boost)
7054        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
7055        ("libx11" ,libx11)
7056        ("mythes" ,mythes)
7057        ("python" ,python)
7058        ("qtbase" ,qtbase)
7059        ("qtsvg" ,qtsvg)
7060        ("zlib" ,zlib)))
7061     (propagated-inputs
7062      `(("texlive" ,(texlive-updmap.cfg (list texlive-fonts-ec)))))
7063     (native-inputs
7064      `(("python" ,python)
7065        ("pkg-config" ,pkg-config)))
7066     (home-page "https://www.lyx.org/")
7067     (synopsis "Document preparation system with GUI")
7068     (description "LyX is a document preparation system.  It excels at letting
7069 you create complex technical and scientific articles with mathematics,
7070 cross-references, bibliographies, indexes, etc.  It is very good for working
7071 with documents of any length in which the usual processing abilities are
7072 required: automatic sectioning and pagination, spell checking and so forth.")
7073     (license license:gpl2+)))
7074
7075 (define-public texlive-latex-media9
7076   (package
7077     (name "texlive-latex-media9")
7078     (version (number->string %texlive-revision))
7079     (source (origin
7080               (method svn-fetch)
7081               (uri (svn-reference
7082                     (url (string-append "svn://www.tug.org/texlive/tags/"
7083                                         %texlive-tag "/Master/texmf-dist/"
7084                                         "/tex/latex/media9"))
7085                     (revision %texlive-revision)))
7086               (file-name (string-append name "-" version "-checkout"))
7087               (sha256
7088                (base32
7089                 "0ganz4r78zmvq0s3w9d59pc2qh9pv0akv21f57yc3d5yyb520p6x"))))
7090     (build-system trivial-build-system)
7091     (arguments
7092      `(#:modules ((guix build utils))
7093        #:builder
7094        (begin
7095          (use-modules (guix build utils))
7096          (let ((target (string-append (assoc-ref %outputs "out")
7097                                       "/share/texmf-dist/tex/latex/media9")))
7098            (mkdir-p target)
7099            (copy-recursively (assoc-ref %build-inputs "source") target)
7100            #t))))
7101     (home-page "https://www.ctan.org/pkg/media9")
7102     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
7103     (description
7104      "The package provides an interface to embed interactive Flash (SWF) and 3D
7105 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
7106 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
7107 compatibility.  Playback of multimedia files uses the built-in Flash Player of
7108 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
7109 supports the efficient H.264 codec for video compression.
7110
7111 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
7112 specification.  It replaces the now obsolete @code{movie15} package.")
7113     (license license:lppl)))
7114
7115 (define-public texlive-latex-ocgx2
7116   (package
7117     (name "texlive-latex-ocgx2")
7118     (version (number->string %texlive-revision))
7119     (source (origin
7120               (method svn-fetch)
7121               (uri (svn-reference
7122                     (url (string-append "svn://www.tug.org/texlive/tags/"
7123                                         %texlive-tag "/Master/texmf-dist/"
7124                                         "/tex/latex/ocgx2"))
7125                     (revision %texlive-revision)))
7126               (file-name (string-append name "-" version "-checkout"))
7127               (sha256
7128                (base32
7129                 "0x7v3ih7k9hqfcnya0wchks63b67yngi21a6343vlwzdqn84mbyp"))))
7130     (build-system trivial-build-system)
7131     (arguments
7132      `(#:modules ((guix build utils))
7133        #:builder
7134        (begin
7135          (use-modules (guix build utils))
7136          (let ((target (string-append (assoc-ref %outputs "out")
7137                                       "/share/texmf-dist/tex/latex/ogcx2")))
7138            (mkdir-p target)
7139            (copy-recursively (assoc-ref %build-inputs "source") target)
7140            #t))))
7141     (home-page "https://www.ctan.org/pkg/ocgx2")
7142     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
7143     (description
7144      "This package provides OCG (Optional Content Groups) support within a PDF
7145 document.
7146
7147 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
7148 @code{ocg-p} packages and adds support for all known engines and back-ends
7149 including:
7150
7151 @itemize
7152 @item LaTeX → dvips → @code{ps2pdf}/Distiller
7153 @item (Xe)LaTeX(x) → @code{dvipdfmx}
7154 @item pdfLaTeX and LuaLaTeX .
7155 @end itemize
7156
7157 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
7158     (license license:lppl)))
7159
7160 (define-public texlive-latex-ms
7161   (package
7162     (name "texlive-latex-ms")
7163     (version (number->string %texlive-revision))
7164     (source (origin
7165               (method svn-fetch)
7166               (uri (texlive-ref "latex" "ms"))
7167               (file-name (string-append name "-" version "-checkout"))
7168               (sha256
7169                (base32
7170                 "07zqxynjh3qnnb4fxx5bhw4r21dbsrhanrq38ag62acr876l7agm"))))
7171     (build-system texlive-build-system)
7172     (arguments
7173      '(#:tex-directory "latex/ms"
7174        #:tex-format "latex"))
7175     (home-page "https://ctan.org/pkg/ms")
7176     (synopsis "Various LATEX packages by Martin Schröder")
7177     (description
7178      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
7179
7180 @itemize
7181 @item @command{count1to}, make use of fixed TEX counters;
7182 @item @command{everysel}, set commands to execute every time a font is selected;
7183 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
7184 @item @command{multitoc}, typeset the table of contents in multiple columns;
7185 @item @command{prelim2e}, mark typeset pages as preliminary; and
7186 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
7187 @end itemize\n")
7188     (license license:lppl1.3c+)))
7189
7190 (define-public texlive-latex-needspace
7191   (package
7192     (name "texlive-latex-needspace")
7193     (version (number->string %texlive-revision))
7194     (source (origin
7195               (method svn-fetch)
7196               (uri (texlive-ref "latex" "needspace"))
7197               (file-name (string-append name "-" version "-checkout"))
7198               (sha256
7199                (base32
7200                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
7201     (build-system texlive-build-system)
7202     (arguments
7203      '(#:tex-directory "latex/needspace"
7204        #:tex-format "latex"))
7205     (inputs
7206      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7207     (home-page "https://www.ctan.org/pkg/needspace")
7208     (synopsis "Insert pagebreak if not enough space")
7209     (description
7210      "Provides commands to disable pagebreaking within a given vertical
7211 space.  If there is not enough space between the command and the bottom of the
7212 page, a new page will be started.")
7213     (license license:lppl)))
7214
7215 (define-public texlive-latex-changepage
7216   (package
7217     (name "texlive-latex-changepage")
7218     (version (number->string %texlive-revision))
7219     (source
7220      (origin
7221        (method svn-fetch)
7222        (uri (texlive-ref "latex" "changepage"))
7223        (file-name (string-append name "-" version "-checkout"))
7224        (sha256
7225         (base32
7226          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
7227     (build-system texlive-build-system)
7228     (arguments
7229      '(#:tex-directory "latex/changepage"
7230        #:tex-format "latex"))
7231     (inputs
7232      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7233     (home-page "https://www.ctan.org/pkg/changepage")
7234     (synopsis "Margin adjustment and detection of odd/even pages")
7235     (description
7236      "The package provides commands to change the page layout in the middle of
7237 a document, and to robustly check for typesetting on odd or even pages.
7238 Instructions for use are at the end of the file.  The package is an extraction
7239 of code from the @code{memoir} class, whose user interface it shares.")
7240     (license license:lppl1.3+)))
7241
7242 (define-public texlive-latex-eukdate
7243   (package
7244     (name "texlive-latex-eukdate")
7245     (version (number->string %texlive-revision))
7246     (source
7247      (origin
7248        (method svn-fetch)
7249        (uri (svn-reference
7250              (url (string-append "svn://www.tug.org/texlive/tags/"
7251                                  %texlive-tag "/Master/texmf-dist/"
7252                                  "/tex/latex/eukdate"))
7253              (revision %texlive-revision)))
7254        (file-name (string-append name "-" version "-checkout"))
7255        (sha256
7256         (base32
7257          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
7258     (build-system trivial-build-system)
7259     (arguments
7260      `(#:modules ((guix build utils))
7261        #:builder
7262        (begin
7263          (use-modules (guix build utils))
7264          (let ((target (string-append (assoc-ref %outputs "out")
7265                                       "/share/texmf-dist/tex/latex/eukdate")))
7266            (mkdir-p target)
7267            (copy-recursively (assoc-ref %build-inputs "source") target)
7268            #t))))
7269     (home-page "https://www.ctan.org/pkg/eukdate")
7270     (synopsis "UK format dates, with weekday")
7271     (description
7272      "The package is used to change the format of @code{\\today}’s date,
7273 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
7274 is preferred in many parts of the world, as distinct from that which is used in
7275 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
7276     (license license:lppl)))
7277
7278 (define-public texlive-generic-ulem
7279   (package
7280     (name "texlive-generic-ulem")
7281     (version (number->string %texlive-revision))
7282     (source
7283      (origin
7284        (method svn-fetch)
7285        (uri (svn-reference
7286              (url (string-append "svn://www.tug.org/texlive/tags/"
7287                                  %texlive-tag "/Master/texmf-dist/"
7288                                  "/tex/generic/ulem"))
7289              (revision %texlive-revision)))
7290        (file-name (string-append name "-" version "-checkout"))
7291        (sha256
7292         (base32
7293          "161ka7sckiakcr1fgydxpc580sr16vp4sp3avjl2v9jn1pd2pwp0"))))
7294     (build-system trivial-build-system)
7295     (arguments
7296      `(#:modules ((guix build utils))
7297        #:builder
7298        (begin
7299          (use-modules (guix build utils))
7300          (let ((target (string-append (assoc-ref %outputs "out")
7301                                       "/share/texmf-dist/tex/generic/ulem")))
7302            (mkdir-p target)
7303            (copy-recursively (assoc-ref %build-inputs "source") target)
7304            #t))))
7305     (home-page "https://www.ctan.org/pkg/ulem")
7306     (synopsis "Underline text in TeX")
7307     (description
7308      "The package provides an @code{\\ul} (underline) command which will break
7309 over line ends; this technique may be used to replace @code{\\em} (both in that
7310 form and as the @code{\\emph} command), so as to make output look as if it comes
7311 from a typewriter.  The package also offers double and wavy underlining, and
7312 striking out (line through words) and crossing out (/// over words).")
7313     (license license:lppl1.3c+)))
7314
7315 (define-public texlive-latex-pgf
7316   (package
7317     (name "texlive-latex-pgf")
7318     (version (number->string %texlive-revision))
7319     (source
7320      (origin
7321        (method svn-fetch)
7322        (uri (svn-reference
7323              (url (string-append "svn://www.tug.org/texlive/tags/"
7324                                  %texlive-tag "/Master/texmf-dist/"
7325                                  "/tex/latex/pgf"))
7326              (revision %texlive-revision)))
7327        (file-name (string-append name "-" version "-checkout"))
7328        (sha256
7329         (base32
7330          "1hxivv4iq4ji1rz34fdx3hf9i0dj3a8336w1pa87jyavbl07n5g7"))))
7331     (build-system trivial-build-system)
7332     (native-inputs
7333      `(("texlive-latex-pgf-generic"
7334         ,(origin
7335            (method svn-fetch)
7336            (uri (svn-reference
7337              (url (string-append "svn://www.tug.org/texlive/tags/"
7338                                  %texlive-tag "/Master/texmf-dist/"
7339                                  "/tex/generic/pgf"))
7340              (revision %texlive-revision)))
7341            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
7342            (sha256
7343             (base32
7344              "1gh1vm8hkfgz1kw1cdws9hbw9llzw6n7w0v7z763am5amd3cyhhm"))))))
7345     (propagated-inputs
7346      `(("texlive-latex-xcolor" ,texlive-latex-xcolor)))
7347     (arguments
7348      `(#:modules ((guix build utils))
7349        #:builder
7350        (begin
7351          (use-modules (guix build utils))
7352          (let ((target-generic (string-append (assoc-ref %outputs "out")
7353                                               "/share/texmf-dist/tex/generic/pgf"))
7354                (target-latex (string-append (assoc-ref %outputs "out")
7355                                             "/share/texmf-dist/tex/latex/pgf")))
7356            (mkdir-p target-generic)
7357            (mkdir-p target-latex)
7358            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
7359            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
7360            #t))))
7361     (home-page "https://www.ctan.org/pkg/tikz")
7362     (synopsis "Create PostScript and PDF graphics in TeX")
7363     (description
7364      "PGF is a macro package for creating graphics.  It is platform- and
7365 format-independent and works together with the most important TeX backend
7366 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
7367 called TikZ.
7368
7369 Its usage is similar to pstricks and the standard picture environment.  PGF
7370 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
7371 produce either PostScript or PDF output.")
7372     (license license:lppl1.3c+)))
7373
7374 (define-public texlive-latex-koma-script
7375   (package
7376     (name "texlive-latex-koma-script")
7377     (version (number->string %texlive-revision))
7378     (source (origin
7379               (method svn-fetch)
7380               (uri (svn-reference
7381                     (url (string-append "svn://www.tug.org/texlive/tags/"
7382                                         %texlive-tag "/Master/texmf-dist/"
7383                                         "/tex/latex/koma-script"))
7384                     (revision %texlive-revision)))
7385               (file-name (string-append name "-" version "-checkout"))
7386               (sha256
7387                (base32
7388                 "18bfdfhdfc7nxr29wvcmp08wgq6f3fc7yysg1sgzgsqrffr1viwa"))))
7389     (build-system trivial-build-system)
7390     (arguments
7391      `(#:modules ((guix build utils))
7392        #:builder
7393        (begin
7394          (use-modules (guix build utils)
7395                       (ice-9 match))
7396          (let ((root (string-append (assoc-ref %outputs "out")
7397                                     "/share/texmf-dist/"))
7398                (pkgs '(("source" . "tex/latex/koma-script"))))
7399            (for-each (match-lambda
7400                        ((pkg . dir)
7401                         (let ((target (string-append root dir)))
7402                           (mkdir-p target)
7403                           (copy-recursively (assoc-ref %build-inputs pkg)
7404                                             target))))
7405                      pkgs)
7406            #t))))
7407     (home-page "https://www.ctan.org/pkg/koma-script")
7408     (synopsis "Bundle of versatile classes and packages")
7409     (description
7410      "The KOMA-Script bundle provides replacements for the article, report, and
7411 book classes with emphasis on typography and versatility.  There is also a
7412 letter class.
7413
7414 The bundle also offers:
7415
7416 @itemize
7417 @item a package for calculating type areas in the way laid down by the
7418 typographer Jan Tschichold,
7419 @item packages for easily changing and defining page styles,
7420 @item a package scrdate for getting not only the current date but also the name
7421 of the day, and
7422 @item a package scrtime for getting the current time.
7423 @end itemize
7424
7425 All these packages may be used not only with KOMA-Script classes but also with
7426 the standard classes.
7427
7428 Since every package has its own version number, the version number quoted only
7429 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
7430 typearea (which are the main parts of the bundle).")
7431     (license license:lppl1.3+)))
7432
7433 (define-public texlive-generic-atbegshi
7434   (package
7435     (inherit (simple-texlive-package
7436               "texlive-generic-atbegshi"
7437               '("/doc/latex/atbegshi/"
7438                 "/tex/generic/atbegshi/")
7439               (base32
7440                "184fr5kd3wl44ix63lwb3ll7dhiikkyw1czbnzrl4am4rx0zh4d8")
7441               #:trivial? #t))
7442     (home-page "https://www.ctan.org/pkg/atbegshi")
7443     (synopsis "Execute commands at @code{\\shipout} time")
7444     (description
7445      "This package is a modern reimplementation of package @code{everyshi},
7446 providing various commands to be executed before a @code{\\shipout} command.
7447 It makes use of e-TeX’s facilities if they are available.  The package may
7448 be used either with LaTeX or with plain TeX.")
7449     (license license:lppl1.3c+)))
7450
7451 (define-public texlive-generic-bigintcalc
7452   (package
7453     (inherit (simple-texlive-package
7454               "texlive-generic-bigintcalc"
7455               '("/doc/latex/bigintcalc/README.md"
7456                 "/tex/generic/bigintcalc/")
7457               (base32
7458                "19grk4p1dh566hgpzhnjyjnrw57hpjijcpr7ci401n9jszcc1xkz")
7459               #:trivial? #t))
7460     (propagated-inputs
7461      `(("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)))
7462     (home-page "https://www.ctan.org/pkg/bigintcalc")
7463     (synopsis "Integer calculations on very large numbers")
7464     (description
7465      "This package provides expandable arithmetic operations with big
7466 integers that can exceed TeX's number limits.")
7467     (license license:lppl1.3c+)))
7468
7469 (define-public texlive-generic-bitset
7470   (package
7471     (inherit (simple-texlive-package
7472               "texlive-generic-bitset"
7473               '("/doc/latex/bitset/README.md"
7474                 "/tex/generic/bitset/")
7475               (base32
7476                "0inj6qpzizvsbxdfsaijnl4iq976kyrnchnm3gc1kc2w389zrn1l")
7477               #:trivial? #t))
7478     (propagated-inputs
7479      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
7480        ("texlive-generic-intcalc" ,texlive-generic-intcalc)
7481        ("texlive-generic-bigintcalc" ,texlive-generic-bigintcalc)))
7482     (home-page "https://www.ctan.org/pkg/bitset")
7483     (synopsis "Handle bit-vector datatype")
7484     (description
7485      "This package defines and implements the data type bit set, a vector
7486 of bits.  The size of the vector may grow dynamically.  Individual bits
7487 can be manipulated.")
7488     (license license:lppl1.3c+)))
7489
7490 (define-public texlive-generic-etexcmds
7491   (package
7492     (inherit (simple-texlive-package
7493               "texlive-generic-etexcmds"
7494               '("/doc/latex/etexcmds/README.md"
7495                 "/tex/generic/etexcmds/")
7496               (base32
7497                "11y6pnlq13bp0ybi7c82g8ds8085zv1zaslgqv3dzhgi3dklpc0c")
7498               #:trivial? #t))
7499     (propagated-inputs
7500      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
7501        ("texlive-generic-iftex" ,texlive-generic-iftex)))
7502     (home-page "https://www.ctan.org/pkg/etexcmds")
7503     (synopsis "Avoid name clashes with e-TeX commands")
7504     (description
7505      "New primitive commands are introduced in e-TeX; sometimes the names
7506 collide with existing macros.  This package solves the name clashes by
7507 adding a prefix to e-TeX’s commands.  For example, ε-TeX’s
7508 @code{\\unexpanded} is provided as @code{\\etex@unexpanded}.")
7509     (license license:lppl1.3c+)))
7510
7511 (define-public texlive-generic-gettitlestring
7512   (package
7513     (inherit (simple-texlive-package
7514               "texlive-generic-gettitlestring"
7515               '("/doc/latex/gettitlestring/"
7516                 "/tex/generic/gettitlestring/")
7517               (base32
7518                "1p4hg9mac03rzvj9dw0ws3zdh55fy1ns954f912algw9f2aq4xgp")
7519               #:trivial? #t))
7520     (home-page "https://www.ctan.org/pkg/gettitlestring")
7521     (synopsis "Clean up title references")
7522     (description
7523      "This package provides commands for cleaning up the title string
7524 (such as removing @code{\\label} commands) for packages that typeset such
7525 strings.")
7526     (license license:lppl1.3c+)))
7527
7528 (define-public texlive-generic-infwarerr
7529   (package
7530     (inherit (simple-texlive-package
7531               "texlive-generic-infwarerr"
7532               '("/tex/generic/infwarerr/")
7533               (base32
7534                "19nlrbfmqbkjrrx9x75s9nd6crg1lzimb2fr3hfblaivj6lx8p4r")
7535               #:trivial? #t))
7536     (home-page "https://www.ctan.org/pkg/infwarerr")
7537     (synopsis "Information/warning/error macros")
7538     (description
7539      "This package provides a complete set of macros for information,
7540 warning and error messages.  Under LaTeX, the commands are wrappers for
7541 the corresponding LaTeX commands; under Plain TeX they are available as
7542 complete implementations.")
7543     (license license:lppl1.3c+)))
7544
7545 (define-public texlive-generic-intcalc
7546   (package
7547     (inherit (simple-texlive-package
7548               "texlive-generic-intcalc"
7549               '("/tex/generic/intcalc/")
7550               (base32
7551                "0llrnayqwdqxi91yh7panbbiljina3bynv2hxhi6sssaw3pyd92l")
7552               #:trivial? #t))
7553     (home-page "https://www.ctan.org/pkg/intcalc")
7554     (synopsis "Expandable arithmetic operations with integers")
7555     (description
7556      "This package provides expandable arithmetic operations with integers,
7557 using the e-TeX extension @code{\\numexpr} if it is available.")
7558     (license license:lppl1.3c+)))
7559
7560 (define-public texlive-generic-kvdefinekeys
7561   (package
7562     (inherit (simple-texlive-package
7563               "texlive-generic-kvdefinekeys"
7564               '("/tex/generic/kvdefinekeys/")
7565               (base32
7566                "12nn74skhwiszbdhawqds31caz6d59a5pjmwar0r8lmk4f1jr3xh")
7567               #:trivial? #t))
7568     (home-page "https://www.ctan.org/pkg/kvdefinekeys")
7569     (synopsis "Define keys for use in the @code{kvsetkeys} package")
7570     (description
7571      "This package provides the @code{\\kv@define@key} (analogous to
7572 keyval’s @code{\\define@key}, to define keys for use by @code{kvsetkeys}.")
7573     (license license:lppl1.3c+)))
7574
7575 (define-public texlive-generic-kvsetkeys
7576   (package
7577     (inherit (simple-texlive-package
7578               "texlive-generic-kvsetkeys"
7579               '("/tex/generic/kvsetkeys/")
7580               (base32
7581                "149vpmv4vms269dzq4sghlngg380sasvxnb3sx9rfs7d9j0finvi")
7582               #:trivial? #t))
7583     (home-page "https://www.ctan.org/pkg/kvsetkeys")
7584     (synopsis "Key value parser with default handler support")
7585     (description
7586      "This package provides @code{\\kvsetkeys}, a variant of @code{\\setkeys}
7587 from the @code{keyval} package.  Users can specify a handler that deals with
7588 unknown options.  Active commas and equal signs may be used, and only one
7589 level of curly braces are removed from the values.")
7590     (license license:lppl1.3c+)))
7591
7592 (define-public texlive-generic-listofitems
7593   (package
7594     (name "texlive-generic-listofitems")
7595     (version (number->string %texlive-revision))
7596     (source (origin
7597               (method svn-fetch)
7598               (uri (svn-reference
7599                     (url (string-append "svn://www.tug.org/texlive/tags/"
7600                                         %texlive-tag "/Master/texmf-dist/"
7601                                         "/tex/generic/listofitems"))
7602                     (revision %texlive-revision)))
7603               (file-name (string-append name "-" version "-checkout"))
7604               (sha256
7605                (base32
7606                 "1wnbnfrhi6hgqa78jsw6hljzi03i5x99mlr5n2419hgws52hk67y"))))
7607     (build-system trivial-build-system)
7608     (arguments
7609      `(#:modules ((guix build utils))
7610        #:builder
7611        (begin
7612          (use-modules (guix build utils))
7613          (let ((target (string-append (assoc-ref %outputs "out")
7614                                       "/share/texmf-dist/tex/generic/listofitems")))
7615            (mkdir-p target)
7616            (copy-recursively (assoc-ref %build-inputs "source") target)
7617            #t))))
7618     (home-page "https://www.ctan.org/pkg/listofitems")
7619     (synopsis "Grab items in lists using user-specified separation character")
7620     (description
7621      "This package allows one to capture all the items of a list, for which
7622 the parsing character has been selected by the user, and to access any of
7623 these items with a simple syntax.")
7624     (license license:lppl1.3c+)))
7625
7626 (define-public texlive-generic-ltxcmds
7627   (package
7628     (inherit (simple-texlive-package
7629               "texlive-generic-ltxcmds"
7630               '("/tex/generic/ltxcmds/")
7631               (base32
7632                "0mdzy76sbc3pmas5zqxn35w9xcg4v7j4p31jcjm9f4hzm27y974a")
7633               #:trivial? #t))
7634     (home-page "https://www.ctan.org/pkg/ltxcmds")
7635     (synopsis "LaTeX kernel commands extracted for general use")
7636     (description
7637      "This package exports some utility macros from the LaTeX kernel into
7638 a separate namespace and also makes them available for other formats such
7639 as plain TeX.")
7640     (license license:lppl1.3c+)))
7641
7642 (define-public texlive-generic-pdfescape
7643   (package
7644     (inherit (simple-texlive-package
7645               "texlive-generic-pdfescape"
7646               '("/tex/generic/pdfescape/")
7647               (base32
7648                "1vbdjmm9bi9ngzz2z1b8jnf6nzf9xsaj5pvyswg13y4dr00mnz6n")
7649               #:trivial? #t))
7650     (home-page "https://www.ctan.org/pkg/pdfescape")
7651     (synopsis "pdfTeX's escape features for plain TeX")
7652     (description
7653      "This package implements pdfTeX's escape features (@code{\\pdfescapehex},
7654 @code{\\pdfunescapehex}, @code{\\pdfescapename}, @code{\\pdfescapestring})
7655 using TeX or e-TeX.")
7656     (license license:lppl1.3c+)))
7657
7658 (define-public texlive-generic-uniquecounter
7659   (package
7660     (inherit (simple-texlive-package
7661               "texlive-generic-uniquecounter"
7662               '("/doc/latex/uniquecounter/"
7663                 "/tex/generic/uniquecounter/")
7664               (base32
7665                "1bjh8vwiqlkmjqndnh4xp116524x4m3hdcyq2s231jiqy8il8dcc")
7666               #:trivial? #t))
7667     (propagated-inputs
7668      `(("texlive-generic-bigintcalc" ,texlive-generic-bigintcalc)
7669        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)))
7670     (home-page "https://www.ctan.org/pkg/uniquecounter")
7671     (synopsis "Unlimited unique counter")
7672     (description
7673      "This package provides a kind of counter that provides unique number
7674 values.  Several counters can be created with different names.  The numeric
7675 values are not limited.")
7676     (license license:lppl1.3c+)))
7677
7678 (define-public texlive-latex-readarray
7679   (package
7680     (name "texlive-latex-readarray")
7681     (version (number->string %texlive-revision))
7682     (source (origin
7683               (method svn-fetch)
7684               (uri (svn-reference
7685                     (url (string-append "svn://www.tug.org/texlive/tags/"
7686                                         %texlive-tag "/Master/texmf-dist/"
7687                                         "/tex/latex/readarray"))
7688                     (revision %texlive-revision)))
7689               (file-name (string-append name "-" version "-checkout"))
7690               (sha256
7691                (base32
7692                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
7693     (build-system trivial-build-system)
7694     (arguments
7695      `(#:modules ((guix build utils))
7696        #:builder
7697        (begin
7698          (use-modules (guix build utils))
7699          (let ((target (string-append (assoc-ref %outputs "out")
7700                                       "/share/texmf-dist/tex/latex/readarray")))
7701            (mkdir-p target)
7702            (copy-recursively (assoc-ref %build-inputs "source") target)
7703            #t))))
7704     (propagated-inputs
7705      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
7706     (home-page "https://www.ctan.org/pkg/readarray")
7707     (synopsis "Read, store and recall array-formatted data")
7708     (description
7709      "This package allows the user to input formatted data into elements of a
7710 2-D or 3-D array and to recall that data at will by individual cell number.
7711 The data can be but need not be numerical in nature.  It can be, for example,
7712 formatted text.")
7713     (license license:lppl1.3)))
7714
7715 (define-public texlive-latex-verbatimbox
7716   (package
7717     (name "texlive-latex-verbatimbox")
7718     (version (number->string %texlive-revision))
7719     (source (origin
7720               (method svn-fetch)
7721               (uri (svn-reference
7722                     (url (string-append "svn://www.tug.org/texlive/tags/"
7723                                         %texlive-tag "/Master/texmf-dist/"
7724                                         "/tex/latex/verbatimbox"))
7725                     (revision %texlive-revision)))
7726               (file-name (string-append name "-" version "-checkout"))
7727               (sha256
7728                (base32
7729                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
7730     (build-system trivial-build-system)
7731     (arguments
7732      `(#:modules ((guix build utils))
7733        #:builder
7734        (begin
7735          (use-modules (guix build utils))
7736          (let ((target (string-append (assoc-ref %outputs "out")
7737                                       "/share/texmf-dist/tex/latex/verbatimbox")))
7738            (mkdir-p target)
7739            (copy-recursively (assoc-ref %build-inputs "source") target)
7740            #t))))
7741     (propagated-inputs
7742      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
7743     (home-page "https://www.ctan.org/pkg/verbatimbox")
7744     (synopsis "Deposit verbatim text in a box")
7745     (description
7746      "The package provides a @code{verbbox} environment to place its contents
7747 into a globally available box, or into a box specified by the user.  The
7748 global box may then be used in a variety of situations (for example, providing
7749 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
7750 in places where the standard @code{verbatim} environment (which is based on a
7751 @code{trivlist}) may not appear.")
7752     (license license:lppl1.3+)))
7753
7754 (define-public texlive-latex-examplep
7755   (package
7756     (name "texlive-latex-examplep")
7757     (version (number->string %texlive-revision))
7758     (source (origin
7759               (method svn-fetch)
7760               (uri (svn-reference
7761                     (url (string-append "svn://www.tug.org/texlive/tags/"
7762                                         %texlive-tag "/Master/texmf-dist/"
7763                                         "/tex/latex/examplep"))
7764                     (revision %texlive-revision)))
7765               (file-name (string-append name "-" version "-checkout"))
7766               (sha256
7767                (base32
7768                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
7769     (build-system trivial-build-system)
7770     (arguments
7771      `(#:modules ((guix build utils))
7772        #:builder
7773        (begin
7774          (use-modules (guix build utils))
7775          (let ((target (string-append (assoc-ref %outputs "out")
7776                                       "/share/texmf-dist/tex/latex/examplep")))
7777            (mkdir-p target)
7778            (copy-recursively (assoc-ref %build-inputs "source") target)
7779            #t))))
7780     (home-page "https://www.ctan.org/pkg/examplep")
7781     (synopsis "Verbatim phrases and listings in LaTeX")
7782     (description
7783      "Examplep provides sophisticated features for typesetting verbatim source
7784 code listings, including the display of the source code and its compiled LaTeX
7785 or METAPOST output side-by-side, with automatic width detection and enabled
7786 page breaks (in the source), without the need for specifying the source twice.
7787 Special care is taken that section, page and footnote numbers do not interfere
7788 with the main document.  For typesetting short verbatim phrases, a replacement
7789 for the @code{\\verb} command is also provided in the package, which can be
7790 used inside tables and moving arguments such as footnotes and section
7791 titles.")
7792     ;; No version of the GPL is specified.
7793     (license license:gpl3+)))
7794
7795 (define-public texlive-xypic
7796   (let ((template (simple-texlive-package
7797                    "texlive-xypic"
7798                    (list "/doc/generic/xypic/"
7799                          "/dvips/xypic/xy389dict.pro"
7800                          "/fonts/enc/dvips/xypic/"
7801                          "/fonts/map/dvips/xypic/xypic.map"
7802
7803                          "/fonts/source/public/xypic/"
7804                          "/fonts/afm/public/xypic/"
7805                          "/fonts/tfm/public/xypic/"
7806                          "/fonts/type1/public/xypic/"
7807                          "/tex/generic/xypic/")
7808                    (base32
7809                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
7810                    #:trivial? #t)))
7811     (package
7812       (inherit template)
7813       (arguments
7814        (substitute-keyword-arguments (package-arguments template)
7815          ((#:phases phases)
7816           `(modify-phases ,phases
7817              (delete 'reset-gzip-timestamps)))))
7818       (home-page "https://www.ctan.org/pkg/xypic")
7819       (synopsis "Flexible diagramming macros")
7820       (description "This is a package for typesetting a variety of graphs and
7821 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
7822 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
7823 @code{diag} package, which was previously distributed stand-alone.")
7824       (license license:gpl3+))))
7825
7826 (define-public texlive-fonts-xypic
7827   (deprecated-package "texlive-fonts-xypic" texlive-xypic))
7828
7829 (define-public texlive-generic-xypic
7830   (deprecated-package "texblive-generic-xypic" texlive-xypic))
7831
7832 (define-public texlive-bibtex
7833   (package
7834     (name "texlive-bibtex")
7835     (version (number->string %texlive-revision))
7836     (source
7837      (origin
7838        (method svn-fetch)
7839        (uri (svn-reference
7840              (url (string-append "svn://www.tug.org/texlive/tags/"
7841                                  %texlive-tag "/Master/texmf-dist/"
7842                                  "/bibtex"))
7843              (revision %texlive-revision)))
7844        (file-name (string-append name "-" version "-checkout"))
7845        (sha256
7846         (base32
7847          "056q9sg3bn8j70laspwdvh7fr3635l7vv3762h6rq79a58g3bya4"))))
7848     (build-system trivial-build-system)
7849     (arguments
7850      `(#:modules ((guix build utils))
7851        #:builder
7852        (begin
7853          (use-modules (guix build utils))
7854          (let ((target (string-append (assoc-ref %outputs "out")
7855                                       "/share/texmf-dist/bibtex")))
7856            (mkdir-p target)
7857            (copy-recursively (assoc-ref %build-inputs "source") target)
7858            #t))))
7859     (home-page "https://www.ctan.org/pkg/bibtex")
7860     (synopsis "Process bibliographies for LaTeX")
7861     (description
7862      "BibTeX allows the user to store his citation data in generic form, while
7863 printing citations in a document in the form specified by a BibTeX style, to
7864 be specified in the document itself (one often needs a LaTeX citation-style
7865 package, such as @command{natbib} as well).")
7866     (license license:knuth)))
7867
7868 (define-public texlive-charter
7869   (package
7870     (inherit (simple-texlive-package
7871               "texlive-charter"
7872               (list "/doc/fonts/charter/readme.charter"
7873                     "/fonts/afm/bitstrea/charter/"
7874                     "/fonts/tfm/bitstrea/charter/"
7875                     "/fonts/type1/bitstrea/charter/"
7876                     "/fonts/vf/bitstrea/charter/")
7877               (base32
7878                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
7879               #:trivial? #t))
7880     (home-page "https://www.ctan.org/pkg/charter")
7881     (synopsis "Charter fonts for TeX")
7882     (description "This package provides a copy of the Charter Type-1 fonts
7883 which Bitstream contributed to the X consortium, renamed for use with TeX.
7884 Support for use with LaTeX is available in @code{freenfss}, part of
7885 @command{psnfss}. ")
7886     (license (license:non-copyleft
7887               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
7888
7889 (define-public texlive-fonts-charter
7890   (deprecated-package "texlive-fonts-charter" texlive-charter))
7891
7892 (define-public texlive-context-base
7893   (package
7894     (name "texlive-context-base")
7895     (version (number->string %texlive-revision))
7896     (source (origin
7897               (method svn-fetch)
7898               (uri (svn-reference
7899                     (url (string-append "svn://www.tug.org/texlive/tags/"
7900                                         %texlive-tag "/Master/texmf-dist/"
7901                                         "/tex/context/base"))
7902                     (revision %texlive-revision)))
7903               (file-name (string-append name "-" version "-checkout"))
7904               (sha256
7905                (base32
7906                 "145klhcf1i1n9rldjxccd3gkjxwp3i36601xlhch8kyf64rrgybk"))))
7907     (build-system trivial-build-system)
7908     (arguments
7909      `(#:modules ((guix build utils))
7910        #:builder
7911        (begin
7912          (use-modules (guix build utils))
7913          (let ((target (string-append (assoc-ref %outputs "out")
7914                                       "/share/texmf-dist/tex/context/case")))
7915            (mkdir-p target)
7916            (copy-recursively (assoc-ref %build-inputs "source") target)
7917            #t))))
7918     (home-page "https://www.ctan.org/pkg/context")
7919     (synopsis "Full featured, parameter driven macro package for TeX")
7920     (description "A full featured, parameter driven macro package, which fully
7921 supports advanced interactive documents.  See the ConTeXt garden for a wealth
7922 of support information.")
7923     (license license:gpl2+)))
7924
7925 (define-public texlive-context
7926   (package
7927     (inherit (simple-texlive-package
7928               "texlive-context"
7929               (list "/doc/context/"
7930                     ;; XXX Omitting /doc/man/man1/*.pdf
7931                     "/bibtex/bst/context/mkii/"
7932                     "/context/data/"
7933
7934                     "/fonts/afm/hoekwater/context/contnav.afm"
7935                     "/fonts/cid/fontforge/Adobe-CNS1-4.cidmap"
7936                     "/fonts/cid/fontforge/Adobe-GB1-4.cidmap"
7937                     "/fonts/cid/fontforge/Adobe-Identity-0.cidmap"
7938                     "/fonts/cid/fontforge/Adobe-Japan1-5.cidmap"
7939                     "/fonts/cid/fontforge/Adobe-Japan1-6.cidmap"
7940                     "/fonts/cid/fontforge/Adobe-Japan2-0.cidmap"
7941                     "/fonts/cid/fontforge/Adobe-Korea1-2.cidmap"
7942                     "/fonts/enc/dvips/context/"
7943                     "/fonts/map/dvips/context/"
7944                     "/fonts/map/luatex/context/"
7945                     "/fonts/map/pdftex/context/"
7946                     "/fonts/misc/xetex/fontmapping/context/"
7947                     "/fonts/tfm/hoekwater/context/contnav.tfm"
7948                     "/fonts/type1/hoekwater/context/"
7949
7950                     "/metapost/context/"
7951                     "/scripts/context/"
7952                     "/tex/context/"
7953
7954                     "/tex/generic/context/luatex/"
7955                     "/tex/generic/context/ppchtex/"
7956                     "/tex/latex/context/")
7957               (base32
7958                "0krbxj0cjyy9b6xv5xx670rh8y3pxbqziljjj80qbdwixk1lf01q")
7959               #:trivial? #t))
7960     (home-page "https://www.ctan.org/pkg/context")
7961     (synopsis "ConTeXt macro package")
7962     (description "ConTeXt is a full featured, parameter driven macro package,
7963 which fully supports advanced interactive documents.  See the ConTeXt garden
7964 for a wealth of support information.")
7965     ;; The GPL applies to all code; alternatively, the LaTeX license may be used.
7966     ;; The CC-BY-SA license applies to all documentation.
7967     (license (list license:lppl1.3c+
7968                    license:gpl2+
7969                    license:cc-by-sa4.0))))
7970
7971 (define-public texlive-beamer
7972   (package
7973     (inherit (simple-texlive-package
7974               "texlive-beamer"
7975               (list "/doc/latex/beamer/"
7976                     "/tex/latex/beamer/")
7977               (base32
7978                "1yw9ixmjc0h1nqxsvd8lvibdggcysx25001pzzixg1b00l2jf242")
7979               #:trivial? #t))
7980     (propagated-inputs
7981      `(("texlive-latex-hyperref" ,texlive-latex-hyperref)
7982        ("texlive-oberdiek" ,texlive-oberdiek)
7983        ("texlive-latex-etoolbox" ,texlive-latex-etoolbox)
7984        ("texlive-latex-pgf" ,texlive-latex-pgf)))
7985     (home-page "https://www.ctan.org/pkg/beamer")
7986     (synopsis "LaTeX class for producing presentations and slides")
7987     (description "The beamer LaTeX class can be used for producing slides.
7988 The class works in both PostScript and direct PDF output modes, using the
7989 @code{pgf} graphics system for visual effects.  Content is created in the
7990 @code{frame} environment, and each frame can be made up of a number of slides
7991 using a simple notation for specifying material to appear on each slide within
7992 a frame.  Short versions of title, authors, institute can also be specified as
7993 optional parameters.  Whole frame graphics are supported by plain frames.  The
7994 class supports @code{figure} and @code{table} environments, transparency
7995 effects, varying slide transitions and animations.")
7996     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
7997     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
7998     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
7999
8000 (define-public texlive-latex-beamer
8001   (deprecated-package "texlive-latex-beamer" texlive-beamer))
8002
8003 (define-public texlive-latex-xmpincl
8004   (package
8005     (name "texlive-latex-xmpincl")
8006     (version (number->string %texlive-revision))
8007     (source
8008      (origin
8009        (method svn-fetch)
8010        (uri (texlive-ref "latex" "xmpincl"))
8011        (file-name (string-append name "-" version "-checkout"))
8012        (sha256
8013         (base32
8014          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
8015     (build-system texlive-build-system)
8016     (arguments '(#:tex-directory "latex/xmpincl"))
8017     (home-page "http://www.ctan.org/pkg/xmpincl")
8018     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
8019     (description
8020      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
8021 digital material to enhance the workflow in publication.  The essence is that
8022 the metadata is stored in an XML file, and this XML stream is then embedded in
8023 the file to which it applies.")
8024     (license license:gpl3+)))
8025
8026 (define-public texlive-pdfx
8027   (let ((template (simple-texlive-package
8028                    "texlive-pdfx"
8029                    (list "/doc/latex/pdfx/"
8030                          "/source/latex/pdfx/"
8031                          "/tex/latex/pdfx/")
8032                    (base32
8033                     "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
8034     (package
8035       (inherit template)
8036       (arguments
8037        (substitute-keyword-arguments (package-arguments template)
8038          ((#:tex-directory _ #t)
8039           "latex/pdfx")
8040          ((#:phases phases)
8041           `(modify-phases ,phases
8042              (add-after 'unpack 'delete-generated-file
8043                (lambda _
8044                  ;; Generate this file from sources
8045                  (delete-file "tex/latex/pdfx/pdfx.sty")
8046                  #t))
8047              (add-after 'delete-generated-file 'chdir
8048                (lambda _ (chdir "source/latex/pdfx") #t))
8049              (add-after 'chdir 'fix-encoding
8050                (lambda _
8051                  (substitute* "pdfx.dtx"
8052                    (("    .+umaczy") "umaczy"))
8053                  #t))))))
8054       (propagated-inputs
8055        `(("texlive-pdftex" ,texlive-pdftex)))
8056       (home-page "https://www.ctan.org/pkg/pdfx")
8057       (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
8058       (description
8059        "This package helps LaTeX users to create PDF/X, PDF/A and other
8060 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
8061       (license license:lppl1.2+))))
8062
8063 (define-public texlive-latex-pdfx
8064   (deprecated-package "texlive-latex-pdfx" texlive-pdfx))
8065
8066 (define-public texlive-ydoc
8067   (let ((template (simple-texlive-package
8068                    "texlive-ydoc"
8069                    (list "/doc/latex/ydoc/"
8070                          "/source/latex/ydoc/")
8071                    (base32
8072                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
8073                    #:trivial? #f)))
8074     (package
8075       (inherit template)
8076       (outputs '("out" "doc"))
8077       (arguments
8078        (substitute-keyword-arguments (package-arguments template)
8079          ((#:tex-directory _ #t)
8080           "latex/ydoc")
8081          ((#:build-targets _ #t)
8082           ''("ydoc.dtx"))
8083          ((#:phases phases)
8084           `(modify-phases ,phases
8085              (add-after 'unpack 'chdir
8086                (lambda _ (chdir "source/latex/ydoc") #t))
8087              (add-after 'copy-files 'move-files
8088                (lambda* (#:key inputs outputs #:allow-other-keys)
8089                  (let ((source (assoc-ref inputs "source"))
8090                        (doc (string-append (assoc-ref outputs "doc")
8091                                            "/share/texmf-dist/doc")))
8092                    (copy-recursively (string-append source "/doc")  doc))))))))
8093       (home-page "http://www.ctan.org/pkg/ydoc")
8094       (synopsis "Macros for documentation of LaTeX classes and packages")
8095       (description "The package provides macros and environments to document
8096 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
8097 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
8098 provide a different layout and more modern styles (using the @code{xcolor},
8099 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
8100 not (yet) be used with other packages, since the implementation might
8101 change.")
8102       (license license:lppl1.3+))))
8103
8104 (define-public texlive-pstricks
8105   (let ((template (simple-texlive-package
8106                    "texlive-pstricks"
8107                    (list "/doc/generic/pstricks/"
8108                          "/dvips/pstricks/"
8109                          "/tex/generic/pstricks/"
8110                          "/tex/latex/pstricks/")
8111                    (base32
8112                     "0sdq0ij83vg154205n1cps9yirr45240dfcly4bms2cqc789bk5a")
8113                    #:trivial? #t)))
8114     (package
8115       (inherit template)
8116       (arguments
8117        (substitute-keyword-arguments (package-arguments template)
8118          ((#:phases phases)
8119           `(modify-phases ,phases
8120              (delete 'reset-gzip-timestamps)))))
8121       (home-page "http://www.ctan.org/pkg/pstricks")
8122       (synopsis "PostScript macros for TeX")
8123       (description "PSTricks offers an extensive collection of macros for
8124 generating PostScript that is usable with most TeX macro formats, including
8125 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
8126 graphics, pie charts, rotation, trees and overlays.  It has many special
8127 features, including a wide variety of graphics (picture drawing) macros, with
8128 a flexible interface and with colour support.  There are macros for colouring
8129 or shading the cells of tables.")
8130       (license license:lppl1.3+))))
8131
8132 (define-public texlive-pst-text
8133   (let ((template (simple-texlive-package
8134                    "texlive-pst-text"
8135                    (list "/doc/generic/pst-text/"
8136                          "/dvips/pst-text/pst-text.pro"
8137                          "/tex/generic/pst-text/"
8138                          "/tex/latex/pst-text/")
8139                    (base32
8140                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
8141                    #:trivial? #t)))
8142     (package
8143       (inherit template)
8144       (propagated-inputs
8145        `(("texlive-pstricks" ,texlive-pstricks)))
8146       (home-page "http://www.ctan.org/pkg/pst-text")
8147       (synopsis "Text and character manipulation in PSTricks")
8148       (description "Pst-text is a PSTricks based package for plotting text along
8149 a different path and manipulating characters.  It includes the functionality
8150 of the old package @code{pst-char}.")
8151       (license license:lppl))))
8152
8153 (define-public texlive-marginnote
8154   (let ((template (simple-texlive-package
8155                    "texlive-marginnote"
8156                    (list "/source/latex/marginnote/marginnote.dtx")
8157                    (base32
8158                     "152bwxhnssj40rr72r6cfirvqbnc0h7xnagfrbz58v2xck53qhg1"))))
8159     (package
8160       (inherit template)
8161       (home-page "http://www.ctan.org/pkg/marginnote")
8162       (arguments
8163        (substitute-keyword-arguments (package-arguments template)
8164          ((#:tex-directory _ '())
8165           "latex/marginnote")
8166          ((#:build-targets _ '())
8167           ''("marginnote.dtx"))
8168          ((#:phases phases)
8169           `(modify-phases ,phases
8170              (add-after 'unpack 'chdir
8171                (lambda _ (chdir "source/latex/marginnote") #t))))))
8172       (synopsis "Notes in the margin")
8173       (description "This package provides the command @code{\\marginnote} that
8174 may be used instead of @code{\\marginpar} at almost every place where
8175 @code{\\marginpar} cannot be used, e.g., inside floats, footnotes, or in
8176 frames made with the @code{framed} package.")
8177       (license license:lppl1.3c+))))
8178
8179 (define-public texlive-generic-iftex
8180   (let ((template (simple-texlive-package
8181                    "texlive-generic-iftex"
8182                    (list "/doc/generic/iftex/"
8183                          "/tex/generic/iftex/")
8184                    (base32
8185                     "147xa5kl4kjs05nj8v3kd7dpr5xkz3xp3gdvjih32ccd7527f5vp")
8186                    #:trivial? #t)))
8187     (package
8188       (inherit template)
8189       (home-page "http://www.ctan.org/pkg/iftex")
8190       (synopsis "Determine the currently used TeX engine")
8191       (description "This package, which works both for Plain TeX and for
8192 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
8193 conditionals for testing which engine is being used for typesetting.  The
8194 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
8195 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
8196 LuaTeX (respectively) is not the engine in use.")
8197       (license license:lppl1.3+))))
8198
8199 (define-public texlive-iftex
8200   (deprecated-package "texlive-iftex" texlive-generic-iftex))
8201
8202 (define-public texlive-generic-ifxetex
8203   (deprecated-package "texlive-generic-ifxetex" texlive-generic-iftex))
8204
8205 (define-public texlive-tools
8206   (let ((template (simple-texlive-package
8207                    "texlive-tools"
8208                    (list "/doc/latex/tools/"
8209                          "/source/latex/tools/")
8210                    (base32
8211                     "1860bll28mr8nhbdfx073mj87vgg3gpc62v8bk9q0kq8pg0wsx1a"))))
8212     (package
8213       (inherit template)
8214       (arguments
8215        (substitute-keyword-arguments (package-arguments template)
8216          ((#:tex-directory _ '())
8217           "latex/tools")
8218          ((#:build-targets _ '())
8219           ''("tools.ins"))
8220          ((#:phases phases)
8221           `(modify-phases ,phases
8222              (add-after 'unpack 'chdir
8223                (lambda _ (chdir "source/latex/tools") #t))))))
8224       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
8225       (synopsis "LaTeX standard tools bundle")
8226       (description "This package provides a collection of simple tools that
8227 are part of the LaTeX required tools distribution, comprising the packages:
8228 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
8229 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
8230 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
8231 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
8232 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
8233 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
8234       (license license:lppl1.3+))))
8235
8236 (define-public texlive-latex-xkeyval
8237   (package
8238     (name "texlive-latex-xkeyval")
8239     (version (number->string %texlive-revision))
8240     (source (origin
8241               (method svn-fetch)
8242               (uri (texlive-ref "latex" "xkeyval"))
8243               (file-name (string-append name "-" version "-checkout"))
8244               (sha256
8245                (base32
8246                 "0wancavix39j240pd8m9cgmwsijwx6jd6n54v8wg0x2rk5m44myp"))))
8247     (build-system texlive-build-system)
8248     (arguments
8249      '(#:tex-directory "latex/xkeyval"
8250        #:build-targets '("xkeyval.dtx")
8251        #:tex-format "latex" ; won't build with luatex
8252        #:phases
8253        (modify-phases %standard-phases
8254          ;; This package cannot be built out of tree as it expects to find
8255          ;; built files in the working directory.
8256          (add-before 'build 'fix-build
8257            (lambda _
8258              (setenv "TEXINPUTS"
8259                      (string-append (getcwd) "/build:"))
8260              (substitute* "xkeyval.dtx"
8261                (("usepackage\\{xcolor\\}")
8262                 "usepackage[dvips]{xcolor}"))
8263              #t))
8264          ;; FIXME: We don't have a package for this font yet.
8265          (add-after 'unpack 'remove-dependency-on-fourier
8266            (lambda _
8267              (substitute* "xkeyval.dtx"
8268                (("\\\\usepackage\\{fourier\\}") ""))
8269              #t))
8270          (add-after 'install 'move-files
8271            (lambda* (#:key outputs #:allow-other-keys)
8272              (let* ((out (assoc-ref outputs "out"))
8273                     (share (string-append out "/share/texmf-dist"))
8274                     (source (string-append share "/tex/latex/xkeyval/"))
8275                     (target (string-append share "/tex/generic/xkeyval/")))
8276                (mkdir-p target)
8277                (for-each (lambda (file)
8278                            (rename-file (string-append source file)
8279                                         (string-append target file)))
8280                          '("keyval.tex"
8281                            "pst-xkey.tex"
8282                            "xkeyval.tex"
8283                            "xkvex1.tex"
8284                            "xkvex2.tex"
8285                            "xkvex3.tex"
8286                            "xkvex4.tex"
8287                            "xkvtxhdr.tex"
8288                            "xkvutils.tex"))
8289                #t))))))
8290     (native-inputs
8291      `(("texlive-latex-base" ,texlive-latex-base)
8292        ("texlive-cm" ,texlive-cm)
8293        ("texlive-lm" ,texlive-lm)
8294        ("texlive-url" ,texlive-url)
8295        ("texlive-graphics-def" ,texlive-graphics-def)
8296        ("texlive-xcolor" ,texlive-xcolor)
8297        ("texlive-latex-footmisc" ,texlive-latex-footmisc)
8298        ("texlive-latex-listings" ,texlive-latex-listings)
8299        ("texlive-generic-iftex" ,texlive-generic-iftex)
8300        ("texlive-pstricks" ,texlive-pstricks)
8301        ("texlive-pst-text" ,texlive-pst-text)
8302        ("texlive-tools" ,texlive-tools)
8303        ("texlive-latex-pgf" ,texlive-latex-pgf)))
8304     (home-page "http://www.ctan.org/pkg/xkeyval")
8305     (synopsis "Extension of the keyval package")
8306     (description
8307      "This package is an extension of the keyval package and offers additional
8308 macros for setting keys and declaring and setting class or package options.
8309 The package allows the programmer to specify a prefix to the name of the
8310 macros it defines for keys, and to define families of key definitions; these
8311 all help use in documents where several packages define their own sets of
8312 keys.")
8313     (license license:lppl1.3+)))
8314
8315 (define-public texlive-standalone
8316   (package
8317     (name "texlive-standalone")
8318     (version (number->string %texlive-revision))
8319     (source
8320      (origin
8321        (method svn-fetch)
8322        (uri (texlive-ref "latex" "standalone"))
8323        (file-name (string-append name "-" version "-checkout"))
8324        (sha256
8325         (base32
8326          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
8327     (build-system texlive-build-system)
8328     (arguments '(#:tex-directory "latex/standalone"))
8329     (propagated-inputs
8330      `(("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8331     (native-inputs
8332      `(("texlive-ydoc" ,texlive-ydoc)))
8333     (home-page "http://www.ctan.org/pkg/standalone")
8334     (synopsis "Compile TeX pictures stand-alone or as part of a document")
8335     (description "A class and package is provided which allows TeX pictures or
8336 other TeX code to be compiled standalone or as part of a main document.
8337 Special support for pictures with beamer overlays is also provided.  The
8338 package is used in the main document and skips extra preambles in sub-files.
8339 The class may be used to simplify the preamble in sub-files.  By default the
8340 @code{preview} package is used to display the typeset code without margins.
8341 The behaviour in standalone mode may adjusted using a configuration file
8342 @code{standalone.cfg} to redefine the standalone environment.")
8343     (license license:lppl1.3+)))
8344
8345 (define-public texlive-siunitx
8346   (package
8347     (name "texlive-siunitx")
8348     (version (number->string %texlive-revision))
8349     (source (texlive-origin
8350              name version
8351              (list "/source/latex/siunitx/siunitx.dtx"
8352                    "/doc/latex/siunitx/README.md")
8353              (base32
8354               "05kl7yid2npp2gbfshnv2xd08w81fkh5h2n5wd9xcpbhlqjzx9sj")))
8355     (build-system texlive-build-system)
8356     (arguments
8357      '(#:tex-directory "latex/siunitx"
8358        #:build-targets '("siunitx.dtx")
8359        #:phases
8360        (modify-phases %standard-phases
8361          (add-after 'unpack 'chdir
8362            (lambda _ (chdir "source/latex/siunitx") #t)))))
8363     (propagated-inputs
8364      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
8365        ("texlive-latex-l3packages" ,texlive-latex-l3packages)))
8366     (home-page "http://www.ctan.org/pkg/siunitx")
8367     (synopsis "Comprehensive SI units package")
8368     (description
8369      "Typesetting values with units requires care to ensure that the combined
8370 mathematical meaning of the value plus unit combination is clear.  In
8371 particular, the SI units system lays down a consistent set of units with rules
8372 on how they are to be used.  However, different countries and publishers have
8373 differing conventions on the exact appearance of numbers (and units).  A
8374 number of LaTeX packages have been developed to provide consistent application
8375 of the various rules.  The @code{siunitx} package takes the best from the
8376 existing packages, and adds new features and a consistent interface.  A number
8377 of new ideas have been incorporated, to fill gaps in the existing provision.
8378 The package also provides backward-compatibility with @code{SIunits},
8379 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
8380 package to handle all of the possible unit-related needs of LaTeX users.")
8381     (license license:lppl1.3c)))
8382
8383 (define-public texlive-booktabs
8384   (package
8385     (name "texlive-booktabs")
8386     (version (number->string %texlive-revision))
8387     (source
8388      (origin
8389        (method svn-fetch)
8390        (uri (texlive-ref "latex" "booktabs"))
8391        (file-name (string-append name "-" version "-checkout"))
8392        (sha256
8393         (base32
8394          "1mycxzl761p2zzmva8xsjbxbvrxx3vhi5p160mh9kiqwhrs5biz5"))))
8395     (build-system texlive-build-system)
8396     (arguments '(#:tex-directory "latex/booktabs"))
8397     (home-page "http://www.ctan.org/pkg/booktabs")
8398     (synopsis "Publication quality tables in LaTeX")
8399     (description
8400      "This package enhances the quality of tables in LaTeX, providing extra
8401 commands as well as behind-the-scenes optimisation.  Guidelines are given as
8402 to what constitutes a good table in this context.  The package offers
8403 @code{longtable} compatibility.")
8404     (license license:lppl1.3+)))
8405
8406 (define-public texlive-csquotes
8407   (let ((template (simple-texlive-package
8408                    "texlive-csquotes"
8409                    (list "/doc/latex/csquotes/"
8410                          "/tex/latex/csquotes/")
8411                    (base32
8412                     "1k7riymar0xx41n03p6yscrsjr2mzmzzkqihh2yv4lixd1nd7l8j")
8413                    #:trivial? #t)))
8414     (package
8415       (inherit template)
8416       (propagated-inputs
8417        `(("texlive-etoolbox" ,texlive-etoolbox)))
8418       (home-page "https://www.ctan.org/pkg/csquotes")
8419       (synopsis "Context sensitive quotation facilities")
8420       (description "This package provides advanced facilities for inline and
8421 display quotations.  It is designed for a wide range of tasks ranging from the
8422 most simple applications to the more complex demands of formal quotations.
8423 The facilities include commands, environments, and user-definable 'smart
8424 quotes' which dynamically adjust to their context.  Quotation marks are
8425 switched automatically if quotations are nested and they can be adjusted to
8426 the current language if the babel package is available.  There are additional
8427 facilities designed to cope with the more specific demands of academic
8428 writing, especially in the humanities and the social sciences.  All quote
8429 styles as well as the optional active quotes are freely configurable.")
8430       (license license:lppl1.3c+))))
8431
8432 (define-public texlive-logreq
8433   (let ((template (simple-texlive-package
8434                    "texlive-logreq"
8435                    (list "/doc/latex/logreq/"
8436                          "/tex/latex/logreq/")
8437                    (base32
8438                     "13difccs3cxlkqlnhw286yb0c7mifrxfd402a2x5wwxv0m1kgfqd")
8439                    #:trivial? #t)))
8440     (package
8441       (inherit template)
8442       (propagated-inputs
8443        `(("texlive-etoolbox" ,texlive-etoolbox)))
8444       (home-page "https://www.ctan.org/pkg/logreq")
8445       (synopsis "Support for automation of the LaTeX workflow")
8446       (description "The package helps to automate a typical LaTeX
8447 workflow that involves running LaTeX several times and running tools
8448 such as BibTeX or makeindex.  It will log requests like \"please rerun
8449 LaTeX\" or \"please run BibTeX on file X\" to an external file in a
8450 machine-readable format.  Compiler scripts and integrated LaTeX
8451 editing environments may parse this file to determine the next steps
8452 in the workflow.  In sum, the package will do two things:
8453
8454 @enumerate
8455 @item
8456 enable package authors to use LaTeX commands to issue requests, and
8457
8458 @item
8459 collect all requests from all packages and write them to an external
8460 XML file.
8461 @end enumerate\n")
8462       (license license:lppl1.3c))))
8463
8464 (define-public texlive-biblatex
8465   (let ((template (simple-texlive-package
8466                    "texlive-biblatex"
8467                    (list "/doc/latex/biblatex/"
8468                          "/tex/latex/biblatex/")
8469                    (base32
8470                     "0bq15ynx84v3ppz5ar1k321k1ck85x2p0irgxgzjh1lna9h6w7v0")
8471                    #:trivial? #t)))
8472     (package
8473       (inherit template)
8474       (propagated-inputs
8475        `(("texlive-logreq" ,texlive-logreq)
8476          ("texlive-url" ,texlive-url)))
8477       (home-page "https://www.ctan.org/pkg/biblatex")
8478       (synopsis "Sophisticated bibliographies in LaTeX")
8479       (description "BibLaTeX is a complete reimplementation of the
8480 bibliographic facilities provided by LaTeX.  Formatting of the
8481 bibliography is entirely controlled by LaTeX macros, facilitating the
8482 design of new bibliography and citation styles.  BibLaTeX uses its own
8483 data backend program \"biber\" to read and process the bibliographic
8484 data.  With biber, the range of features provided by biblatex
8485 includes:
8486
8487 @enumerate
8488 @item
8489 full unicode support,
8490
8491 @item
8492 customisable bibliography labels,
8493
8494 @item
8495 multiple bibliographies in the same document, and
8496
8497 @item
8498 subdivided bibliographies, such as bibliographies per chapter or
8499 section.
8500 @end enumerate\n")
8501       (license license:lppl1.3c))))
8502
8503 (define-public texlive-todonotes
8504   (let ((template (simple-texlive-package
8505                    "texlive-todonotes"
8506                    (list "/doc/latex/todonotes/"
8507                          "/tex/latex/todonotes/")
8508                    (base32
8509                     "0lvxsskz4bdfxhd59hf77kiq8k4nh2spb66vc6hifdgi21z8r8wm")
8510                    #:trivial? #t)))
8511     (package
8512       (inherit template)
8513       (propagated-inputs
8514        `(("texlive-latex-pgf" ,texlive-latex-pgf)
8515          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8516       (home-page "http://www.ctan.org/pkg/todonotes")
8517       (synopsis "Marking things to do in a LaTeX document")
8518       (description "The @code{todonotes} package lets the user mark
8519 things to do later, in a simple and visually appealing way.  The
8520 package takes several options to enable customization and finetuning
8521 of the visual appearance.")
8522       (license license:lppl1.3+))))
8523
8524 (define-public texlive-units
8525   (let ((template (simple-texlive-package
8526                    "texlive-units"
8527                    (list "/doc/latex/units/"
8528                          "/tex/latex/units/")
8529                    (base32
8530                     "1ia1vzy8dp7pdvmawwnmh9lmkajmpnnh62dixrjpb6mnxq118bfd")
8531                    #:trivial? #t)))
8532     (package
8533       (inherit template)
8534       (home-page "http://www.ctan.org/pkg/units")
8535       (synopsis "Typeset physical units and fractions")
8536       (description "@code{units} is a package for typesetting physical
8537 units in a standard-looking way.  The package is based upon
8538 @code{nicefrac}, a package for typing fractions.  @code{nicefrac} is
8539 included in the @code{units} bundle.")
8540       (license license:gpl3+))))
8541
8542 (define-public texlive-microtype
8543   (let ((template (simple-texlive-package
8544                    "texlive-microtype"
8545                    (list "/doc/latex/microtype/"
8546                          "/tex/latex/microtype/")
8547                    (base32
8548                     "1yig4i0alqrb1a6hhhlh5y0y4dzpznh698j0cb9632m2cd3aghwz")
8549                    #:trivial? #t)))
8550     (package
8551       (inherit template)
8552       (home-page "http://www.ctan.org/pkg/microtype")
8553       (synopsis "Subliminal refinements towards typographical perfection")
8554       (description "@code{microtype} provides a LaTeX interface to the
8555 micro-typographic extensions that were introduced by pdfTeX and have
8556 since propagated to XeTeX and LuaTeX: most prominently character
8557 protrusion and font expansion, the adjustment of kerning and interword
8558 spacing, hyphenatable letterspacing and the possibility to disable all
8559 or selected ligatures.  These features may be applied to customisable
8560 sets of fonts.  All micro-typographic aspects of the fonts can be
8561 configured in a straight-forward and flexible way.  Settings for
8562 various fonts are provided.  An alternative package
8563 @code{letterspace}, which also works with plain TeX, is included in
8564 the bundle.")
8565       (license license:lppl1.3c))))
8566
8567 (define-public texlive-caption
8568   (let ((template (simple-texlive-package
8569                    "texlive-caption"
8570                    (list "/doc/latex/caption/"
8571                          "/tex/latex/caption/")
8572                    (base32
8573                     "11wnakgbqbpqvc6rr1j0s7qw5jvkhf3miizax4l73i87a90gxk6b")
8574                    #:trivial? #t)))
8575     (package
8576       (inherit template)
8577       (home-page "http://www.ctan.org/pkg/caption")
8578       (synopsis "Customising captions in floating environments")
8579       (description "The @code{caption} package provides many ways to
8580 customise the captions in floating environments like figure and table.
8581 Facilities include rotating captions, sideways captions and continued
8582 captions (for tables or figures that come in several parts).  A list
8583 of compatibility notes, for other packages, is provided in the
8584 documentation.  The package also provides the \"caption outside
8585 float\" facility, in the same way that simpler packages like
8586 @code{capt-ofcapt-of} do.  The package supersedes @code{caption2}.
8587 Packages @code{bicaption}, @code{ltcaption}, @code{newfloat},
8588 @code{subcaption} and @code{totalcount} are included in the bundle.")
8589       (license license:lppl1.3+))))
8590
8591 (define-public texlive-symbol
8592   (package
8593     (inherit (simple-texlive-package
8594               "texlive-symbol"
8595               (list "/dvips/symbol/"
8596                     "/fonts/afm/adobe/symbol/"
8597                     "/fonts/afm/urw/symbol/"
8598                     "/fonts/tfm/adobe/symbol/"
8599                     "/fonts/tfm/urw35vf/symbol/"
8600                     "/fonts/type1/urw/symbol/"
8601                     "/fonts/map/dvips/symbol/"
8602                     "/tex/latex/symbol/")
8603               (base32
8604                "01xiygb88xwi7rfvh1zrlxzi5pqb5fvylws5zzszg379iz4pyzwj")
8605               #:trivial? #t))
8606     (home-page "https://ctan.org/pkg/urw-base35")
8607     (synopsis "URW Base 35 font pack for LaTeX")
8608     (description "This package provides a drop-in replacement for the
8609 Symbol font from Adobe's basic set.")
8610     (license license:gpl2)))
8611
8612 (define-public texlive-mathpazo
8613   (package
8614     (inherit (simple-texlive-package
8615               "texlive-mathpazo"
8616               (list "/doc/latex/mathpazo/"
8617                     "/fonts/afm/public/mathpazo/"
8618                     "/fonts/tfm/public/mathpazo/"
8619                     "/fonts/type1/public/mathpazo/"
8620                     "/fonts/vf/public/mathpazo/")
8621               (base32
8622                "02in6hdnbnkz216mpy8g6fk3wmlls8nh5982vmg37vhbj77lk0rh")
8623               #:trivial? #t))
8624     (home-page "http://www.ctan.org/pkg/mathpazo")
8625     (synopsis "Fonts to typeset mathematics to match Palatino")
8626     (description "The Pazo Math fonts are a family of PostScript fonts
8627 suitable for typesetting mathematics in combination with the Palatino
8628 family of text fonts.  The Pazo Math family is made up of five fonts
8629 provided in Adobe Type 1 format.  These contain glyphs that are
8630 usually not available in Palatino and for which Computer Modern looks
8631 odd when combined with Palatino.  These glyphs include the uppercase
8632 Greek alphabet in upright and slanted shapes, the lowercase Greek
8633 alphabet in slanted shape, several mathematical glyphs and the
8634 uppercase letters commonly used to represent various number sets.
8635 LaTeX macro support is provided in package @code{psnfss}.")
8636     (license license:gpl3+)))
8637
8638 (define-public texlive-fpl
8639   (package
8640     (inherit (simple-texlive-package
8641               "texlive-fpl"
8642               (list "/doc/fonts/fpl/"
8643                     "/source/fonts/fpl/"
8644                     "/fonts/afm/public/fpl/"
8645                     "/fonts/type1/public/fpl/")
8646               (base32
8647                "02gkl516z9kn8xqs269pdkqn37sxm8ib0pcs43s4rs2rhyyl5z68")
8648               #:trivial? #t))
8649     (home-page "https://www.ctan.org/pkg/fpl")
8650     (synopsis "SC and OsF fonts for URW Palladio L")
8651     (description "The FPL Fonts provide a set of SC/OsF fonts for URW
8652 Palladio L which are compatible with the Palatino SC/OsF fonts from
8653 Adobe.  LaTeX use is enabled by the mathpazo package, which is part of
8654 the @code{psnfss} distribution.")
8655     ;; Either LPPL version 1.0 or later, or GPL version 2
8656     (license (list license:lppl1.0+ license:gpl2))))
8657
8658 (define-public texlive-arev
8659   (package
8660     (inherit (simple-texlive-package
8661               "texlive-arev"
8662               (list "/doc/fonts/arev/"
8663                     "/fonts/afm/public/arev/"
8664                     "/fonts/enc/dvips/arev/"
8665                     "/fonts/map/dvips/arev/"
8666                     "/fonts/tfm/public/arev/"
8667                     "/fonts/type1/public/arev/"
8668                     "/fonts/vf/public/arev/"
8669                     "/tex/latex/arev/")
8670               (base32
8671                "15wkgc48r52mjpymv6l7j9bl99kwxbvg3g1mi3qyq7nfm799dkxy")
8672               #:trivial? #t))
8673     (home-page "https://www.ctan.org/pkg/arev")
8674     (synopsis "Fonts and LaTeX support files for Arev Sans")
8675     (description "The @code{arev} package provides type 1 fonts,
8676 virtual fonts and LaTeX packages for using Arev Sans in both text and
8677 mathematics.  Arev Sans is a derivative of Bitstream Vera Sans, adding
8678 support for Greek and Cyrillic characters and a few variant letters
8679 appropriate for mathematics.  The font is primarily used in LaTeX for
8680 presentations, particularly when using a computer projector.  Arev
8681 Sans has large x-height, \"open letters\", wide spacing and thick
8682 stems.  The style is very similar to the SliTeX font lcmss but
8683 heavier.  Arev is one of a very small number of sans-font mathematics
8684 support packages.  Others are cmbright, hvmath and kerkis.")
8685     (license (list license:silofl1.1 ;for Arev Sans
8686                    license:lppl1.3a  ;for TeX support files
8687                    license:gpl2))))  ;for ams-mdbch.sty
8688
8689 (define-public texlive-mathdesign
8690   (package
8691     (inherit (simple-texlive-package
8692               "texlive-mathdesign"
8693               (list "/doc/fonts/mathdesign/"
8694                     "/dvips/mathdesign/"
8695                     "/fonts/enc/dvips/mathdesign/"
8696                     "/fonts/map/dvips/mathdesign/"
8697                     "/fonts/tfm/public/mathdesign/"
8698                     "/fonts/type1/public/mathdesign/"
8699                     "/fonts/vf/public/mathdesign/"
8700                     "/tex/latex/mathdesign/")
8701               (base32
8702                "0jcby2sd0l3ank2drxc0qcf5d1cwa8idzh4g91h4nxk8zrzxj8nr")
8703               #:trivial? #t))
8704     (home-page "https://www.ctan.org/pkg/mathdesign")
8705     (synopsis "Mathematical fonts to fit with particular text fonts")
8706     (description "The Math Design project offers free mathematical
8707 fonts that match with existing text fonts.  To date, three free font
8708 families are available: Adobe Utopia, URW Garamond and Bitstream
8709 Charter.  Mathdesign covers the whole LaTeX glyph set including AMS
8710 symbols.  Both roman and bold versions of these symbols can be used.
8711 Moreover, there is a choice between three greek fonts (two of them
8712 created by the Greek Font Society).")
8713     (license license:gpl2+)))
8714
8715 (define-public texlive-bera
8716   (package
8717     (inherit (simple-texlive-package
8718               "texlive-bera"
8719               (list "/doc/fonts/bera/"
8720                     "/fonts/afm/public/bera/"
8721                     "/fonts/map/dvips/bera/"
8722                     "/fonts/tfm/public/bera/"
8723                     "/fonts/type1/public/bera/"
8724                     "/fonts/vf/public/bera/"
8725                     "/tex/latex/bera/")
8726               (base32
8727                "1pkmhhr6ah44xhipjr7nianv03hr4w4bn45xcvp264yw6ymqzqwr")
8728               #:trivial? #t))
8729     (home-page "https://www.ctan.org/pkg/bera")
8730     (synopsis "Bera fonts")
8731     (description "The @code{bera} package contains the Bera Type 1
8732 fonts and files to use the fonts with LaTeX.  Bera is a set of three
8733 font families: Bera Serif (a slab-serif Roman), Bera Sans (a Frutiger
8734 descendant) and Bera Mono (monospaced/typewriter).  The Bera family is
8735 a repackaging, for use with TeX, of the Bitstream Vera family.")
8736     (license license:silofl1.1)))
8737
8738 (define-public texlive-fourier
8739   (package
8740     (inherit (simple-texlive-package
8741               "texlive-fourier"
8742               (list "/doc/fonts/fourier/"
8743                     "/fonts/afm/public/fourier/"
8744                     "/fonts/map/dvips/fourier/"
8745                     "/fonts/tfm/public/fourier/"
8746                     "/fonts/type1/public/fourier/"
8747                     "/fonts/vf/public/fourier/"
8748                     "/tex/latex/fourier/")
8749               (base32
8750                "04d575nd4yvl58g9dfab9mrjxiv4792bdkz4bjvlkx6x257vlfzn")
8751               #:trivial? #t))
8752     (home-page "https://www.ctan.org/pkg/fourier")
8753     (synopsis "Utopia fonts for LaTeX documents")
8754     (description "Fourier-GUTenberg is a LaTeX typesetting system
8755 which uses Adobe Utopia as its standard base font.  Fourier-GUTenberg
8756 provides all complementary typefaces needed to allow Utopia based TeX
8757 typesetting including an extensive mathematics set and several other
8758 symbols.  The system is absolutely stand-alone; apart from Utopia and
8759 Fourier no other typefaces are required.  Utopia is a registered
8760 trademark of Adobe Systems Incorporated.")
8761     (license license:lppl)))
8762
8763 (define-public texlive-utopia
8764   (package
8765     (inherit (simple-texlive-package
8766               "texlive-utopia"
8767               (list "/doc/fonts/utopia/"
8768                     "/fonts/afm/adobe/utopia/"
8769                     "/fonts/tfm/adobe/utopia/"
8770                     "/fonts/type1/adobe/utopia/"
8771                     "/fonts/vf/adobe/utopia/")
8772               (base32
8773                "113wgkfz4z0ls2grxxfj17l42a1yv9r5ipcd0156xnfsrqvqzxfc")
8774               #:trivial? #t))
8775     (home-page "https://www.ctan.org/pkg/utopia")
8776     (synopsis "Adobe Utopia fonts")
8777     (description "The Adobe Standard Encoding set of the Utopia font
8778 family, as contributed to the X Consortium.  The set comprises upright
8779 and italic shapes in medium and bold weights.  Macro support and
8780 matching maths fonts are provided by the @code{fourier} and
8781 @code{mathdesign} font packages.")
8782     (license (license:fsf-free
8783               "http://mirrors.ctan.org/fonts/utopia/README"))))
8784
8785 (define-public texlive-fontaxes
8786   (package
8787     (name "texlive-fontaxes")
8788     (version "1.0e")
8789     (source
8790      (origin
8791        (method svn-fetch)
8792        (uri (texlive-ref "latex" "fontaxes"))
8793        (file-name (string-append name "-" version "-checkout"))
8794        (sha256
8795         (base32
8796          "19mhp9l7cjw0sbq55c9lz0l2pffkyhyir3i63jqynifjmglbgkl7"))))
8797     (build-system texlive-build-system)
8798     (arguments '(#:tex-directory "latex/fontaxes"))
8799     (home-page "http://www.ctan.org/pkg/fontaxes")
8800     (synopsis "Additional font axes for LaTeX")
8801     (description "The @code{fontaxes} package adds several new font
8802 axes on top of LaTeX's New Font Selection Scheme (NFSS).  In
8803 particular, it splits the shape axis into a primary and a secondary
8804 shape axis and it adds three new axes to deal with the different
8805 figure versions offered by many professional fonts.")
8806     (license license:lppl1.3+)))
8807
8808 (define-public texlive-mweights
8809   (package
8810     (inherit (simple-texlive-package
8811               "texlive-mweights"
8812               (list "/doc/latex/mweights/"
8813                     "/tex/latex/mweights/")
8814               (base32
8815                "12493g3yz06mhiybnphqbp49fjzy36clzw63b74mkfhsg1pq7h1b")
8816               #:trivial? #t))
8817     (home-page "https://www.ctan.org/pkg/mweights")
8818     (synopsis "Support for multiple-weight font packages")
8819     (description "Many font families available for use with LaTeX are
8820 available at multiple weights.  Many Type 1-oriented support packages
8821 for such fonts re-define the standard @code{\\mddefault} or
8822 @code{\\bfdefault} macros.  This can create difficulties if the weight
8823 desired for one font family is not available for another font family,
8824 or if it differs from the weight desired for another font family.  The
8825 @code{mweights} package provides a solution to these difficulties.")
8826     (license license:lppl)))
8827
8828 (define-public texlive-cabin
8829   (package
8830     (inherit (simple-texlive-package
8831               "texlive-cabin"
8832               (list "/doc/fonts/cabin/"
8833                     "/fonts/enc/dvips/cabin/"
8834                     "/fonts/map/dvips/cabin/"
8835                     "/fonts/opentype/impallari/cabin/"
8836                     "/fonts/tfm/impallari/cabin/"
8837                     "/fonts/type1/impallari/cabin/"
8838                     "/fonts/vf/impallari/cabin/"
8839                     "/tex/latex/cabin/")
8840               (base32
8841                "0878gc4aqs9168kfb1j3js7rrxvf9lrxwfqzc9cag1cjy60nqljy")
8842               #:trivial? #t))
8843     (home-page "https://www.ctan.org/pkg/cabin")
8844     (synopsis "Humanist Sans Serif font with LaTeX support")
8845     (description "Cabin is a humanist sans with four weights, true
8846 italics and small capitals.  According to its designer, Pablo
8847 Impallari, Cabin was inspired by the typefaces of Edward Johnston and
8848 Eric Gill.  Cabin incorporates modern proportions, optical adjustments
8849 and some elements of the geometric sans.  @code{cabin.sty} supports
8850 use of the font under LaTeX, pdfLaTeX, XeLaTeX and LuaLaTeX.  It uses
8851 the @code{mweights} package to manage the user's view of all those
8852 font weights.  An @code{sfdefault} option is provided to enable Cabin
8853 as the default text font.  The @code{fontaxes} package is required for
8854 use with [pdf]LaTeX.")
8855     (license (list license:silofl1.1 ;for Cabin
8856                    license:lppl))))  ;for support files
8857
8858 (define-public texlive-newtx
8859   (package
8860     (inherit (simple-texlive-package
8861               "texlive-newtx"
8862               (list "/doc/fonts/newtx/"
8863                     "/fonts/afm/public/newtx/"
8864                     "/fonts/enc/dvips/newtx/"
8865                     "/fonts/map/dvips/newtx/"
8866                     "/fonts/opentype/public/newtx/"
8867                     "/fonts/tfm/public/newtx/"
8868                     "/fonts/type1/public/newtx/"
8869                     "/fonts/vf/public/newtx/"
8870                     "/tex/latex/newtx/")
8871               (base32
8872                "0fa90qz8px369yk0x1nhmq4901rvnclx06ijb4ir57f2324rrg8d")
8873               #:trivial? #t))
8874     (home-page "https://www.ctan.org/pkg/newtx")
8875     (synopsis "Repackaging of the TX fonts with improved metrics")
8876     (description "The @code{newtx} bundle splits
8877 @code{txfonts.sty} (from the TX fonts distribution) into two
8878 independent packages, @code{newtxtext.sty} and @code{newtxmath.sty},
8879 each with fixes and enhancements.  @code{newtxmath}'s metrics have
8880 been re-evaluated to provide a less tight appearance and to provide a
8881 @code{libertine} option that substitutes Libertine italic and Greek
8882 letters for the existing math italic and Greek glyphs, making a
8883 mathematics package that matches Libertine text quite well.")
8884     (license license:lppl1.3)))
8885
8886 (define-public texlive-xcharter
8887   (package
8888     (inherit (simple-texlive-package
8889               "texlive-xcharter"
8890               (list "/doc/fonts/xcharter/"
8891                     "/fonts/afm/public/xcharter/"
8892                     "/fonts/enc/dvips/xcharter/"
8893                     "/fonts/map/dvips/xcharter/"
8894                     "/fonts/opentype/public/xcharter/"
8895                     "/fonts/tfm/public/xcharter/"
8896                     "/fonts/type1/public/xcharter/"
8897                     "/fonts/vf/public/xcharter/"
8898                     "/tex/latex/xcharter/")
8899               (base32
8900                "1qlid98lg0wcdq6hpk9kl2cl139pxcw6y8x8mfah2j95wq1i64lm")
8901               #:trivial? #t))
8902     (home-page "https://www.ctan.org/pkg/xcharter")
8903     (synopsis "Extension of the Bitstream Charter fonts")
8904     (description "@code{xcharter} repackages Bitstream Charter with an
8905 extended set of features.  The extension provides small caps, oldstyle
8906 figures and superior figures in all four styles, accompanied by LaTeX
8907 font support files.  The fonts themselves are provided in both Adobe
8908 Type 1 and OTF formats, with supporting files as necessary.")
8909     (license (list (license:fsf-free
8910                     "http://mirrors.ctan.org/fonts/xcharter/README")
8911                    license:lppl1.3))))
8912
8913 (define-public texlive-ly1
8914   (package
8915     (inherit (simple-texlive-package
8916               "texlive-ly1"
8917               (list "/doc/fonts/ly1/"
8918                     "/fonts/enc/dvips/ly1/"
8919                     "/fonts/map/dvips/ly1/"
8920                     "/fonts/tfm/adobe/ly1/"
8921                     "/fonts/vf/adobe/ly1/"
8922                     "/tex/latex/ly1/")
8923               (base32
8924                "0wjyw0risgvrq97zfciglwy1f4msvfslln6pz0q8yzzx8wsv3zgq")
8925               #:trivial? #t))
8926     (home-page "https://www.ctan.org/pkg/ly1")
8927     (synopsis "Support for LY1 LaTeX encoding")
8928     (description "The legacy @emph{texnansi} (TeX and ANSI) encoding
8929 is known in the LaTeX scheme of things as @emph{LY1} encoding.  The
8930 @code{ly1} bundle includes metrics and LaTeX macros to use the three
8931 basic Adobe Type 1 fonts (Times, Helvetica and Courier) in LaTeX using
8932 LY1 encoding.")
8933     (license license:lppl1.0+)))
8934
8935 (define-public texlive-sectsty
8936   (let ((template (simple-texlive-package
8937                    "texlive-sectsty"
8938                    (list "/doc/latex/sectsty/"
8939                          "/source/latex/sectsty/")
8940                    (base32
8941                     "08m90j7cg6w46vnwgsp10clpj4l6c9a6l8dad20q3mnd32l84hbl"))))
8942     (package
8943       (inherit template)
8944       (arguments
8945        (substitute-keyword-arguments (package-arguments template)
8946          ((#:tex-directory _ '())
8947           "latex/sectsty")
8948          ((#:build-targets _ '())
8949           ''("sectsty.ins"))
8950          ((#:tex-format _ "latex") "latex")
8951          ((#:phases phases)
8952           `(modify-phases ,phases
8953              (add-after 'unpack 'chdir
8954                (lambda _ (chdir "source/latex/sectsty")))))))
8955       (home-page "https://www.ctan.org/pkg/sectsty")
8956       (synopsis "Control sectional headers")
8957       (description "This is a LaTeX2ε package to help change the style of any or
8958 all of LaTeX's sectional headers in the article, book, or report classes.
8959 Examples include the addition of rules above or below a section title. ")
8960       (license license:lppl1.2+))))
8961
8962 (define-public texlive-morefloats
8963   (let ((template (simple-texlive-package
8964                    "texlive-morefloats"
8965                    (list "/doc/latex/morefloats/"
8966                          "/source/latex/morefloats/")
8967                    (base32
8968                     "0n0405fjxyjlbjspzfvhl0wjkwiqicj3hk8fa0g7agw72wlxscpl"))))
8969     (package
8970       (inherit template)
8971       (arguments
8972        (substitute-keyword-arguments (package-arguments template)
8973          ((#:tex-directory _ '())
8974           "latex/morefloats")
8975          ((#:build-targets _ '())
8976           ''("morefloats.ins"))
8977          ((#:phases phases)
8978           `(modify-phases ,phases
8979              (add-after 'unpack 'chdir
8980                (lambda _ (chdir "source/latex/morefloats")))))))
8981       (home-page "https://www.ctan.org/pkg/morefloats")
8982       (synopsis "Increase the number of simultaneous LaTeX floats")
8983       (description "LaTeX can, by default, only cope with 18 outstanding floats;
8984 any more, and you get the error “too many unprocessed floats”.  This package
8985 releases the limit; TeX itself imposes limits (which are independent of the
8986 help offered by e-TeX).
8987
8988 However, if your floats can’t be placed anywhere, extending the number of
8989 floats merely delays the arrival of the inevitable error message.")
8990       (license license:lppl1.3c+))))
8991
8992 (define-public texlive-ifmtarg
8993   (let ((template (simple-texlive-package
8994                    "texlive-ifmtarg"
8995                    (list "/doc/latex/ifmtarg/"
8996                          "/source/latex/ifmtarg/")
8997                    (base32
8998                     "0cwjn4bhq9zyfxr1595hgyc1d7rcsf9lva55x98q81xy5xrrmrb2"))))
8999     (package
9000       (inherit template)
9001       (arguments
9002        (substitute-keyword-arguments (package-arguments template)
9003          ((#:tex-directory _ '())
9004           "latex/ifmtarg")
9005          ((#:build-targets _ '())
9006           ''("ifmtarg.ins"))
9007          ((#:tex-format _ "latex") "latex")
9008          ((#:phases phases)
9009           `(modify-phases ,phases
9010              (add-after 'unpack 'chdir
9011                (lambda _ (chdir "source/latex/ifmtarg")))))))
9012       (inputs
9013        `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
9014       (home-page "https://www.ctan.org/pkg/ifmtarg")
9015       (synopsis "If-then-else command for processing potentially empty arguments")
9016       (description "This package provides a command for the LaTeX programmer for
9017 testing whether an argument is empty.")
9018       (license license:lppl1.3c+))))
9019
9020 (define-public texlive-pagenote
9021   (let ((template (simple-texlive-package
9022                    "texlive-pagenote"
9023                    (list "/doc/latex/pagenote/"
9024                          "/source/latex/pagenote/")
9025                    (base32
9026                     "0cqfqrfvnzq7ldaf255hcvi8xsfx8h7iha3hs8p9gdi3cfzbcmjm"))))
9027     (package
9028       (inherit template)
9029       (arguments
9030        (substitute-keyword-arguments (package-arguments template)
9031          ((#:tex-directory _ '())
9032           "latex/pagenote")
9033          ((#:build-targets _ '())
9034           ''("pagenote.ins"))
9035          ((#:phases phases)
9036           `(modify-phases ,phases
9037              (add-after 'unpack 'chdir
9038                (lambda _ (chdir "source/latex/pagenote")))))))
9039       (propagated-inputs
9040        `(("texlive-ifmtarg" ,texlive-ifmtarg)))
9041       (home-page "https://www.ctan.org/pkg/pagenote")
9042       (synopsis "Notes at end of document")
9043       (description "The pagenote package provides tagged notes on a separate
9044 page (also known as ‘end notes’).")
9045       (license license:lppl1.3c+))))
9046
9047 (define-public texlive-titling
9048   (let ((template (simple-texlive-package
9049                    "texlive-titling"
9050                    (list "/doc/latex/titling/"
9051                          "/source/latex/titling/")
9052                    (base32
9053                     "0pc3806kc9p2dizdghis0p0b00xs0gmlh2nmf94f5wasz5mkw6bk"))))
9054     (package
9055       (inherit template)
9056       (arguments
9057        (substitute-keyword-arguments (package-arguments template)
9058          ((#:tex-directory _ '())
9059           "latex/titling")
9060          ((#:build-targets _ '())
9061           ''("titling.ins"))
9062          ((#:tex-format _ "latex") "latex")
9063          ((#:phases phases)
9064           `(modify-phases ,phases
9065              (add-after 'unpack 'chdir
9066                (lambda _ (chdir "source/latex/titling")))))))
9067       (native-inputs
9068        `(("texlive-cm" ,texlive-cm)))
9069       (home-page "https://www.ctan.org/pkg/titling")
9070       (synopsis "Control typesetting of the \\maketitle command")
9071       (description "The @code{titling} package provides control over the
9072 typesetting of the @code{\\maketitle} command and @code{\\thanks} commands,
9073 and makes the \title, @code{\\author} and @code{\\date} information
9074 permanently available.  Multiple titles are allowed in a single document.  New
9075 titling elements can be added and a @code{titlepage} title can be centered on
9076 a physical page.")
9077       (license license:lppl))))
9078
9079 (define-public texlive-ifoddpage
9080   (let ((template (simple-texlive-package
9081                    "texlive-ifoddpage"
9082                    (list "/source/latex/ifoddpage/")
9083                    (base32
9084                     "14x0haj3xjsk9dn2djg117sl7x5nbwgbivhjj3ichnxlgrlf1bis"))))
9085     (package
9086       (inherit template)
9087       (arguments
9088        (substitute-keyword-arguments (package-arguments template)
9089          ((#:tex-directory _ '())
9090           "latex/ifoddpage")
9091          ((#:build-targets _ '())
9092           ''("ifoddpage.ins"))
9093          ((#:phases phases)
9094           `(modify-phases ,phases
9095              (add-after 'unpack 'chdir
9096                (lambda _ (chdir "source/latex/ifoddpage")))))))
9097       (native-inputs
9098        `(("texlive-ydoc" ,texlive-ydoc)))
9099       (home-page "https://www.ctan.org/pkg/ifoddpage")
9100       (synopsis "Determine if the current page is odd or even")
9101       (description "This package provides an @code{\\ifoddpage} conditional to
9102 determine if the current page is odd or even.  The macro @code{\\checkoddpage}
9103 must be used directly before to check the page number using a label.  Two
9104 compiler runs are therefore required to achieve correct results.  In addition,
9105 the conditional @code{\\ifoddpageoronside} is provided which is also true in
9106 @code{oneside} mode where all pages use the odd page layout.")
9107       (license license:lppl1.3))))
9108
9109 (define-public texlive-storebox
9110   (let ((template (simple-texlive-package
9111                    "texlive-storebox"
9112                    (list "/source/latex/storebox/")
9113                    (base32
9114                     "1ybpjfrria57fwvr9kriiw6y76ivwvsyb6ayp0bi750smsv8k5n1"))))
9115     (package
9116       (inherit template)
9117       (arguments
9118        (substitute-keyword-arguments (package-arguments template)
9119          ((#:tex-directory _ '())
9120           "latex/storebox")
9121          ((#:build-targets _ '())
9122           ''("storebox.ins"))
9123          ((#:phases phases)
9124           `(modify-phases ,phases
9125              (add-after 'unpack 'chdir
9126                (lambda _ (chdir "source/latex/storebox")))))))
9127       (native-inputs
9128        `(("texlive-ydoc" ,texlive-ydoc)))
9129       (home-page "https://www.ctan.org/pkg/storebox")
9130       (synopsis "Storing information for reuse")
9131       (description "The package provides \"store boxes\" whose user interface
9132 matches that of normal LaTeX \"save boxes\", except that the content of a
9133 store box appears at most once in the output PDF file, however often it is
9134 used.  The present version of the package supports pdfLaTeX and LuaLaTeX; when
9135 DVI is output, store boxes behave the same as save boxes.")
9136       (license license:lppl1.3))))
9137
9138 (define-public texlive-collectbox
9139   (let ((template (simple-texlive-package
9140                    "texlive-collectbox"
9141                    (list "/source/latex/collectbox/")
9142                    (base32
9143                     "1k0bbphvr20k9hgpr3dv869h9ygxx3g8vjapkc63nq8i13crpsvz"))))
9144     (package
9145       (inherit template)
9146       (arguments
9147        (substitute-keyword-arguments (package-arguments template)
9148          ((#:tex-directory _ '())
9149           "latex/collectbox")
9150          ((#:build-targets _ '())
9151           ''("collectbox.ins"))
9152          ((#:phases phases)
9153           `(modify-phases ,phases
9154              (add-after 'unpack 'chdir
9155                (lambda _ (chdir "source/latex/collectbox")))))))
9156       (native-inputs
9157        `(("texlive-ydoc" ,texlive-ydoc)))
9158       (home-page "https://www.ctan.org/pkg/collectbox")
9159       (synopsis "Collect and process macro arguments as boxes")
9160       (description "The package provides macros to collect and process a macro
9161 argument (i.e., something which looks like a macro argument) as a horizontal
9162 box rather than as a real macro argument.  The \"arguments\" are stored as if
9163 they had been saved by @code{\\savebox} or by the @code{lrbox} environment.
9164 Grouping tokens @code{\\bgroup} and @code{\\egroup} may be used, which allows
9165 the user to have the beginning and end of a group in different macro
9166 invocations, or to place them in the begin and end code of an environment.
9167 Arguments may contain verbatim material or other special use of characters.
9168 The macros were designed for use within other macros.")
9169       (license license:lppl1.3))))
9170
9171 (define-public texlive-adjustbox
9172   (let ((template (simple-texlive-package
9173                    "texlive-adjustbox"
9174                    (list "/doc/latex/adjustbox/"
9175                          "/source/latex/adjustbox/")
9176                    (base32
9177                     "14vd0yd50bky2pbbjkn59q1aglnqpdhh8vwjdyan0jkzljsr2ch8"))))
9178     (package
9179       (inherit template)
9180       (arguments
9181        (substitute-keyword-arguments (package-arguments template)
9182          ((#:tex-directory _ '())
9183           "latex/adjustbox")
9184          ((#:build-targets _ '())
9185           ''("adjustbox.ins"))
9186          ((#:phases phases)
9187           `(modify-phases ,phases
9188              (add-after 'unpack 'chdir
9189                (lambda _ (chdir "source/latex/adjustbox")))))))
9190       (native-inputs
9191        `(("texlive-ydoc" ,texlive-ydoc)))
9192       (propagated-inputs
9193        `(("texlive-latex-pgf" ,texlive-latex-pgf)
9194          ("texlive-latex-varwidth" ,texlive-latex-varwidth)
9195          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)
9196          ("texlive-collectbox" ,texlive-collectbox)
9197          ("texlive-ifoddpage" ,texlive-ifoddpage)
9198          ("texlive-storebox" ,texlive-storebox)))
9199       (home-page "https://www.ctan.org/pkg/adjustbox")
9200       (synopsis "Graphics package-alike macros for “general” boxes")
9201       (description "The package provides several macros to adjust boxed
9202 content.  One purpose is to supplement the standard @code{graphics} package,
9203 which defines the macros @code{\\resizebox}, @code{\\scalebox} and
9204 @code{\\rotatebox} , with the macros @code{\\trimbox} and @code{\\clipbox}.
9205 The main feature is the general @code{\\adjustbox} macro which extends the
9206 @code{key=value} interface of @code{\\includegraphics} from the
9207 @code{graphics} package and applies it to general text content.  Additional
9208 provided box macros are @code{\\lapbox}, @code{\\marginbox},
9209 @code{\\minsizebox}, @code{\\maxsizebox} and @code{\\phantombox}.")
9210       (license license:lppl1.3))))
9211
9212 (define-public texlive-tcolorbox
9213   (let ((template (simple-texlive-package
9214                    "texlive-tcolorbox"
9215                    (list "/doc/latex/tcolorbox/"
9216                          "/tex/latex/tcolorbox/")
9217                    (base32
9218                     "1swhagdj0a39ssifp29a36ldrjqmx8w92dqsgsjpal6lhksvzn2w")
9219                    #:trivial? #true)))
9220     (package
9221       (inherit template)
9222       (propagated-inputs
9223        `(("texlive-etoolbox" ,texlive-etoolbox)
9224          ("texlive-latex-environ" ,texlive-latex-environ)
9225          ("texlive-latex-pgf" ,texlive-latex-pgf)
9226          ("texlive-latex-tools" ,texlive-latex-tools)))
9227       (home-page "https://www.ctan.org/pkg/tcolorbox")
9228       (synopsis "Colored boxes, for LaTeX examples and theorems, etc")
9229       (description "This package provides an environment for colored and
9230 framed text boxes with a heading line.  Optionally, such a box may be split in
9231 an upper and a lower part; thus the package may be used for the setting of
9232 LaTeX examples where one part of the box displays the source code and the
9233 other part shows the output.  Another common use case is the setting of
9234 theorems.  The package supports saving and reuse of source code and text
9235 parts.")
9236       (license license:lppl1.3c+))))
9237
9238 (define-public texlive-eurosym
9239   (let ((template (simple-texlive-package
9240                    "texlive-eurosym"
9241                    (list "/doc/fonts/eurosym/"
9242                          "/fonts/map/dvips/eurosym/"
9243                          "/fonts/source/public/eurosym/"
9244                          "/fonts/tfm/public/eurosym/"
9245                          "/fonts/type1/public/eurosym/"
9246                          "/tex/latex/eurosym/eurosym.sty")
9247                    (base32
9248                     "0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")
9249                    #:trivial? #true)))
9250     (package
9251       (inherit template)
9252       (home-page "https://www.ctan.org/pkg/eurosym")
9253       (synopsis "METAFONT and macros for Euro sign")
9254       (description "This package provides the European currency symbol for the
9255 Euro implemented in METAFONT, using the official European Commission
9256 dimensions, and providing several shapes (normal, slanted, bold, outline).
9257 The package also includes a LaTeX package which defines the macro,
9258 pre-compiled font files, and documentation.")
9259       (license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING")))))
9260
9261 (define-public texlive-kastrup
9262   (package
9263     (name "texlive-kastrup")
9264     (version (number->string %texlive-revision))
9265     (source
9266      (origin
9267        (method svn-fetch)
9268        (uri (texlive-ref "generic" "kastrup"))
9269        (file-name (string-append name "-" version "-checkout"))
9270        (sha256
9271         (base32
9272          "1kkshc48brkq2nx3rlbv78a2130izykbf33ri1q2shqr8pjfmmq8"))))
9273     (build-system texlive-build-system)
9274     (arguments
9275      '(#:tex-directory "generic/kastrup"
9276        #:phases
9277        (modify-phases %standard-phases
9278          (add-after 'unpack 'remove-generated-file
9279            (lambda _
9280              (delete-file "binhex.drv")
9281              #t)))))
9282     (home-page "http://www.ctan.org/pkg/binhex")
9283     (synopsis "Convert numbers into binary, octal and hexadecimal")
9284     (description "The @code{kastrup} package provides the
9285 @emph{binhex.tex} file.  This file provides expandable macros for both
9286 fixed-width and minimum-width numbers to bases 2, 4, 8 and 16.  All
9287 constructs TeX accepts as arguments to its @code{\\number} primitive
9288 are valid as arguments for the macros.  The package may be used under
9289 LaTeX and plain TeX.")
9290     (license (license:fsf-free "file:/binhex.dtx"))))