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-lm
 946   (package
 947     (inherit (simple-texlive-package
 948               "texlive-lm"
 949               (list "/doc/fonts/lm/"
 950                     "/fonts/afm/public/lm/"
 951                     "/fonts/enc/dvips/lm/"
 952                     "/fonts/map/dvipdfm/lm/"
 953                     "/fonts/map/dvips/lm/"
 954                     "/fonts/opentype/public/lm/"
 955                     "/fonts/tfm/public/lm/"
 956                     "/fonts/type1/public/lm/"
 957                     "/tex/latex/lm/")
 958               (base32
 959                "0i1hwr8rp0jqyvs4qyplrirscd4w7lsgwsncyv3yzy80bsa56jq5")
 960               #:trivial? #t))
 961     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
 962     (synopsis "Latin Modern family of fonts")
 963     (description "The Latin Modern fonts are derived from the famous Computer
 964 Modern fonts designed by Donald E. Knuth and described in Volume E of his
 965 Computers & Typesetting series.")
 966     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
 967     ;; Public License (LPPL), version 1.3c or later, but comes with an
 968     ;; additional but not legally binding clause.
 969     (license license:lppl1.3c+)))
 970
 971 (define-public texlive-fonts-lm
 972   (deprecated-package "texlive-fonts-lm" texlive-lm))
 973
 974 (define-public texlive-knuth-lib
 975   (let ((template (simple-texlive-package
 976                    "texlive-knuth-lib"
 977                    (list "/fonts/source/public/knuth-lib/"
 978                          "/tex/generic/knuth-lib/"
 979                          "/tex/plain/knuth-lib/")
 980                    (base32
 981                     "0lizrhdr4pirhh4ry44znddksd7akkxli2i6sddm5rzqljiqdy3v")
 982                    #:trivial? #t)))
 983     (package
 984       (inherit template)
 985       (arguments
 986        (substitute-keyword-arguments (package-arguments template)
 987          ((#:modules _ '())
 988           '((guix build gnu-build-system)
 989             (guix build utils)
 990             (srfi srfi-26)))
 991          ((#:phases phases '())
 992           `(modify-phases ,phases
 993              (replace 'build
 994                (lambda* (#:key inputs #:allow-other-keys)
 995                  (with-directory-excursion "fonts/source/public/knuth-lib"
 996                    (let ((mf (assoc-ref inputs "texlive-metafont")))
 997                      ;; Tell mf where to find mf.base
 998                      (setenv "MFBASES"
 999                              (string-append mf "/share/texmf-dist/web2c"))
1000                      ;; Tell mf where to look for source files
1001                      (setenv "MFINPUTS"
1002                              (string-append (getcwd) ":"
1003                                             mf "/share/texmf-dist/metafont/base")))
1004                    (mkdir "build")
1005                    (for-each (lambda (font)
1006                                (format #t "building font ~a\n" font)
1007                                (invoke "mf" "-progname=mf"
1008                                        "-output-directory=build"
1009                                        (string-append "\\"
1010                                                       "mode:=ljfour; "
1011                                                       "mag:=1; "
1012                                                       "batchmode; "
1013                                                       "input " font)))
1014                              (find-files "." "(manfnt|logo.+)\\.mf$")))
1015                  #t))
1016              (add-after 'install 'install-fonts
1017                (lambda* (#:key outputs #:allow-other-keys)
1018                  (with-directory-excursion "fonts/source/public/knuth-lib"
1019                    (let* ((out (assoc-ref outputs "out"))
1020                           (tfm (string-append
1021                                 out "/share/texmf-dist/fonts/tfm/public/knuth-lib")))
1022                      (for-each (cut install-file <> tfm)
1023                                (find-files "build" "\\.tfm"))
1024                      #t))))))))
1025       (native-inputs
1026        `(("texlive-bin" ,texlive-bin)
1027          ("texlive-metafont" ,texlive-metafont)))
1028       (home-page "https://www.ctan.org/pkg/knuth-lib")
1029       (synopsis "Small library of METAFONT sources")
1030       (description "This is a collection of core TeX and METAFONT macro files
1031 from Donald Knuth, including the plain format, plain base, and the MF logo
1032 fonts.")
1033       (license license:knuth))))
1034
1035 (define-public texlive-fonts-knuth-lib
1036   (deprecated-package "texlive-fonts-knuth-lib" texlive-knuth-lib))
1037
1038 (define-public texlive-fonts-latex
1039   (package
1040     (name "texlive-fonts-latex")
1041     (version (number->string %texlive-revision))
1042     (source (origin
1043               (method svn-fetch)
1044               (uri (svn-reference
1045                     (url (string-append "svn://www.tug.org/texlive/tags/"
1046                                         %texlive-tag "/Master/texmf-dist/"
1047                                         "/fonts/source/public/latex-fonts"))
1048                     (revision %texlive-revision)))
1049               (file-name (string-append name "-" version "-checkout"))
1050               (sha256
1051                (base32
1052                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
1053     (build-system gnu-build-system)
1054     (arguments
1055      `(#:modules ((guix build gnu-build-system)
1056                   (guix build utils)
1057                   (srfi srfi-1)
1058                   (srfi srfi-26))
1059        #:tests? #f                      ; no tests
1060        #:phases
1061        (modify-phases %standard-phases
1062          (delete 'configure)
1063          (replace 'build
1064            (lambda* (#:key inputs #:allow-other-keys)
1065              (let ((mf (assoc-ref inputs "texlive-metafont")))
1066                ;; Tell mf where to find mf.base
1067                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1068                ;; Tell mf where to look for source files
1069                (setenv "MFINPUTS"
1070                        (string-append (getcwd) ":"
1071                                       mf "/share/texmf-dist/metafont/base:"
1072                                       (assoc-ref inputs "texlive-cm")
1073                                       "/share/texmf-dist/fonts/source/public/cm")))
1074              (mkdir "build")
1075              (for-each (lambda (font)
1076                          (format #t "building font ~a\n" font)
1077                          (invoke "mf" "-progname=mf"
1078                                  "-output-directory=build"
1079                                  (string-append "\\"
1080                                                 "mode:=ljfour; "
1081                                                 "mag:=1; "
1082                                                 "batchmode; "
1083                                                 "input " font)))
1084                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
1085                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
1086                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
1087                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
1088                          "line10" "linew10"))
1089              #t))
1090          (replace 'install
1091            (lambda* (#:key outputs #:allow-other-keys)
1092              (let* ((out (assoc-ref outputs "out"))
1093                     (tfm (string-append
1094                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
1095                     (mf  (string-append
1096                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
1097                (for-each (cut install-file <> tfm)
1098                          (find-files "build" "\\.*"))
1099                (for-each (cut install-file <> mf)
1100                          (find-files "." "\\.mf"))
1101                #t))))))
1102     (native-inputs
1103      `(("texlive-bin" ,texlive-bin)
1104        ("texlive-metafont" ,texlive-metafont)
1105        ("texlive-cm" ,texlive-cm)))
1106     (home-page "https://www.ctan.org/pkg/latex-fonts")
1107     (synopsis "Collection of fonts used in LaTeX distributions")
1108     (description "This is a collection of fonts for use with standard LaTeX
1109 packages and classes. It includes invisible fonts (for use with the slides
1110 class), line and circle fonts (for use in the picture environment) and LaTeX
1111 symbol fonts.")
1112     (license license:lppl1.2+)))
1113
1114 (define-public texlive-mflogo
1115   (let ((template (simple-texlive-package
1116                    "texlive-mflogo"
1117                    (list "/doc/latex/mflogo/"
1118                          "/source/latex/mflogo/"
1119                          "/fonts/source/public/mflogo/logosl8.mf")
1120                    (base32
1121                     "1vb4mg7fh4k54g7nqwiw3qm4iir8whpfnspis76l4sddzar1amh7"))))
1122     (package
1123       (inherit template)
1124       (arguments
1125        (substitute-keyword-arguments (package-arguments template)
1126          ((#:modules _ '())
1127           '((guix build texlive-build-system)
1128             (guix build utils)
1129             (srfi srfi-1)
1130             (srfi srfi-26)))
1131          ((#:tex-directory _ #t)
1132           "latex/mflogo")
1133          ((#:phases phases '())
1134           `(modify-phases ,phases
1135              (add-after 'unpack 'chdir
1136                (lambda _
1137                  (chdir "source/latex/mflogo") #t))
1138              (add-after 'build 'build-font-metrics
1139                (lambda* (#:key inputs #:allow-other-keys)
1140                  (let ((root "../../..")
1141                        (mf (assoc-ref inputs "texlive-metafont"))
1142                        (kl (assoc-ref inputs "texlive-knuth-lib")))
1143                    ;; Tell mf where to find mf.base
1144                    (setenv "MFBASES"
1145                            (string-append mf "/share/texmf-dist/web2c"))
1146                    ;; Tell mf where to look for source files
1147                    (setenv "MFINPUTS"
1148                            (string-append root ":"
1149                                           mf "/share/texmf-dist/metafont/base:"
1150                                           kl "/share/texmf-dist/fonts/source/public/knuth-lib:"
1151                                           root "/fonts/source/public/mflogo/"))
1152                    (for-each (lambda (font)
1153                                (format #t "building font ~a\n" font)
1154                                (invoke "mf" "-progname=mf"
1155                                        "-output-directory=build"
1156                                        (string-append "\\"
1157                                                       "mode:=ljfour; "
1158                                                       "mag:=1; "
1159                                                       "scrollmode; "
1160                                                       "input " (basename font))))
1161                              (find-files (string-append root
1162                                                         "/fonts/source/public/mflogo/")
1163                                          "\\.mf$")))
1164                  #t))
1165              (add-before 'install 'install-fonts
1166                (lambda* (#:key outputs #:allow-other-keys)
1167                  (let* ((out (assoc-ref outputs "out"))
1168                         (tfm (string-append
1169                               out "/share/texmf-dist/fonts/tfm/public/mflogo")))
1170                    (for-each (lambda (file)
1171                                (install-file file tfm)
1172                                (delete-file file))
1173                              (find-files "build" "\\.tfm"))
1174                    #t)))))))
1175       (native-inputs
1176        `(("texlive-bin" ,texlive-bin)
1177          ("texlive-metafont" ,texlive-metafont)
1178          ("texlive-knuth-lib" ,texlive-knuth-lib)))
1179       (home-page "http://www.ctan.org/pkg/mflogo")
1180       (synopsis "LaTeX support for Metafont logo fonts")
1181       (description
1182        "This package provides LaTeX and font definition files to access the
1183 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1184 logos in LaTeX documents.")
1185       (license license:lppl))))
1186
1187 (define-public texlive-latex-mflogo
1188   (deprecated-package "texlive-latex-mflogo" texlive-mflogo))
1189
1190 (define-public texlive-mflogo-font
1191   (package
1192     (inherit (simple-texlive-package
1193               "texlive-mflogo-font"
1194               (list "/doc/fonts/mflogo-font/README"
1195                     "/fonts/afm/hoekwater/mflogo-font/"
1196                     "/fonts/map/dvips/mflogo-font/"
1197                     "/fonts/type1/hoekwater/mflogo-font/")
1198               (base32
1199                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1200               #:trivial? #t))
1201     (home-page "https://www.ctan.org/pkg/mflogo-font")
1202     (synopsis "Metafont logo font")
1203     (description
1204      "These fonts were created in METAFONT by Knuth, for his own publications.
1205 At some stage, the letters P and S were added, so that the METAPOST logo could
1206 also be expressed.  The fonts were originally issued (of course) as METAFONT
1207 source; they have since been autotraced and reissued in Adobe Type 1 format by
1208 Taco Hoekwater.")
1209     (license license:knuth)))
1210
1211 (define-public texlive-fonts-mflogo-font
1212   (deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
1213
1214 (define-public texlive-amsfonts
1215   (let ((template (simple-texlive-package
1216                    "texlive-amsfonts"
1217                    (list "/source/latex/amsfonts/"
1218                          "/fonts/source/public/amsfonts/"
1219                          "/fonts/type1/public/amsfonts/"
1220                          "/fonts/afm/public/amsfonts/"
1221                          "/fonts/map/dvips/amsfonts/"
1222                          "/tex/plain/amsfonts/"
1223                          "/doc/fonts/amsfonts/")
1224                    (base32
1225                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1226     (package
1227       (inherit template)
1228       (arguments
1229        (substitute-keyword-arguments (package-arguments template)
1230          ((#:build-targets _ #t)
1231           '(list "amsfonts.ins"))
1232          ((#:tex-directory _ #t)
1233           "latex/amsfonts")
1234          ((#:modules modules '())
1235           `((guix build texlive-build-system)
1236             (guix build utils)
1237             (ice-9 match)
1238             (srfi srfi-1)
1239             (srfi srfi-26)))
1240          ((#:phases phases)
1241           `(modify-phases ,phases
1242              (add-before 'build 'build-fonts
1243                (lambda* (#:key inputs #:allow-other-keys)
1244                  ;; Allow self fonts sources and other resources to be
1245                  ;; discovered.
1246                  (setenv "GUIX_TEXMF" (string-append (getenv "GUIX_TEXMF")
1247                                                      ":" (getcwd)))
1248
1249                  (let ((build (string-append (getcwd) "/build-fonts")))
1250                    (mkdir-p build)
1251                    (with-directory-excursion "fonts/source/public/amsfonts"
1252                      (for-each (lambda (font)
1253                                  (format #t "building font ~a\n" (basename font ".mf"))
1254                                  (with-directory-excursion (dirname font)
1255                                    (invoke "mf" "-progname=mf"
1256                                            (string-append "-output-directory=" build)
1257                                            (string-append "\\"
1258                                                           "mode:=ljfour; "
1259                                                           "mag:=1; "
1260                                                           "nonstopmode; "
1261                                                           "input "
1262                                                           (getcwd) "/"
1263                                                           (basename font ".mf")))))
1264                                (find-files "." "[0-9]+\\.mf$"))))
1265
1266                  ;; There are no metafont sources for the Euler fonts, so we
1267                  ;; convert the afm files instead.
1268                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1269                    (mkdir build)
1270                    (with-directory-excursion "fonts/afm/public/amsfonts/euler"
1271                      (for-each (lambda (font)
1272                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1273                                  (invoke "afm2tfm" font
1274                                          (string-append build "/"
1275                                                         (basename font ".tfm"))))
1276                                (find-files "(cmextra|cyrillic|dummy|euler|symbols)"
1277                                            "\\.afm$")))
1278
1279                    ;; Frustratingly, not all fonts can be created this way.  To
1280                    ;; generate eufm8.tfm, for example, we first scale down
1281                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1282                    ;; the pl file.
1283                    (setenv "TEXINPUTS"
1284                            (string-append ":" build "//:"
1285                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1286                                           (getcwd) "/source/latex/amsfonts//:"))
1287                    (with-directory-excursion build
1288                      (for-each (match-lambda
1289                                  (((target-base target-size)
1290                                    (source-base source-size))
1291                                   (let ((factor (number->string
1292                                                  (truncate/ (* 1000 target-size)
1293                                                             source-size))))
1294                                     (invoke "tex"
1295                                             "-interaction=scrollmode"
1296                                             (string-append "\\input fontinst.sty "
1297                                                            "\\transformfont{" target-base "}"
1298                                                            "{\\scalefont{" factor "}"
1299                                                            "{\\fromafm{" source-base "}}} "
1300                                                            "\\bye")))
1301                                   (invoke "pltotf"
1302                                           (string-append target-base ".pl")
1303                                           (string-append target-base ".tfm"))
1304                                   (delete-file (string-append target-base ".pl"))))
1305
1306                                '((("eufm8" 8) ("eufm10" 10))
1307
1308                                  (("eufb6" 6) ("eufb7" 7))
1309                                  (("eufb8" 8) ("eufb10" 10))
1310                                  (("eufb9" 9) ("eufb10" 10))
1311
1312                                  (("eufm6" 6) ("eufb7" 7))
1313                                  (("eufm9" 9) ("eufb10" 10))
1314
1315                                  (("eurb6" 6) ("eurb7" 7))
1316                                  (("eurb8" 8) ("eurb10" 10))
1317                                  (("eurb9" 9) ("eurb10" 10))
1318
1319                                  (("eurm6" 6) ("eurm7" 7))
1320                                  (("eurm8" 8) ("eurm10" 10))
1321                                  (("eurm9" 9) ("eurm10" 10))))))))
1322              (add-after 'install 'install-generated-fonts
1323                (lambda* (#:key inputs outputs #:allow-other-keys)
1324                  (copy-recursively "build-fonts"
1325                                    (string-append
1326                                     (assoc-ref outputs "out")
1327                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))))))))
1328       (native-inputs
1329        `(("texlive-updmap.cfg" ,(texlive-updmap.cfg
1330                                  (list texlive-fontinst)))))
1331       (home-page "https://www.ctan.org/pkg/amsfonts")
1332       (synopsis "TeX fonts from the American Mathematical Society")
1333       (description
1334        "This package provides an extended set of fonts for use in mathematics,
1335 including: extra mathematical symbols; blackboard bold letters (uppercase
1336 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1337 letters; subscript sizes of large symbols such as sum and product; added sizes
1338 of the Computer Modern small caps font; cyrillic fonts (from the University of
1339 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1340 files, and all except the Euler fonts are provided as Metafont source.  The
1341 distribution also includes the canonical Type 1 versions of the Computer
1342 Modern family of fonts.  The Euler fonts are supported by separate packages;
1343 details can be found in the documentation.")
1344       (license license:silofl1.1))))
1345
1346 (define-public texlive-fonts-amsfonts
1347   (deprecated-package "texlive-fonts-amsfonts" texlive-amsfonts))
1348
1349 (define-public texlive-latex-amsfonts
1350   (deprecated-package "texlive-latex-amsfonts" texlive-amsfonts))
1351
1352 (define-public texlive-mkpattern
1353   (package
1354     (inherit (simple-texlive-package
1355               "texlive-mkpattern"
1356               (list "/doc/plain/mkpattern/README"
1357                     "/doc/plain/mkpattern/mkpatdoc.tex"
1358                     "/doc/plain/mkpattern/mkpatter.pdf"
1359                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1360                     "/tex/plain/mkpattern/mkpatter.tex")
1361               (base32
1362                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1363               #:trivial? #t))
1364     (home-page "https://ctan.org/pkg/mkpattern")
1365     (synopsis "Utility for making hyphenation patterns")
1366     (description "Mkpattern is a general purpose program for the generation of
1367 hyphenation patterns, with definition of letter sets and template-like
1368 constructions.  It also provides an easy way to handle different input and
1369 output encodings, and features generation of clean UTF-8 patterns.")
1370     (license license:lppl)))
1371
1372 ;; This provides etex.src which is needed to build various formats, including
1373 ;; luatex.fmt and pdflatex.fmt
1374 (define-public texlive-etex
1375   (let ((template (simple-texlive-package
1376                    "texlive-etex"
1377                    (list "/doc/etex/base/"
1378                          "/doc/man/man1/etex.1"
1379                          "/doc/man/man1/etex.man1.pdf"
1380                          "/tex/plain/etex/"
1381                          "/fonts/source/public/etex/")
1382                    (base32
1383                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1384                    #:trivial? #t)))
1385     (package
1386       (inherit template)
1387       (arguments
1388        (substitute-keyword-arguments (package-arguments template)
1389          ((#:phases phases)
1390           `(modify-phases ,phases
1391              ;; Build tfm font.
1392              (replace 'build
1393                (lambda* (#:key inputs #:allow-other-keys)
1394                  (let ((mf (assoc-ref inputs "texlive-metafont")))
1395                    ;; Tell mf where to find mf.base
1396                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1397                    ;; Tell mf where to look for source files
1398                    (setenv "MFINPUTS"
1399                            (string-append (getcwd)
1400                                           "/fonts/source/public/etex/:"
1401                                           mf "/share/texmf-dist/metafont/base:"
1402                                           (assoc-ref inputs "texlive-cm")
1403                                           "/share/texmf-dist/fonts/source/public/cm")))
1404                  (invoke "mf" "-progname=mf"
1405                          (string-append "\\"
1406                                         "mode:=ljfour; "
1407                                         "mag:=1; "
1408                                         "scrollmode; "
1409                                         "input xbmc10"))
1410                  #t))
1411              (add-after 'install 'install-font
1412                (lambda* (#:key outputs #:allow-other-keys)
1413                  (install-file
1414                   "xbmc10.tfm"
1415                   (string-append (assoc-ref outputs "out")
1416                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1417                  #t))))))
1418       (native-inputs
1419        `(("texlive-bin" ,texlive-bin)
1420          ("texlive-metafont" ,texlive-metafont)
1421          ("texlive-cm" ,texlive-cm)))
1422       (home-page "https://www.ctan.org/pkg/etex")
1423       (synopsis "Extended version of TeX")
1424       (description
1425        "This package provides an extended version of TeX (which is capable of
1426 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1427 team as the engine for the development of LaTeX2e; as a result, LaTeX
1428 programmers may assume e-TeX functionality.  The pdftex engine directly
1429 incorporates the e-TeX extensions.")
1430       (license license:knuth))))
1431
1432 (define-public texlive-tex-plain
1433   (package
1434     (inherit (simple-texlive-package
1435               "texlive-tex-plain"
1436               (list "/tex/plain/")
1437               (base32
1438                "1qryji08shim7fwjfcm0rcb0m5pwagjv1ahpr3xkfg8mkj160nrg")
1439               #:trivial? #t))
1440     (home-page "https://www.ctan.org/pkg/plain")
1441     (synopsis "Plain TeX format and supporting files")
1442     (description
1443      "This package contains files used to build the Plain TeX format, as
1444 described in the TeXbook, together with various supporting files (some also
1445 discussed in the book).")
1446     (license license:knuth)))
1447
1448 (define-public texlive-helvetic
1449   (package
1450     (inherit (simple-texlive-package
1451               "texlive-helvetic"
1452               (list "/dvips/helvetic/"
1453                     "/fonts/afm/adobe/helvetic/"
1454                     "/fonts/afm/urw/helvetic/"
1455                     "/fonts/map/dvips/helvetic/"
1456                     "/fonts/tfm/adobe/helvetic/"
1457                     "/fonts/tfm/monotype/helvetic/"
1458                     "/fonts/tfm/urw35vf/helvetic/"
1459                     "/fonts/type1/urw/helvetic/"
1460                     "/fonts/vf/adobe/helvetic/"
1461                     "/fonts/vf/monotype/helvetic/"
1462                     "/fonts/vf/urw35vf/helvetic/"
1463                     "/tex/latex/helvetic/")
1464               (base32
1465                "0c3f1ly7y6404z0akbfbbfql13sz717v0n0g69qjpr69hi4n0nsl")
1466               #:trivial? #t))
1467     (home-page "https://ctan.org/pkg/urw-base35")
1468     (synopsis "URW Base 35 font pack for LaTeX")
1469     (description "This package provides a drop-in replacements for the Helvetica
1470 font from Adobe's basic set.")
1471     ;; No license version specified.
1472     (license license:gpl3+)))
1473
1474 (define-public texlive-hyphen-afrikaans
1475   (package
1476     (inherit (texlive-hyphen-package
1477               "texlive-hyphen-afrikaans" "af"
1478               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1479               (base32
1480                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1481     (synopsis "Hyphenation patterns for Afrikaans")
1482     (description "The package provides hyphenation patterns for the Afrikaans
1483 language.")
1484     (license license:lppl1.3+)))
1485
1486 (define-public texlive-hyphen-ancientgreek
1487   (package
1488     (inherit (texlive-hyphen-package
1489               "texlive-hyphen-ancientgreek" "grc"
1490               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1491                     "/tex/generic/hyphen/grahyph5.tex"
1492                     "/tex/generic/hyphen/ibyhyph.tex")
1493               (base32
1494                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1495     (synopsis "Hyphenation patterns for ancient Greek")
1496     (description "The package provides hyphenation patterns for ancient
1497 Greek.")
1498     (license license:lppl1.3+)))
1499
1500 (define-public texlive-hyphen-armenian
1501   (let ((template (texlive-hyphen-package
1502                    "texlive-hyphen-armenian" "hy"
1503                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1504                    (base32
1505                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1506     (package
1507       (inherit template)
1508       (synopsis "Hyphenation patterns for Armenian")
1509       (description "The package provides hyphenation patterns for the Armenian
1510 language.")
1511       ;; Any version of the LGPL.
1512       (license license:lgpl3+))))
1513
1514 (define-public texlive-hyphen-basque
1515   (let ((template (texlive-hyphen-package
1516                     "texlive-hyphen-basque" "eu"
1517                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1518                     (base32
1519                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1520     (package
1521       (inherit template)
1522       (synopsis "Hyphenation patterns for Basque")
1523       (description "The package provides hyphenation patterns for the Basque
1524 language.")
1525       ;; Similar to Unicode license.
1526       (license (license:fsf-free
1527                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1528
1529 (define-public texlive-hyphen-belarusian
1530   (package
1531     (inherit (texlive-hyphen-package
1532               "texlive-hyphen-belarusian" "be"
1533               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1534               (base32
1535                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1536     (synopsis "Hyphenation patterns for Belarusian")
1537     (description "The package provides hyphenation patterns for the Belarusian
1538 language.")
1539     (license license:expat)))
1540
1541 (define-public texlive-hyphen-bulgarian
1542   (package
1543     (inherit (texlive-hyphen-package
1544               "texlive-hyphen-bulgarian" "bg"
1545               '("/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1546               (base32
1547                "0m254y71j3qrb71klvfalfmic3kjy31l85b9cgpdm5yznlsq3i8d")))
1548     (synopsis "Hyphenation patterns for Bulgarian")
1549     (description "The package provides hyphenation patterns for the Bulgarian
1550 language in T2A and UTF-8 encodings.")
1551     (license (license:non-copyleft
1552               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1553               "Ancestral BSD variant"))))
1554
1555 (define-public texlive-hyphen-catalan
1556   (package
1557     (inherit (texlive-hyphen-package
1558               "texlive-hyphen-catalan" "ca"
1559               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1560               (base32
1561                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1562     (synopsis "Hyphenation patterns for Catalan")
1563     (description "The package provides hyphenation patterns for Catalan in
1564 T1/EC and UTF-8 encodings.")
1565     (license license:lppl1.0+)))
1566
1567 (define-public texlive-hyphen-chinese
1568   (package
1569     (inherit (texlive-hyphen-package
1570               "texlive-hyphen-chinese" "zh-latn-pinyin"
1571               '("/tex/generic/hyph-utf8/patterns/ptex/hyph-zh-latn-pinyin.ec.tex"
1572                 "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1573               (base32
1574                "1hhh30hcjymm2igpllly04cavsfmd6xrjkd9zax6b2wdxn3ka4pm")))
1575     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1576     (description "The package provides hyphenation patterns for unaccented
1577 Chinese pinyin T1/EC and UTF-8 encodings.")
1578     (license license:gpl2+)))
1579
1580 (define-public texlive-hyphen-churchslavonic
1581   (package
1582     (inherit (texlive-hyphen-package
1583               "texlive-hyphen-churchslavonic" "cu"
1584               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1585               (base32
1586                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1587     (synopsis "Hyphenation patterns for Church Slavonic")
1588     (description "The package provides hyphenation patterns for Church
1589 Slavonic in UTF-8 encoding.")
1590     (license license:expat)))
1591
1592 (define-public texlive-hyphen-coptic
1593   (package
1594     (inherit (texlive-hyphen-package
1595               "texlive-hyphen-coptic" "cop"
1596               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1597                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1598               (base32
1599                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1600     (synopsis "Hyphenation patterns for Coptic")
1601     (description "The package provides hyphenation patterns for Coptic in
1602 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1603     ;; No explicit license declaration, so we use the project license.
1604     (license license:lppl)))
1605
1606 (define-public texlive-hyphen-croatian
1607   (package
1608     (inherit (texlive-hyphen-package
1609               "texlive-hyphen-croatian" "hr"
1610               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1611               (base32
1612                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1613     (synopsis "Hyphenation patterns for Croatian")
1614     (description "The package provides hyphenation patterns for Croatian in
1615 T1/EC and UTF-8 encodings.")
1616     (license license:lppl1.0+)))
1617
1618 (define-public texlive-hyphen-czech
1619   (package
1620     (inherit (texlive-hyphen-package
1621               "texlive-hyphen-czech" "cs"
1622               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1623               (base32
1624                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1625     (synopsis "Hyphenation patterns for Czech")
1626     (description "The package provides hyphenation patterns for Czech in T1/EC
1627 and UTF-8 encodings.")
1628     (license license:gpl2+)))
1629
1630 (define-public texlive-hyphen-danish
1631   (package
1632     (inherit (texlive-hyphen-package
1633               "texlive-hyphen-danish" "da"
1634               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1635               (base32
1636                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1637     (synopsis "Hyphenation patterns for Danish")
1638     (description "The package provides hyphenation patterns for Danish in
1639 T1/EC and UTF-8 encodings.")
1640     ;; Either LPPL 1.3 or later, or Expat
1641     (license (list license:lppl1.3+ license:expat))))
1642
1643 (define-public texlive-hyphen-dutch
1644   (package
1645     (inherit (texlive-hyphen-package
1646               "texlive-hyphen-dutch" "nl"
1647               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1648               (base32
1649                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1650     (synopsis "Hyphenation patterns for Dutch")
1651     (description "The package provides hyphenation patterns for Dutch in T1/EC
1652 and UTF-8 encodings.")
1653     (license license:lppl1.0+)))
1654
1655 (define-public texlive-hyphen-english
1656   (package
1657     (inherit (texlive-hyphen-package
1658               "texlive-hyphen-english" '("en-gb" "en-us")
1659               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1660                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1661               (base32
1662                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1663     (synopsis "Hyphenation patterns for American and British English")
1664     (description "The package provides additional hyphenation patterns for
1665 American and British English in ASCII encoding.")
1666     (license (license:non-copyleft
1667               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1668               "FSF all permissive license"))))
1669
1670 (define-public texlive-hyphen-esperanto
1671   (package
1672     (inherit (texlive-hyphen-package
1673               "texlive-hyphen-esperanto" "eo"
1674               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1675               (base32
1676                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1677     (synopsis "Hyphenation patterns for Esperanto")
1678     (description "The package provides hyphenation patterns for Esperanto ISO
1679 Latin 3 and UTF-8 encodings.")
1680     (license license:lppl1.0+)))
1681
1682 (define-public texlive-hyphen-estonian
1683   (package
1684     (inherit (texlive-hyphen-package
1685               "texlive-hyphen-estonian" "et"
1686               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1687               (base32
1688                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1689     (synopsis "Hyphenation patterns for Estonian")
1690     (description "The package provides hyphenation patterns for Estonian in
1691 T1/EC and UTF-8 encodings.")
1692     ;; Dual licensed under either license.
1693     (license (list license:lppl1.3+ license:expat))))
1694
1695 (define-public texlive-hyphen-ethiopic
1696   (let ((template (texlive-hyphen-package
1697                    "texlive-hyphen-ethiopic" "mul-ethi"
1698                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1699                    (base32
1700                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1701     (package
1702       (inherit template)
1703       (synopsis "Hyphenation patterns for Ethiopic scripts")
1704       (description "The package provides hyphenation patterns for languages
1705 written using the Ethiopic script for Unicode engines.  They are not supposed
1706 to be linguistically relevant in all cases and should, for proper typography,
1707 be replaced by files tailored to individual languages.")
1708       (license license:expat))))
1709
1710 (define-public texlive-hyphen-finnish
1711   (package
1712     (inherit (texlive-hyphen-package
1713               "texlive-hyphen-finnish" "fi"
1714               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1715               (base32
1716                "1f72b4ydb4zddvw2i004948khmwzigxkdkwfym5v1kkq0183sfpj")))
1717     (synopsis "Hyphenation patterns for Finnish")
1718     (description "The package provides hyphenation patterns for Finnish in
1719 T1/EC and UTF-8 encodings.")
1720     (license license:public-domain)))
1721
1722 (define-public texlive-hyphen-french
1723   (package
1724     (inherit (texlive-hyphen-package
1725               "texlive-hyphen-french" "fr"
1726               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1727               (base32
1728                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1729     (synopsis "Hyphenation patterns for French")
1730     (description "The package provides hyphenation patterns for French in
1731 T1/EC and UTF-8 encodings.")
1732     (license license:expat)))
1733
1734 (define-public texlive-hyphen-friulan
1735   (package
1736     (inherit (texlive-hyphen-package
1737               "texlive-hyphen-friulan" "fur"
1738               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1739               (base32
1740                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1741     (synopsis "Hyphenation patterns for Friulan")
1742     (description "The package provides hyphenation patterns for Friulan in
1743 ASCII encodings.")
1744     (license license:lppl1.3+)))
1745
1746 (define-public texlive-hyphen-galician
1747   (let ((template (texlive-hyphen-package
1748                    "texlive-hyphen-galician" "gl"
1749                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1750                    (base32
1751                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1752     (package
1753       (inherit template)
1754       (synopsis "Hyphenation patterns for Galician")
1755       (description "The package provides hyphenation patterns for Galician in
1756 T1/EC and UTF-8 encodings.")
1757       (license license:lppl1.3))))
1758
1759 (define-public texlive-hyphen-georgian
1760   (package
1761     (inherit (texlive-hyphen-package
1762               "texlive-hyphen-georgian" "ka"
1763               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1764               (base32
1765                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1766     (synopsis "Hyphenation patterns for Georgian")
1767     (description "The package provides hyphenation patterns for Georgian in
1768 T8M, T8K, and UTF-8 encodings.")
1769     (license license:lppl1.3+)))
1770
1771 (define-public texlive-hyphen-german
1772   (package
1773     (inherit (texlive-hyphen-package
1774               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1775               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1776                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1777                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1778                     "/tex/generic/dehyph/dehyphn.tex"
1779                     "/tex/generic/dehyph/dehypht.tex"
1780                     "/tex/generic/dehyph/dehyphtex.tex"
1781                     "/tex/generic/dehyph/README")
1782               (base32
1783                "0wp5by5kkf4ac6li5mbppqzw11500wa7f22p5vpz3m1kwd15zavw")))
1784     (synopsis "Hyphenation patterns for German")
1785     (description "This package provides hyphenation patterns for German in
1786 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1787 Swiss German.")
1788     ;; The patterns are released under the Expat license; the dehyph* files
1789     ;; are released under the LPPL version 1 or later.
1790     (license (list license:expat license:lppl1.0+))))
1791
1792 (define-public texlive-hyphen-greek
1793   (package
1794     (inherit (texlive-hyphen-package
1795               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1796               (list "/doc/generic/elhyphen/"
1797                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1798                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1799                     "/tex/generic/hyphen/grmhyph5.tex"
1800                     "/tex/generic/hyphen/grphyph5.tex")
1801               (base32
1802                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1803     (synopsis "Hyphenation patterns for Greek")
1804     (description "This package provides hyphenation patterns for Modern Greek
1805 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1806     (license license:lppl)))
1807
1808 (define-public texlive-hyphen-hungarian
1809   (package
1810     (inherit (texlive-hyphen-package
1811               "texlive-hyphen-hungarian" "hu"
1812               (list "/doc/generic/huhyphen/"
1813                     "/doc/generic/hyph-utf8/languages/hu/"
1814                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1815               (base32
1816                "006d2290lcsqzh9ljansbaj9k52s17zgkw0kpsspn5l7a8n00zcl")))
1817     (synopsis "Hyphenation patterns for Hungarian")
1818     (description "This package provides hyphenation patterns for Hungarian in
1819 T1/EC and UTF-8 encodings.")
1820     ;; Any of these licenses
1821     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1822
1823 (define-public texlive-hyphen-icelandic
1824   (package
1825     (inherit (texlive-hyphen-package
1826               "texlive-hyphen-icelandic" "is"
1827               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1828               (base32
1829                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1830     (synopsis "Hyphenation patterns for Icelandic")
1831     (description "This package provides hyphenation patterns for Icelandic in
1832 T1/EC and UTF-8 encodings.")
1833     (license license:lppl1.2+)))
1834
1835 (define-public texlive-hyphen-indic
1836   (package
1837     (inherit (texlive-hyphen-package
1838               "texlive-hyphen-indic"
1839               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
1840               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
1841                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
1842                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
1843                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
1844                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
1845                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
1846                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
1847                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
1848                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
1849                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
1850                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
1851               (base32
1852                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
1853     (synopsis "Indic hyphenation patterns")
1854     (description "This package provides hyphenation patterns for Assamese,
1855 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
1856 and Telugu for Unicode engines.")
1857     (license license:expat)))
1858
1859 (define-public texlive-hyphen-indonesian
1860   (package
1861     (inherit (texlive-hyphen-package
1862               "texlive-hyphen-indonesian" "id"
1863               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
1864               (base32
1865                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
1866     (synopsis "Indonesian hyphenation patterns")
1867     (description "This package provides hyphenation patterns for
1868 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
1869 usable for Malay (Bahasa Melayu).")
1870     (license license:gpl2)))
1871
1872 (define-public texlive-hyphen-interlingua
1873   (package
1874     (inherit (texlive-hyphen-package
1875               "texlive-hyphen-interlingua" "ia"
1876               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
1877               (base32
1878                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
1879     (synopsis "Interlingua hyphenation patterns")
1880     (description "This package provides hyphenation patterns for Interlingua
1881 in ASCII encoding.")
1882     (license license:lppl1.3+)))
1883
1884 (define-public texlive-hyphen-irish
1885   (package
1886     (inherit (texlive-hyphen-package
1887               "texlive-hyphen-irish" "ga"
1888               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
1889               (base32
1890                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
1891     (synopsis "Irish hyphenation patterns")
1892     (description "This package provides hyphenation patterns for
1893 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
1894     ;; Either of these licenses
1895     (license (list license:gpl2+ license:expat))))
1896
1897 (define-public texlive-hyphen-italian
1898   (package
1899     (inherit (texlive-hyphen-package
1900               "texlive-hyphen-italian" "it"
1901               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
1902               (base32
1903                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
1904     (synopsis "Italian hyphenation patterns")
1905     (description "This package provides hyphenation patterns for Italian in
1906 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
1907 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
1908 UNI).")
1909     (license license:lppl1.3+)))
1910
1911 (define-public texlive-hyphen-kurmanji
1912   (package
1913     (inherit (texlive-hyphen-package
1914               "texlive-hyphen-kurmanji" "kmr"
1915               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
1916               (base32
1917                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
1918     (synopsis "Kurmanji hyphenation patterns")
1919     (description "This package provides hyphenation patterns for
1920 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
1921 Europe, in T1/EC and UTF-8 encodings.")
1922     (license license:lppl1.3)))
1923
1924 (define-public texlive-hyphen-latin
1925   (package
1926     (inherit (texlive-hyphen-package
1927               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
1928               '("/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
1929                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
1930                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex"
1931                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-la-x-classic.ec.tex")
1932               (base32
1933                "119rf6sk1f639ky6zr9njn21nsxzgfmjci94y26745qs8w08ilkl")))
1934     (synopsis "Liturgical Latin hyphenation patterns")
1935     (description "This package provides hyphenation patterns for Latin in
1936 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
1937 when v is needed), medieval spelling with the ligatures @code{\\ae} and
1938 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
1939 Apparently there is no conflict between the patterns of modern Latin and those
1940 of medieval Latin.  It also includes hyphenation patterns for the Classical
1941 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
1942 different from those of 'plain' Latin, the latter being more adapted to modern
1943 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
1944 T1/EC and UTF-8 encodings.")
1945     ;; Either of these licenses
1946     (license (list license:lppl1.0+ license:expat))))
1947
1948 (define-public texlive-hyphen-latvian
1949   (package
1950     (inherit (texlive-hyphen-package
1951               "texlive-hyphen-latvian" "lv"
1952               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
1953               (base32
1954                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
1955     (synopsis "Latvian hyphenation patterns")
1956     (description "This package provides hyphenation patterns for Latvian in
1957 L7X and UTF-8 encodings.")
1958     ;; Either of these licenses.
1959     (license (list license:gpl2 license:lgpl2.1))))
1960
1961 (define-public texlive-hyphen-lithuanian
1962   (package
1963     (inherit (texlive-hyphen-package
1964               "texlive-hyphen-lithuanian" "lt"
1965               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
1966               (base32
1967                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
1968     (synopsis "Lithuanian hyphenation patterns")
1969     (description "This package provides hyphenation patterns for Lithuanian in
1970 L7X and UTF-8 encodings.")
1971     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
1972     ;; the hyph-utf8 package we choose the LPPL license.
1973     (license license:lppl)))
1974
1975 (define-public texlive-hyphen-macedonian
1976   (package
1977     (inherit (texlive-hyphen-package
1978               "texlive-hyphen-macedonian" "mk"
1979               '("/tex/generic/hyph-utf8/patterns/tex/hyph-mk.tex")
1980               (base32
1981                "01w4cv8jm9q2gijys7cd7s6lfycdpgw9m26yxicc14ywbpi4ij3i")))
1982     (synopsis "Macedonian hyphenation patterns")
1983     (description "This package provides hypenation patterns for Macedonian.")
1984     ;; XXX: License just says 'GPL'.  Assume GPL2 since the file predates GPL3.
1985     (license license:gpl2+)))
1986
1987 (define-public texlive-hyphen-mongolian
1988   (package
1989     (inherit (texlive-hyphen-package
1990               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
1991               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
1992                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
1993               (base32
1994                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
1995     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
1996     (description "This package provides hyphenation patterns for Mongolian in
1997 T2A, LMC and UTF-8 encodings.")
1998     ;; Either of these licenses
1999     (license (list license:lppl1.3+ license:expat))))
2000
2001 (define-public texlive-hyphen-norwegian
2002   (package
2003     (inherit (texlive-hyphen-package
2004               "texlive-hyphen-norwegian" '("nb" "nn" "no")
2005               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
2006                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
2007                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
2008               (base32
2009                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
2010     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
2011     (description "This package provides hyphenation patterns for Norwegian
2012 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
2013     (license (license:non-copyleft
2014               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
2015               "FSF All permissive license"))))
2016
2017 (define-public texlive-hyphen-occitan
2018   (package
2019     (inherit (texlive-hyphen-package
2020               "texlive-hyphen-occitan" "oc"
2021               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
2022               (base32
2023                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
2024     (synopsis "Occitan hyphenation patterns")
2025     (description "This package provides hyphenation patterns for Occitan in
2026 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
2027 variants spoken and written in the wide area called 'Occitanie' by the French.
2028 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
2029 Alps encompassing the southern half of the French pentagon.")
2030     (license license:lppl1.0+)))
2031
2032 (define-public texlive-hyphen-pali
2033   (package
2034     (inherit (texlive-hyphen-package
2035               "texlive-hyphen-pali" "pi"
2036               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
2037               (base32
2038                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
2039     (synopsis "Panjabi hyphenation patterns")
2040     (description "This package provides hyphenation patterns for Panjabi in
2041 T1/EC encoding.")
2042     ;; Can be used with either license.
2043     (license (list license:expat license:lgpl3+ license:gpl3+))))
2044
2045 (define-public texlive-hyphen-piedmontese
2046   (package
2047     (inherit (texlive-hyphen-package
2048               "texlive-hyphen-piedmontese" "pms"
2049               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
2050               (base32
2051                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
2052     (synopsis "Piedmontese hyphenation patterns")
2053     (description "This package provides hyphenation patterns for Piedmontese
2054 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
2055 Camillo Brero.")
2056     (license license:lppl1.3+)))
2057
2058 (define-public texlive-hyphen-polish
2059   (package
2060     (inherit (texlive-hyphen-package
2061               "texlive-hyphen-polish" "pl"
2062               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
2063               (base32
2064                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
2065     (synopsis "Polish hyphenation patterns")
2066     (description "This package provides hyphenation patterns for Polish in QX
2067 and UTF-8 encodings.")
2068     ;; No differing license declared, so we choose the project license.
2069     (license license:lppl)))
2070
2071 (define-public texlive-hyphen-portuguese
2072   (package
2073     (inherit (texlive-hyphen-package
2074               "texlive-hyphen-portuguese" "pt"
2075               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
2076               (base32
2077                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
2078     (synopsis "Portuguese hyphenation patterns")
2079     (description "This package provides hyphenation patterns for Portuguese in
2080 T1/EC and UTF-8 encodings.")
2081     (license license:bsd-3)))
2082
2083 (define-public texlive-hyphen-romanian
2084   (package
2085     (inherit (texlive-hyphen-package
2086               "texlive-hyphen-romanian" "ro"
2087               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
2088               (base32
2089                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
2090     (synopsis "Romanian hyphenation patterns")
2091     (description "This package provides hyphenation patterns for Romanian in
2092 T1/EC and UTF-8 encodings.")
2093     ;; No differing license declared, so we choose the project license.
2094     (license license:lppl)))
2095
2096 (define-public texlive-hyphen-romansh
2097   (package
2098     (inherit (texlive-hyphen-package
2099               "texlive-hyphen-romansh" "rm"
2100               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
2101               (base32
2102                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
2103     (synopsis "Romansh hyphenation patterns")
2104     (description "This package provides hyphenation patterns for Romansh in
2105 ASCII encodings.  They are supposed to comply with the rules indicated by the
2106 Lia Rumantscha (Romansh language society).")
2107     (license license:lppl1.3+)))
2108
2109 (define-public texlive-hyphen-russian
2110   (package
2111     (inherit (texlive-hyphen-package
2112               "texlive-hyphen-russian" "ru"
2113               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
2114               (base32
2115                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
2116     (synopsis "Russian hyphenation patterns")
2117     (description "This package provides hyphenation patterns for Russian in
2118 T2A and UTF-8 encodings.")
2119     (license license:lppl1.2+)))
2120
2121 (define-public texlive-hyphen-sanskrit
2122   (package
2123     (inherit (texlive-hyphen-package
2124               "texlive-hyphen-sanskrit" "sa"
2125               (list "/doc/generic/hyph-utf8/languages/sa/hyphenmin.txt"
2126                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
2127               (base32
2128                "1bkzj8swj4lbswf1vr4pb1jg6dixzs7p8h8zm8s8as52h442aida")))
2129     (synopsis "Sanskrit hyphenation patterns")
2130     (description "This package provides hyphenation patterns for Sanskrit and
2131 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
2132 Malayalam longdesc and Telugu scripts for Unicode engines.")
2133     ;; "You may freely use, copy, modify and/or distribute this file."
2134     (license (license:non-copyleft
2135               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
2136
2137 (define-public texlive-hyphen-serbian
2138   (package
2139     (inherit (texlive-hyphen-package
2140               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
2141               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
2142                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
2143                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
2144               (base32
2145                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
2146     (synopsis "Serbian hyphenation patterns")
2147     (description "This package provides hyphenation patterns for Serbian in
2148 T1/EC, T2A and UTF-8 encodings.")
2149     ;; Any version of the GPL.
2150     (license license:gpl3+)))
2151
2152 (define-public texlive-hyphen-slovak
2153   (package
2154     (inherit (texlive-hyphen-package
2155               "texlive-hyphen-slovak" "sk"
2156               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
2157               (base32
2158                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
2159     (synopsis "Slovak hyphenation patterns")
2160     (description "This package provides hyphenation patterns for Slovak in
2161 T1/EC and UTF-8 encodings.")
2162     (license license:gpl2+)))
2163
2164 (define-public texlive-hyphen-slovenian
2165   (package
2166     (inherit (texlive-hyphen-package
2167               "texlive-hyphen-slovenian" "sl"
2168               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
2169               (base32
2170                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
2171     (synopsis "Slovenian hyphenation patterns")
2172     (description "This package provides hyphenation patterns for Slovenian in
2173 T1/EC and UTF-8 encodings.")
2174     ;; Either license
2175     (license (list license:lppl1.0+ license:expat))))
2176
2177 (define-public texlive-hyphen-spanish
2178   (package
2179     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
2180     ;; generate obsolete hyphenation patterns, which aren't included in a
2181     ;; default TeX Live distribution, so we don't include them either.
2182     (inherit (texlive-hyphen-package
2183               "texlive-hyphen-spanish" "es"
2184               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
2185               (base32
2186                "05lbvjkj304xxghyihk8js0kmg97ddlgijld3bp81bc28h4cav0v")))
2187     (synopsis "Hyphenation patterns for Spanish")
2188     (description "The package provides hyphenation patterns for Spanish in
2189 T1/EC and UTF-8 encodings.")
2190     (license license:expat)))
2191
2192 (define-public texlive-hyphen-swedish
2193   (package
2194     (inherit (texlive-hyphen-package
2195               "texlive-hyphen-swedish" "sv"
2196               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2197               (base32
2198                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2199     (synopsis "Swedish hyphenation patterns")
2200     (description "This package provides hyphenation patterns for Swedish in
2201 T1/EC and UTF-8 encodings.")
2202     (license license:lppl1.2+)))
2203
2204 (define-public texlive-hyphen-thai
2205   (package
2206     (inherit (texlive-hyphen-package
2207               "texlive-hyphen-thai" "th"
2208               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2209               (base32
2210                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2211     (synopsis "Thai hyphenation patterns")
2212     (description "This package provides hyphenation patterns for Thai in LTH
2213 and UTF-8 encodings.")
2214     (license license:lppl1.3+)))
2215
2216 (define-public texlive-hyphen-turkish
2217   (let ((template (texlive-hyphen-package
2218                    "texlive-hyphen-turkish" "tr"
2219                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2220                    (base32
2221                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2222     (package
2223       (inherit template)
2224       (synopsis "Hyphenation patterns for Turkish")
2225       (description "The package provides hyphenation patterns for Turkish in
2226 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2227 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2228 and Ottoman Turkish in Latin script, however the required character set didn't
2229 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2230 compatibility with 8-bit engines.")
2231       (license license:lppl1.0+))))
2232
2233 (define-public texlive-hyphen-turkmen
2234   (let ((template (texlive-hyphen-package
2235                    "texlive-hyphen-turkmen" "tk"
2236                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2237                    (base32
2238                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2239     (package
2240       (inherit template)
2241       (synopsis "Hyphenation patterns for Turkmen")
2242       (description "The package provides hyphenation patterns for Turkmen in
2243 T1/EC and UTF-8 encodings.")
2244       (license license:expat))))
2245
2246 (define-public texlive-hyphen-ukrainian
2247   (package
2248     (inherit (texlive-hyphen-package
2249               "texlive-hyphen-ukrainian" "uk"
2250               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2251               (base32
2252                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2253     (synopsis "Ukrainian hyphenation patterns")
2254     (description "This package provides hyphenation patterns for Ukrainian in
2255 T2A and UTF-8 encodings.")
2256     ;; No version specified
2257     (license license:lppl)))
2258
2259 (define-public texlive-hyphen-uppersorbian
2260   (package
2261     (inherit (texlive-hyphen-package
2262               "texlive-hyphen-uppersorbian" "hsb"
2263               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2264               (base32
2265                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2266     (synopsis "Upper Sorbian hyphenation patterns")
2267     (description "This package provides hyphenation patterns for Upper Sorbian
2268 in T1/EC and UTF-8 encodings.")
2269     (license license:lppl1.3a+)))
2270
2271 (define-public texlive-hyphen-welsh
2272   (package
2273     (inherit (texlive-hyphen-package
2274               "texlive-hyphen-welsh" "cy"
2275               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2276               (base32
2277                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2278     (synopsis "Welsh hyphenation patterns")
2279     (description "This package provides hyphenation patterns for Welsh in
2280 T1/EC and UTF-8 encodings.")
2281     ;; Either license
2282     (license (list license:lppl1.0+ license:expat))))
2283
2284 (define-public texlive-hyph-utf8
2285   (package
2286     (inherit (simple-texlive-package
2287               "texlive-hyph-utf8"
2288               (list "/source/generic/hyph-utf8/"
2289                     "/source/luatex/hyph-utf8/"
2290                     "/doc/luatex/hyph-utf8/"
2291                     "/tex/luatex/hyph-utf8/etex.src"
2292                     ;; Used to extract luatex-hyphen.lua
2293                     "/tex/latex/base/docstrip.tex"
2294
2295                     ;; Documentation; we can't use the whole directory because
2296                     ;; it includes files from other packages.
2297                     "/doc/generic/hyph-utf8/CHANGES"
2298                     "/doc/generic/hyph-utf8/HISTORY"
2299                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2300                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2301                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2302                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2303                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2304                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2305               (base32
2306                "1v6f59r1fcp7pk7ddskqdzl7hzbszsxd04mfd3xznv8fc73iv72l")))
2307     (outputs '("out" "doc"))
2308     (build-system gnu-build-system)
2309     (arguments
2310      `(#:tests? #f ; there are none
2311        #:modules ((guix build gnu-build-system)
2312                   (guix build utils)
2313                   (ice-9 match))
2314        #:make-flags
2315        (list "-C" "source/luatex/hyph-utf8/"
2316              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2317              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2318              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2319              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2320              (string-append "UNPACKED = $(NAME).lua"))
2321        #:phases
2322        (modify-phases %standard-phases
2323          ;; TeX isn't usable at this point, so we first need to generate the
2324          ;; tex.fmt.
2325          (replace 'configure
2326            (lambda* (#:key inputs outputs #:allow-other-keys)
2327              ;; Target directories must exist.
2328              (mkdir-p (string-append (assoc-ref %outputs "out")
2329                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2330              (mkdir-p (string-append (assoc-ref %outputs "doc")
2331                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2332
2333              ;; We cannot build the documentation because that requires a
2334              ;; fully functional pdflatex, which depends on this package.
2335              (substitute* "source/luatex/hyph-utf8/Makefile"
2336                (("all: .*") "all: $(RUNFILES)\n"))
2337
2338              ;; Find required fonts for building tex.fmt
2339              (setenv "TFMFONTS"
2340                      (string-append (assoc-ref inputs "texlive-cm")
2341                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2342                                     (assoc-ref inputs "texlive-knuth-lib")
2343                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2344              ;; ...and find all tex files in this environment.
2345              (setenv "TEXINPUTS"
2346                      (string-append
2347                       (getcwd) ":"
2348                       (string-join
2349                        (map (match-lambda ((_ . dir) dir)) inputs)
2350                        "//:")))
2351
2352              ;; Generate tex.fmt.
2353              (let ((where "source/luatex/hyph-utf8"))
2354                (mkdir-p where)
2355                (with-directory-excursion where
2356                  (invoke "tex" "-ini"
2357                          (string-append (assoc-ref inputs "texlive-tex-plain")
2358                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2359          (add-before 'build 'build-loaders-and-converters
2360            (lambda* (#:key outputs #:allow-other-keys)
2361              (let* ((root (string-append (assoc-ref outputs "out")
2362                                          "/share/texmf-dist"))
2363                     (conv
2364                      (string-append root
2365                                     "/tex/generic/hyph-utf8/conversions")))
2366
2367                ;; Build converters
2368                (mkdir-p conv)
2369                (with-directory-excursion "source/generic/hyph-utf8"
2370                  (substitute* "generate-converters.rb"
2371                    (("\\$path_root=File.*")
2372                     (string-append "$path_root=\"" root "\"\n"))
2373                    ;; Avoid error with newer Ruby.
2374                    (("#1\\{%") "#1{%%"))
2375                  (invoke "ruby" "generate-converters.rb"))
2376                #t)))
2377          (replace 'install
2378            (lambda* (#:key source outputs #:allow-other-keys)
2379              (let ((doc (assoc-ref outputs "doc"))
2380                    (out (assoc-ref outputs "out")))
2381                (mkdir-p doc)
2382                (copy-recursively
2383                 (string-append source "/doc")
2384                 (string-append doc "/doc"))
2385                (install-file
2386                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2387                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2388              #t)))))
2389     (native-inputs
2390      `(("ruby" ,ruby)
2391        ("texlive-bin" ,texlive-bin)
2392        ;; The following packages are needed for build "tex.fmt", which we need
2393        ;; for a working "tex".
2394        ("texlive-tex-plain" ,texlive-tex-plain)
2395        ("texlive-cm" ,texlive-cm)
2396        ("texlive-knuth-lib" ,texlive-knuth-lib)
2397        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2398     (home-page "https://ctan.org/pkg/hyph-utf8")
2399     (synopsis "Hyphenation patterns expressed in UTF-8")
2400     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2401 hyphenation patterns in UTF-8 format, whereas older systems require
2402 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2403 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2404 etc).  The present package offers a collection of conversions of existing
2405 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2406 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2407 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2408 converters, will completely supplant the older patterns.")
2409     ;; Individual files each have their own license.  Most of these files are
2410     ;; independent hyphenation patterns.
2411     (license (list license:lppl1.0+
2412                    license:lppl1.2+
2413                    license:lppl1.3
2414                    license:lppl1.3+
2415                    license:lppl1.3a+
2416                    license:lgpl2.1
2417                    license:lgpl2.1+
2418                    license:lgpl3+
2419                    license:gpl2+
2420                    license:gpl3+
2421                    license:mpl1.1
2422                    license:asl2.0
2423                    license:expat
2424                    license:bsd-3
2425                    license:cc0
2426                    license:public-domain
2427                    license:wtfpl2))))
2428
2429 (define-public texlive-generic-hyph-utf8
2430   (deprecated-package "texlive-generic-hyph-utf8" texlive-hyph-utf8))
2431
2432 (define-public texlive-dehyph-exptl
2433   (package
2434     (inherit (simple-texlive-package
2435               "texlive-dehyph-exptl"
2436               (list "/tex/generic/dehyph-exptl/"
2437                     "/doc/generic/dehyph-exptl/")
2438               (base32
2439                "1fnqc63gz8gvdyfz45bx8dxn1r1rwrypahs3bqd2vlc8ff76xp86")
2440               #:trivial? #t))
2441     (propagated-inputs
2442      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2443        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2444     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2445     (synopsis "Hyphenation patterns for German")
2446     (description "The package provides experimental hyphenation patterns for
2447 the German language, covering both traditional and reformed orthography.  The
2448 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2449 bundle.")
2450     ;; Hyphenation patterns are under the Expat license; documentation is
2451     ;; under LPPL.
2452     (license (list license:expat license:lppl))))
2453
2454 (define-public texlive-generic-dehyph-exptl
2455   (deprecated-package "texlive-generic-dehyph-exptl" texlive-dehyph-exptl))
2456
2457 (define-public texlive-ukrhyph
2458   (package
2459     (inherit (simple-texlive-package
2460               "texlive-ukrhyph"
2461               (list "/doc/generic/ukrhyph/"
2462                     "/tex/generic/ukrhyph/")
2463               (base32
2464                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2465               #:trivial? #t))
2466     (home-page "https://www.ctan.org/pkg/ukrhyph")
2467     (synopsis "Hyphenation patterns for Ukrainian")
2468     (description "The package provides a range of hyphenation patterns for
2469 Ukrainian, depending on the encoding of the output font including the standard
2470 T2A.")
2471     (license license:lppl)))
2472
2473 (define-public texlive-ruhyphen
2474   (let ((template (simple-texlive-package
2475                    "texlive-ruhyphen"
2476                    (list "/source/generic/ruhyphen/"
2477                          "/tex/generic/ruhyphen/")
2478                    (base32
2479                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2480                    #:trivial? #t)))
2481     (package
2482       (inherit template)
2483       (arguments
2484        (substitute-keyword-arguments (package-arguments template)
2485          ((#:phases phases)
2486           `(modify-phases ,phases
2487              (replace 'build
2488                (lambda _
2489                  (let ((cwd (getcwd)))
2490                    ;; Remove generated files.
2491                    (for-each delete-file
2492                              (find-files "tex/generic/ruhyphen/"
2493                                          "^cyry.*.tex$"))
2494                    (substitute* "source/generic/ruhyphen/Makefile"
2495                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2496                    (with-directory-excursion "tex/generic/ruhyphen"
2497                      (invoke "make" "-f"
2498                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2499       (native-inputs
2500        `(("coreutils" ,coreutils)
2501          ("gawk" ,gawk)
2502          ("sed" ,sed)
2503          ("grep" ,grep)
2504          ("perl" ,perl)))
2505       (home-page "https://www.ctan.org/pkg/ruhyphen")
2506       (synopsis "Hyphenation patterns for Russian")
2507       (description "The package provides a collection of Russian hyphenation
2508 patterns supporting a number of Cyrillic font encodings, including T2,
2509 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2510       (license license:lppl))))
2511
2512 (define-public texlive-kpathsea
2513   (package
2514     (inherit (simple-texlive-package
2515               "texlive-kpathsea"
2516               (list "/web2c/amiga-pl.tcx"
2517                     "/web2c/cp1250cs.tcx"
2518                     "/web2c/cp1250pl.tcx"
2519                     "/web2c/cp1250t1.tcx"
2520                     "/web2c/cp227.tcx"
2521                     "/web2c/cp852-cs.tcx"
2522                     "/web2c/cp852-pl.tcx"
2523                     "/web2c/cp8bit.tcx"
2524                     "/web2c/empty.tcx"
2525                     "/web2c/fmtutil.cnf"
2526                     "/web2c/il1-t1.tcx"
2527                     "/web2c/il2-cs.tcx"
2528                     "/web2c/il2-pl.tcx"
2529                     "/web2c/il2-t1.tcx"
2530                     "/web2c/kam-cs.tcx"
2531                     "/web2c/kam-t1.tcx"
2532                     "/web2c/macce-pl.tcx"
2533                     "/web2c/macce-t1.tcx"
2534                     "/web2c/maz-pl.tcx"
2535                     "/web2c/mktex.cnf"
2536                     "/web2c/mktex.opt"
2537                     "/web2c/mktexdir"
2538                     "/web2c/mktexdir.opt"
2539                     "/web2c/mktexnam"
2540                     "/web2c/mktexnam.opt"
2541                     "/web2c/mktexupd"
2542                     "/web2c/natural.tcx"
2543                     "/web2c/tcvn-t5.tcx"
2544                     "/web2c/viscii-t5.tcx")
2545               (base32
2546                "1prvxq211hqfss1bhiykazqfcy298lsz3x8lbmbyrh9c8grnj4ip")
2547               #:trivial? #t))
2548     (home-page "https://www.tug.org/texlive/")
2549     (synopsis "Files related to the path searching library for TeX")
2550     (description "Kpathsea is a library and utility programs which provide
2551 path searching facilities for TeX file types, including the self-locating
2552 feature required for movable installations, layered on top of a general search
2553 mechanism.  This package provides supporting files.")
2554     (license license:lgpl3+)))
2555
2556 (define-public texlive-latexconfig
2557   (package
2558     (inherit (simple-texlive-package
2559               "texlive-latexconfig"
2560               (list "/tex/latex/latexconfig/")
2561               (base32
2562                "10ynmd8b9b9l1wl1mva23yz4zir53p6r5z31s39wmxz19pj12qvx")
2563               #:trivial? #t))
2564     (home-page "https://www.tug.org/")
2565     (synopsis "Configuration files for LaTeX-related formats")
2566     (description "The package provides configuration files for LaTeX-related
2567 formats.")
2568     (license license:lppl)))
2569
2570 (define-public texlive-latex-base
2571   (let ((template (simple-texlive-package
2572                    "texlive-latex-base"
2573                    (list "/doc/latex/base/"
2574                          "/source/latex/base/"
2575                          ;; Almost all files in /tex/latex/base are generated, but
2576                          ;; these are not:
2577                          "/tex/latex/base/idx.tex"
2578                          "/tex/latex/base/lablst.tex"
2579                          "/tex/latex/base/ltnews.cls"
2580                          "/tex/latex/base/ltxcheck.tex"
2581                          "/tex/latex/base/ltxguide.cls"
2582                          "/tex/latex/base/minimal.cls"
2583                          "/tex/latex/base/sample2e.tex"
2584                          "/tex/latex/base/small2e.tex"
2585                          "/tex/latex/base/testpage.tex"
2586                          "/tex/latex/base/texsys.cfg")
2587                    (base32
2588                     "11bcjmn0n7sv7g6r8v6nxl4x1pw0famqmq0v0pbjyz04akhvfvry")
2589                    #:trivial? #t)))
2590     (package
2591       (inherit template)
2592       (arguments
2593        (substitute-keyword-arguments (package-arguments template)
2594          ((#:modules modules '())
2595           '((guix build gnu-build-system)
2596             (guix build utils)
2597             (ice-9 match)
2598             (srfi srfi-26)))
2599          ((#:phases phases)
2600           `(modify-phases ,phases
2601              ;; The literal tab in the dtx file is translated to the string
2602              ;; "^^I" in the generated Lua file, which causes a syntax error.
2603              (add-after 'unpack 'fix-lua-sources
2604                (lambda _
2605                  (substitute* "source/latex/base/ltluatex.dtx"
2606                    (("  ") "  "))
2607                  #t))
2608              (replace 'build
2609                (lambda* (#:key inputs #:allow-other-keys)
2610                  ;; Find required fonts
2611                  (setenv "TFMFONTS"
2612                          (string-join
2613                           (map (match-lambda
2614                                  ((pkg-name . dir)
2615                                   (string-append
2616                                    (assoc-ref inputs pkg-name)
2617                                    "/share/texmf-dist/fonts/tfm/public"
2618                                    dir)))
2619                                '(("texlive-etex" . "/etex")
2620                                  ("texlive-cm" . "/cm")
2621                                  ("texlive-fonts-latex" . "/latex-fonts")
2622                                  ("texlive-knuth-lib" . "/knuth-lib")))
2623                           ":"))
2624                  (let ((cwd (getcwd)))
2625                    (setenv "TEXINPUTS"
2626                            (string-append
2627                             cwd "//:"
2628                             cwd "/source/latex/base//:"
2629                             cwd "/build:"
2630                             (string-join
2631                              (map (match-lambda ((_ . dir) dir)) inputs)
2632                              "//:"))))
2633
2634                  ;; This is the actual build step.
2635                  (mkdir "build")
2636                  (invoke "tex" "-ini" "-interaction=scrollmode"
2637                          "-output-directory=build" "unpack.ins")
2638
2639                  ;; XXX: We can't build all formats at this point, nor are they
2640                  ;; part of the LaTeX base, so we disable them.  Actually, we
2641                  ;; should be running this all in a profile hook, so that only
2642                  ;; selected formats and hyphenation patterns are included, but it
2643                  ;; takes long and TeX Live isn't designed to be modular like
2644                  ;; that.  Everything operates on a shared directory, which we
2645                  ;; would only have at profile generation time.
2646                  (let ((disabled-formats
2647                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2648                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2649                           "platex-dev eptex" "uplatex-dev euptex"
2650                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2651                           "luacsplain luatex" "optex luatex"
2652                           ,@(if (string-prefix? "powerpc64le"
2653                                                 (or (%current-target-system)
2654                                                     (%current-system)))
2655                               '("luajittex") '())
2656                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2657                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2658                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2659                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2660                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2661                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2662                    (mkdir "web2c")
2663                    (install-file (string-append
2664                                   (assoc-ref inputs "texlive-kpathsea")
2665                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2666                                  "web2c")
2667                    (make-file-writable "web2c/fmtutil.cnf")
2668                    (substitute* "web2c/fmtutil.cnf"
2669                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2670                       (string-append "#! " m))
2671                      (("translate-file=cp227")
2672                       (format #f "translate-file=~a/share/texmf-dist/web2c/cp227"
2673                               (assoc-ref inputs "texlive-kpathsea")))))
2674                  (invoke "fmtutil-sys" "--all"
2675                          "--fmtdir=web2c"
2676                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2677                  ;; We don't actually want to install it.
2678                  (delete-file "web2c/fmtutil.cnf")
2679                  #t))
2680              (add-after 'install 'install-more
2681                (lambda* (#:key inputs outputs #:allow-other-keys)
2682                  (let* ((out (assoc-ref outputs "out"))
2683                         (root (string-append out "/share/texmf-dist"))
2684                         (target (string-append root "/tex/latex/base"))
2685                         (web2c (string-append root "/web2c"))
2686                         (makeindex (string-append root "/makeindex/latex")))
2687                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2688
2689                    ;; The usedir directive in docstrip.ins is ignored, so these
2690                    ;; two files end up in the wrong place.  Move them.
2691                    (mkdir-p makeindex)
2692                    (for-each (lambda (file)
2693                                (install-file file makeindex)
2694                                (delete-file file))
2695                              '("build/gglo.ist"
2696                                "build/gind.ist"))
2697                    (for-each (cut install-file <> target)
2698                              (find-files "build" ".*"))
2699                    (for-each (cut install-file <> web2c)
2700                              (find-files "web2c" ".*"))
2701                    #t)))))))
2702       (native-inputs
2703        `(("texlive-bin" ,texlive-bin)
2704          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2705          ("texlive-tex-plain" ,texlive-tex-plain)
2706          ("texlive-kpathsea" ,texlive-kpathsea)
2707          ("texlive-cm" ,texlive-cm)
2708          ("texlive-fonts-latex" ,texlive-fonts-latex)
2709          ("texlive-knuth-lib" ,texlive-knuth-lib)
2710          ("texlive-luatexconfig"
2711           ,(texlive-origin
2712             "texlive-luatexconfig" (number->string %texlive-revision)
2713             (list "/tex/generic/config/luatex-unicode-letters.tex"
2714                   "/tex/generic/config/luatexiniconfig.tex"
2715                   "/web2c/texmfcnf.lua")
2716             (base32
2717              "0pk0ckwd5p58nqmhlajhbgxynym25jmhv48xm5ns540r996k0g2r")))))
2718       (propagated-inputs
2719        `(("texlive-dehyph-exptl" ,texlive-dehyph-exptl)
2720          ("texlive-etex" ,texlive-etex)
2721          ("texlive-hyph-utf8" ,texlive-hyph-utf8)
2722          ("texlive-hyphen-base" ,texlive-hyphen-base)
2723          ("texlive-hyphen-afrikaans" ,texlive-hyphen-afrikaans)
2724          ("texlive-hyphen-ancientgreek" ,texlive-hyphen-ancientgreek)
2725          ("texlive-hyphen-armenian" ,texlive-hyphen-armenian)
2726          ("texlive-hyphen-basque" ,texlive-hyphen-basque)
2727          ("texlive-hyphen-belarusian" ,texlive-hyphen-belarusian)
2728          ("texlive-hyphen-bulgarian" ,texlive-hyphen-bulgarian)
2729          ("texlive-hyphen-catalan" ,texlive-hyphen-catalan)
2730          ("texlive-hyphen-chinese" ,texlive-hyphen-chinese)
2731          ("texlive-hyphen-churchslavonic" ,texlive-hyphen-churchslavonic)
2732          ("texlive-hyphen-coptic" ,texlive-hyphen-coptic)
2733          ("texlive-hyphen-croatian" ,texlive-hyphen-croatian)
2734          ("texlive-hyphen-czech" ,texlive-hyphen-czech)
2735          ("texlive-hyphen-danish" ,texlive-hyphen-danish)
2736          ("texlive-hyphen-dutch" ,texlive-hyphen-dutch)
2737          ("texlive-hyphen-english" ,texlive-hyphen-english)
2738          ("texlive-hyphen-esperanto" ,texlive-hyphen-esperanto)
2739          ("texlive-hyphen-estonian" ,texlive-hyphen-estonian)
2740          ("texlive-hyphen-ethiopic" ,texlive-hyphen-ethiopic)
2741          ("texlive-hyphen-finnish" ,texlive-hyphen-finnish)
2742          ("texlive-hyphen-french" ,texlive-hyphen-french)
2743          ("texlive-hyphen-friulan" ,texlive-hyphen-friulan)
2744          ("texlive-hyphen-galician" ,texlive-hyphen-galician)
2745          ("texlive-hyphen-georgian" ,texlive-hyphen-georgian)
2746          ("texlive-hyphen-german" ,texlive-hyphen-german)
2747          ("texlive-hyphen-greek" ,texlive-hyphen-greek)
2748          ("texlive-hyphen-hungarian" ,texlive-hyphen-hungarian)
2749          ("texlive-hyphen-icelandic" ,texlive-hyphen-icelandic)
2750          ("texlive-hyphen-indic" ,texlive-hyphen-indic)
2751          ("texlive-hyphen-indonesian" ,texlive-hyphen-indonesian)
2752          ("texlive-hyphen-interlingua" ,texlive-hyphen-interlingua)
2753          ("texlive-hyphen-irish" ,texlive-hyphen-irish)
2754          ("texlive-hyphen-italian" ,texlive-hyphen-italian)
2755          ("texlive-hyphen-kurmanji" ,texlive-hyphen-kurmanji)
2756          ("texlive-hyphen-latin" ,texlive-hyphen-latin)
2757          ("texlive-hyphen-latvian" ,texlive-hyphen-latvian)
2758          ("texlive-hyphen-lithuanian" ,texlive-hyphen-lithuanian)
2759          ("texlive-hyphen-macedonian" ,texlive-hyphen-macedonian)
2760          ("texlive-hyphen-mongolian" ,texlive-hyphen-mongolian)
2761          ("texlive-hyphen-norwegian" ,texlive-hyphen-norwegian)
2762          ("texlive-hyphen-occitan" ,texlive-hyphen-occitan)
2763          ("texlive-hyphen-pali" ,texlive-hyphen-pali)
2764          ("texlive-hyphen-piedmontese" ,texlive-hyphen-piedmontese)
2765          ("texlive-hyphen-polish" ,texlive-hyphen-polish)
2766          ("texlive-hyphen-portuguese" ,texlive-hyphen-portuguese)
2767          ("texlive-hyphen-romanian" ,texlive-hyphen-romanian)
2768          ("texlive-hyphen-romansh" ,texlive-hyphen-romansh)
2769          ("texlive-hyphen-russian" ,texlive-hyphen-russian)
2770          ("texlive-hyphen-sanskrit" ,texlive-hyphen-sanskrit)
2771          ("texlive-hyphen-serbian" ,texlive-hyphen-serbian)
2772          ("texlive-hyphen-slovak" ,texlive-hyphen-slovak)
2773          ("texlive-hyphen-slovenian" ,texlive-hyphen-slovenian)
2774          ("texlive-hyphen-spanish" ,texlive-hyphen-spanish)
2775          ("texlive-hyphen-swedish" ,texlive-hyphen-swedish)
2776          ("texlive-hyphen-thai" ,texlive-hyphen-thai)
2777          ("texlive-hyphen-turkish" ,texlive-hyphen-turkish)
2778          ("texlive-hyphen-turkmen" ,texlive-hyphen-turkmen)
2779          ("texlive-hyphen-ukrainian" ,texlive-hyphen-ukrainian)
2780          ("texlive-hyphen-uppersorbian" ,texlive-hyphen-uppersorbian)
2781          ("texlive-hyphen-welsh" ,texlive-hyphen-welsh)
2782          ("texlive-unicode-data" ,texlive-unicode-data)
2783          ("texlive-ukrhyph" ,texlive-ukrhyph)
2784          ("texlive-ruhyphen" ,texlive-ruhyphen)
2785          ("texlive-latexconfig" ,texlive-latexconfig)))
2786       (home-page "https://www.ctan.org/pkg/latex-base")
2787       (synopsis "Base sources of LaTeX")
2788       (description
2789        "This bundle comprises the source of LaTeX itself, together with several
2790 packages which are considered \"part of the kernel\".  This bundle, together
2791 with the required packages, constitutes what every LaTeX distribution should
2792 contain.")
2793       (license license:lppl1.3c+))))
2794
2795 (define-public texlive-latex-atveryend
2796   (package
2797     (inherit (simple-texlive-package
2798               "texlive-latex-atveryend"
2799               '("/doc/latex/atveryend/README.md"
2800                 "/tex/latex/atveryend/")
2801               (base32
2802                "1gz5ssxjlqa53a8blsmdk2qjahzc910ldh26xjxfxgqnqb03rqx7")
2803               #:trivial? #t))
2804     (home-page "https://www.ctan.org/pkg/atveryend")
2805     (synopsis "Hooks at the very end of a document")
2806     (description
2807      "This LaTeX packages provides two hooks for @code{\\end@{document@}
2808 that are executed after the hook of @code{\\AtEndDocument}:
2809 @code{\\AfterLastShipout} can be used for code that is to be executed right
2810 after the last @code{\\clearpage} before the @file{.aux} file is closed.
2811 @code{\\AtVeryEndDocument} is used for code after closing and final reading
2812 of the @file{.aux} file.")
2813     (license license:lppl1.3c+)))
2814
2815 (define-public texlive-latex-auxhook
2816   (package
2817     (inherit (simple-texlive-package
2818               "texlive-latex-auxhook"
2819               '("/doc/latex/auxhook/README.md"
2820                 "/tex/latex/auxhook/")
2821               (base32
2822                "1xh445shr00rh43nnz03xh8k2mdrxgsr03lllqpgvwhm6yzsydkf")
2823               #:trivial? #t))
2824     (home-page "https://www.ctan.org/pkg/auxhook")
2825     (synopsis "Hooks for auxiliary files")
2826     (description
2827      "This package provides hooks for adding code at the beginning of
2828 @file{.aux} files.")
2829     (license license:lppl1.3c+)))
2830
2831 (define-public texlive-latex-epstopdf-pkg
2832   (package
2833     (inherit (simple-texlive-package
2834               "texlive-latex-epstopdf-pkg"
2835               '("/doc/latex/epstopdf-pkg/"
2836                 "/tex/latex/epstopdf-pkg/")
2837               (base32
2838                "0zl6jiyp2cvvyqx3lwxdkcvvnkqgbwj4issq07cagf61gljq6fns")
2839               #:trivial? #t))
2840     (home-page "https://www.ctan.org/pkg/epstopdf-pkg")
2841     (synopsis "Call @command{epstopdf} \"on the fly\"")
2842     (description
2843      "The package adds support for EPS files in the @code{graphicx} package
2844 when running under pdfTeX.  If an EPS graphic is detected, the package
2845 spawns a process to convert the EPS to PDF, using the script
2846 @command{epstopdf}.")
2847     (license license:lppl1.3c+)))
2848
2849 (define-public texlive-latex-filecontents
2850   (package
2851     (name "texlive-latex-filecontents")
2852     (version (number->string %texlive-revision))
2853     (source (origin
2854               (method svn-fetch)
2855               (uri (texlive-ref "latex" "filecontents"))
2856               (file-name (string-append name "-" version "-checkout"))
2857               (sha256
2858                (base32
2859                 "1cmfigg5jx3hmdyh4gv8kwxi7dg076ldkxmr46s05xvhzjig1z9x"))))
2860     (build-system texlive-build-system)
2861     (arguments '(#:tex-directory "latex/filecontents"))
2862     (home-page "https://www.ctan.org/pkg/filecontents")
2863     (synopsis "Extended filecontents and filecontents* environments")
2864     (description
2865      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2866 enable a LaTeX source file to generate external files as it runs through
2867 LaTeX.  However, there are two limitations of these environments: they refuse
2868 to overwrite existing files, and they can only be used in the preamble of a
2869 document.  The filecontents package removes these limitations, letting you
2870 overwrite existing files and letting you use @code{filecontents} /
2871 @code{filecontents*} anywhere.")
2872     (license license:lppl1.3c+)))
2873
2874 (define-public texlive-epsf
2875   (package
2876     (inherit (simple-texlive-package
2877               "texlive-epsf"
2878               (list "/doc/generic/epsf/"
2879                     "/tex/generic/epsf/")
2880               (base32
2881                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
2882               #:trivial? #t))
2883     (home-page "https://www.ctan.org/pkg/epsf")
2884     (synopsis "Simple macros for EPS inclusion")
2885     (description
2886      "This package provides the original (and now obsolescent) graphics
2887 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2888 particular).  For LaTeX users, the package is nowadays (rather strongly)
2889 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2890 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2891 users, via its Plain TeX version.)")
2892     (license license:public-domain)))
2893
2894 (define-public texlive-generic-epsf
2895   (deprecated-package "texlive-generic-epsf" texlive-epsf))
2896
2897 (define-public texlive-latex-fancyvrb
2898   (package
2899     (inherit (simple-texlive-package
2900               "texlive-latex-fancyvrb"
2901               (list "/doc/latex/fancyvrb/README"
2902                     "/tex/latex/fancyvrb/")
2903               (base32
2904                "005ylzlysmvy21rwkbnrf0hnp5bmsjsj11hydg1d9dnq9ffv2s1h")
2905               #:trivial? #t))
2906     (home-page "https://www.ctan.org/pkg/fancyvrb")
2907     (synopsis "Sophisticated verbatim text")
2908     (description
2909      "This package provides tools for the flexible handling of verbatim text
2910 including: verbatim commands in footnotes; a variety of verbatim environments
2911 with many parameters; ability to define new customized verbatim environments;
2912 save and restore verbatim text and environments; write and read files in
2913 verbatim mode; build \"example\" environments (showing both result and
2914 verbatim source).")
2915     (license license:lppl1.0+)))
2916
2917 (define-public texlive-graphics-def
2918   (package
2919     (inherit (simple-texlive-package
2920               "texlive-graphics-def"
2921               (list "/doc/latex/graphics-def/README.md"
2922                     "/tex/latex/graphics-def/")
2923               (base32
2924                "125lm2m9813p29yl7am21kgqdpigyqvrjarg73jpaczifbbbqklf")
2925               #:trivial? #t))
2926     (home-page "https://www.ctan.org/pkg/latex-graphics")
2927     (synopsis "Color and graphics option files")
2928     (description
2929      "This bundle is a combined distribution consisting of @file{dvips.def},
2930 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
2931 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
2932 packages.")
2933     (license license:lppl1.3c+)))
2934
2935 (define-public texlive-graphics-cfg
2936   (package
2937     (inherit (simple-texlive-package
2938               "texlive-graphics-cfg"
2939               (list "/doc/latex/graphics-cfg/README.md"
2940                     "/tex/latex/graphics-cfg/")
2941               (base32
2942                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
2943               #:trivial? #t))
2944     (home-page "https://www.ctan.org/pkg/latex-graphics")
2945     (synopsis "Sample configuration files for LaTeX color and graphics")
2946     (description
2947      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
2948 set default \"driver\" options for the color and graphics packages.")
2949     (license license:public-domain)))
2950
2951 (define-public texlive-latex-graphics
2952   (package
2953     (name "texlive-latex-graphics")
2954     (version (number->string %texlive-revision))
2955     (source (origin
2956               (method svn-fetch)
2957               (uri (texlive-ref "latex" "graphics"))
2958               (file-name (string-append name "-" version "-checkout"))
2959               (sha256
2960                (base32
2961                 "0asln498brkd1miyhc7029fjx7gcj6vbbas5aan6w289ac4yz54h"))))
2962     (build-system texlive-build-system)
2963     (arguments '(#:tex-directory "latex/graphics"))
2964     (propagated-inputs
2965      `(("texlive-graphics-cfg" ,texlive-graphics-cfg)
2966        ("texlive-graphics-def" ,texlive-graphics-def)))
2967     (home-page "https://www.ctan.org/pkg/latex-graphics")
2968     (synopsis "LaTeX standard graphics bundle")
2969     (description
2970      "This is a collection of LaTeX packages for producing color, including
2971 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
2972 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
2973 keyval, and lscape.")
2974     (license license:lppl1.3c+)))
2975
2976 (define-public texlive-latex-hycolor
2977   (package
2978     (inherit (simple-texlive-package
2979               "texlive-latex-hycolor"
2980               (list "/doc/latex/hycolor/README.md"
2981                     "/tex/latex/hycolor/")
2982               (base32
2983                "026lfb4l7b3q8g6zc68siqandhb1x98cbycn7njknqva6s99aiqn")
2984               #:trivial? #t))
2985     (home-page "https://www.ctan.org/pkg/latex-graphics")
2986     (synopsis "Color for hyperref and bookmark")
2987     (description
2988      "This package provides the code for the @code{color} option that is
2989 used by @code{hyperref} and @code{bookmark}.")
2990     (license license:lppl1.3c+)))
2991
2992 (define-public texlive-xcolor
2993   (let ((template (simple-texlive-package
2994                    "texlive-xcolor"
2995                    (list "/doc/latex/xcolor/"
2996                          "/source/latex/xcolor/")
2997                    (base32
2998                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
2999     (package
3000       (inherit template)
3001       (arguments
3002        (substitute-keyword-arguments (package-arguments template)
3003          ((#:tex-directory _ #t)
3004           "latex/xcolor")
3005          ((#:phases phases)
3006           `(modify-phases ,phases
3007              (add-after 'unpack 'chdir
3008                (lambda _ (chdir "source/latex/xcolor") #t))
3009              (add-after 'install 'move-files
3010                (lambda* (#:key outputs #:allow-other-keys)
3011                  (let ((share (string-append (assoc-ref outputs "out")
3012                                              "/share/texmf-dist")))
3013                    (mkdir-p (string-append share "/dvips/xcolor"))
3014                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
3015                                 (string-append share "/dvips/xcolor/xcolor.pro"))
3016                    #t)))))))
3017       (home-page "https://www.ctan.org/pkg/xcolor")
3018       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
3019       (description
3020        "The package starts from the basic facilities of the colorcolor package,
3021 and provides easy driver-independent access to several kinds of color tints,
3022 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
3023 document-wide target color model and offers complete tools for conversion
3024 between eight color models.  Additionally, there is a command for alternating
3025 row colors plus repeated non-aligned material (like horizontal lines) in
3026 tables.")
3027       (license license:lppl1.2+))))
3028
3029 (define-public texlive-latex-xcolor
3030   (deprecated-package "texlive-latex-xcolor" texlive-xcolor))
3031
3032 (define-public texlive-xmltex
3033   (let ((template (simple-texlive-package
3034                    "texlive-xmltex"
3035                    (list
3036                     "/doc/otherformats/xmltex/"
3037                     "/tex/xmltex/")
3038                    (base32
3039                     "023gv9axq05vwqz50fnkig24dzahwlc4raks2s8xc4pzrv2dv1zy"))))
3040     (package
3041       (inherit template)
3042       (arguments
3043        (substitute-keyword-arguments (package-arguments template)
3044          ((#:tex-directory _ #t)
3045           "tex/xmltex/base")
3046          ((#:phases phases '%standard-phases)
3047           `(modify-phases ,phases
3048              (add-before 'install 'generate-formats
3049                (lambda* (#:key inputs #:allow-other-keys)
3050                  (mkdir "web2c")
3051                  (for-each (lambda (f)
3052                              (copy-file f (basename f)))
3053                            (find-files "tex" "\\.(ini|tex)$"))
3054                  (invoke "fmtutil-sys" "--byfmt" "xmltex"
3055                          "--fmtdir=web2c")
3056                  (invoke "fmtutil-sys" "--byfmt" "pdfxmltex"
3057                          "--fmtdir=web2c")))
3058              (add-after 'install 'install-formats-and-wrappers
3059                (lambda* (#:key inputs outputs #:allow-other-keys)
3060                  (let* ((out (assoc-ref outputs "out"))
3061                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3062                         (pdftex (string-append texlive-bin "/bin/pdftex"))
3063                         (web2c (string-append out "/share/texmf-dist/web2c")))
3064                    (mkdir-p web2c)
3065                    (copy-recursively "web2c" web2c)
3066                    ;; Create convenience command wrappers.
3067                    (mkdir-p (string-append out "/bin"))
3068                    (symlink pdftex (string-append out "/bin/xmltex"))
3069                    (symlink pdftex (string-append out "/bin/pdfxmltex"))
3070                    #t)))))))
3071       (propagated-inputs
3072        ;; The following fonts are propagated as a texlive-updmap.cfg as the font
3073        ;; maps need to be recreated for the fonts to be usable.  They are
3074        ;; required by xmltex through mlnames.sty and unicode.sty.
3075        `(("texlive" ,(texlive-updmap.cfg
3076                       (list
3077                        texlive-amsfonts
3078                        texlive-babel
3079                        texlive-courier
3080                        texlive-helvetic
3081                        texlive-hyperref
3082                        texlive-symbol
3083                        texlive-tipa
3084                        texlive-times
3085                        texlive-zapfding
3086                        ;; The following fonts, while not required, are used if
3087                        ;; available:
3088                        texlive-stmaryrd
3089                        texlive-wasy)))))
3090       (native-inputs
3091        `(("texlive-tex-ini-files" ,texlive-tex-ini-files)))
3092       (home-page "https://www.ctan.org/pkg/xmltex/")
3093       (synopsis "Support for parsing XML documents")
3094       (description "The package provides an implementation of a parser for
3095 documents matching the XML 1.0 and XML Namespace Recommendations.  Element and
3096 attribute names, as well as character data, may use any characters allowed in
3097 XML, using UTF-8 or a suitable 8-bit encoding.")
3098       (license license:lppl1.0+))))        ;per xmltex/base/readme.txt
3099
3100 (define-public texlive-hyperref
3101   (let ((template (simple-texlive-package
3102                    "texlive-hyperref"
3103                    (list "/doc/latex/hyperref/"
3104                          "/source/latex/hyperref/"
3105                          ;; These files are not generated from the sources
3106                          "/tex/latex/hyperref/minitoc-hyper.sty"
3107                          "/tex/latex/hyperref/ntheorem-hyper.sty"
3108                          "/tex/latex/hyperref/xr-hyper.sty")
3109                    (base32
3110                     "1d9myrrwf9zr62j5vp9q4drxs7rj4b06wq04imrnzban5s4gaq6v"))))
3111     (package
3112       (inherit template)
3113       (arguments
3114        (substitute-keyword-arguments (package-arguments template)
3115          ((#:tex-directory _ #t)
3116           "latex/hyperref")
3117          ((#:phases phases)
3118           `(modify-phases ,phases
3119              (add-after 'unpack 'chdir
3120                (lambda _ (chdir "source/latex/hyperref") #t))))))
3121       (propagated-inputs
3122        `(("texlive-oberdiek" ,texlive-oberdiek) ; for ltxcmds.sty
3123          ("texlive-latex-url" ,texlive-latex-url)))
3124       (home-page "https://www.ctan.org/pkg/hyperref")
3125       (synopsis "Extensive support for hypertext in LaTeX")
3126       (description
3127        "The @code{hyperref} package is used to handle cross-referencing commands
3128 in LaTeX to produce hypertext links in the document.  The package provides
3129 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
3130 embedded @code{pdfmark} commands for processing by Acrobat
3131 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
3132 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
3133 pdf and HTML backends.  The package is distributed with the @code{backref} and
3134 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
3135       (license license:lppl1.3+))))
3136
3137 (define-public texlive-latex-hyperref
3138   (deprecated-package "texlive-latex-hyperref" texlive-hyperref))
3139
3140 (define-public texlive-oberdiek
3141   (package
3142     (name "texlive-oberdiek")
3143     (version (number->string %texlive-revision))
3144     (source (origin
3145               (method svn-fetch)
3146               (uri (texlive-ref "latex" "oberdiek"))
3147               (file-name (string-append name "-" version "-checkout"))
3148               (sha256
3149                (base32
3150                 "1ff6yjchdmn7lyllfrnxygjr2ipkrjbb1rs5iyryn47rc3r8mpmk"))))
3151     (build-system texlive-build-system)
3152     (arguments
3153      '(#:tex-directory "latex/oberdiek"
3154        #:build-targets '("oberdiek.ins")
3155        #:phases
3156        (modify-phases %standard-phases
3157          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
3158          (add-after 'unpack 'do-not-process-ifpdf.ins
3159            (lambda _
3160              (substitute* "oberdiek.ins"
3161                (("ifpdf.ins") "ifpdf.dtx"))
3162              #t)))))
3163     (propagated-inputs
3164      `(("texlive-generic-iftex" ,texlive-generic-iftex)))
3165     (home-page "https://www.ctan.org/pkg/oberdiek")
3166     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
3167     (description
3168      "The bundle comprises various LaTeX packages, providing among others:
3169 better accessibility support for PDF files; extensible chemists reaction
3170 arrows; record information about document class(es) used; and many more.")
3171     (license license:lppl1.3+)))
3172
3173 (define-public texlive-latex-oberdiek
3174   (deprecated-package "texlive-latex-oberdiek" texlive-oberdiek))
3175
3176 (define-public texlive-latex-tools
3177   (package
3178     (name "texlive-latex-tools")
3179     (version (number->string %texlive-revision))
3180     (source (origin
3181               (method svn-fetch)
3182               (uri (texlive-ref "latex" "tools"))
3183               (file-name (string-append name "-" version "-checkout"))
3184               (sha256
3185                (base32
3186                 "1p92bg1wdlg28m7xbdipx8rxavvpbmsx8zy845bk2rdqhc9gbhkl"))))
3187     (build-system texlive-build-system)
3188     (arguments
3189      '(#:tex-directory "latex/tools"
3190        #:build-targets '("tools.ins")))
3191     (home-page "https://www.ctan.org/pkg/latex-tools")
3192     (synopsis "LaTeX standard tools bundle")
3193     (description
3194      "This package is a collection of (variously) simple tools provided as
3195 part of the LaTeX required tools distribution, comprising the following
3196 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
3197 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
3198 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
3199 xr, and xspace.")
3200     (license license:lppl1.3+)))
3201
3202 (define-public texlive-url
3203   (package
3204     (inherit (simple-texlive-package
3205               "texlive-url"
3206               (list "/doc/latex/url/"
3207                     "/tex/latex/url/")
3208               (base32
3209                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
3210               #:trivial? #t))
3211     (home-page "https://www.ctan.org/pkg/url")
3212     (synopsis "Verbatim with URL-sensitive line breaks")
3213     (description "The command @code{\\url} is a form of verbatim command that
3214 allows linebreaks at certain characters or combinations of characters, accepts
3215 reconfiguration, and can usually be used in the argument to another command.
3216 The command is intended for email addresses, hypertext links,
3217 directories/paths, etc., which normally have no spaces, so by default the
3218 package ignores spaces in its argument.  However, a package option allows
3219 spaces, which is useful for operating systems where spaces are a common part
3220 of file names.")
3221     ;; The license header states that it is under LPPL version 2 or later, but
3222     ;; the latest version is 1.3c.
3223     (license license:lppl1.3c+)))
3224
3225 (define-public texlive-latex-url
3226   (deprecated-package "texlive-latex-url" texlive-url))
3227
3228 (define-public texlive-tetex
3229   (package
3230     (inherit (simple-texlive-package
3231               "texlive-tetex"
3232               (list "/dvips/tetex/"
3233                     "/fonts/enc/dvips/tetex/"
3234                     "/fonts/map/dvips/tetex/")
3235               (base32
3236                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
3237               #:trivial? #t))
3238     (home-page "https://www.ctan.org/pkg/tetex")
3239     (synopsis "Font maps originally from teTeX")
3240     (description "This package provides font maps that were originally part of
3241 the now obsolete teTeX distributions but are still used at the core of the TeX
3242 Live distribution.")
3243     (license license:public-domain)))
3244
3245 (define-public texlive-latex-l3kernel
3246   (package
3247     (name "texlive-latex-l3kernel")
3248     (version (number->string %texlive-revision))
3249     (source (origin
3250               (method svn-fetch)
3251               (uri (texlive-ref "latex" "l3kernel"))
3252               (file-name (string-append name "-" version "-checkout"))
3253               (sha256
3254                (base32
3255                 "0w82d5a4d3rc950ms6ymj4mpw5ndz6qs5x53szcfgzgjxsns9l4w"))))
3256     (build-system texlive-build-system)
3257     (arguments
3258      '(#:tex-directory "latex/l3kernel"))
3259     (home-page "https://www.ctan.org/pkg/l3kernel")
3260     (synopsis "LaTeX3 programmers’ interface")
3261     (description
3262      "The l3kernel bundle provides an implementation of the LaTeX3
3263 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
3264 interface provides the foundation on which the LaTeX3 kernel and other future
3265 code are built: it is an API for TeX programmers.  The packages are set up so
3266 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
3267     (license license:lppl1.3c+)))
3268
3269 (define-public texlive-latex-l3packages
3270   (package
3271     (name "texlive-latex-l3packages")
3272     (version (number->string %texlive-revision))
3273     (source (origin
3274               (method svn-fetch)
3275               (uri (texlive-ref "latex" "l3packages"))
3276               (file-name (string-append name "-" version "-checkout"))
3277               (sha256
3278                (base32
3279                 "15m3ly55gj8hk5xrkpw5bkj0ddwkk4v7qxa6sl3rkymdka1xl3cc"))))
3280     (build-system texlive-build-system)
3281     (arguments
3282      '(#:tex-directory "latex/l3packages"
3283        ;; build-targets must be specified manually since they are in
3284        ;; sub-directories.
3285        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
3286        #:phases
3287        (modify-phases %standard-phases
3288          ;; All package sources are in sub-directories, so we need to add them
3289          ;; to TEXINPUTS.
3290          (add-after 'unpack 'set-TEXINPUTS
3291            (lambda _
3292              (let ((cwd (getcwd)))
3293                (setenv "TEXINPUTS"
3294                        (string-append cwd "/l3keys2e:"
3295                                       cwd "/xparse:"
3296                                       cwd "/xfrac:"
3297                                       cwd "/xfp:"
3298                                       cwd "/xtemplate"
3299                                       ;; The terminating ":" is required to include the
3300                                       ;; l3kernel input as well.
3301                                       ":")))
3302              #t)))
3303        ))
3304     (propagated-inputs
3305      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
3306     (home-page "https://www.ctan.org/pkg/l3packages")
3307     (synopsis "High-level LaTeX3 concepts")
3308     (description
3309      "This bundle holds prototype implementations of concepts for a LaTeX
3310 designer interface, to be used with the experimental LaTeX kernel as
3311 programming tools and kernel support.  Packages provided in this release are:
3312
3313 @enumerate
3314 @item l3keys2e, which makes the facilities of the kernel module l3keys
3315   available for use by LaTeX 2e packages;
3316 @item xfrac, which provides flexible splitlevel fractions;
3317 @item xparse, which provides a high-level interface for declaring document
3318   commands; and
3319 @item xtemplate, which provides a means of defining generic functions using a
3320   key-value syntax.
3321 @end enumerate\n")
3322     (license license:lppl1.3c+)))
3323
3324 (define-public texlive-fontspec
3325   (let ((template (simple-texlive-package
3326                    "texlive-fontspec"
3327                    (list "/doc/latex/fontspec/"
3328                          "/source/latex/fontspec/"
3329                          "/tex/latex/fontspec/fontspec.cfg")
3330                    (base32
3331                     "06rms8dw1j67v3rgv6xmfykdmgbxi5rp78yxc782cy1sw07blgsg"))))
3332     (package
3333       (inherit template)
3334       (arguments
3335        (substitute-keyword-arguments (package-arguments template)
3336          ((#:tex-directory _ #t)
3337           "latex/fontspec")
3338          ((#:phases phases)
3339           `(modify-phases ,phases
3340              (add-after 'unpack 'chdir
3341                (lambda _ (chdir "source/latex/fontspec/") #t))))))
3342       (propagated-inputs
3343        `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
3344       (home-page "https://www.ctan.org/pkg/fontspec")
3345       (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3346       (description
3347        "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3348 automatic and unified interface to feature-rich AAT and OpenType fonts through
3349 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3350 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3351       (license license:lppl1.3+))))
3352
3353 (define-public texlive-latex-fontspec
3354   (deprecated-package "texlive-latex-fontspec" texlive-fontspec))
3355
3356 (define-public texlive-l3build
3357   (let ((template (simple-texlive-package
3358                    "texlive-l3build"
3359                    (list "/doc/latex/l3build/"
3360                          "/doc/man/man1/l3build.1"
3361                          "/scripts/l3build/"
3362                          "/tex/latex/l3build/"
3363                          ;; TODO: The dtx file builds only the documentation.
3364                          ;; We avoid this for a simpler package definition,
3365                          ;; but it may be possible to exclude
3366                          ;; /doc/latex/l3build and the man page in the future.
3367                          "/source/latex/l3build/")
3368                    (base32
3369                     "0hqb0f5rpj3mfmxfyn8cgxrm1j5ij466a9y23s0xxpmv11ma5i0i")
3370                    #:trivial? #t)))
3371     (package
3372       (inherit template)
3373       (arguments
3374        (substitute-keyword-arguments (package-arguments template)
3375          ((#:phases phases)
3376           `(modify-phases ,phases
3377              (add-after 'install 'patch-shebangs-again
3378                (lambda* (#:key inputs outputs #:allow-other-keys)
3379                  ;; XXX: Since the 'patch-shebangs' phase cannot change the
3380                  ;; original source files patch the shebangs again here.
3381                  (let* ((coreutils (assoc-ref inputs "coreutils"))
3382                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3383                         (path (list (string-append coreutils "/bin")
3384                                     (string-append texlive-bin "/bin"))))
3385                    (for-each (lambda (file)
3386                                (format #t "~a~%" file)
3387                                (patch-shebang file path))
3388                              (find-files (assoc-ref outputs "out")))
3389                    #t)))))))
3390       (inputs
3391        `(("coreutils" ,coreutils)
3392          ("texlive-bin" ,texlive-bin)))
3393       (home-page "https://github.com/latex3/luaotfload")
3394       (synopsis "Testing and building system for LaTeX")
3395       (description
3396        "The l3build module is designed to support the development of
3397 high-quality LaTeX code by providing: a unit testing system, automated
3398 typesetting of code sources, and a reliable packaging system for CTAN
3399 releases.  The bundle consists of a Lua script to run the tasks and a
3400 @code{.tex} file which provides the testing environment.")
3401       (license license:lppl1.3c+))))
3402
3403 ;; The SVN directory contains little more than a dtx file that generates three
3404 ;; of the many lua files that should be installed as part of this package.
3405 ;; This is why we take the release from GitHub instead.
3406 (define-public texlive-luatex-lualibs
3407   (package
3408     (name "texlive-luatex-lualibs")
3409     (version "2.5")
3410     (source (origin
3411               (method url-fetch)
3412               (uri (string-append "https://github.com/lualatex/lualibs/"
3413                                   "releases/download/v"
3414                                   version "/lualibs.zip"))
3415               (file-name (string-append name "-" version ".zip"))
3416               (sha256
3417                (base32
3418                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
3419     (build-system gnu-build-system)
3420     (arguments
3421      `(#:make-flags
3422        (list (string-append "DESTDIR="
3423                             (assoc-ref %outputs "out")
3424                             "/share/texmf-dist"))
3425        #:phases
3426        (modify-phases %standard-phases
3427          (delete 'configure))))
3428     (native-inputs
3429      `(("texlive-bin" ,texlive-bin)
3430        ("unzip" ,unzip)
3431        ("zip" ,zip)))
3432     (home-page "https://github.com/lualatex/lualibs")
3433     (synopsis "Lua modules for general programming (in the (La)TeX world)")
3434     (description
3435      "Lualibs is a collection of Lua modules useful for general programming.
3436 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3437 this bundle for use independent of ConTeXt.")
3438     ;; GPL version 2 only
3439     (license license:gpl2)))
3440
3441 ;; TODO: We should be able to build this from the sources on Github with
3442 ;; texlive-l3build, but I haven't been able to get it to work.
3443 (define-public texlive-luaotfload
3444   (let ((template (simple-texlive-package
3445                    "texlive-luaotfload"
3446                    (list "/doc/luatex/luaotfload/"
3447                          "/doc/man/man1/luaotfload-tool.1"
3448                          "/doc/man/man5/luaotfload.conf.5"
3449                          "/source/luatex/luaotfload/fontloader-reference-load-order.lua"
3450                          "/source/luatex/luaotfload/fontloader-reference-load-order.tex"
3451                          "/scripts/luaotfload/luaotfload-tool.lua"
3452                          "/tex/luatex/luaotfload/")
3453                    (base32
3454                     "0a07m8gckkhzj30rjglj4abpx6pqhl9bx4vq2ak29k0wa3s9rm76")
3455                    #:trivial? #t)))
3456     (package
3457       (inherit template)
3458       (propagated-inputs
3459        `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3460       (home-page "https://github.com/lualatex/luaotfload")
3461       (synopsis "OpenType font loader for LuaTeX")
3462       (description
3463        "Luaotfload is an adaptation of the ConTeXt font loading system for the
3464 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3465 features accessible using an extended font request syntax while providing
3466 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3467 loading fonts by their proper names instead of file names.")
3468       ;; GPL version 2 only
3469       (license license:gpl2))))
3470
3471 (define-public texlive-luatex-luaotfload
3472   (deprecated-package "texlive-luatex-luaotfload" texlive-luaotfload))
3473
3474 (define-public texlive-latex-amsmath
3475   (package
3476     (name "texlive-latex-amsmath")
3477     (version (number->string %texlive-revision))
3478     (source (origin
3479               (method svn-fetch)
3480               (uri (texlive-ref "latex" "amsmath"))
3481               (file-name (string-append name "-" version "-checkout"))
3482               (sha256
3483                (base32
3484                 "1jx4sd35iwcr5qpvnirshp4rdffqq09k6sbmhwxi8kkir4x5hkmc"))))
3485     (build-system texlive-build-system)
3486     (arguments '(#:tex-directory "latex/amsmath"))
3487     (home-page "https://www.ctan.org/pkg/amsmath")
3488     (synopsis "AMS mathematical facilities for LaTeX")
3489     (description
3490      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3491 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3492 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3493 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3494 symbols), @code{amsopnamsopn} (for operator names) and
3495 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3496 This package is part of the LaTeX required distribution; however, several
3497 contributed packages add still further to its appeal; examples are
3498 @code{empheqempheq}, which provides functions for decorating and highlighting
3499 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3500 definitions.")
3501     (license license:lppl1.3c+)))
3502
3503 (define-public texlive-amscls
3504   (let ((template (simple-texlive-package
3505                    "texlive-amscls"
3506                    (list "/doc/latex/amscls/"
3507                          "/source/latex/amscls/"
3508                          "/bibtex/bst/amscls/")
3509                    (base32
3510                     "1mv96i5372257zaciv06n1wwa7v09q0fa9pbq9kck826a0syidvs"))))
3511     (package
3512       (inherit template)
3513       (arguments
3514        (substitute-keyword-arguments (package-arguments template)
3515          ((#:tex-directory _ #t)
3516           "latex/amscls")
3517          ((#:phases phases)
3518           `(modify-phases ,phases
3519              (add-after 'unpack 'chdir
3520                (lambda _ (chdir "source/latex/amscls/") #t))))))
3521       (home-page "https://www.ctan.org/pkg/amscls")
3522       (synopsis "AMS document classes for LaTeX")
3523       (description
3524        "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3525 articles for the AMS), @code{amsbookamsbook} (for books) and
3526 @code{amsprocamsproc} (for proceedings), together with some supporting
3527 material.  The material is made available as part of the AMS-LaTeX
3528 distribution.")
3529       (license license:lppl1.3c+))))
3530
3531 (define-public texlive-latex-amscls
3532   (deprecated-package "texlive-latex-amscls" texlive-amscls))
3533
3534 (define-public texlive-babel
3535   (let ((template (simple-texlive-package
3536                    "texlive-babel"
3537                    (list "/doc/latex/babel/"
3538                          "/source/latex/babel/"
3539                          "/makeindex/babel/")
3540                    (base32
3541                     "0xjj4h48vdb9ydyg13c5jyfi4vm39117c8jv2gjrvjw89h0djbp1"))))
3542     (package
3543       (inherit template)
3544       (arguments
3545        (substitute-keyword-arguments (package-arguments template)
3546          ((#:tex-directory _ #t)
3547           "generic/babel")
3548          ((#:phases phases)
3549           `(modify-phases ,phases
3550              (add-after 'unpack 'chdir
3551                (lambda _ (chdir "source/latex/babel/") #t))
3552              ;; This package tries to produce babel.aux twice but refuses to
3553              ;; overwrite the first one.
3554              (add-before 'build 'fix-ins
3555                (lambda _
3556                  (substitute* "babel.ins"
3557                    (("askonceonly") "askforoverwritefalse"))
3558                  #t))
3559              (add-after 'install 'install-locales
3560                (lambda* (#:key outputs #:allow-other-keys)
3561                  (let ((locale-directory
3562                         (string-append (assoc-ref outputs "out")
3563                                        "/share/texmf-dist/tex/generic/babel/locale/")))
3564                    (mkdir-p locale-directory)
3565                    (invoke "unzip" "locale.zip" "-d"
3566                            locale-directory))))))))
3567       (native-inputs
3568        `(("unzip" ,unzip)))
3569       (home-page "https://www.ctan.org/pkg/babel")
3570       (synopsis "Multilingual support for Plain TeX or LaTeX")
3571       (description
3572        "The package manages culturally-determined typographical (and other)
3573 rules, and hyphenation patterns for a wide range of languages.  A document may
3574 select a single language to be supported, or it may select several, in which
3575 case the document may switch from one language to another in a variety of
3576 ways.  Babel uses contributed configuration files that provide the detail of
3577 what has to be done for each language.  Users of XeTeX are advised to use the
3578 polyglossia package rather than Babel.")
3579       (license license:lppl1.3+))))
3580
3581 (define-public texlive-latex-babel
3582   (deprecated-package "texlive-latex-babel" texlive-babel))
3583
3584 (define-public texlive-generic-babel-english
3585   (package
3586     (name "texlive-generic-babel-english")
3587     (version (number->string %texlive-revision))
3588     (source (origin
3589               (method svn-fetch)
3590               (uri (texlive-ref "generic" "babel-english"))
3591               (file-name (string-append name "-" version "-checkout"))
3592               (sha256
3593                (base32
3594                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3595     (build-system texlive-build-system)
3596     (arguments '(#:tex-directory "generic/babel-english"))
3597     (home-page "https://www.ctan.org/pkg/babel-english")
3598     (synopsis "Babel support for English")
3599     (description
3600      "This package provides the language definition file for support of
3601 English in @code{babel}.  Care is taken to select British hyphenation patterns
3602 for British English and Australian text, and default (\"american\") patterns
3603 for Canadian and USA text.")
3604     (license license:lppl1.3+)))
3605
3606 (define-public texlive-generic-babel-german
3607   (package
3608     (name "texlive-generic-babel-german")
3609     (version (number->string %texlive-revision))
3610     (source (origin
3611               (method svn-fetch)
3612               (uri (texlive-ref "generic" "babel-german"))
3613               (file-name (string-append name "-" version "-checkout"))
3614               (sha256
3615                (base32
3616                 "129f9w41cb6yyrr6kpv3zz9ml6334hyq1wcz7j9jn47p0hlxqfk8"))))
3617     (build-system texlive-build-system)
3618     (arguments '(#:tex-directory "generic/babel-german"))
3619     (home-page "https://www.ctan.org/pkg/babel-german")
3620     (synopsis "Babel support for German")
3621     (description
3622      "This package provides the language definition file for support of German
3623 in @code{babel}.  It provides all the necessary macros, definitions and
3624 settings to typeset German documents.  The bundle includes support for the
3625 traditional and reformed German orthography as well as for the Austrian and
3626 Swiss varieties of German.")
3627     (license license:lppl1.3+)))
3628
3629 (define-public texlive-babel-swedish
3630   (let ((template (simple-texlive-package
3631                    "texlive-babel-swedish"
3632                    (list "/source/generic/babel-swedish/")
3633                    (base32
3634                     "0swdg2l5i7cbcvy4q4xgsnwwnbxiyvs6f5b72kiw7mjn24v27g8f"))))
3635     (package
3636       (inherit template)
3637       (arguments
3638        (substitute-keyword-arguments (package-arguments template)
3639          ((#:tex-directory _ '())
3640           "generic/babel-swedish")
3641          ((#:build-targets _ '())
3642           ''("swedish.ins")) ; TODO: use dtx and build documentation
3643          ((#:phases phases)
3644           `(modify-phases ,phases
3645              (add-after 'unpack 'chdir
3646                (lambda _ (chdir "source/generic/babel-swedish")))))))
3647       (home-page "https://www.ctan.org/pkg/babel-swedish")
3648       (synopsis "Babel support for Swedish")
3649       (description "This package provides the language definition file for
3650 support of Swedish in @code{babel}.  It provides all the necessary macros,
3651 definitions and settings to typeset Swedish documents.")
3652       (license license:lppl1.3c+))))
3653
3654 (define-public texlive-latex-cyrillic
3655   (package
3656     (name "texlive-latex-cyrillic")
3657     (version (number->string %texlive-revision))
3658     (source (origin
3659               (method svn-fetch)
3660               (uri (texlive-ref "latex" "cyrillic"))
3661               (file-name (string-append name "-" version "-checkout"))
3662               (sha256
3663                (base32
3664                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3665     (build-system texlive-build-system)
3666     (arguments
3667      '(#:tex-directory "latex/cyrillic"))
3668     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3669     (synopsis "Support for Cyrillic fonts in LaTeX")
3670     (description
3671      "This bundle of macros files provides macro support (including font
3672 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3673 T2* and X2 encodings. These encodings cover (between them) pretty much every
3674 language that is written in a Cyrillic alphabet.")
3675     (license license:lppl1.3c+)))
3676
3677 (define-public texlive-psnfss
3678   (let ((template (simple-texlive-package
3679                    "texlive-psnfss"
3680                    (list "/doc/latex/psnfss/"
3681                          "/source/latex/psnfss/"
3682                          "/fonts/map/dvips/psnfss/"
3683
3684                          ;; Only the .sty files are generated from the sources.
3685                          "/tex/latex/psnfss/8rbch.fd"
3686                          "/tex/latex/psnfss/8rpag.fd"
3687                          "/tex/latex/psnfss/8rpbk.fd"
3688                          "/tex/latex/psnfss/8rpcr.fd"
3689                          "/tex/latex/psnfss/8rphv.fd"
3690                          "/tex/latex/psnfss/8rpnc.fd"
3691                          "/tex/latex/psnfss/8rppl.fd"
3692                          "/tex/latex/psnfss/8rptm.fd"
3693                          "/tex/latex/psnfss/8rput.fd"
3694                          "/tex/latex/psnfss/8rpzc.fd"
3695                          "/tex/latex/psnfss/omlbch.fd"
3696                          "/tex/latex/psnfss/omlpag.fd"
3697                          "/tex/latex/psnfss/omlpbk.fd"
3698                          "/tex/latex/psnfss/omlpcr.fd"
3699                          "/tex/latex/psnfss/omlphv.fd"
3700                          "/tex/latex/psnfss/omlpnc.fd"
3701                          "/tex/latex/psnfss/omlppl.fd"
3702                          "/tex/latex/psnfss/omlptm.fd"
3703                          "/tex/latex/psnfss/omlptmcm.fd"
3704                          "/tex/latex/psnfss/omlput.fd"
3705                          "/tex/latex/psnfss/omlpzc.fd"
3706                          "/tex/latex/psnfss/omlzplm.fd"
3707                          "/tex/latex/psnfss/omlzpple.fd"
3708                          "/tex/latex/psnfss/omlztmcm.fd"
3709                          "/tex/latex/psnfss/omsbch.fd"
3710                          "/tex/latex/psnfss/omspag.fd"
3711                          "/tex/latex/psnfss/omspbk.fd"
3712                          "/tex/latex/psnfss/omspcr.fd"
3713                          "/tex/latex/psnfss/omsphv.fd"
3714                          "/tex/latex/psnfss/omspnc.fd"
3715                          "/tex/latex/psnfss/omsppl.fd"
3716                          "/tex/latex/psnfss/omsptm.fd"
3717                          "/tex/latex/psnfss/omsput.fd"
3718                          "/tex/latex/psnfss/omspzc.fd"
3719                          "/tex/latex/psnfss/omspzccm.fd"
3720                          "/tex/latex/psnfss/omszplm.fd"
3721                          "/tex/latex/psnfss/omszpple.fd"
3722                          "/tex/latex/psnfss/omsztmcm.fd"
3723                          "/tex/latex/psnfss/omxpsycm.fd"
3724                          "/tex/latex/psnfss/omxzplm.fd"
3725                          "/tex/latex/psnfss/omxzpple.fd"
3726                          "/tex/latex/psnfss/omxztmcm.fd"
3727                          "/tex/latex/psnfss/ot1bch.fd"
3728                          "/tex/latex/psnfss/ot1pag.fd"
3729                          "/tex/latex/psnfss/ot1pbk.fd"
3730                          "/tex/latex/psnfss/ot1pcr.fd"
3731                          "/tex/latex/psnfss/ot1phv.fd"
3732                          "/tex/latex/psnfss/ot1pnc.fd"
3733                          "/tex/latex/psnfss/ot1ppl.fd"
3734                          "/tex/latex/psnfss/ot1pplj.fd"
3735                          "/tex/latex/psnfss/ot1pplx.fd"
3736                          "/tex/latex/psnfss/ot1ptm.fd"
3737                          "/tex/latex/psnfss/ot1ptmcm.fd"
3738                          "/tex/latex/psnfss/ot1put.fd"
3739                          "/tex/latex/psnfss/ot1pzc.fd"
3740                          "/tex/latex/psnfss/ot1zplm.fd"
3741                          "/tex/latex/psnfss/ot1zpple.fd"
3742                          "/tex/latex/psnfss/ot1ztmcm.fd"
3743                          "/tex/latex/psnfss/t1bch.fd"
3744                          "/tex/latex/psnfss/t1pag.fd"
3745                          "/tex/latex/psnfss/t1pbk.fd"
3746                          "/tex/latex/psnfss/t1pcr.fd"
3747                          "/tex/latex/psnfss/t1phv.fd"
3748                          "/tex/latex/psnfss/t1pnc.fd"
3749                          "/tex/latex/psnfss/t1ppl.fd"
3750                          "/tex/latex/psnfss/t1pplj.fd"
3751                          "/tex/latex/psnfss/t1pplx.fd"
3752                          "/tex/latex/psnfss/t1ptm.fd"
3753                          "/tex/latex/psnfss/t1put.fd"
3754                          "/tex/latex/psnfss/t1pzc.fd"
3755                          "/tex/latex/psnfss/ts1bch.fd"
3756                          "/tex/latex/psnfss/ts1pag.fd"
3757                          "/tex/latex/psnfss/ts1pbk.fd"
3758                          "/tex/latex/psnfss/ts1pcr.fd"
3759                          "/tex/latex/psnfss/ts1phv.fd"
3760                          "/tex/latex/psnfss/ts1pnc.fd"
3761                          "/tex/latex/psnfss/ts1ppl.fd"
3762                          "/tex/latex/psnfss/ts1pplj.fd"
3763                          "/tex/latex/psnfss/ts1pplx.fd"
3764                          "/tex/latex/psnfss/ts1ptm.fd"
3765                          "/tex/latex/psnfss/ts1put.fd"
3766                          "/tex/latex/psnfss/ts1pzc.fd"
3767                          "/tex/latex/psnfss/ufplm.fd"
3768                          "/tex/latex/psnfss/ufplmbb.fd"
3769                          "/tex/latex/psnfss/upsy.fd"
3770                          "/tex/latex/psnfss/upzd.fd")
3771                    (base32
3772                     "1ql4gidwf5m5gwcwwmx7vj60lj4xygw02pm5mzin49nlwsa1vbnv"))))
3773     (package
3774       (inherit template)
3775       (arguments
3776        (substitute-keyword-arguments (package-arguments template)
3777          ((#:tex-directory _ #t)
3778           "latex/psnfss")
3779          ((#:phases phases)
3780           `(modify-phases ,phases
3781              (add-after 'unpack 'chdir
3782                (lambda _
3783                  (chdir "source/latex/psnfss") #t))))))
3784       (native-inputs
3785        `(("texlive-cm" ,texlive-cm)))
3786       (home-page "https://www.ctan.org/pkg/psnfss")
3787       (synopsis "Font support for common PostScript fonts")
3788       (description
3789        "The PSNFSS collection includes a set of files that provide a complete
3790 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3791 PostScript fonts.  The base set of text fonts covered by PSNFSS includes the
3792 AvantGarde, Bookman, Courier, Helvetica, New Century Schoolbook, Palatino,
3793 Symbol, Times Roman and Zapf Dingbats fonts.  In addition, the fonts Bitstream
3794 Charter and Adobe Utopia are covered.  Separate packages are provided to load
3795 each font for use as the main text font.  The package @code{helvet} allows
3796 Helvetica to be loaded with its size scaled to something more appropriate for
3797 use as a Sans-Serif font to match Times, while @code{pifont} provides the
3798 means to select single glyphs from symbol fonts.  The bundle as a whole is
3799 part of the LaTeX required set of packages.")
3800       (license license:lppl1.2+))))
3801
3802 (define-public texlive-latex-psnfss
3803   (deprecated-package "texlive-latex-psnfss" texlive-psnfss))
3804
3805 ;; For user profiles
3806 (define-public texlive-base
3807   (let ((default-packages
3808           (list texlive-bin
3809                 texlive-dvips
3810                 texlive-fontname
3811                 texlive-cm
3812                 texlive-cm-super ; to avoid bitmap fonts
3813                 texlive-fonts-latex
3814                 texlive-metafont
3815                 texlive-latex-base
3816                 ;; LaTeX packages from the "required" set.
3817                 texlive-latex-amsmath
3818                 texlive-amscls
3819                 texlive-babel
3820                 texlive-generic-babel-english
3821                 texlive-latex-cyrillic
3822                 texlive-latex-graphics
3823                 texlive-psnfss
3824                 texlive-latex-tools
3825                 texlive-tetex)))
3826     (package
3827       (name "texlive-base")
3828       (version (number->string %texlive-revision))
3829       (source #f)
3830       (build-system trivial-build-system)
3831       (arguments
3832        '(#:builder
3833          (begin (mkdir (assoc-ref %outputs "out")))))
3834       (propagated-inputs
3835        (map (lambda (package)
3836               (list (package-name package) package))
3837             default-packages))
3838       (home-page (package-home-page texlive-bin))
3839       (synopsis "TeX Live base packages")
3840       (description "This is a very limited subset of the TeX Live distribution.
3841 It includes little more than the required set of LaTeX packages.")
3842       (license (fold (lambda (package result)
3843                        (match (package-license package)
3844                          ((lst ...)
3845                           (append lst result))
3846                          ((? license:license? license)
3847                           (cons license result))))
3848                      '()
3849                      default-packages)))))
3850
3851 ;;; TODO: Add a TeX Live profile hook computing fonts maps (and others?)
3852 ;;; configuration from the packages in the profile, similar to what's done
3853 ;;; below.
3854 (define-public texlive-updmap.cfg
3855   (lambda* (#:optional (packages '()))
3856     "Return a 'texlive-updmap.cfg' package which contains the fonts map
3857 configuration of a base set of packages plus PACKAGES."
3858     (let ((default-packages (match (package-propagated-inputs texlive-base)
3859                               (((labels packages) ...) packages))))
3860       (package
3861         (version (number->string %texlive-revision))
3862         (source (origin
3863                   (method url-fetch)
3864                   (uri (string-append "https://tug.org/svn/texlive/tags/"
3865                                       %texlive-tag
3866                                       "/Master/texmf-dist/web2c/updmap.cfg"
3867                                       "?revision=" version))
3868                   (file-name "updmap.cfg")
3869                   (sha256
3870                    (base32
3871                     "1q3l7yx5sng080ibfb8z3rdah0hhq170j6xw8z1w8i4w9m37lp94"))))
3872         (name "texlive-updmap.cfg")
3873         (build-system copy-build-system)
3874         (arguments
3875          '(#:modules ((guix build copy-build-system)
3876                       (guix build utils)
3877                       (ice-9 popen)
3878                       (ice-9 textual-ports))
3879            #:install-plan '(("updmap.cfg" "share/texmf-config/web2c/")
3880                             ("map" "share/texmf-dist/fonts/map"))
3881            #:phases
3882            (modify-phases %standard-phases
3883              (add-before 'install 'regenerate-updmap.cfg
3884                (lambda _
3885                  (make-file-writable "updmap.cfg")
3886
3887                  ;; Disable unavailable map files.
3888                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
3889                                           "--syncwithtrees"
3890                                           "--nohash"
3891                                           "--cnffile" "updmap.cfg")))
3892                    (display "Y\n" port)
3893                    (when (not (zero? (status:exit-val (close-pipe port))))
3894                      (error "failed to filter updmap.cfg")))
3895
3896                  ;; Set TEXMFSYSVAR to a sane and writable value; updmap fails
3897                  ;; if it cannot create its log file there.
3898                  (setenv "TEXMFSYSVAR" (getcwd))
3899
3900                  ;; Generate maps.
3901                  (invoke "updmap-sys"
3902                          "--cnffile"           "updmap.cfg"
3903                          "--dvipdfmxoutputdir" "map/dvipdfmx/updmap/"
3904                          "--dvipsoutputdir"    "map/dvips/updmap/"
3905                          "--pdftexoutputdir"   "map/pdftex/updmap/"))))))
3906         (propagated-inputs (map (lambda (package)
3907                                   (list (package-name package) package))
3908                                 (append default-packages packages)))
3909         (home-page (package-home-page texlive-bin))
3910         (synopsis "TeX Live fonts map configuration")
3911         (description "This package contains the fonts map configuration file
3912 generated for the base TeX Live packages as well as, optionally, user-provided
3913 ones.")
3914         (license (delete-duplicates
3915                   (fold (lambda (package result)
3916                           (match (package-license package)
3917                             ((lst ...)
3918                              (append lst result))
3919                             ((? license:license? license)
3920                              (cons license result))))
3921                         '()
3922                         (append default-packages packages))))))))
3923
3924 ;;; Deprecated.
3925 (define texlive-union texlive-updmap.cfg)
3926
3927 ;; For use in package definitions only
3928 (define-public texlive-tiny
3929   (package
3930     (inherit (texlive-updmap.cfg))
3931     (name "texlive-tiny")
3932     (description "This is a very limited subset of the TeX Live distribution.
3933 It includes little more than the required set of LaTeX packages.")))
3934
3935 (define-public texlive-tipa
3936   (package
3937     (inherit (simple-texlive-package
3938               "texlive-tipa"
3939               (list "/tex4ht/ht-fonts/alias/tipa/"
3940                     "/doc/fonts/tipa/"
3941                     "/fonts/map/dvips/tipa/"
3942                     "/fonts/source/public/tipa/"
3943                     "/fonts/tfm/public/tipa/"
3944                     "/fonts/type1/public/tipa/"
3945                     "/tex/latex/tipa/")
3946               (base32
3947                "0cqzf8vb10b8jw99m9gflskxa4c3rpiznxglix6chl5lai5sgw44")
3948               #:trivial? #t))
3949     (home-page "https://www.ctan.org/pkg/tipa")
3950     (synopsis "Fonts and macros for IPA phonetics characters")
3951     (description "These fonts are considered the \"ultimate answer\" to IPA
3952 typesetting.  The encoding of these 8-bit fonts has been registered as LaTeX
3953 standard encoding T3, and the set of addendum symbols as encoding
3954 TS3. \"Times-like\" Adobe Type 1 versions are provided for both the T3 and the
3955 TS3 fonts.")
3956     (license license:lppl)))
3957
3958 (define-public texlive-latex-amsrefs
3959   (package
3960     (name "texlive-latex-amsrefs")
3961     (version (number->string %texlive-revision))
3962     (source (origin
3963               (method svn-fetch)
3964               (uri (texlive-ref "latex" "amsrefs"))
3965               (file-name (string-append name "-" version "-checkout"))
3966               (sha256
3967                (base32
3968                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
3969     (build-system texlive-build-system)
3970     (arguments '(#:tex-directory "latex/amsrefs"))
3971     (home-page "https://www.ctan.org/pkg/amsrefs")
3972     (synopsis "LaTeX-based replacement for BibTeX")
3973     (description
3974      "Amsrefs is a LaTeX package for bibliographies that provides an archival
3975 data format similar to the format of BibTeX database files, but adapted to
3976 make direct processing by LaTeX easier.  The package can be used either in
3977 conjunction with BibTeX or as a replacement for BibTeX.")
3978     (license license:lppl1.3+)))
3979
3980 (define-public texlive-latex-bigfoot
3981   (package
3982     (name "texlive-latex-bigfoot")
3983     (version (number->string %texlive-revision))
3984     (source (origin
3985               (method svn-fetch)
3986               (uri (texlive-ref "latex" "bigfoot"))
3987               (file-name (string-append name "-" version "-checkout"))
3988               (sha256
3989                (base32
3990                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
3991     (build-system texlive-build-system)
3992     (arguments
3993      '(#:tex-directory "latex/bigfoot"
3994        #:phases
3995        (modify-phases %standard-phases
3996          (add-after 'unpack 'remove-generated-file
3997            (lambda _
3998              (for-each delete-file (find-files "." "\\.drv$"))
3999              #t)))))
4000     (home-page "https://www.ctan.org/pkg/bigfoot")
4001     (synopsis "Footnotes for critical editions")
4002     (description
4003      "This package aims to provide a one-stop solution to requirements for
4004 footnotes.  It offers: Multiple footnote apparatus superior to that of
4005 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
4006 into a single paragraph (this choice may be selected per footnote series);
4007 Things you might have expected (such as @code{\\verb}-like material in
4008 footnotes, and color selections over page breaks) now work.  Note that the
4009 majority of the bigfoot package's interface is identical to that of
4010 @code{manyfoot}; users should seek information from that package's
4011 documentation.  The bigfoot bundle also provides the @code{perpage} and
4012 @code{suffix} packages.")
4013     (license license:gpl2+)))
4014
4015 (define-public texlive-latex-blindtext
4016   (package
4017     (name "texlive-latex-blindtext")
4018     (version (number->string %texlive-revision))
4019     (source (origin
4020               (method svn-fetch)
4021               (uri (texlive-ref "latex" "blindtext"))
4022               (file-name (string-append name "-" version "-checkout"))
4023               (sha256
4024                (base32
4025                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
4026     (build-system texlive-build-system)
4027     (arguments '(#:tex-directory "latex/blindtext"))
4028     (home-page "https://www.ctan.org/pkg/blindtext")
4029     (synopsis "Producing 'blind' text for testing")
4030     (description
4031      "The package provides the commands @code{\\blindtext} and
4032 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
4033 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
4034 an entire random document with sections, lists, mathematics, etc.  The package
4035 supports three languages, @code{english}, @code{(n)german} and @code{latin};
4036 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
4037 ipsum\" text, see the @code{lipsum} package).")
4038     (license license:lppl)))
4039
4040 (define-public texlive-latex-dinbrief
4041   (package
4042     (name "texlive-latex-dinbrief")
4043     (version (number->string %texlive-revision))
4044     (source (origin
4045               (method svn-fetch)
4046               (uri (texlive-ref "latex" "dinbrief"))
4047               (file-name (string-append name "-" version "-checkout"))
4048               (sha256
4049                (base32
4050                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
4051     (build-system texlive-build-system)
4052     (arguments
4053      '(#:tex-directory "latex/dinbrief"
4054        #:phases
4055        (modify-phases %standard-phases
4056          (add-after 'unpack 'remove-generated-file
4057            (lambda _
4058              (delete-file "dinbrief.drv")
4059              #t))
4060          (add-after 'unpack 'fix-encoding-error
4061            (lambda _
4062              (with-fluids ((%default-port-encoding "ISO-8859-1"))
4063                (substitute* "dinbrief.dtx"
4064                  (("zur Verf.+ung. In der Pr\"aambel")
4065                   "zur Verf\"ung. In der Pr\"aambel")))
4066              #t)))))
4067     (home-page "https://www.ctan.org/pkg/dinbrief")
4068     (synopsis "German letter DIN style")
4069     (description
4070      "This package implements a document layout for writing letters according
4071 to the rules of DIN (Deutsches Institut für Normung, German standardisation
4072 institute).  A style file for LaTeX 2.09 (with limited support of the
4073 features) is part of the package.  Since the letter layout is based on a
4074 German standard, the user guide is written in German, but most macros have
4075 English names from which the user can recognize what they are used for.  In
4076 addition there are example files showing how letters may be created with the
4077 package.")
4078     (license license:lppl)))
4079
4080 (define-public texlive-latex-draftwatermark
4081   (package
4082     (name "texlive-latex-draftwatermark")
4083     (version (number->string %texlive-revision))
4084     (source (origin
4085               (method svn-fetch)
4086               (uri (texlive-ref "latex" "draftwatermark"))
4087               (file-name (string-append name "-" version "-checkout"))
4088               (sha256
4089                (base32
4090                 "0alshj9d2cdssqfawhyqmgsvqysmn7dgfk8bc59ni1bii3ydm2zm"))))
4091     (build-system texlive-build-system)
4092     (arguments '(#:tex-directory "latex/draftwatermark"))
4093     (home-page "https://www.ctan.org/pkg/draftwatermark")
4094     (synopsis "Put a grey textual watermark on document pages")
4095     (description
4096      "This package provides a means to add a textual, light grey watermark on
4097 every page or on the first page of a document.  Typical usage may consist in
4098 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
4099 package performs a similar function to that of @code{draftcopy}, but its
4100 implementation is output device independent, and made very simple by relying
4101 on everypage.")
4102     (license license:lppl1.3+)))
4103
4104 (define-public texlive-latex-environ
4105   (package
4106     (name "texlive-latex-environ")
4107     (version (number->string %texlive-revision))
4108     (source (origin
4109               (method svn-fetch)
4110               (uri (texlive-ref "latex" "environ"))
4111               (file-name (string-append name "-" version "-checkout"))
4112               (sha256
4113                (base32
4114                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
4115     (build-system texlive-build-system)
4116     (arguments '(#:tex-directory "latex/environ"))
4117     (home-page "https://www.ctan.org/pkg/environ")
4118     (synopsis "New interface for environments in LaTeX")
4119     (description
4120      "This package provides the @code{\\collect@@body} command (as in
4121 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
4122 for collecting the body text of an environment.  These commands are used to
4123 define a new author interface to creating new environments.")
4124     (license license:lppl)))
4125
4126 (define-public texlive-latex-eqparbox
4127   (package
4128     (name "texlive-latex-eqparbox")
4129     (version (number->string %texlive-revision))
4130     (source (origin
4131               (method svn-fetch)
4132               (uri (texlive-ref "latex" "eqparbox"))
4133               (file-name (string-append name "-" version "-checkout"))
4134               (sha256
4135                (base32
4136                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
4137     (build-system texlive-build-system)
4138     (arguments '(#:tex-directory "latex/eqparbox"))
4139     (home-page "https://www.ctan.org/pkg/eqparbox")
4140     (synopsis "Create equal-widthed parboxes")
4141     (description
4142      "LaTeX users sometimes need to ensure that two or more blocks of text
4143 occupy the same amount of horizontal space on the page.  To that end, the
4144 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
4145 just like @code{\\parbox}, except that instead of specifying a width, one
4146 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
4147 where they are in the document---will stretch to fit the widest
4148 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
4149 for a variety of alignment purposes, as is evidenced by the examples in
4150 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
4151 also provided.")
4152     (license license:lppl1.3+)))
4153
4154 (define-public texlive-latex-expdlist
4155   (package
4156     (name "texlive-latex-expdlist")
4157     (version (number->string %texlive-revision))
4158     (source (origin
4159               (method svn-fetch)
4160               (uri (texlive-ref "latex" "expdlist"))
4161               (file-name (string-append name "-" version "-checkout"))
4162               (sha256
4163                (base32
4164                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
4165     (build-system texlive-build-system)
4166     (arguments
4167      '(#:tex-directory "latex/expdlist"
4168        #:phases
4169        (modify-phases %standard-phases
4170          (add-after 'unpack 'remove-generated-file
4171            (lambda _
4172              (for-each delete-file
4173                        (find-files "." "\\.drv$"))
4174              #t)))))
4175     (home-page "https://www.ctan.org/pkg/expdlist")
4176     (synopsis "Expanded description environments")
4177     (description
4178      "The package provides additional features for the LaTeX
4179 @code{description} environment, including adjustable left margin.  The package
4180 also allows the user to \"break\" a list (for example, to interpose a comment)
4181 without affecting the structure of the list (this works for @code{itemize} and
4182 @code{enumerate} lists, and numbered lists remain in sequence).")
4183     (license license:lppl)))
4184
4185 (define-public texlive-filemod
4186   (package
4187     (inherit (simple-texlive-package
4188               "texlive-filemod"
4189               (list "/doc/latex/filemod/"
4190                     "/tex/latex/filemod/"
4191                     "/tex/generic/filemod/")
4192               (base32
4193                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
4194               #:trivial? #t))
4195     (home-page "https://www.ctan.org/pkg/filemod")
4196     (synopsis "Provide file modification times, and compare them")
4197     (description
4198      "This package provides macros to read and compare the modification dates
4199 of files.  The files may be @code{.tex} files, images or other files (as long
4200 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
4201 of pdfLaTeX to find the file modification date as PDF date string, parses the
4202 string and returns the value to the user.  The package will also work for DVI
4203 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
4204 mode.  The functionality is provided by purely expandable macros or by faster
4205 but non-expandable ones.")
4206     (license license:lppl1.3+)))
4207
4208 (define-public texlive-latex-filemod
4209   (deprecated-package "texlive-latex-filemod" texlive-filemod))
4210
4211 (define-public texlive-latex-ifplatform
4212   (package
4213     (name "texlive-latex-ifplatform")
4214     (version (number->string %texlive-revision))
4215     (source (origin
4216               (method svn-fetch)
4217               (uri (texlive-ref "latex" "ifplatform"))
4218               (file-name (string-append name "-" version "-checkout"))
4219               (sha256
4220                (base32
4221                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
4222     (build-system texlive-build-system)
4223     (arguments '(#:tex-directory "latex/ifplatform"))
4224     (home-page "https://www.ctan.org/pkg/ifplatform")
4225     (synopsis "Conditionals to test which platform is being used")
4226     (description
4227      "This package uses the (La)TeX extension @code{-shell-escape} to
4228 establish whether the document is being processed on a Windows or on a
4229 Unix-like system, or on Cygwin (Unix environment over a Windows system).
4230 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
4231 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
4232 on a Unix-like system, which may be used to distinguish between various
4233 classes of systems.")
4234     (license license:lppl)))
4235
4236 (define-public texlive-latex-natbib
4237   (package
4238     (name "texlive-latex-natbib")
4239     (version (number->string %texlive-revision))
4240     (source (origin
4241               (method svn-fetch)
4242               (uri (texlive-ref "latex" "natbib"))
4243               (file-name (string-append name "-" version "-checkout"))
4244               (sha256
4245                (base32
4246                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
4247     (build-system texlive-build-system)
4248     (arguments '(#:tex-directory "latex/natbib"))
4249     (home-page "https://www.ctan.org/pkg/natbib")
4250     (synopsis "Flexible bibliography support")
4251     (description
4252      "This bundle provides a package that implements both author-year and
4253 numbered references, as well as much detailed of support for other
4254 bibliography use.  Also provided are versions of the standard BibTeX styles
4255 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
4256 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
4257 designed from the start to be compatible with @code{natbib}.")
4258     (license license:lppl)))
4259
4260 (define-public texlive-latex-pdftexcmds
4261   (package
4262     (inherit (simple-texlive-package
4263               "texlive-latex-pdftexcmds"
4264               '("/doc/latex/pdftexcmds/"
4265                 "/tex/latex/pdftexcmds/")
4266               (base32
4267                "0kqav8jri789698wxwr2ww8ssn74fvw3agrv677nz5qyq5zmix8h")
4268               #:trivial? #t))
4269     (propagated-inputs
4270      `(("texlive-generic-iftex" ,texlive-generic-iftex)
4271        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
4272        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
4273     (home-page "https://www.ctan.org/pkg/pdftexcmds")
4274     (synopsis "LuaTeX support for pdfTeX utility functions")
4275     (description
4276      "This package makes a number of utility functions from pdfTeX
4277 available for luaTeX by reimplementing them using Lua.")
4278     (license license:lppl1.3c+)))
4279
4280 (define-public texlive-latex-psfrag
4281   (package
4282     (name "texlive-latex-psfrag")
4283     (version (number->string %texlive-revision))
4284     (source (origin
4285               (method svn-fetch)
4286               (uri (texlive-ref "latex" "psfrag"))
4287               (file-name (string-append name "-" version "-checkout"))
4288               (sha256
4289                (base32
4290                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
4291     (build-system texlive-build-system)
4292     (arguments '(#:tex-directory "latex/psfrag"))
4293     (home-page "https://www.ctan.org/pkg/psfrag")
4294     (synopsis "Replace strings in encapsulated PostScript figures")
4295     (description
4296      "This package allows LaTeX constructions (equations, picture
4297 environments, etc.) to be precisely superimposed over Encapsulated PostScript
4298 figures, using your own favorite drawing tool to create an EPS figure and
4299 placing simple text \"tags\" where each replacement is to be placed, with
4300 PSfrag automatically removing these tags from the figure and replacing them
4301 with a user specified LaTeX construction, properly aligned, scaled, and/or
4302 rotated.")
4303     (license (license:fsf-free "file://psfrag.dtx"))))
4304
4305 (define-public texlive-pstool
4306   (package
4307     (inherit (simple-texlive-package
4308               "texlive-pstool"
4309               (list "/doc/latex/pstool/"
4310                     "/tex/latex/pstool/")
4311               (base32
4312                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
4313               #:trivial? #t))
4314     (propagated-inputs
4315      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
4316        ("texlive-latex-filemod" ,texlive-latex-filemod)
4317        ("texlive-latex-graphics" ,texlive-latex-graphics)
4318        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
4319        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
4320        ("texlive-oberdiek" ,texlive-oberdiek)
4321        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
4322        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
4323        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
4324        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
4325     (home-page "https://www.ctan.org/pkg/pstool")
4326     (synopsis "Process PostScript graphics within pdfLaTeX documents")
4327     (description
4328      "This is a package for processing PostScript graphics with @code{psfrag}
4329 labels within pdfLaTeX documents.  Every graphic is compiled individually,
4330 drastically speeding up compilation time when only a single figure needs
4331 re-processing.")
4332     (license license:lppl)))
4333
4334 (define-public texlive-latex-pstool
4335   (deprecated-package "texlive-latex-pstool" texlive-pstool))
4336
4337 (define-public texlive-latex-refcount
4338   (package
4339     (inherit (simple-texlive-package
4340               "texlive-latex-refcount"
4341               (list "/doc/latex/refcount/"
4342                     "/tex/latex/refcount/")
4343               (base32
4344                "0pkmqj2qihndlv3ks33xzqw91q46jx79r3aygj68d8dflyddi583")
4345               #:trivial? #t))
4346     (home-page "https://www.ctan.org/pkg/refcount")
4347     (synopsis "Counter operations with label references")
4348     (description
4349      "This package provides the @code{\\setcounterref} and
4350 @code{\\addtocounterref} commands which use the section (or other) number
4351 from the reference as the value to put into the counter.  It also provides
4352 @code{\\setcounterpageref} and @code{\\addtocounterpageref} that do the
4353 corresponding thing with the page reference of the label.")
4354     (license license:lppl1.3c+)))
4355
4356 (define-public texlive-seminar
4357   (package
4358     (inherit (simple-texlive-package
4359               "texlive-seminar"
4360               (list "/doc/latex/seminar/"
4361                     "/tex/latex/seminar/")
4362               (base32
4363                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
4364               #:trivial? #t))
4365     (home-page "https://www.ctan.org/pkg/seminar")
4366     (synopsis "Make overhead slides")
4367     ;; TODO: This package may need fancybox and xcomment at runtime.
4368     (description
4369      "This package provides a class that produces overhead
4370 slides (transparencies), with many facilities.  Seminar is not nowadays
4371 reckoned a good basis for a presentation — users are advised to use more
4372 recent classes such as powerdot or beamer, both of which are tuned to
4373 21st-century presentation styles.")
4374     (license license:lppl1.2+)))
4375
4376 (define-public texlive-latex-seminar
4377   (deprecated-package "texlive-latex-seminar" texlive-seminar))
4378
4379 (define-public texlive-latex-trimspaces
4380   (package
4381     (name "texlive-latex-trimspaces")
4382     (version (number->string %texlive-revision))
4383     (source (origin
4384               (method svn-fetch)
4385               (uri (texlive-ref "latex" "trimspaces"))
4386               (file-name (string-append name "-" version "-checkout"))
4387               (sha256
4388                (base32
4389                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
4390     (build-system texlive-build-system)
4391     (arguments
4392      '(#:tex-directory "latex/trimspaces"
4393        #:tex-format "latex"
4394        #:phases
4395        (modify-phases %standard-phases
4396          (add-after 'unpack 'fix-bug
4397            (lambda _
4398              ;; The "ins" file refers to the wrong source file.
4399              (substitute* "trimspaces.ins"
4400                (("pstool.tex") "trimspaces.tex"))
4401              #t)))))
4402     (inputs
4403      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
4404     (home-page "https://www.ctan.org/pkg/trimspaces")
4405     (synopsis "Trim spaces around an argument or within a macro")
4406     (description
4407      "This very short package allows you to expandably remove spaces around a
4408 token list (commands are provided to remove spaces before, spaces after, or
4409 both); or to remove surrounding spaces within a macro definition, or to define
4410 space-stripped macros.")
4411     (license license:lppl)))
4412
4413 (define-public texlive-latex-capt-of
4414   (package
4415     (name "texlive-latex-capt-of")
4416     (version (number->string %texlive-revision))
4417     (source (origin
4418               (method svn-fetch)
4419               (uri (svn-reference
4420                     (url (string-append "svn://www.tug.org/texlive/tags/"
4421                                         %texlive-tag "/Master/texmf-dist/"
4422                                         "/tex/latex/capt-of"))
4423                     (revision %texlive-revision)))
4424               (file-name (string-append name "-" version "-checkout"))
4425               (sha256
4426                (base32
4427                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
4428     (build-system trivial-build-system)
4429     (arguments
4430      `(#:modules ((guix build utils))
4431        #:builder
4432        (begin
4433          (use-modules (guix build utils))
4434          (let ((target (string-append (assoc-ref %outputs "out")
4435                                       "/share/texmf-dist/tex/latex/capt-of")))
4436            (mkdir-p target)
4437            (copy-recursively (assoc-ref %build-inputs "source") target)
4438            #t))))
4439     (home-page "https://www.ctan.org/pkg/capt-of")
4440     (synopsis "Captions on more than floats")
4441     (description
4442      "This package defines a command @code{\\captionof} for putting a caption
4443 to something that's not a float.")
4444     (license license:lppl)))
4445
4446 (define-public texlive-doi
4447   (package
4448     (inherit (simple-texlive-package
4449               "texlive-doi"
4450               (list "/doc/latex/doi/README.md"
4451                     "/tex/latex/doi/")
4452               (base32
4453                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
4454               #:trivial? #t))
4455     (home-page "https://www.ctan.org/pkg/doi")
4456     (synopsis "Create correct hyperlinks for DOI numbers")
4457     (description
4458      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
4459 elected to use nasty characters in their DOI numbering scheme (@code{<},
4460 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
4461 upset LaTeX, or your PDF reader.  This package contains a single user-level
4462 command @code{\\doi{}}, which takes a DOI number, and creates a correct
4463 hyperlink to the target of the DOI.")
4464     ;; Any version of the LPPL.
4465     (license license:lppl1.3+)))
4466
4467 (define-public texlive-latex-doi
4468   (deprecated-package "texlive-latex-doi" texlive-doi))
4469
4470 (define-public texlive-etoolbox
4471   (package
4472     (inherit (simple-texlive-package
4473               "texlive-etoolbox"
4474               (list "/doc/latex/etoolbox/"
4475                     "/tex/latex/etoolbox/")
4476               (base32
4477                "1w9mycfa0lx9whjzfybx58608phcrfk33w3igy566qv23a1z9rzc")
4478               #:trivial? #t))
4479     (home-page "https://www.ctan.org/pkg/etoolbox")
4480     (synopsis "e-TeX tools for LaTeX")
4481     (description
4482      "This package is a toolbox of programming facilities geared primarily
4483 towards LaTeX class and package authors.  It provides LaTeX frontends to some
4484 of the new primitives provided by e-TeX as well as some generic tools which
4485 are not strictly related to e-TeX but match the profile of this package.  The
4486 package provides functions that seem to offer alternative ways of implementing
4487 some LaTeX kernel commands; nevertheless, the package will not modify any part
4488 of the LaTeX kernel.")
4489     (license license:lppl1.3+)))
4490
4491 (define-public texlive-latex-etoolbox
4492   (deprecated-package "texlive-latex-etoolbox" texlive-etoolbox))
4493
4494 (define-public texlive-latex-fncychap
4495   (package
4496     (name "texlive-latex-fncychap")
4497     (version (number->string %texlive-revision))
4498     (source (origin
4499               (method svn-fetch)
4500               (uri (svn-reference
4501                     (url (string-append "svn://www.tug.org/texlive/tags/"
4502                                         %texlive-tag "/Master/texmf-dist/"
4503                                         "/tex/latex/fncychap"))
4504                     (revision %texlive-revision)))
4505               (file-name (string-append name "-" version "-checkout"))
4506               (sha256
4507                (base32
4508                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
4509     (build-system trivial-build-system)
4510     (arguments
4511      `(#:modules ((guix build utils))
4512        #:builder
4513        (begin
4514          (use-modules (guix build utils))
4515          (let ((target (string-append (assoc-ref %outputs "out")
4516                                       "/share/texmf-dist/tex/latex/fncychap")))
4517            (mkdir-p target)
4518            (copy-recursively (assoc-ref %build-inputs "source") target)
4519            #t))))
4520     (home-page "https://www.ctan.org/pkg/fncychap")
4521     (synopsis "Seven predefined chapter heading styles")
4522     (description
4523      "This package provides seven predefined chapter heading styles.  Each
4524 style can be modified using a set of simple commands.  Optionally one can
4525 modify the formatting routines in order to create additional chapter
4526 headings.")
4527     (license license:lppl1.3+)))
4528
4529 (define-public texlive-latex-framed
4530   (package
4531     (name "texlive-latex-framed")
4532     (version (number->string %texlive-revision))
4533     (source (origin
4534               (method svn-fetch)
4535               (uri (svn-reference
4536                     (url (string-append "svn://www.tug.org/texlive/tags/"
4537                                         %texlive-tag "/Master/texmf-dist/"
4538                                         "/tex/latex/framed"))
4539                     (revision %texlive-revision)))
4540               (file-name (string-append name "-" version "-checkout"))
4541               (sha256
4542                (base32
4543                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4544     (build-system trivial-build-system)
4545     (arguments
4546      `(#:modules ((guix build utils))
4547        #:builder
4548        (begin
4549          (use-modules (guix build utils))
4550          (let ((target (string-append (assoc-ref %outputs "out")
4551                                       "/share/texmf-dist/tex/latex/framed")))
4552            (mkdir-p target)
4553            (copy-recursively (assoc-ref %build-inputs "source") target)
4554            #t))))
4555     (home-page "https://www.ctan.org/pkg/framed")
4556     (synopsis "Framed or shaded regions that can break across pages")
4557     (description
4558      "The package creates three environments: @code{framed}, which puts an
4559 ordinary frame box around the region, @code{shaded}, which shades the region,
4560 and @code{leftbar}, which places a line at the left side.  The environments
4561 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4562 title that is “attached” to the environment); breaks are also allowed in the
4563 course of the framed/shaded matter.  There is also a command
4564 @code{\\MakeFramed} to make your own framed-style environments.")
4565     ;; The header states: "These macros may be freely transmitted, reproduced,
4566     ;; or modified for any purpose provided that this notice is left intact."
4567     (license (license:fsf-free "file://framed.sty"))))
4568
4569 (define-public texlive-latex-g-brief
4570   (package
4571     (name "texlive-latex-g-brief")
4572     (version (number->string %texlive-revision))
4573     (source (origin
4574               (method svn-fetch)
4575               (uri (texlive-ref "latex" "g-brief"))
4576               (file-name (string-append name "-" version "-checkout"))
4577               (sha256
4578                (base32
4579                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
4580     (build-system texlive-build-system)
4581     (arguments
4582      '(#:tex-directory "latex/g-brief"
4583        #:phases
4584        (modify-phases %standard-phases
4585          (add-after 'unpack 'remove-generated-file
4586            (lambda _
4587              (delete-file "g-brief.drv")
4588              #t)))))
4589     (home-page "https://www.ctan.org/pkg/g-brief")
4590     (synopsis "Letter document class")
4591     (description
4592      "This package is designed for formatting formless letters in German; it
4593 can also be used for English (by those who can read the documentation).  There
4594 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4595 \"old\" and a \"new\" version of g-brief.")
4596     (license license:lppl)))
4597
4598 (define-public texlive-latex-galois
4599   (package
4600     (name "texlive-latex-galois")
4601     (version (number->string %texlive-revision))
4602     (source (origin
4603               (method svn-fetch)
4604               (uri (texlive-ref "latex" "galois"))
4605               (file-name (string-append name "-" version "-checkout"))
4606               (sha256
4607                (base32
4608                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4609     (build-system texlive-build-system)
4610     (arguments '(#:tex-directory "latex/galois"))
4611     (home-page "https://www.ctan.org/pkg/galois")
4612     (synopsis "Typeset Galois connections")
4613     (description
4614      "The package deals with connections in two-dimensional style, optionally
4615 in colour.")
4616     (license license:lppl)))
4617
4618 (define-public texlive-latex-gcite
4619   (package
4620     (name "texlive-latex-gcite")
4621     (version (number->string %texlive-revision))
4622     (source (origin
4623               (method svn-fetch)
4624               (uri (texlive-ref "latex" "gcite"))
4625               (file-name (string-append name "-" version "-checkout"))
4626               (sha256
4627                (base32
4628                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4629     (build-system texlive-build-system)
4630     (arguments '(#:tex-directory "latex/gcite"))
4631     (home-page "https://www.ctan.org/pkg/gcite")
4632     (synopsis "Citations in a reader-friendly style")
4633     (description
4634      "The package allows citations in the German style, which is considered by
4635 many to be particularly reader-friendly.  The citation provides a small amount
4636 of bibliographic information in a footnote on the page where each citation is
4637 made.  It combines a desire to eliminate unnecessary page-turning with the
4638 look-up efficiency afforded by numeric citations.  The package makes use of
4639 BibLaTeX, and is considered experimental.")
4640     (license license:lppl1.3+)))
4641
4642 (define-public texlive-latex-geometry
4643   (package
4644     (name "texlive-latex-geometry")
4645     (version (number->string %texlive-revision))
4646     (source (origin
4647               (method svn-fetch)
4648               (uri (texlive-ref "latex" "geometry"))
4649               (file-name (string-append name "-" version "-checkout"))
4650               (sha256
4651                (base32
4652                 "0a9nrmiwksnpa6iaapirqid974ai56qgin2n4h9mggy9v8gp7r71"))))
4653     (build-system texlive-build-system)
4654     (arguments '(#:tex-directory "latex/geometry"))
4655     (propagated-inputs
4656      `(("texlive-oberdiek" ,texlive-oberdiek))) ;for ifpdf
4657     (home-page "https://www.ctan.org/pkg/geometry")
4658     (synopsis "Flexible and complete interface to document dimensions")
4659     (description
4660      "This package provides an easy and flexible user interface to customize
4661 page layout, implementing auto-centering and auto-balancing mechanisms so that
4662 the users have only to give the least description for the page layout.  The
4663 package knows about all the standard paper sizes, so that the user need not
4664 know what the nominal \"real\" dimensions of the paper are, just its standard
4665 name (such as a4, letter, etc.).  An important feature is the package's
4666 ability to communicate the paper size it's set up to the output.")
4667     (license license:lppl)))
4668
4669 (define-public texlive-latex-mdwtools
4670   (package
4671     (name "texlive-latex-mdwtools")
4672     (version (number->string %texlive-revision))
4673     (source (origin
4674               (method svn-fetch)
4675               (uri (texlive-ref "latex" "mdwtools"))
4676               (file-name (string-append name "-" version "-checkout"))
4677               (sha256
4678                (base32
4679                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4680     (build-system texlive-build-system)
4681     (arguments '(#:tex-directory "latex/mdwtools"))
4682     (home-page "https://www.ctan.org/pkg/mdwtools")
4683     (synopsis "Miscellaneous tools by Mark Wooding")
4684     (description
4685      "This collection of tools includes: @code{atsupport} for short commands
4686 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4687 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4688 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4689 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4690 array environments; verbatim handling; and syntax diagrams.")
4691     (license license:gpl3+)))
4692
4693 (define-public texlive-latex-polyglossia
4694   (package
4695     (name "texlive-latex-polyglossia")
4696     (version (number->string %texlive-revision))
4697     (source (origin
4698               (method svn-fetch)
4699               (uri (texlive-ref "latex" "polyglossia"))
4700               (file-name (string-append name "-" version "-checkout"))
4701               (sha256
4702                (base32
4703                 "0c3hrki9pmhz4iall0436wrlrg6qkb1fsdfhz9hv7ysxryr2gihj"))))
4704     (build-system texlive-build-system)
4705     (arguments '(#:tex-directory "latex/polyglossia"))
4706     (home-page "https://www.ctan.org/pkg/polyglossia")
4707     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4708     (description
4709      "This package provides a complete Babel replacement for users of LuaLaTeX
4710 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4711     (license license:lppl1.3+)))
4712
4713 (define-public texlive-latex-supertabular
4714   (package
4715     (name "texlive-latex-supertabular")
4716     (version (number->string %texlive-revision))
4717     (source (origin
4718               (method svn-fetch)
4719               (uri (texlive-ref "latex" "supertabular"))
4720               (file-name (string-append name "-" version "-checkout"))
4721               (sha256
4722                (base32
4723                 "19fd0bqxjkzc16bza3w20pnsc90gbhbllm244b3h6sink4dlnn54"))))
4724     (build-system texlive-build-system)
4725     (arguments '(#:tex-directory "latex/supertabular"))
4726     (home-page "https://www.ctan.org/pkg/supertabular")
4727     (synopsis "Multi-page tables package")
4728     (description
4729      "This package was a predecessor of @code{longtable}; the newer
4730 package (designed on quite different principles) is easier to use and more
4731 flexible, in many cases, but supertabular retains its usefulness in a few
4732 situations where longtable has problems.")
4733     (license license:lppl1.3+)))
4734
4735 (define-public texlive-tex-texinfo
4736   (package
4737     (name "texlive-tex-texinfo")
4738     (version (number->string %texlive-revision))
4739     (source (origin
4740               (method svn-fetch)
4741               (uri (svn-reference
4742                     (url (string-append "svn://www.tug.org/texlive/tags/"
4743                                         %texlive-tag "/Master/texmf-dist/"
4744                                         "/tex/texinfo"))
4745                     (revision %texlive-revision)))
4746               (file-name (string-append name "-" version "-checkout"))
4747               (sha256
4748                (base32
4749                 "1ngzgiy8wd3b9gnbx802x90xa179xxm7vf5jhfdkpgrfxwlycfby"))))
4750     (build-system trivial-build-system)
4751     (arguments
4752      `(#:modules ((guix build utils))
4753        #:builder
4754        (begin
4755          (use-modules (guix build utils))
4756          (let ((target (string-append (assoc-ref %outputs "out")
4757                                       "/share/texmf-dist/tex/texinfo")))
4758            (mkdir-p target)
4759            (copy-recursively (assoc-ref %build-inputs "source") target)
4760            #t))))
4761     (home-page "https://www.ctan.org/pkg/texinfo")
4762     (synopsis "TeX macros to handle Texinfo files")
4763     (description
4764      "Texinfo is the preferred format for documentation in the GNU project;
4765 the format may be used to produce online or printed output from a single
4766 source.  The Texinfo macros may be used to produce printable output using TeX;
4767 other programs in the distribution offer online interactive use (with
4768 hypertext linkages in some cases).")
4769     (license license:gpl3+)))
4770
4771 (define-public texlive-latex-upquote
4772   (package
4773     (name "texlive-latex-upquote")
4774     (version (number->string %texlive-revision))
4775     (source (origin
4776               (method svn-fetch)
4777               (uri (texlive-ref "latex" "upquote"))
4778               (file-name (string-append name "-" version "-checkout"))
4779               (sha256
4780                (base32
4781                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
4782     (build-system texlive-build-system)
4783     (arguments '(#:tex-directory "latex/upquote"))
4784     (home-page "https://www.ctan.org/pkg/upquote")
4785     (synopsis "Show \"realistic\" quotes in verbatim")
4786     (description
4787      "Typewriter-style fonts are best for program listings, but Computer
4788 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
4789 single quotes.  Other fonts, and most programming languages, print @code{`} as
4790 a grave accent and @code{'} upright; @code{'} is used both to open and to
4791 close quoted strings.  The package switches the typewriter font to Computer
4792 Modern Typewriter in OT1 encoding, and modifies the behaviour of
4793 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
4794 in the expected way.  It does this regardless of other fonts or encodings in
4795 use, so long as the package is loaded after the other fonts were.  The package
4796 does not affect @code{\\tt}, @code{\\texttt}, etc.")
4797     (license license:lppl1.2+)))
4798
4799 (define-public texlive-latex-anysize
4800   (package
4801     (name "texlive-latex-anysize")
4802     (version (number->string %texlive-revision))
4803     (source (origin
4804               (method svn-fetch)
4805               (uri (svn-reference
4806                     (url (string-append "svn://www.tug.org/texlive/tags/"
4807                                         %texlive-tag "/Master/texmf-dist/"
4808                                         "/tex/latex/anysize"))
4809                     (revision %texlive-revision)))
4810               (file-name (string-append name "-" version "-checkout"))
4811               (sha256
4812                (base32
4813                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
4814     (build-system trivial-build-system)
4815     (arguments
4816      `(#:modules ((guix build utils))
4817        #:builder
4818        (begin
4819          (use-modules (guix build utils))
4820          (let ((target (string-append (assoc-ref %outputs "out")
4821                                       "/share/texmf-dist/tex/latex/anysize")))
4822            (mkdir-p target)
4823            (copy-recursively (assoc-ref %build-inputs "source") target)
4824            #t))))
4825     (home-page "https://www.ctan.org/pkg/anysize")
4826     (synopsis "Simple package to set up document margins")
4827     (description
4828      "This is a simple package to set up document margins.  This package is
4829 considered obsolete; alternatives are the @code{typearea} package from the
4830 @code{koma-script} bundle, or the @code{geometry} package.")
4831     (license license:public-domain)))
4832
4833 (define-public texlive-latex-appendix
4834   (package
4835     (name "texlive-latex-appendix")
4836     (version (number->string %texlive-revision))
4837     (source (origin
4838               (method svn-fetch)
4839               (uri (texlive-ref "latex" "appendix"))
4840               (file-name (string-append name "-" version "-checkout"))
4841               (sha256
4842                (base32
4843                 "1gc2brr2rs495w7qi6spdva1xrza94x7a36dncjdkghnsq8r92h4"))))
4844     (build-system texlive-build-system)
4845     (arguments '(#:tex-directory "latex/appendix"))
4846     (home-page "https://www.ctan.org/pkg/appendix")
4847     (synopsis "Extra control of appendices")
4848     (description
4849      "The appendix package provides various ways of formatting the titles of
4850 appendices.  Also (sub)appendices environments are provided that can be used,
4851 for example, for per chapter/section appendices.  An @code{appendices}
4852 environment is provided which can be used instead of the @code{\\appendix}
4853 command.")
4854     (license license:lppl)))
4855
4856 (define-public texlive-latex-bookmark
4857   (package
4858     (inherit (simple-texlive-package
4859               "texlive-latex-bookmark"
4860               (list "/doc/latex/bookmark/"
4861                     "/tex/latex/bookmark/")
4862               (base32
4863                "1vl1rrydh5jh78llp4i5r1hvznghm9gddwcnfnzwlgp9z67gybh1")
4864               #:trivial? #t))
4865     (home-page "https://www.ctan.org/pkg/bookmark")
4866     (synopsis "Bookmark (outline) organization for hyperref")
4867     (description
4868      "This package implements a new bookmark (outline) organization for the
4869 @code{hyperref} package.  Bookmark properties such as style and color.  Other
4870 action types are available (URI, GoToR, Named).")
4871     (license license:lppl1.3c+)))
4872
4873 (define-public texlive-latex-changebar
4874   (package
4875     (name "texlive-latex-changebar")
4876     (version (number->string %texlive-revision))
4877     (source (origin
4878               (method svn-fetch)
4879               (uri (texlive-ref "latex" "changebar"))
4880               (file-name (string-append name "-" version "-checkout"))
4881               (sha256
4882                (base32
4883                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
4884     (build-system texlive-build-system)
4885     (arguments '(#:tex-directory "latex/changebar"))
4886     (home-page "https://www.ctan.org/pkg/changebar")
4887     (synopsis "Generate changebars in LaTeX documents")
4888     (description
4889      "Identify areas of text to be marked with changebars with the
4890 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
4891 package uses @code{drivers} to place the bars; the available drivers can work
4892 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
4893 drivers, and VTeX and pdfTeX.")
4894     (license license:lppl)))
4895
4896 (define-public texlive-latex-cmap
4897   (package
4898     (name "texlive-latex-cmap")
4899     (version (number->string %texlive-revision))
4900     (source (origin
4901               (method svn-fetch)
4902               (uri (svn-reference
4903                     (url (string-append "svn://www.tug.org/texlive/tags/"
4904                                         %texlive-tag "/Master/texmf-dist/"
4905                                         "/tex/latex/cmap"))
4906                     (revision %texlive-revision)))
4907               (file-name (string-append name "-" version "-checkout"))
4908               (sha256
4909                (base32
4910                 "1s1rv6zgw105w2j6ffhnk914qrix87y1ndzri1q72g2kbr91zlbg"))))
4911     (build-system trivial-build-system)
4912     (arguments
4913      `(#:modules ((guix build utils))
4914        #:builder
4915        (begin
4916          (use-modules (guix build utils))
4917          (let ((target (string-append (assoc-ref %outputs "out")
4918                                       "/share/texmf-dist/tex/latex/cmap")))
4919            (mkdir-p target)
4920            (copy-recursively (assoc-ref %build-inputs "source") target)
4921            #t))))
4922     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
4923 Master/texmf-dist/tex/latex/cmap/")
4924     (synopsis "CMap support for PDF files")
4925     (description
4926      "This package embeds CMap tables into PDF files to make search and
4927 copy-and-paste functions work properly.")
4928     (license license:lppl)))
4929
4930 (define-public texlive-latex-colortbl
4931   (package
4932     (name "texlive-latex-colortbl")
4933     (version (number->string %texlive-revision))
4934     (source (origin
4935               (method svn-fetch)
4936               (uri (texlive-ref "latex" "colortbl"))
4937               (file-name (string-append name "-" version "-checkout"))
4938               (sha256
4939                (base32
4940                 "1qa0mh0fy9hcvfsmprv6q50q0qzdjjfbxi3axap26z6zg3qj68bc"))))
4941     (build-system texlive-build-system)
4942     (arguments '(#:tex-directory "latex/colortbl"))
4943     (home-page "https://www.ctan.org/pkg/colortbl")
4944     (synopsis "Add colour to LaTeX tables")
4945     (description
4946      "This package allows rows, columns, and even individual cells in LaTeX
4947 tables to be coloured.")
4948     (license license:lppl)))
4949
4950 (define-public texlive-latex-fancybox
4951   (package
4952     (name "texlive-latex-fancybox")
4953     (version (number->string %texlive-revision))
4954     (source (origin
4955               (method svn-fetch)
4956               (uri (svn-reference
4957                     (url (string-append "svn://www.tug.org/texlive/tags/"
4958                                         %texlive-tag "/Master/texmf-dist/"
4959                                         "/tex/latex/fancybox"))
4960                     (revision %texlive-revision)))
4961               (file-name (string-append name "-" version "-checkout"))
4962               (sha256
4963                (base32
4964                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
4965     (build-system trivial-build-system)
4966     (arguments
4967      `(#:modules ((guix build utils))
4968        #:builder
4969        (begin
4970          (use-modules (guix build utils))
4971          (let ((target (string-append (assoc-ref %outputs "out")
4972                                       "/share/texmf-dist/tex/latex/fancybox")))
4973            (mkdir-p target)
4974            (copy-recursively (assoc-ref %build-inputs "source") target)
4975            #t))))
4976     (home-page "https://www.ctan.org/pkg/fancybox")
4977     (synopsis "Variants of \\fbox and other games with boxes")
4978     (description
4979      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
4980 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
4981 using box macros and flexible verbatim macros.  You can box mathematics,
4982 floats, center, flushleft, and flushright, lists, and pages.")
4983     (license license:lppl1.2+)))
4984
4985 (define-public texlive-latex-fancyhdr
4986   (package
4987     (name "texlive-latex-fancyhdr")
4988     (version (number->string %texlive-revision))
4989     (source (origin
4990               (method svn-fetch)
4991               (uri (svn-reference
4992                     (url (string-append "svn://www.tug.org/texlive/tags/"
4993                                         %texlive-tag "/Master/texmf-dist/"
4994                                         "/tex/latex/fancyhdr"))
4995                     (revision %texlive-revision)))
4996               (file-name (string-append name "-" version "-checkout"))
4997               (sha256
4998                (base32
4999                 "0hrwspqkqfahxyzzsnjyrxlgxj06zw1f3636gx76pvl4xhvdj1cj"))))
5000     (build-system trivial-build-system)
5001     (arguments
5002      `(#:modules ((guix build utils))
5003        #:builder
5004        (begin
5005          (use-modules (guix build utils))
5006          (let ((target (string-append (assoc-ref %outputs "out")
5007                                       "/share/texmf-dist/tex/latex/fancyhdr")))
5008            (mkdir-p target)
5009            (copy-recursively (assoc-ref %build-inputs "source") target)
5010            #t))))
5011     (home-page "https://www.ctan.org/pkg/fancyhdr")
5012     (synopsis "Extensive control of page headers and footers in LaTeX2e")
5013     (description
5014      "The package provides extensive facilities, both for constructing headers
5015 and footers, and for controlling their use (for example, at times when LaTeX
5016 would automatically change the heading style in use).")
5017     (license license:lppl)))
5018
5019 (define-public texlive-latex-float
5020   (package
5021     (name "texlive-latex-float")
5022     (version (number->string %texlive-revision))
5023     (source (origin
5024               (method svn-fetch)
5025               (uri (texlive-ref "latex" "float"))
5026               (file-name (string-append name "-" version "-checkout"))
5027               (sha256
5028                (base32
5029                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
5030     (build-system texlive-build-system)
5031     (arguments '(#:tex-directory "latex/float"))
5032     (home-page "https://www.ctan.org/pkg/float")
5033     (synopsis "Improved interface for floating objects")
5034     (description
5035      "This package improves the interface for defining floating objects such
5036 as figures and tables.  It introduces the boxed float, the ruled float and the
5037 plaintop float.  You can define your own floats and improve the behaviour of
5038 the old ones.  The package also provides the @code{H} float modifier option of
5039 the obsolete @code{here} package.  You can select this as automatic default
5040 with @code{\\floatplacement{figure}{H}}.")
5041     (license license:lppl)))
5042
5043 (define-public texlive-latex-footmisc
5044   (package
5045     (name "texlive-latex-footmisc")
5046     (version (number->string %texlive-revision))
5047     (source (origin
5048               (method svn-fetch)
5049               (uri (texlive-ref "latex" "footmisc"))
5050               (file-name (string-append name "-" version "-checkout"))
5051               (sha256
5052                (base32
5053                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
5054     (build-system texlive-build-system)
5055     (arguments '(#:tex-directory "latex/footmisc"))
5056     (home-page "https://www.ctan.org/pkg/footmisc")
5057     (synopsis "Range of footnote options")
5058     (description
5059      "This is a collection of ways to change the typesetting of footnotes.
5060 The package provides means of changing the layout of the footnotes themselves,
5061 a way to number footnotes per page, to make footnotes disappear in a
5062 \"moving\" argument, and to deal with multiple references to footnotes from
5063 the same place.  The package also has a range of techniques for labelling
5064 footnotes with symbols rather than numbers.")
5065     (license license:lppl1.3+)))
5066
5067 (define-public texlive-latex-letltxmacro
5068   (package
5069     (inherit (simple-texlive-package
5070               "texlive-latex-letltxmacro"
5071               (list "/doc/latex/letltxmacro/"
5072                     "/tex/latex/letltxmacro/")
5073               (base32
5074                "0yy1m1jiyxq2pssp0pidaa2swx6lyxw3zwpm2r8m0v2r3lvsyyxx")
5075               #:trivial? #t))
5076     (home-page "https://www.ctan.org/pkg/letltxmacro")
5077     (synopsis "Let assignment for macros")
5078     (description
5079      "TeX’s @code{\\let} assignment does not work for LaTeX macros with
5080 optional arguments, or for macros that are defined as robust macros by
5081 @code{\\DeclareRobustCommand}.  This package defines @code{\\LetLtxMacro}
5082 that also takes care of the involved internal macros.")
5083     (license license:lppl1.3c+)))
5084
5085 (define-public texlive-latex-listings
5086   (package
5087     (name "texlive-latex-listings")
5088     (version (number->string %texlive-revision))
5089     (source (origin
5090               (method svn-fetch)
5091               (uri (texlive-ref "latex" "listings"))
5092               (file-name (string-append name "-" version "-checkout"))
5093               (sha256
5094                (base32
5095                 "082zri3gp8s6p2difhk1pbix2vzmvsf6fmld2z78v35xwk3fiya0"))))
5096     (build-system texlive-build-system)
5097     (arguments
5098      '(#:tex-directory "latex/listings"
5099        #:build-targets '("listings.ins")))
5100     (home-page "https://www.ctan.org/pkg/listings")
5101     (synopsis "Typeset source code listings using LaTeX")
5102     (description
5103      "The package enables the user to typeset programs (programming code)
5104 within LaTeX; the source code is read directly by TeX---no front-end processor
5105 is needed.  Keywords, comments and strings can be typeset using different
5106 styles.  Support for @code{hyperref} is provided.")
5107     (license license:lppl1.3+)))
5108
5109 (define-public texlive-latex-jknapltx
5110   (package
5111     (name "texlive-latex-jknapltx")
5112     (version (number->string %texlive-revision))
5113     (source (origin
5114               (method svn-fetch)
5115               (uri (svn-reference
5116                     (url (string-append "svn://www.tug.org/texlive/tags/"
5117                                         %texlive-tag "/Master/texmf-dist/"
5118                                         "/tex/latex/jknapltx"))
5119                     (revision %texlive-revision)))
5120               (file-name (string-append name "-" version "-checkout"))
5121               (sha256
5122                (base32
5123                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
5124     (build-system trivial-build-system)
5125     (arguments
5126      `(#:modules ((guix build utils))
5127        #:builder
5128        (begin
5129          (use-modules (guix build utils))
5130          (let ((target (string-append (assoc-ref %outputs "out")
5131                                       "/share/texmf-dist/tex/latex/jknapltx")))
5132            (mkdir-p target)
5133            (copy-recursively (assoc-ref %build-inputs "source") target)
5134            #t))))
5135     (home-page "https://www.ctan.org/pkg/jknappen")
5136     (synopsis "Miscellaneous packages by Joerg Knappen")
5137     (description
5138      "This package provides miscellaneous macros by Joerg Knappen, including:
5139 represent counters in greek; Maxwell's non-commutative division;
5140 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
5141 @code{inputenc} definition files that allow verbatim input in the respective
5142 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
5143 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
5144 transliterate semitic languages; patches to make (La)TeX formulae embeddable
5145 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
5146     (license license:gpl2)))
5147
5148 (define-public texlive-fonts-ec
5149   (package
5150     (name "texlive-fonts-ec")
5151     (version (number->string %texlive-revision))
5152     (source (origin
5153               (method svn-fetch)
5154               (uri (svn-reference
5155                     (url (string-append "svn://www.tug.org/texlive/tags/"
5156                                         %texlive-tag "/Master/texmf-dist/"
5157                                         "/fonts/source/jknappen/ec/"))
5158                     (revision %texlive-revision)))
5159               (file-name (string-append name "-" version "-checkout"))
5160               (sha256
5161                (base32
5162                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
5163     (build-system gnu-build-system)
5164     (arguments
5165      `(#:modules ((guix build gnu-build-system)
5166                   (guix build utils)
5167                   (srfi srfi-1)
5168                   (srfi srfi-26))
5169        #:tests? #f                      ; no tests
5170        #:phases
5171        (modify-phases %standard-phases
5172          (delete 'configure)
5173          (replace 'build
5174            (lambda* (#:key inputs #:allow-other-keys)
5175              (let ((mf (assoc-ref inputs "texlive-metafont")))
5176                ;; Tell mf where to find mf.base
5177                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5178                ;; Tell mf where to look for source files
5179                (setenv "MFINPUTS"
5180                        (string-append (getcwd) ":"
5181                                       mf "/share/texmf-dist/metafont/base:"
5182                                       (assoc-ref inputs "texlive-cm")
5183                                       "/share/texmf-dist/fonts/source/public/cm")))
5184              (mkdir "build")
5185              (for-each (lambda (font)
5186                          (format #t "building font ~a\n" font)
5187                          (invoke "mf" "-progname=mf"
5188                                  "-output-directory=build"
5189                                  (string-append "\\"
5190                                                 "mode:=ljfour; "
5191                                                 "mag:=1; "
5192                                                 "batchmode; "
5193                                                 "input " (basename font ".mf"))))
5194                        (find-files "." "[0-9]+\\.mf$"))
5195              #t))
5196          (replace 'install
5197            (lambda* (#:key outputs #:allow-other-keys)
5198              (let* ((out (assoc-ref outputs "out"))
5199                     (tfm (string-append
5200                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
5201                     (mf  (string-append
5202                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
5203                (for-each (cut install-file <> tfm)
5204                          (find-files "build" "\\.*"))
5205                (for-each (cut install-file <> mf)
5206                          (find-files "." "\\.mf"))
5207                #t))))))
5208     (native-inputs
5209      `(("texlive-bin" ,texlive-bin)
5210        ("texlive-metafont" ,texlive-metafont)
5211        ("texlive-cm" ,texlive-cm)))
5212     (home-page "https://www.ctan.org/pkg/ec")
5213     (synopsis "Computer modern fonts in T1 and TS1 encodings")
5214     (description
5215      "The EC fonts are European Computer Modern Fonts, supporting the complete
5216 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
5217 These fonts are intended to be stable with no changes being made to the tfm
5218 files.  The set also contains a Text Companion Symbol font, called @code{tc},
5219 featuring many useful characters needed in text typesetting, for example
5220 oldstyle digits, currency symbols (including the newly created Euro symbol),
5221 the permille sign, copyright, trade mark and servicemark as well as a copyleft
5222 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
5223 EC fonts supersede the preliminary version released as the DC fonts.  The
5224 fonts are available in (traced) Adobe Type 1 format, as part of the
5225 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
5226 set, Latin Modern, is not actually a direct development of the EC set, and
5227 differs from the EC in a number of particulars.")
5228     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
5229 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
5230
5231 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
5232 ;; fails with obscure TeX-typical error messages.
5233 (define-public texlive-ae
5234   (package
5235     (inherit (simple-texlive-package
5236               "texlive-ae"
5237               (list "/doc/fonts/ae/"
5238                     "/source/fonts/ae/"
5239                     "/fonts/tfm/public/ae/"
5240                     "/fonts/vf/public/ae/"
5241                     "/tex/latex/ae/")
5242               (base32
5243                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
5244               #:trivial? #t))
5245     (home-page "https://www.ctan.org/pkg/ae")
5246     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
5247     (description
5248      "This package provides a set of virtual fonts which emulates T1 coded
5249 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
5250 stands for \"Almost European\".  The main use of the package was to produce
5251 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
5252 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
5253 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
5254     (license license:lppl1.3+)))
5255
5256 (define-public texlive-inconsolata
5257   (package
5258     (inherit (simple-texlive-package
5259               "texlive-inconsolata"
5260               (list "/doc/fonts/inconsolata/"
5261                     "/fonts/enc/dvips/inconsolata/"
5262                     "/fonts/map/dvips/inconsolata/"
5263                     "/fonts/opentype/public/inconsolata/"
5264                     "/fonts/tfm/public/inconsolata/"
5265                     "/fonts/type1/public/inconsolata/"
5266                     "/tex/latex/inconsolata/")
5267               (base32
5268                "19lvma52vk7x8d7j4s9ymjwm3w2k08860fh6dkzn76scgpdm4wlb")
5269               #:trivial? #t))
5270     (home-page "https://www.ctan.org/pkg/inconsolata")
5271     (synopsis "Monospaced font with support files for use with TeX")
5272     (description
5273      "Inconsolata is a monospaced font designed by Raph Levien.  This package
5274 contains the font (in both Adobe Type 1 and OpenType formats) in regular and
5275 bold weights, with additional glyphs and options to control slashed zero,
5276 upright quotes and a shapelier lower-case L, plus metric files for use with
5277 TeX, and LaTeX font definition and other relevant files.")
5278     (license (list license:lppl1.3+
5279                    license:silofl1.1
5280                    license:asl2.0))))
5281
5282 (define-public texlive-times
5283   (package
5284     (inherit (simple-texlive-package
5285               "texlive-times"
5286               (list "/dvips/times/"
5287                     "/fonts/afm/adobe/times/"
5288                     "/fonts/afm/urw/times/"
5289                     "/fonts/tfm/adobe/times/"
5290                     "/fonts/tfm/urw35vf/times/"
5291                     "/fonts/type1/urw/times/"
5292                     "/fonts/vf/adobe/times/"
5293                     "/fonts/vf/urw35vf/times/"
5294                     "/fonts/map/dvips/times/"
5295                     "/tex/latex/times/")
5296               (base32
5297                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
5298               #:trivial? #t))
5299     (home-page "https://ctan.org/pkg/urw-base35")
5300     (synopsis "URW Base 35 font pack for LaTeX")
5301     (description
5302      "This package provides a drop-in replacements for the Times font from
5303 Adobe's basic set.")
5304     ;; No license version specified.
5305     (license license:gpl3+)))
5306
5307 (define-public texlive-fonts-adobe-times
5308   (deprecated-package "texlive-fonts-adobe-times" texlive-times))
5309
5310 (define-public texlive-palatino
5311   (package
5312     (inherit (simple-texlive-package
5313               "texlive-palatino"
5314               (list "/dvips/palatino/"
5315                     "/fonts/afm/adobe/palatino/"
5316                     "/fonts/afm/urw/palatino/"
5317                     "/fonts/tfm/adobe/palatino/"
5318                     "/fonts/tfm/urw35vf/palatino/"
5319                     "/fonts/type1/urw/palatino/"
5320                     "/fonts/vf/adobe/palatino/"
5321                     "/fonts/vf/urw35vf/palatino/"
5322
5323                     "/fonts/map/dvips/palatino/"
5324                     "/tex/latex/palatino/")
5325               (base32
5326                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
5327               #:trivial? #t))
5328     (home-page "https://ctan.org/pkg/urw-base35")
5329     (synopsis "URW Base 35 font pack for LaTeX")
5330     (description
5331      "This package provides a drop-in replacements for the Palatino font from
5332 Adobe's basic set.")
5333     ;; No license version specified.
5334     (license license:gpl3+)))
5335
5336 (define-public texlive-fonts-adobe-palatino
5337   (deprecated-package "texlive-fonts-adobe-palatino" texlive-palatino))
5338
5339 (define-public texlive-zapfding
5340   (package
5341     (inherit (simple-texlive-package
5342               "texlive-zapfding"
5343               (list "/dvips/zapfding/"
5344                     "/fonts/afm/adobe/zapfding/"
5345                     "/fonts/afm/urw/zapfding/"
5346                     "/fonts/tfm/adobe/zapfding/"
5347                     "/fonts/tfm/urw35vf/zapfding/"
5348                     "/fonts/type1/urw/zapfding/"
5349                     "/fonts/map/dvips/zapfding/"
5350                     "/tex/latex/zapfding/")
5351               (base32
5352                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
5353               #:trivial? #t))
5354     (home-page "https://ctan.org/pkg/urw-base35")
5355     (synopsis "URW Base 35 font pack for LaTeX")
5356     (description
5357      "This package provides a drop-in replacements for the Zapfding font from
5358 Adobe's basic set.")
5359     ;; No license version specified.
5360     (license license:gpl3+)))
5361
5362 (define-public texlive-fonts-adobe-zapfding
5363   (deprecated-package "texlive-fonts-adobe-zapfding" texlive-zapfding))
5364
5365 (define-public texlive-fonts-rsfs
5366   (package
5367     (name "texlive-fonts-rsfs")
5368     (version (number->string %texlive-revision))
5369     (source (origin
5370               (method svn-fetch)
5371               (uri (svn-reference
5372                     (url (string-append "svn://www.tug.org/texlive/tags/"
5373                                         %texlive-tag "/Master/texmf-dist/"
5374                                         "/fonts/source/public/rsfs/"))
5375                     (revision %texlive-revision)))
5376               (file-name (string-append name "-" version "-checkout"))
5377               (sha256
5378                (base32
5379                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
5380     (build-system gnu-build-system)
5381     (arguments
5382      `(#:modules ((guix build gnu-build-system)
5383                   (guix build utils)
5384                   (srfi srfi-1)
5385                   (srfi srfi-26))
5386        #:tests? #f                      ; no tests
5387        #:phases
5388        (modify-phases %standard-phases
5389          (delete 'configure)
5390          (replace 'build
5391            (lambda* (#:key inputs #:allow-other-keys)
5392              (let ((mf (assoc-ref inputs "texlive-metafont")))
5393                ;; Tell mf where to find mf.base
5394                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5395                ;; Tell mf where to look for source files
5396                (setenv "MFINPUTS"
5397                        (string-append (getcwd) ":"
5398                                       mf "/share/texmf-dist/metafont/base:"
5399                                       (assoc-ref inputs "texlive-cm")
5400                                       "/share/texmf-dist/fonts/source/public/cm")))
5401              (mkdir "build")
5402              (for-each (lambda (font)
5403                          (format #t "building font ~a\n" font)
5404                          (invoke "mf" "-progname=mf"
5405                                  "-output-directory=build"
5406                                  (string-append "\\"
5407                                                 "mode:=ljfour; "
5408                                                 "mag:=1; "
5409                                                 "batchmode; "
5410                                                 "input " (basename font ".mf"))))
5411                        (find-files "." "[0-9]+\\.mf$"))
5412              #t))
5413          (replace 'install
5414            (lambda* (#:key outputs #:allow-other-keys)
5415              (let* ((out (assoc-ref outputs "out"))
5416                     (tfm (string-append
5417                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
5418                     (mf  (string-append
5419                           out "/share/texmf-dist/fonts/source/public/rsfs")))
5420                (for-each (cut install-file <> tfm)
5421                          (find-files "build" "\\.*"))
5422                (for-each (cut install-file <> mf)
5423                          (find-files "." "\\.mf"))
5424                #t))))))
5425     (native-inputs
5426      `(("texlive-bin" ,texlive-bin)
5427        ("texlive-metafont" ,texlive-metafont)
5428        ("texlive-cm" ,texlive-cm)))
5429     (home-page "https://www.ctan.org/pkg/rsfs")
5430     (synopsis "Ralph Smith's Formal Script font")
5431     (description
5432      "The fonts provide uppercase formal script letters for use as symbols in
5433 scientific and mathematical typesetting (in contrast to the informal script
5434 fonts such as that used for the calligraphic symbols in the TeX maths symbol
5435 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
5436 format.  LaTeX support, for using these fonts in mathematics, is available via
5437 one of the packages @code{calrsfs} and @code{mathrsfs}.")
5438     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
5439
5440 (define-public texlive-latex-eso-pic
5441   (package
5442     (name "texlive-latex-eso-pic")
5443     (version (number->string %texlive-revision))
5444     (source (origin
5445               (method svn-fetch)
5446               (uri (texlive-ref "latex" "eso-pic"))
5447               (file-name (string-append name "-" version "-checkout"))
5448               (sha256
5449                (base32
5450                 "0y2y08kr3w6asm9lblj9yywqmhaal36fq71zzcbfsc7cvwf641q7"))))
5451     (build-system texlive-build-system)
5452     (arguments '(#:tex-directory "latex/eso-pic"))
5453     (home-page "https://www.ctan.org/pkg/eso-pic")
5454     (synopsis "Add picture commands (or backgrounds) to every page")
5455     (description
5456      "The package adds one or more user commands to LaTeX's @code{shipout}
5457 routine, which may be used to place the output at fixed positions.  The
5458 @code{grid} option may be used to find the correct places.")
5459     (license license:lppl1.3+)))
5460
5461 (define-public texlive-latex-eepic
5462   (package
5463     (name "texlive-latex-eepic")
5464     (version (number->string %texlive-revision))
5465     (source (origin
5466               (method svn-fetch)
5467               (uri (svn-reference
5468                     (url (string-append "svn://www.tug.org/texlive/tags/"
5469                                         %texlive-tag "/Master/texmf-dist/"
5470                                         "/tex/latex/eepic"))
5471                     (revision %texlive-revision)))
5472               (file-name (string-append name "-" version "-checkout"))
5473               (sha256
5474                (base32
5475                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
5476     (build-system trivial-build-system)
5477     (arguments
5478      `(#:modules ((guix build utils))
5479        #:builder
5480        (begin
5481          (use-modules (guix build utils))
5482          (let ((target (string-append (assoc-ref %outputs "out")
5483                                       "/share/texmf-dist/tex/latex/eepic")))
5484            (mkdir-p target)
5485            (copy-recursively (assoc-ref %build-inputs "source") target)
5486            #t))))
5487     (home-page "https://www.ctan.org/pkg/eepic")
5488     (synopsis "Extensions to epic and the LaTeX drawing tools")
5489     (description
5490      "Extensions to @code{epic} and the LaTeX picture drawing environment,
5491 include the drawing of lines at any slope, the drawing of circles in any
5492 radii, and the drawing of dotted and dashed lines much faster with much less
5493 TeX memory, and providing several new commands for drawing ellipses, arcs,
5494 splines, and filled circles and ellipses.  The package uses @code{tpic}
5495 @code{\\special} commands.")
5496     (license license:public-domain)))
5497
5498 (define-public texlive-latex-enumitem
5499   (package
5500     (name "texlive-latex-enumitem")
5501     (version (number->string %texlive-revision))
5502     (source (origin
5503               (method svn-fetch)
5504               (uri (svn-reference
5505                     (url (string-append "svn://www.tug.org/texlive/tags/"
5506                                         %texlive-tag "/Master/texmf-dist/"
5507                                         "/tex/latex/enumitem"))
5508                     (revision %texlive-revision)))
5509               (file-name (string-append name "-" version "-checkout"))
5510               (sha256
5511                (base32
5512                 "1j8svflnx9w897mdavyf1f0n256wh4bbclrhv5vx7b501gmlbp7d"))))
5513     (build-system trivial-build-system)
5514     (arguments
5515      `(#:modules ((guix build utils))
5516        #:builder
5517        (begin
5518          (use-modules (guix build utils))
5519          (let ((target (string-append (assoc-ref %outputs "out")
5520                                       "/share/texmf-dist/tex/latex/enumitem")))
5521            (mkdir-p target)
5522            (copy-recursively (assoc-ref %build-inputs "source") target)
5523            #t))))
5524     (home-page "https://www.ctan.org/pkg/enumitem")
5525     (synopsis "Customize basic list environments")
5526     (description
5527      "This package is intended to ease customizing the three basic list
5528 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5529 extends their syntax to allow an optional argument where a set of parameters
5530 in the form @code{key=value} are available, for example:
5531 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5532     (license license:lppl1.3+)))
5533
5534 (define-public texlive-latex-multirow
5535   (package
5536     (name "texlive-latex-multirow")
5537     (version (number->string %texlive-revision))
5538     (source (origin
5539               (method svn-fetch)
5540               (uri (texlive-ref "latex" "multirow"))
5541               (file-name (string-append name "-" version "-checkout"))
5542               (sha256
5543                (base32
5544                 "1bfpl8mr4h3p46649wb7pdkc3l44r8fqbv89abb3jj0zh8c10928"))))
5545     (build-system texlive-build-system)
5546     (arguments '(#:tex-directory "latex/multirow"))
5547     (home-page "https://www.ctan.org/pkg/multirow")
5548     (synopsis "Create tabular cells spanning multiple rows")
5549     (description
5550      "The package provides tools for creating tabular cells spanning multiple
5551 rows.  It has a lot of flexibility, including an option for specifying an
5552 entry at the \"natural\" width of its text.")
5553     (license license:lppl1.3+)))
5554
5555 (define-public texlive-latex-overpic
5556   (package
5557     (name "texlive-latex-overpic")
5558     (version (number->string %texlive-revision))
5559     (source (origin
5560               (method svn-fetch)
5561               (uri (svn-reference
5562                     (url (string-append "svn://www.tug.org/texlive/tags/"
5563                                         %texlive-tag "/Master/texmf-dist/"
5564                                         "/tex/latex/overpic"))
5565                     (revision %texlive-revision)))
5566               (file-name (string-append name "-" version "-checkout"))
5567               (sha256
5568                (base32
5569                 "1ygsr0rsdabj61zask3346xrwiphz5i6f1nfb9k4d3234psh09kb"))))
5570     (build-system trivial-build-system)
5571     (arguments
5572      `(#:modules ((guix build utils))
5573        #:builder
5574        (begin
5575          (use-modules (guix build utils))
5576          (let ((target (string-append (assoc-ref %outputs "out")
5577                                       "/share/texmf-dist/tex/latex/overpic")))
5578            (mkdir-p target)
5579            (copy-recursively (assoc-ref %build-inputs "source") target)
5580            #t))))
5581     (home-page "https://www.ctan.org/pkg/overpic")
5582     (synopsis "Combine LaTeX commands over included graphics")
5583     (description
5584      "The @code{overpic} environment is a cross between the LaTeX
5585 @code{picture} environment and the @code{\\includegraphics} command of
5586 @code{graphicx}.  The resulting picture environment has the same dimensions as
5587 the included graphic.  LaTeX commands can be placed on the graphic at defined
5588 positions; a grid for orientation is available.")
5589     (license license:lppl1.0+)))
5590
5591 (define-public texlive-latex-parskip
5592   (package
5593     (name "texlive-latex-parskip")
5594     (version (number->string %texlive-revision))
5595     (source (origin
5596               (method svn-fetch)
5597               (uri (svn-reference
5598                     (url (string-append "svn://www.tug.org/texlive/tags/"
5599                                         %texlive-tag "/Master/texmf-dist/"
5600                                         "/tex/latex/parskip"))
5601                     (revision %texlive-revision)))
5602               (file-name (string-append name "-" version "-checkout"))
5603               (sha256
5604                (base32
5605                 "12kdsrr55lp0s4xl279gh6mi9gw909vmd96p10dvhbazgxn3ccxs"))))
5606     (build-system trivial-build-system)
5607     (arguments
5608      `(#:modules ((guix build utils))
5609        #:builder
5610        (begin
5611          (use-modules (guix build utils))
5612          (let ((target (string-append (assoc-ref %outputs "out")
5613                                       "/share/texmf-dist/tex/latex/parskip")))
5614            (mkdir-p target)
5615            (copy-recursively (assoc-ref %build-inputs "source") target)
5616            #t))))
5617     (home-page "https://www.ctan.org/pkg/parskip")
5618     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5619     (description
5620      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5621 that is untidy; this package (though it is no substitute for a properly
5622 designed class) helps alleviate this untidiness.")
5623     (license license:lppl)))
5624
5625 (define-public texlive-latex-pdfpages
5626   (package
5627     (name "texlive-latex-pdfpages")
5628     (version (number->string %texlive-revision))
5629     (source (origin
5630               (method svn-fetch)
5631               (uri (texlive-ref "latex" "pdfpages"))
5632               (file-name (string-append name "-" version "-checkout"))
5633               (sha256
5634                (base32
5635                 "1r1g9lb6bqjrahqmdkazsnifcyxgkp8r33za2h60h50jfvrab66f"))))
5636     (build-system texlive-build-system)
5637     (arguments '(#:tex-directory "latex/pdfpages"))
5638     (home-page "https://www.ctan.org/pkg/pdfpages")
5639     (synopsis "Include PDF documents in LaTeX")
5640     (description
5641      "This package simplifies the inclusion of external multi-page PDF
5642 documents in LaTeX documents.  Pages may be freely selected and it is possible
5643 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5644 hypertext features like hyperlinks and article threads are provided.  The
5645 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5646 use this package to insert PostScript files, in addition to PDF files.")
5647     (license license:lppl1.3+)))
5648
5649 (define-public texlive-stmaryrd
5650   (let ((template (simple-texlive-package
5651                    "texlive-stmaryrd"
5652                    (list "/fonts/afm/public/stmaryrd/"
5653                          "/fonts/map/dvips/stmaryrd/"
5654                          "/fonts/source/public/stmaryrd/"
5655                          "/fonts/tfm/public/stmaryrd/"
5656                          "/fonts/type1/public/stmaryrd/"
5657                          "/source/fonts/stmaryrd/"
5658                          "/doc/fonts/stmaryrd/")
5659                    (base32
5660                     "0yn0yl6x1z9ab5gb56lhvkqabd2agz3ggxifwxkiysrj5780j29z"))))
5661     (package
5662       (inherit template)
5663       (arguments (substitute-keyword-arguments (package-arguments template)
5664                    ((#:tex-directory _ #t)
5665                     "latex/stmaryrd")
5666                    ((#:phases phases)
5667                     `(modify-phases ,phases
5668                        (add-after 'unpack 'chdir
5669                          (lambda _
5670                            (chdir "source/fonts/stmaryrd")
5671                            #t))
5672                        (add-after 'chdir 'patch-ins
5673                          (lambda _
5674                            (substitute* "stmaryrd.ins"
5675                              (("^%% LaTeX2e.*") "\\input docstrip\n")
5676                              (("fontdef\\}\\}" line)
5677                               (string-append line "\n\\endbatchfile")))
5678                            #t))))))
5679       (home-page "https://www.ctan.org/pkg/stmaryrd")
5680       (synopsis "St Mary Road symbols for theoretical computer science")
5681       (description
5682        "The fonts were originally distributed as Metafont sources only, but
5683 Adobe Type 1 versions are also now available.  Macro support is provided for
5684 use under LaTeX; the package supports the @code{only} option (provided by the
5685 @code{somedefs} package) to restrict what is loaded, for those who don't need
5686 the whole font.")
5687       (license license:lppl))))
5688
5689 (define-public texlive-fonts-stmaryrd
5690   (deprecated-package "texlive-fonts-stmaryrd" texlive-stmaryrd))
5691
5692 (define-public texlive-latex-subfigure
5693   (package
5694     (name "texlive-latex-subfigure")
5695     (version (number->string %texlive-revision))
5696     (source (origin
5697               (method svn-fetch)
5698               (uri (texlive-ref "latex" "subfigure"))
5699               (file-name (string-append name "-" version "-checkout"))
5700               (sha256
5701                (base32
5702                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5703     (build-system texlive-build-system)
5704     (arguments '(#:tex-directory "latex/subfigure"))
5705     (home-page "https://www.ctan.org/pkg/subfigure")
5706     (synopsis "Figures divided into subfigures")
5707     (description
5708      "This (deprecated) package provides support for the manipulation and
5709 reference of small or \"sub\" figures and tables within a single figure or
5710 table environment.  It is convenient to use this package when your subfigures
5711 are to be separately captioned, referenced, or are to be included in the
5712 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
5713 used inside a figure environment for each subfigure.  An optional first
5714 argument is used as the caption for that subfigure.  The package is now
5715 considered obsolete: it was superseded by @code{subfig}, but users may find
5716 the more recent @code{subcaption} package more satisfactory.")
5717     (license license:lppl)))
5718
5719 (define-public texlive-latex-tabulary
5720   (package
5721     (name "texlive-latex-tabulary")
5722     (version (number->string %texlive-revision))
5723     (source (origin
5724               (method svn-fetch)
5725               (uri (texlive-ref "latex" "tabulary"))
5726               (file-name (string-append name "-" version "-checkout"))
5727               (sha256
5728                (base32
5729                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
5730     (build-system texlive-build-system)
5731     (arguments '(#:tex-directory "latex/tabulary"))
5732     (home-page "https://www.ctan.org/pkg/tabulary")
5733     (synopsis "Tabular with variable width columns balanced")
5734     (description
5735      "The package defines a @code{tabular*}-like environment, @code{tabulary},
5736 taking a \"total width\" argument as well as the column specifications.  The
5737 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
5738 variable width columns (@code{\\raggedright}, @code{\\centering},
5739 @code{\\raggedleft}, and normally justified).  In contrast to
5740 @code{tabularx}'s @code{X} columns, the width of each column is weighted
5741 according to the natural width of the widest cell in the column.")
5742     (license license:lppl)))
5743
5744 (define-public texlive-latex-threeparttable
5745   (package
5746     (name "texlive-latex-threeparttable")
5747     (version (number->string %texlive-revision))
5748     (source (origin
5749               (method svn-fetch)
5750               (uri (svn-reference
5751                     (url (string-append "svn://www.tug.org/texlive/tags/"
5752                                         %texlive-tag "/Master/texmf-dist/"
5753                                         "/tex/latex/threeparttable"))
5754                     (revision %texlive-revision)))
5755               (file-name (string-append name "-" version "-checkout"))
5756               (sha256
5757                (base32
5758                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
5759     (build-system trivial-build-system)
5760     (arguments
5761      `(#:modules ((guix build utils))
5762        #:builder
5763        (begin
5764          (use-modules (guix build utils))
5765          (let ((target (string-append (assoc-ref %outputs "out")
5766                                       "/share/texmf-dist/tex/latex/threeparttable")))
5767            (mkdir-p target)
5768            (copy-recursively (assoc-ref %build-inputs "source") target)
5769            #t))))
5770     (home-page "https://www.ctan.org/pkg/threeparttable")
5771     (synopsis "Tables with captions and notes all the same width")
5772     (description
5773      "This package facilitates tables with titles (captions) and notes.  The
5774 title and notes are given a width equal to the body of the table (a
5775 @code{tabular} environment).  By itself, a @code{threeparttable} does not
5776 float, but you can put it in a @code{table} or a @code{table*} or some other
5777 environment.")
5778     (license (license:fsf-free "file://threeparttable.sty"))))
5779
5780 (define-public texlive-txfonts
5781   (package
5782     (inherit (simple-texlive-package
5783               "texlive-txfonts"
5784               (list "/doc/fonts/txfonts/"
5785
5786                     "/fonts/afm/public/txfonts/"
5787                     "/fonts/tfm/public/txfonts/"
5788                     "/fonts/type1/public/txfonts/"
5789                     "/fonts/vf/public/txfonts/"
5790
5791                     "/fonts/map/dvips/txfonts/"
5792                     "/fonts/enc/dvips/txfonts/"
5793                     "/tex/latex/txfonts/")
5794               (base32
5795                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
5796               #:trivial? #t))
5797     (home-page "https://www.ctan.org/pkg/txfonts")
5798     (synopsis "Times-like fonts in support of mathematics")
5799     (description
5800      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
5801 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
5802 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
5803 providing all the symbols of the Computer Modern and AMS fonts, including all
5804 the Greek capital letters from CMR; and additional maths fonts of various
5805 other symbols.
5806
5807 The set is complemented by a sans-serif set of text fonts, based on
5808 Helvetica/NimbusSanL, and a monospace set.
5809
5810 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
5811 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
5812     ;; Any version of the GPL with font exception.
5813     (license license:gpl3+)))
5814
5815 (define-public texlive-fonts-txfonts
5816   (deprecated-package "texlive-fonts-txfonts" texlive-txfonts))
5817
5818 (define-public texlive-fonts-iwona
5819   (package
5820     (name "texlive-fonts-iwona")
5821     (version "0.995b")
5822     (source (origin
5823               (method url-fetch)
5824               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
5825                                   (string-map (lambda (c)
5826                                                 (if (char=? c #\.)
5827                                                     #\_ c))
5828                                               version)
5829                                   ".zip"))
5830               (sha256
5831                (base32
5832                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
5833     (build-system trivial-build-system)
5834     (arguments
5835      `(#:modules ((guix build utils))
5836        #:builder
5837        (begin
5838          (use-modules (guix build utils))
5839          (let ((target (string-append (assoc-ref %outputs "out")
5840                                       "/share/texmf-dist/"))
5841                (unzip  (string-append (assoc-ref %build-inputs "unzip")
5842                                       "/bin/unzip")))
5843            (invoke unzip (assoc-ref %build-inputs "source"))
5844            (mkdir-p target)
5845            (copy-recursively "iwona" target)
5846            #t))))
5847     (native-inputs
5848      `(("unzip" ,unzip)))
5849     (home-page "http://jmn.pl/en/kurier-i-iwona/")
5850     (synopsis "Sans-serif typeface for TeX")
5851     (description "Iwona is a two-element sans-serif typeface. It was created
5852 as an alternative version of the Kurier typeface, which was designed in 1975
5853 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
5854 supervision of Roman Tomaszewski.  Kurier was designed for linotype
5855 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
5856 alternative version of the Kurier fonts.  The difference lies in the absence
5857 of ink traps which typify the Kurier font.")
5858     (license license:gfl1.0)))
5859
5860 (define-public texlive-jknappen
5861   (package
5862     (inherit (simple-texlive-package
5863               "texlive-jknappen"
5864               (list "/fonts/source/jknappen/"
5865                     "/fonts/tfm/jknappen/"
5866                     "/tex4ht/ht-fonts/alias/jknappen/"
5867                     "/tex4ht/ht-fonts/unicode/jknappen/")
5868               (base32
5869                "0xvy3c845jc7iw1h9rcm1r2yvm1ni1sm9r9k9j2cfc82xy43rwij")
5870               #:trivial? #t))
5871     (home-page "https://www.ctan.org/pkg/jknappen")
5872     (synopsis "Miscellaneous packages by Jörg Knappen")
5873     (description
5874      "This package contains a collection of macros by Jörg Knappen:
5875 @table @code
5876 @item greekctr
5877 New counterstyles @code{\\greek} and @code{\\Greek}.
5878 @item holtpolt
5879 Non-commutative fractions
5880 @item latin1jk
5881 @itemx latin2jk
5882 @itemx latin3jk
5883 Inputenc definition files that allow verbatim input in the respective ISO
5884 Latin codes.
5885 @item mathbol
5886 Blackboard bold fonts for use in maths.
5887 @item mathrsfs
5888 Mathematical script letters, as traditionally used in physics for Lagrangian,
5889 Hamiltonian, path integral measures, etc.
5890 @item parboxx
5891 New alignment options for parboxen at top and bottom of the box.
5892 @item sans
5893 Interchanges the roles of sans serif and roman fonts throughout the document.
5894 @item semtrans
5895 Support for special latin letters and diacritics used in transliteration of
5896 semitic languages
5897 @item smartmn
5898 Intelligent hyphen/minus, which guesses whether to render as hyphen or minus.
5899 @item sgmlcmpt
5900 Commands replacing the characters <, >, and &.
5901 @item tccompat
5902 A compatibility package for users of the older versions of the textcomp package.
5903 @item young
5904 Simple Young tableaux.
5905 @end table")
5906     (license license:gpl2)))                    ;per the 00readme_txt file.
5907
5908 (define-public texlive-jadetex
5909   (let ((template (simple-texlive-package
5910                    "texlive-jadetex"
5911                    (list "/doc/man/man1/jadetex.1"
5912                          "/doc/man/man1/jadetex.man1.pdf"
5913                          "/doc/man/man1/pdfjadetex.1"
5914                          "/doc/man/man1/pdfjadetex.man1.pdf"
5915                          "/source/jadetex/base/"
5916                          ;; The following files are not generated from
5917                          ;; sources.
5918                          "/tex/jadetex/base/jadetex.ini"
5919                          "/tex/jadetex/base/pdfjadetex.ini"
5920                          "/tex/jadetex/base/uentities.sty")
5921                    (base32
5922                     "03chyc3vjqgxcj985gy4k0bd0lf1n4a6sgbhc7k84jparjk3hx4i"))))
5923     (package
5924       (inherit template)
5925       (arguments
5926        (substitute-keyword-arguments (package-arguments template)
5927          ((#:tex-directory _ #t)
5928           "jadetex/base")
5929          ((#:phases phases)
5930           `(modify-phases ,phases
5931              (add-after 'unpack 'unify-source-directory
5932                (lambda _
5933                  (chdir "source/jadetex/base")
5934                  (for-each (lambda (f)
5935                              (copy-file f (basename f)))
5936                            (find-files "../../../tex/jadetex/base"))
5937                  #t))
5938              (add-after 'build 'generate-formats
5939                (lambda* (#:key inputs #:allow-other-keys)
5940                  (mkdir "web2c")
5941                  (for-each (lambda (f)
5942                              (symlink f (basename f)))
5943                            (find-files "build"))
5944                  (invoke "fmtutil-sys" "--byfmt" "jadetex"
5945                          "--fmtdir=web2c")
5946                  (invoke "fmtutil-sys" "--byfmt" "pdfjadetex"
5947                          "--fmtdir=web2c")))
5948              (add-after 'install 'install-formats-and-wrappers
5949                (lambda* (#:key inputs outputs #:allow-other-keys)
5950                  (let* ((out (assoc-ref outputs "out"))
5951                         (texlive-bin (assoc-ref inputs "texlive-bin"))
5952                         (pdftex (string-append texlive-bin "/bin/pdftex"))
5953                         (web2c (string-append out "/share/texmf-dist/web2c")))
5954                    (mkdir-p web2c)
5955                    (copy-recursively "web2c" web2c)
5956                    ;; Create convenience command wrappers.
5957                    (mkdir-p (string-append out "/bin"))
5958                    (symlink pdftex (string-append out "/bin/jadetex"))
5959                    (symlink pdftex (string-append out "/bin/pdfjadetex"))
5960                    #t)))))))
5961       (propagated-inputs
5962        ;; Propagate the texlive-updmap.cfg input used by xmltex, which provides the
5963        ;; required fonts for its use.
5964        `(("texlive-xmltex" ,texlive-xmltex)
5965          ("texlive-kpathsea" ,texlive-kpathsea))) ;for fmtutil.cnf template
5966       (native-inputs
5967        `(("texlive-cm" ,texlive-cm)     ;for cmex10 and others
5968          ("texlive-fonts-latex" ,texlive-fonts-latex) ;for lasy6
5969          ;; The t1cmr.fd file of texlive-latex-base refers to the ecrm font,
5970          ;; provided by the jknappen package collection.
5971          ("texlive-jknappen" ,texlive-jknappen)
5972          ("texlive-generic-ulem" ,texlive-generic-ulem)
5973          ("texlive-hyperref" ,texlive-hyperref)
5974          ("texlive-latex-colortbl" ,texlive-latex-colortbl)
5975          ("texlive-latex-fancyhdr" ,texlive-latex-fancyhdr)
5976          ("texlive-latex-graphics" ,texlive-latex-graphics) ;for color.sty
5977          ("texlive-latex-tools" ,texlive-latex-tools)       ;for array.sty
5978          ("texlive-marvosym" ,texlive-marvosym)
5979          ("texlive-tex-ini-files" ,texlive-tex-ini-files))) ;for pdftexconfig
5980       (home-page "https://www.ctan.org/pkg/jadetex/")
5981       (synopsis "TeX macros to produce TeX output using OpenJade")
5982       (description "JadeTeX is a companion package to the OpenJade DSSSL
5983 processor.  OpenJade applies a DSSSL stylesheet to an SGML or XML document.
5984 The output of this process can be in a number of forms, including a set of
5985 high level LaTeX macros.  It is the task of the JadeTeX package to transform
5986 these macros into DVI/PostScript (using the @command{jadetex} command) or
5987 Portable Document Format (PDF) form (using the @command{pdfjadetex}
5988 command).")
5989       ;; The license text is found at the header of the jadetex.dtx file.
5990       (license license:expat))))
5991
5992 (define-public texlive-libertine
5993   (package
5994     (inherit (simple-texlive-package
5995               "texlive-libertine"
5996               (list "/doc/fonts/libertine/"
5997
5998                     "/fonts/enc/dvips/libertine/"
5999                     "/fonts/map/dvips/libertine/"
6000                     "/fonts/opentype/public/libertine/"
6001                     "/fonts/tfm/public/libertine/"
6002                     "/fonts/type1/public/libertine/"
6003                     "/fonts/vf/public/libertine/"
6004
6005                     "/tex/latex/libertine/")
6006               (base32
6007                "1d5r80isyvs2v3i8pzlhsn7ns6bn8ldkbs82g25widraixlhg6yg")
6008               #:trivial? #t))
6009     (home-page "https://www.ctan.org/pkg/libertine")
6010     (synopsis "Use Linux Libertine and Biolinum fonts with LaTeX")
6011     (description
6012      "The package provides the Libertine and Biolinum fonts in both Type 1 and
6013 OTF styles, together with support macros for their use.  Monospaced and
6014 display fonts, and the \"keyboard\" set are also included, in OTF style, only.
6015 The @code{mweights} package is used to manage the selection of font weights.
6016 The package supersedes both the @code{libertineotf} and the
6017 @code{libertine-legacy} packages.")
6018     (license (list license:gpl2+        ; with font exception
6019                    license:silofl1.1
6020                    license:lppl))))
6021
6022 (define-public texlive-dejavu
6023   (package
6024     (inherit (simple-texlive-package
6025               "texlive-dejavu"
6026               (list "/doc/fonts/dejavu/"
6027
6028                     "/fonts/enc/dvips/dejavu/"
6029                     "/fonts/map/dvips/dejavu/"
6030
6031                     "/fonts/afm/public/dejavu/"
6032                     "/fonts/tfm/public/dejavu/"
6033                     "/fonts/truetype/public/dejavu/"
6034                     "/fonts/type1/public/dejavu/"
6035                     "/fonts/vf/public/dejavu/"
6036
6037                     "/tex/latex/dejavu/")
6038               (base32
6039                "0y4qf5jl0xncah9nkcaalmy69wwq02n3j895zp71n2p0nfi24aka")
6040               #:trivial? #t))
6041     (home-page "https://www.ctan.org/pkg/libertine")
6042     (synopsis "LaTeX support for the DejaVu fonts")
6043     (description
6044      "The package contains LaTeX support for the DejaVu fonts, which are
6045 derived from the Vera fonts but contain more characters and styles.  The fonts
6046 are included in the original TrueType format, and in converted Type 1 format.
6047 The (currently) supported encodings are: OT1, T1, IL2, TS1, T2*, X2, QX, and
6048 LGR.  The package doesn't (currently) support mathematics.")
6049     (license license:lppl)))
6050
6051 (define-public texlive-latex-titlesec
6052   (package
6053     (name "texlive-latex-titlesec")
6054     (version (number->string %texlive-revision))
6055     (source (origin
6056               (method svn-fetch)
6057               (uri (svn-reference
6058                     (url (string-append "svn://www.tug.org/texlive/tags/"
6059                                         %texlive-tag "/Master/texmf-dist/"
6060                                         "/tex/latex/titlesec"))
6061                     (revision %texlive-revision)))
6062               (file-name (string-append name "-" version "-checkout"))
6063               (sha256
6064                (base32
6065                 "1kw7dvxvdfbf31zw0n8r0g5xak3vcdf25n33fqw93j59zpc5nvbl"))))
6066     (build-system trivial-build-system)
6067     (arguments
6068      `(#:modules ((guix build utils))
6069        #:builder
6070        (begin
6071          (use-modules (guix build utils))
6072          (let ((target (string-append (assoc-ref %outputs "out")
6073                                       "/share/texmf-dist/tex/latex/titlesec")))
6074            (mkdir-p target)
6075            (copy-recursively (assoc-ref %build-inputs "source") target)
6076            #t))))
6077     (home-page "https://www.ctan.org/pkg/titlesec")
6078     (synopsis "Select alternative section titles")
6079     (description
6080      "This package provides an interface to sectioning commands for selection
6081 from various title styles, e.g. for marginal titles and to change the font of
6082 all headings with a single command, also providing simple one-step page
6083 styles.  It also includes a package to change the page styles when there are
6084 floats in a page.  You may assign headers/footers to individual floats, too.")
6085     (license license:lppl)))
6086
6087 (define-public texlive-latex-type1cm
6088   (package
6089     (name "texlive-latex-type1cm")
6090     (version (number->string %texlive-revision))
6091     (source (origin
6092               (method svn-fetch)
6093               (uri (texlive-ref "latex" "type1cm"))
6094               (file-name (string-append name "-" version "-checkout"))
6095               (sha256
6096                (base32
6097                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
6098     (build-system texlive-build-system)
6099     (arguments '(#:tex-directory "latex/type1cm"))
6100     (home-page "https://www.ctan.org/pkg/type1cm")
6101     (synopsis "Arbitrary size font selection in LaTeX")
6102     (description
6103      "LaTeX, by default, restricts the sizes at which you can use its default
6104 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
6105 specified by Knuth).  The @code{type1cm} package removes this restriction;
6106 this is particularly useful when using scalable versions of the CM
6107 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
6108 PCTeX, etc.).  In fact, since modern distributions will automatically generate
6109 any bitmap font you might need, @code{type1cm} has wider application than just
6110 those using scalable versions of the fonts.  Note that the LaTeX distribution
6111 now contains a package @code{fix-cm},f which performs the task of
6112 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
6113 @code{ec} fonts.")
6114     (license license:lppl)))
6115
6116 (define-public texlive-lh
6117   (let ((template (simple-texlive-package
6118                    "texlive-lh"
6119                    (list "/doc/fonts/lh/"
6120                          "/source/fonts/lh/"
6121                          "/source/latex/lh/"
6122                          "/fonts/source/lh/"
6123                          "/tex/plain/lh/")
6124                    (base32
6125                     "0vw75i52asi5sssp8k9r8dy4ihvqbvmbsl3dini3ls8cky15lz37"))))
6126     (package
6127       (inherit template)
6128       (arguments
6129        (substitute-keyword-arguments (package-arguments template)
6130          ((#:tex-directory _ #t)
6131           "latex/lh")
6132          ((#:build-targets _ '())
6133           ''("nfssfox.ins" "lcyfonts.ins" "ot2fonts.ins" "t2ccfonts.ins"))
6134          ((#:phases phases)
6135           `(modify-phases ,phases
6136              (add-after 'unpack 'chdir
6137                (lambda _ (chdir "source/latex/lh") #t))))))
6138       (home-page "https://www.ctan.org/pkg/lh")
6139       (synopsis "Cyrillic fonts that support LaTeX standard encodings")
6140       (description
6141        "The LH fonts address the problem of the wide variety of alphabets that
6142 are written with Cyrillic-style characters.  The fonts are the original basis
6143 of the set of T2* and X2 encodings that are now used when LaTeX users need to
6144 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
6145 offered through the latex-cyrillic and t2 bundles, and the package itself
6146 offers support for other (more traditional) encodings.  The fonts, in the
6147 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
6148 CM-Super family of fonts.  The package also offers its own LaTeX support for
6149 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
6150       (license license:lppl))))
6151
6152 (define-public texlive-latex-lh
6153   (deprecated-package "texlive-latex-lh" texlive-lh))
6154
6155 (define-public texlive-marvosym
6156   (package
6157     (inherit (simple-texlive-package
6158               "texlive-marvosym"
6159               (list "/doc/fonts/marvosym/"
6160                     "/fonts/afm/public/marvosym/"
6161                     "/fonts/map/dvips/marvosym/"
6162                     "/fonts/tfm/public/marvosym/"
6163                     "/fonts/truetype/public/marvosym/"
6164                     "/fonts/type1/public/marvosym/"
6165                     "/tex/latex/marvosym/")
6166               (base32
6167                "0m3bbg06cia8ni86fjhvb7x4a5qcxgnpqcvicfms91w2px9ysc46")
6168               #:trivial? #t))
6169     (home-page "https://martinvogel.de/blog/index.php?\
6170 /archives/131-Marvosym.ttf.html")
6171     (synopsis "Martin Vogel's Symbols (marvosym) font")
6172     (description "The Martin Vogel’s Symbols fonts (marvosym) contains the
6173 Euro currency symbol as defined by the European commission, along with symbols
6174 for structural engineering, symbols for steel cross-sections, astronomy
6175 signs (sun, moon, planets), the 12 signs of the zodiac, scissor symbols, CE
6176 sign and others.  This package contains both the original TrueType font and
6177 the derived Type 1 font, together with support files for TeX (LaTeX).")
6178     (license (list license:lppl          ;for TeX support files
6179                    license:silofl1.1)))) ;for fonts
6180
6181 (define-public texlive-metapost
6182   (package
6183     (name "texlive-metapost")
6184     (version (number->string %texlive-revision))
6185     (source (origin
6186               (method svn-fetch)
6187               (uri (svn-reference
6188                     (url (string-append "svn://www.tug.org/texlive/tags/"
6189                                         %texlive-tag "/Master/texmf-dist/"
6190                                         "/metapost"))
6191                     (revision %texlive-revision)))
6192               (file-name (string-append name "-" version "-checkout"))
6193               (sha256
6194                (base32
6195                 "01ghqyaxxkfscs9jjgnx65hmvqllfzgxc0r5vwpqs7y1h97y6cgc"))))
6196     (build-system trivial-build-system)
6197     (arguments
6198      `(#:modules ((guix build utils))
6199        #:builder
6200        (begin
6201          (use-modules (guix build utils))
6202          (let ((target (string-append (assoc-ref %outputs "out")
6203                                       "/share/texmf-dist/metapost")))
6204            (mkdir-p target)
6205            (copy-recursively (assoc-ref %build-inputs "source") target)
6206            #t))))
6207     (home-page "https://www.ctan.org/pkg/metapost")
6208     (synopsis "Create scalable illustrations")
6209     (description
6210      "MetaPost uses a language based on that of Metafont to produce precise
6211 technical illustrations.  Its output is scalable PostScript or SVG, rather
6212 than the bitmaps Metafont creates.")
6213     (license license:lppl)))
6214
6215 (define-public texlive-latex-acmart
6216   (package
6217     (name "texlive-latex-acmart")
6218     (version "1.60")
6219     (source (origin
6220               (method svn-fetch)
6221               (uri (texlive-ref "latex" "acmart"))
6222               (sha256
6223                (base32
6224                 "1avk9wl7hmgxvv8axd134wl6l8khvw7chw568nc8q70xwiwcqcpk"))
6225               (file-name (string-append name "-" version "-checkout"))))
6226     (build-system texlive-build-system)
6227     (arguments '(#:tex-directory "latex/acmart"))
6228     (home-page "https://www.ctan.org/pkg/acmart")
6229     (synopsis "Class for typesetting publications of ACM")
6230     (description
6231      "This package provides a class for typesetting publications of the
6232 Association for Computing Machinery (ACM).")
6233     (license license:lppl1.3+)))
6234
6235 (define-public texlive-latex-varwidth
6236   (package
6237     (name "texlive-latex-varwidth")
6238     (version (number->string %texlive-revision))
6239     (source (origin
6240               (method svn-fetch)
6241               (uri (svn-reference
6242                     (url (string-append "svn://www.tug.org/texlive/tags/"
6243                                         %texlive-tag "/Master/texmf-dist/"
6244                                         "/tex/latex/varwidth"))
6245                     (revision %texlive-revision)))
6246               (file-name (string-append name "-" version "-checkout"))
6247               (sha256
6248                (base32
6249                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
6250     (build-system trivial-build-system)
6251     (arguments
6252      `(#:modules ((guix build utils))
6253        #:builder
6254        (begin
6255          (use-modules (guix build utils))
6256          (let ((target (string-append (assoc-ref %outputs "out")
6257                                       "/share/texmf-dist/tex/latex/varwidth")))
6258            (mkdir-p target)
6259            (copy-recursively (assoc-ref %build-inputs "source") target)
6260            #t))))
6261     (home-page "https://www.ctan.org/pkg/varwidth")
6262     (synopsis "Variable-width minipage")
6263     (description
6264      "The @code{varwidth} environment is superficially similar to
6265 @code{minipage}, but the specified width is just a maximum value — the box may
6266 get a narrower “natural” width.")
6267     (license license:lppl)))
6268
6269 (define-public texlive-wasy
6270   (package
6271     (inherit (simple-texlive-package
6272               "texlive-wasy"
6273               (list "/fonts/source/public/wasy/"
6274                     "/fonts/tfm/public/wasy/"
6275                     "/tex/plain/wasy/"
6276                     "/doc/fonts/wasy/")
6277               (base32
6278                "1swzxgld3lndi5q0q6zkwbw06ndh13fvp04as7zpwyhh646s0hbx")
6279               #:trivial? #t))
6280     (home-page "https://www.ctan.org/pkg/wasy")
6281     (synopsis "Waldi symbol fonts")
6282     (description "This package provides the @code{wasy} (Waldi symbol) fonts,
6283 in the Metafont and Adobe Type 1 formats.  Support under LaTeX is provided by
6284 the @code{wasysym} package.")
6285     (license license:public-domain)))
6286
6287 (define-public texlive-wasysym
6288   (package
6289     (name "texlive-wasysym")
6290     (version (number->string %texlive-revision))
6291     (source (origin
6292               (method svn-fetch)
6293               (uri (texlive-ref "latex" "wasysym"))
6294               (file-name (string-append name "-" version "-checkout"))
6295               (sha256
6296                (base32
6297                 "0zxcf0pfqf439cfwl0r5dd93b0v4pbiih36n2pwshdlvnmy0nr50"))))
6298     (build-system texlive-build-system)
6299     (arguments '(#:tex-directory "latex/wasysym"))
6300     (home-page "https://www.ctan.org/pkg/wasysym")
6301     (synopsis "LaTeX support file to use the @code{wasy} fonts")
6302     (description
6303      "The @code{wasy} (Waldi Symbol) font by Roland Waldi provides many glyphs like
6304 male and female symbols and astronomical symbols, as well as the complete
6305 @code{lasy} font set and other odds and ends.  The @code{wasysym} package
6306 implements an easy to use interface for these symbols.")
6307     (license license:lppl)))
6308
6309 (define-public texlive-latex-wasysym
6310   (deprecated-package "texlive-latex-wasysym" texlive-wasysym))
6311
6312 (define-public texlive-latex-wrapfig
6313   (package
6314     (name "texlive-latex-wrapfig")
6315     (version (number->string %texlive-revision))
6316     (source (origin
6317               (method svn-fetch)
6318               (uri (svn-reference
6319                     (url (string-append "svn://www.tug.org/texlive/tags/"
6320                                         %texlive-tag "/Master/texmf-dist/"
6321                                         "/tex/latex/wrapfig"))
6322                     (revision %texlive-revision)))
6323               (file-name (string-append name "-" version "-checkout"))
6324               (sha256
6325                (base32
6326                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
6327     (build-system trivial-build-system)
6328     (arguments
6329      `(#:modules ((guix build utils))
6330        #:builder
6331        (begin
6332          (use-modules (guix build utils))
6333          (let ((target (string-append (assoc-ref %outputs "out")
6334                                       "/share/texmf-dist/tex/latex/wrapfig")))
6335            (mkdir-p target)
6336            (copy-recursively (assoc-ref %build-inputs "source") target)
6337            #t))))
6338     (home-page "https://www.ctan.org/pkg/wrapfig")
6339     (synopsis "Produces figures which text can flow around")
6340     (description
6341      "This package allows figures or tables to have text wrapped around them.
6342 It does not work in combination with list environments, but can be used in a
6343 @code{parbox} or @code{minipage}, and in two-column format.")
6344     (license license:lppl)))
6345
6346 (define-public texlive-latex-ucs
6347   (package
6348     (name "texlive-latex-ucs")
6349     (version (number->string %texlive-revision))
6350     (source (origin
6351               (method svn-fetch)
6352               (uri (svn-reference
6353                     (url (string-append "svn://www.tug.org/texlive/tags/"
6354                                         %texlive-tag "/Master/texmf-dist/"
6355                                         "/tex/latex/ucs"))
6356                     (revision %texlive-revision)))
6357               (file-name (string-append name "-" version "-checkout"))
6358               (sha256
6359                (base32
6360                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
6361     (build-system trivial-build-system)
6362     (arguments
6363      `(#:modules ((guix build utils))
6364        #:builder
6365        (begin
6366          (use-modules (guix build utils))
6367          (let ((target (string-append (assoc-ref %outputs "out")
6368                                       "/share/texmf-dist/tex/latex/ucs")))
6369            (mkdir-p target)
6370            (copy-recursively (assoc-ref %build-inputs "source") target)
6371            #t))))
6372     (home-page "https://www.ctan.org/pkg/ucs")
6373     (synopsis "Extended UTF-8 input encoding support for LaTeX")
6374     (description
6375      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
6376 together with a large number of support files.  The @code{utf8x.def}
6377 definition file for use with @code{inputenc} covers a wider range of Unicode
6378 characters than does @code{utf8.def} in the LaTeX distribution.  The package
6379 provides facilities for efficient use of its large sets of Unicode characters.
6380 Glyph production may be controlled by various options, which permits use of
6381 non-ASCII characters when coding mathematical formulae.  Note that the bundle
6382 previously had an alias “unicode”; that alias has now been withdrawn, and no
6383 package of that name now exists.")
6384     (license license:lppl1.3+)))
6385
6386 (define-public texlive-latex-preview
6387   (package
6388     (name "texlive-latex-preview")
6389     (version (number->string %texlive-revision))
6390     (source (origin
6391               (method svn-fetch)
6392               (uri (texlive-ref "latex" "preview"))
6393               (file-name (string-append name "-" version "-checkout"))
6394               (sha256
6395                (base32
6396                 "1mcp0x3snhx9phhfxqwn6d12b84vi049ljd1l11ianp3i4kad6ls"))))
6397     (build-system texlive-build-system)
6398     (arguments
6399      '(#:tex-directory "latex/preview"
6400        #:phases
6401        (modify-phases %standard-phases
6402          (add-after 'unpack 'remove-generated-file
6403            (lambda _
6404              (delete-file "preview.drv")
6405              #t)))))
6406     (home-page "https://www.ctan.org/pkg/preview")
6407     (synopsis "Extract bits of a LaTeX source for output")
6408     (description
6409      "The main purpose of the preview package is the extraction of selected
6410 elements from a LaTeX source, like formulas or graphics, into separate
6411 pages of a DVI file.  A flexible and convenient interface allows it to
6412 specify what commands and constructs should be extracted.  This works
6413 with DVI files postprocessed by either Dvips and Ghostscript or
6414 dvipng, but it also works when you are using PDFTeX for generating PDF
6415 files.")
6416     (license license:gpl3+)))
6417
6418 (define-public texlive-latex-acronym
6419   (package
6420     (name "texlive-latex-acronym")
6421     (version (number->string %texlive-revision))
6422     (source (origin
6423               (method svn-fetch)
6424               (uri (texlive-ref "latex" "acronym"))
6425               (file-name (string-append name "-" version "-checkout"))
6426               (sha256
6427                (base32
6428                 "0dl3dliz0vwds3804s1kxaj0ghd721v2c6hws9ghx0bjky09yxbx"))))
6429     (build-system texlive-build-system)
6430     (arguments '(#:tex-directory "latex/acronym"))
6431     (home-page "https://www.ctan.org/pkg/acronym")
6432     (synopsis "Expand acronyms at least once")
6433     (description
6434      "This package ensures that all acronyms used in the text are spelled out
6435 in full at least once.  It also provides an environment to build a list of
6436 acronyms used.  The package is compatible with PDF bookmarks.  The package
6437 requires the suffix package, which in turn requires that it runs under
6438 e-TeX.")
6439     (license license:lppl1.3+)))
6440
6441 (define-public texlive-pdftex
6442   (package
6443     (inherit (simple-texlive-package
6444               "texlive-pdftex"
6445               (list "/doc/pdftex/"
6446                     "/doc/man/man1/pdfetex.1"
6447                     "/doc/man/man1/pdftex.1"
6448
6449                     "/fonts/map/dvips/dummy-space/dummy-space.map"
6450                     "/fonts/tfm/public/pdftex/dummy-space.tfm"
6451                     "/fonts/type1/public/pdftex/dummy-space.pfb"
6452                     "/scripts/simpdftex/simpdftex"
6453
6454                     "/tex/generic/config/pdftex-dvi.tex"
6455                     "/tex/generic/pdftex/")
6456               (base32
6457                "181krzhxs61s62fr6gz7x08c57rbgc2b8i2pr7r8hr6f706ywp26")
6458               #:trivial? #t))
6459     (home-page "https://www.ctan.org/pkg/pdftex")
6460     (synopsis "TeX extension for direct creation of PDF")
6461     (description
6462      "This package provides an extension of TeX which can be configured to
6463 directly generate PDF documents instead of DVI.")
6464     (license license:gpl2+)))
6465
6466 (define-public texlive-generic-pdftex
6467   (deprecated-package "texlive-generic-pdftex" texlive-pdftex))
6468
6469 (define texlive-texmf
6470   (package
6471    (name "texlive-texmf")
6472    (version "20200406")
6473    (source texlive-texmf-src)
6474    (build-system gnu-build-system)
6475    (inputs
6476     `(("texlive-bin" ,texlive-bin)
6477       ("lua" ,lua)
6478       ("perl" ,perl)
6479       ("python" ,python)
6480       ("ruby" ,ruby)
6481       ("tcsh" ,tcsh)))
6482    (arguments
6483     `(#:modules ((guix build gnu-build-system)
6484                  (guix build utils)
6485                  (srfi srfi-26))
6486
6487       ;; This package takes 4 GiB, which we can't afford to distribute from
6488       ;; our servers.
6489       #:substitutable? #f
6490
6491       #:phases
6492         (modify-phases (map (cut assq <> %standard-phases)
6493                             '(set-paths unpack patch-source-shebangs))
6494           (add-after 'unpack 'unset-environment-variables
6495             (lambda _
6496               (unsetenv "TEXMF")
6497               (unsetenv "TEXMFCNF")
6498               #t))
6499           (add-after 'patch-source-shebangs 'install
6500             (lambda* (#:key outputs #:allow-other-keys)
6501               (let ((share (string-append (assoc-ref outputs "out") "/share")))
6502                 (mkdir-p share)
6503                 (invoke "mv" "texmf-dist" share))))
6504           (add-after 'install 'texmf-config
6505             (lambda* (#:key inputs outputs #:allow-other-keys)
6506               (let* ((out (assoc-ref outputs "out"))
6507                      (share (string-append out "/share"))
6508                      (texmfroot (string-append share "/texmf-dist/web2c"))
6509                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
6510                      (texlive-bin (assoc-ref inputs "texlive-bin"))
6511                      (texbin (string-append texlive-bin "/bin"))
6512                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
6513                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
6514                 (substitute* texmfcnf
6515                   (("TEXMFROOT = \\$SELFAUTOPARENT")
6516                    (string-append "TEXMFROOT = " share))
6517                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
6518                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
6519                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
6520                 ;; Register paths in texmfcnf.lua, needed for context.
6521                 (substitute* (string-append texmfroot "/texmfcnf.lua")
6522                   (("selfautodir:") out)
6523                   (("selfautoparent:") (string-append share "/")))
6524                 ;; Set path to TeXLive Perl modules
6525                 (setenv "PERL5LIB"
6526                         (string-append (getenv "PERL5LIB") ":" tlpkg))
6527                 ;; Configure the texmf-dist tree; inspired from
6528                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
6529                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
6530                 (setenv "TEXMFCNF" texmfroot)
6531                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
6532                 (invoke "mktexlsr")
6533                 (invoke "fmtutil-sys" "--all")))))))
6534    (properties `((max-silent-time . 9600))) ; don't time out while grafting
6535    (synopsis "TeX Live, a package of the TeX typesetting system")
6536    (description
6537     "TeX Live provides a comprehensive TeX document production system.
6538 It includes all the major TeX-related programs, macro packages, and fonts
6539 that are free software, including support for many languages around the
6540 world.
6541
6542 This package contains the complete tree of texmf-dist data.")
6543    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6544    (home-page "https://www.tug.org/texlive/")))
6545
6546 (define-public texlive
6547   (package
6548    (name "texlive")
6549    (version "20200406")
6550    (source #f)
6551    (build-system trivial-build-system)
6552    (inputs `(("bash" ,bash-minimal)     ;for wrap-program
6553              ("texlive-bin" ,texlive-bin)
6554              ("texlive-texmf" ,texlive-texmf)))
6555    (native-search-paths
6556     (list (search-path-specification
6557            (variable "TEXMFLOCAL")
6558            (files '("share/texmf-local")))))
6559    (arguments
6560     `(#:modules ((guix build utils))
6561       #:builder
6562         ;; Build the union of texlive-bin and texlive-texmf, but take the
6563         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
6564         (begin
6565           (use-modules (guix build utils))
6566           (let ((out (assoc-ref %outputs "out"))
6567                 (bin (assoc-ref %build-inputs "texlive-bin"))
6568                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
6569                 (bash (assoc-ref %build-inputs "bash")))
6570                (mkdir out)
6571                (with-directory-excursion out
6572                  (for-each
6573                    (lambda (name)
6574                      (symlink (string-append bin "/" name) name))
6575                    '("include" "lib"))
6576                  (mkdir "bin")
6577                  (with-directory-excursion "bin"
6578                    (setenv "PATH" (string-append bash "/bin"))
6579                    (for-each
6580                      (lambda (name)
6581                        (symlink name (basename name))
6582                        (wrap-program
6583                          (basename name)
6584                          `("TEXMFCNF" =
6585                            (,(string-append texmf "/share/texmf-dist/web2c")))))
6586                      (find-files (string-append bin "/bin/") "")))
6587                  (mkdir "share")
6588                  (with-directory-excursion "share"
6589                    (for-each
6590                      (lambda (name)
6591                        (symlink (string-append bin "/share/" name) name))
6592                      '("info" "man" "tlpkg"))
6593                    (for-each
6594                      (lambda (name)
6595                        (symlink (string-append texmf "/share/" name) name))
6596                      '("texmf-dist" "texmf-var"))))
6597                #t))))
6598    (synopsis "TeX Live, a package of the TeX typesetting system")
6599    (description
6600     "TeX Live provides a comprehensive TeX document production system.
6601 It includes all the major TeX-related programs, macro packages, and fonts
6602 that are free software, including support for many languages around the
6603 world.
6604
6605 This package contains the complete TeX Live distribution.")
6606    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6607    (home-page "https://www.tug.org/texlive/")))
6608
6609 (define-public perl-text-bibtex
6610   (package
6611     (name "perl-text-bibtex")
6612     (version "0.85")
6613     (source
6614      (origin
6615        (method url-fetch)
6616        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
6617                            version ".tar.gz"))
6618        (sha256
6619         (base32
6620          "036kxgbn1jf70pfm2lmjlzjwnhbkd888fp5lyvmkjpdd15gla18h"))))
6621     (build-system perl-build-system)
6622     (arguments
6623      `(#:phases
6624        (modify-phases %standard-phases
6625          (add-after 'unpack 'add-output-directory-to-rpath
6626            (lambda* (#:key outputs #:allow-other-keys)
6627              (substitute* "inc/MyBuilder.pm"
6628                (("-Lbtparse" line)
6629                 (string-append "-Wl,-rpath="
6630                                (assoc-ref outputs "out") "/lib " line)))
6631              #t))
6632          (add-after 'unpack 'install-libraries-to-/lib
6633            (lambda* (#:key outputs #:allow-other-keys)
6634              (substitute* "Build.PL"
6635                (("lib64") "lib"))
6636              #t)))))
6637     (native-inputs
6638      `(("perl-capture-tiny" ,perl-capture-tiny)
6639        ("perl-config-autoconf" ,perl-config-autoconf)
6640        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6641        ("perl-module-build" ,perl-module-build)))
6642     (home-page "https://metacpan.org/release/Text-BibTeX")
6643     (synopsis "Interface to read and parse BibTeX files")
6644     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
6645 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
6646 at many different levels: you may work with BibTeX entries as simple field to
6647 string mappings, or get at the original form of the data as a list of simple
6648 values (strings, macros, or numbers) pasted together.")
6649     (license license:perl-license)))
6650
6651 (define-public biber
6652   (package
6653     ;; Note: When updating Biber, make sure it matches our BibLaTeX version by
6654     ;; checking the Biber/BibLaTeX compatibility matrix in the BibLaTeX manual
6655     ;; at <https://ctan.org/pkg/biblatex>.
6656     (name "biber")
6657     (version "2.12")
6658     (source (origin
6659               (method git-fetch)
6660               (uri (git-reference
6661                     (url "https://github.com/plk/biber/")
6662                     (commit (string-append "v" version))))
6663               (file-name (git-file-name name version))
6664               ;; TODO: Patch awaiting inclusion upstream (see:
6665               ;; https://github.com/plk/biber/issues/239).
6666               (patches (search-patches "biber-fix-encoding-write.patch"
6667                                        "biber-sortinithash.patch"))
6668               (sha256
6669                (base32
6670                 "1g1hi6zvf2hmrjly1sidjaxy5440gfqm4p7p3n7kayshnjsmlskx"))))
6671     (build-system perl-build-system)
6672     (arguments
6673      `(#:phases
6674        (modify-phases %standard-phases
6675          (add-after 'install 'wrap-programs
6676            (lambda* (#:key outputs #:allow-other-keys)
6677              (let* ((out (assoc-ref outputs "out"))
6678                     (perl5lib (getenv "PERL5LIB")))
6679                (wrap-program (string-append out "/bin/biber")
6680                  `("PERL5LIB" ":" prefix
6681                    (,(string-append perl5lib ":" out
6682                                     "/lib/perl5/site_perl")))))
6683              #t)))))
6684     (inputs
6685      `(("perl-autovivification" ,perl-autovivification)
6686        ("perl-class-accessor" ,perl-class-accessor)
6687        ("perl-data-dump" ,perl-data-dump)
6688        ("perl-data-compare" ,perl-data-compare)
6689        ("perl-data-uniqid" ,perl-data-uniqid)
6690        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
6691        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
6692        ("perl-file-slurper" ,perl-file-slurper)
6693        ("perl-ipc-cmd" ,perl-ipc-cmd)
6694        ("perl-ipc-run3" ,perl-ipc-run3)
6695        ("perl-list-allutils" ,perl-list-allutils)
6696        ("perl-list-moreutils" ,perl-list-moreutils)
6697        ("perl-mozilla-ca" ,perl-mozilla-ca)
6698        ("perl-regexp-common" ,perl-regexp-common)
6699        ("perl-log-log4perl" ,perl-log-log4perl)
6700        ;; We cannot use perl-unicode-collate here, because otherwise the
6701        ;; hardcoded hashes in the tests would differ.  See
6702        ;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
6703        ;;("perl-unicode-collate" ,perl-unicode-collate)
6704        ("perl-unicode-normalize" ,perl-unicode-normalize)
6705        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
6706        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
6707        ("perl-encode-jis2k" ,perl-encode-jis2k)
6708        ("perl-encode-hanextra" ,perl-encode-hanextra)
6709        ("perl-xml-libxml" ,perl-xml-libxml)
6710        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
6711        ("perl-xml-libxslt" ,perl-xml-libxslt)
6712        ("perl-xml-writer" ,perl-xml-writer)
6713        ("perl-sort-key" ,perl-sort-key)
6714        ("perl-text-csv" ,perl-text-csv)
6715        ("perl-text-csv-xs" ,perl-text-csv-xs)
6716        ("perl-text-roman" ,perl-text-roman)
6717        ("perl-uri" ,perl-uri)
6718        ("perl-text-bibtex" ,perl-text-bibtex)
6719        ("perl-libwww" ,perl-libwww)
6720        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
6721        ("perl-business-isbn" ,perl-business-isbn)
6722        ("perl-business-issn" ,perl-business-issn)
6723        ("perl-business-ismn" ,perl-business-ismn)
6724        ("perl-lingua-translit" ,perl-lingua-translit)))
6725     (native-inputs
6726      `(("perl-config-autoconf" ,perl-config-autoconf)
6727        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6728        ("perl-module-build" ,perl-module-build)
6729        ;; for tests
6730        ("perl-file-which" ,perl-file-which)
6731        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
6732        ("perl-test-differences" ,perl-test-differences)))
6733     (home-page "http://biblatex-biber.sourceforge.net/")
6734     (synopsis "Backend for the BibLaTeX citation management tool")
6735     (description "Biber is a BibTeX replacement for users of biblatex.  Among
6736 other things it comes with full Unicode support.")
6737     (license license:artistic2.0)))
6738
6739 (define-public rubber
6740   (package
6741     (name "rubber")
6742     (version "1.5.1")
6743     (source (origin
6744               (method url-fetch)
6745               (uri (list (string-append "https://launchpad.net/rubber/trunk/"
6746                                         version "/+download/rubber-"
6747                                         version ".tar.gz")
6748                          (string-append "http://ebeffara.free.fr/pub/rubber-"
6749                                         version ".tar.gz")))
6750               (sha256
6751                (base32
6752                 "178dmrp0mza5gqjiqgk6dqs0c10s0c517pk6k9pjbam86vf47a1p"))))
6753     (build-system python-build-system)
6754     (arguments
6755      '(#:tests? #f ; no `check' target
6756        #:phases
6757        (modify-phases %standard-phases
6758          (delete 'build)
6759          (replace 'install
6760            (lambda* (#:key outputs #:allow-other-keys)
6761              ;; texlive is required to build the PDF documentation; do not
6762              ;; build it.
6763              (invoke "python" "setup.py" "build" "--pdf=False" "install"
6764                      (string-append "--prefix=" (assoc-ref outputs "out"))))))))
6765     (native-inputs `(("texinfo" ,texinfo)))
6766     (home-page "https://launchpad.net/rubber")
6767     (synopsis "Wrapper for LaTeX and friends")
6768     (description
6769      "Rubber is a program whose purpose is to handle all tasks related to the
6770 compilation of LaTeX documents.  This includes compiling the document itself,
6771 of course, enough times so that all references are defined, and running BibTeX
6772 to manage bibliographic references.  Automatic execution of dvips to produce
6773 PostScript documents is also included, as well as usage of pdfLaTeX to produce
6774 PDF documents.")
6775     (license license:gpl2+)))
6776
6777 (define-public texmaker
6778   (package
6779     (name "texmaker")
6780     (version "5.0.4")
6781     (source (origin
6782               (method url-fetch)
6783               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
6784                                   version ".tar.bz2"))
6785               (sha256
6786                (base32
6787                 "1qnh5g8zkjpjmw2l8spcynpfgs3wpcfcla5ms2kkgvkbdlzspqqx"))))
6788     (build-system gnu-build-system)
6789     (arguments
6790      `(#:phases
6791        (modify-phases %standard-phases
6792          ;; Qt has its own configuration utility.
6793          (replace 'configure
6794            (lambda* (#:key outputs #:allow-other-keys)
6795              (let ((out (assoc-ref outputs "out")))
6796                (invoke "qmake"
6797                        (string-append "PREFIX=" out)
6798                        (string-append "DESKTOPDIR=" out "/share/applications")
6799                        (string-append "ICONDIR=" out "/share/pixmaps")
6800                        (string-append "METAINFODIR=" out "/share/metainfo")
6801                        "texmaker.pro")))))))
6802     (inputs
6803      `(("poppler-qt5" ,poppler-qt5)
6804        ("qtbase" ,qtbase)
6805        ("qtscript" ,qtscript)
6806        ("qtwebkit" ,qtwebkit)
6807        ("zlib" ,zlib)))
6808     (native-inputs
6809      `(("pkg-config" ,pkg-config)))
6810     (home-page "http://www.xm1math.net/texmaker/")
6811     (synopsis "LaTeX editor")
6812     (description "Texmaker is a program that integrates many tools needed to
6813 develop documents with LaTeX, in a single application.")
6814     (license license:gpl2+)))
6815
6816 (define-public teximpatient
6817   (package
6818     (name "teximpatient")
6819     (version "2.4")
6820     (source (origin
6821               (method url-fetch/tarbomb)
6822               (uri (string-append "mirror://gnu/" name "/" name "-"
6823                                   version ".tar.gz"))
6824               (sha256
6825                (base32
6826                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
6827     (build-system gnu-build-system)
6828     (arguments
6829      `(#:tests? #f ; there are none
6830        #:phases
6831        (modify-phases %standard-phases
6832          (add-after 'unpack 'fix-packaging-error
6833            (lambda* (#:key inputs #:allow-other-keys)
6834              ;; This file should have been part of the tarball.
6835              (install-file (car
6836                             (find-files
6837                              (assoc-ref inputs "automake")
6838                              "^install-sh$"))
6839                            ".")
6840              ;; Remove generated file.
6841              (delete-file "book.pdf")
6842              #t)))))
6843     (native-inputs
6844      `(("texlive" ,(texlive-updmap.cfg (list texlive-amsfonts
6845                                         texlive-fonts-adobe-palatino
6846                                         texlive-fonts-adobe-zapfding
6847                                         texlive-knuth-lib
6848                                         texlive-fonts-mflogo-font
6849                                         texlive-pdftex)))
6850        ("automake" ,automake)))
6851     (home-page "https://www.gnu.org/software/teximpatient/")
6852     (synopsis "Book on TeX, plain TeX and Eplain")
6853     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
6854 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
6855 and Karl Berry.")
6856     (license license:fdl1.3+)))
6857
6858 (define-public lyx
6859   (package
6860     (name "lyx")
6861     (version "2.3.6.1")
6862     (source (origin
6863               (method url-fetch)
6864               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
6865                                   (version-major+minor version) ".x/"
6866                                   "lyx-" version ".tar.xz"))
6867               (sha256
6868                (base32
6869                 "0y7sx804ral14py5jwmb3icvyd6rsw806dfclw0qx28r6iix5gn6"))
6870               (modules '((guix build utils)))
6871               (snippet
6872                '(begin
6873                   (delete-file-recursively "3rdparty")
6874                   #t))))
6875     (build-system qt-build-system)
6876     (arguments
6877      `(#:configure-flags `("-DLYX_USE_QT=QT5"
6878                            "-DLYX_EXTERNAL_BOOST=1"
6879                            "-DLYX_INSTALL=1"
6880                            "-DLYX_RELEASE=1"
6881                            "-DLYX_PROGRAM_SUFFIX=OFF"
6882                            ,(string-append "-DLYX_INSTALL_PREFIX="
6883                                            (assoc-ref %outputs "out")))
6884        #:phases
6885        (modify-phases %standard-phases
6886          (add-after 'unpack 'patch-python
6887            (lambda* (#:key inputs #:allow-other-keys)
6888              (substitute* '("lib/configure.py"
6889                             "src/support/ForkedCalls.cpp"
6890                             "src/support/Systemcall.cpp"
6891                             "src/support/os.cpp"
6892                             "src/support/filetools.cpp")
6893                (("\"python ")
6894                 (string-append "\""
6895                                (assoc-ref inputs "python")
6896                                "/bin/python3 ")))
6897              #t))
6898          (add-after 'unpack 'add-missing-test-file
6899            (lambda _
6900              ;; Create missing file that would cause tests to fail.
6901              (with-output-to-file "src/tests/check_layout.cmake"
6902                (const #t))
6903              #t)))))
6904     (inputs
6905      `(("boost" ,boost)
6906        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
6907        ("libx11" ,libx11)
6908        ("mythes" ,mythes)
6909        ("python" ,python)
6910        ("qtbase" ,qtbase)
6911        ("qtsvg" ,qtsvg)
6912        ("zlib" ,zlib)))
6913     (propagated-inputs
6914      `(("texlive" ,(texlive-updmap.cfg (list texlive-fonts-ec)))))
6915     (native-inputs
6916      `(("python" ,python)
6917        ("pkg-config" ,pkg-config)))
6918     (home-page "https://www.lyx.org/")
6919     (synopsis "Document preparation system with GUI")
6920     (description "LyX is a document preparation system.  It excels at letting
6921 you create complex technical and scientific articles with mathematics,
6922 cross-references, bibliographies, indexes, etc.  It is very good for working
6923 with documents of any length in which the usual processing abilities are
6924 required: automatic sectioning and pagination, spell checking and so forth.")
6925     (license license:gpl2+)))
6926
6927 (define-public texlive-latex-media9
6928   (package
6929     (name "texlive-latex-media9")
6930     (version (number->string %texlive-revision))
6931     (source (origin
6932               (method svn-fetch)
6933               (uri (svn-reference
6934                     (url (string-append "svn://www.tug.org/texlive/tags/"
6935                                         %texlive-tag "/Master/texmf-dist/"
6936                                         "/tex/latex/media9"))
6937                     (revision %texlive-revision)))
6938               (file-name (string-append name "-" version "-checkout"))
6939               (sha256
6940                (base32
6941                 "0ganz4r78zmvq0s3w9d59pc2qh9pv0akv21f57yc3d5yyb520p6x"))))
6942     (build-system trivial-build-system)
6943     (arguments
6944      `(#:modules ((guix build utils))
6945        #:builder
6946        (begin
6947          (use-modules (guix build utils))
6948          (let ((target (string-append (assoc-ref %outputs "out")
6949                                       "/share/texmf-dist/tex/latex/media9")))
6950            (mkdir-p target)
6951            (copy-recursively (assoc-ref %build-inputs "source") target)
6952            #t))))
6953     (home-page "https://www.ctan.org/pkg/media9")
6954     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
6955     (description
6956      "The package provides an interface to embed interactive Flash (SWF) and 3D
6957 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
6958 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
6959 compatibility.  Playback of multimedia files uses the built-in Flash Player of
6960 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
6961 supports the efficient H.264 codec for video compression.
6962
6963 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
6964 specification.  It replaces the now obsolete @code{movie15} package.")
6965     (license license:lppl)))
6966
6967 (define-public texlive-latex-ocgx2
6968   (package
6969     (name "texlive-latex-ocgx2")
6970     (version (number->string %texlive-revision))
6971     (source (origin
6972               (method svn-fetch)
6973               (uri (svn-reference
6974                     (url (string-append "svn://www.tug.org/texlive/tags/"
6975                                         %texlive-tag "/Master/texmf-dist/"
6976                                         "/tex/latex/ocgx2"))
6977                     (revision %texlive-revision)))
6978               (file-name (string-append name "-" version "-checkout"))
6979               (sha256
6980                (base32
6981                 "0x7v3ih7k9hqfcnya0wchks63b67yngi21a6343vlwzdqn84mbyp"))))
6982     (build-system trivial-build-system)
6983     (arguments
6984      `(#:modules ((guix build utils))
6985        #:builder
6986        (begin
6987          (use-modules (guix build utils))
6988          (let ((target (string-append (assoc-ref %outputs "out")
6989                                       "/share/texmf-dist/tex/latex/ogcx2")))
6990            (mkdir-p target)
6991            (copy-recursively (assoc-ref %build-inputs "source") target)
6992            #t))))
6993     (home-page "https://www.ctan.org/pkg/ocgx2")
6994     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
6995     (description
6996      "This package provides OCG (Optional Content Groups) support within a PDF
6997 document.
6998
6999 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
7000 @code{ocg-p} packages and adds support for all known engines and back-ends
7001 including:
7002
7003 @itemize
7004 @item LaTeX → dvips → @code{ps2pdf}/Distiller
7005 @item (Xe)LaTeX(x) → @code{dvipdfmx}
7006 @item pdfLaTeX and LuaLaTeX .
7007 @end itemize
7008
7009 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
7010     (license license:lppl)))
7011
7012 (define-public texlive-latex-ms
7013   (package
7014     (name "texlive-latex-ms")
7015     (version (number->string %texlive-revision))
7016     (source (origin
7017               (method svn-fetch)
7018               (uri (texlive-ref "latex" "ms"))
7019               (file-name (string-append name "-" version "-checkout"))
7020               (sha256
7021                (base32
7022                 "07zqxynjh3qnnb4fxx5bhw4r21dbsrhanrq38ag62acr876l7agm"))))
7023     (build-system texlive-build-system)
7024     (arguments
7025      '(#:tex-directory "latex/ms"
7026        #:tex-format "latex"))
7027     (home-page "https://ctan.org/pkg/ms")
7028     (synopsis "Various LATEX packages by Martin Schröder")
7029     (description
7030      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
7031
7032 @itemize
7033 @item @command{count1to}, make use of fixed TEX counters;
7034 @item @command{everysel}, set commands to execute every time a font is selected;
7035 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
7036 @item @command{multitoc}, typeset the table of contents in multiple columns;
7037 @item @command{prelim2e}, mark typeset pages as preliminary; and
7038 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
7039 @end itemize\n")
7040     (license license:lppl1.3c+)))
7041
7042 (define-public texlive-latex-needspace
7043   (package
7044     (name "texlive-latex-needspace")
7045     (version (number->string %texlive-revision))
7046     (source (origin
7047               (method svn-fetch)
7048               (uri (texlive-ref "latex" "needspace"))
7049               (file-name (string-append name "-" version "-checkout"))
7050               (sha256
7051                (base32
7052                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
7053     (build-system texlive-build-system)
7054     (arguments
7055      '(#:tex-directory "latex/needspace"
7056        #:tex-format "latex"))
7057     (inputs
7058      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7059     (home-page "https://www.ctan.org/pkg/needspace")
7060     (synopsis "Insert pagebreak if not enough space")
7061     (description
7062      "Provides commands to disable pagebreaking within a given vertical
7063 space.  If there is not enough space between the command and the bottom of the
7064 page, a new page will be started.")
7065     (license license:lppl)))
7066
7067 (define-public texlive-latex-changepage
7068   (package
7069     (name "texlive-latex-changepage")
7070     (version (number->string %texlive-revision))
7071     (source
7072      (origin
7073        (method svn-fetch)
7074        (uri (texlive-ref "latex" "changepage"))
7075        (file-name (string-append name "-" version "-checkout"))
7076        (sha256
7077         (base32
7078          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
7079     (build-system texlive-build-system)
7080     (arguments
7081      '(#:tex-directory "latex/changepage"
7082        #:tex-format "latex"))
7083     (inputs
7084      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7085     (home-page "https://www.ctan.org/pkg/changepage")
7086     (synopsis "Margin adjustment and detection of odd/even pages")
7087     (description
7088      "The package provides commands to change the page layout in the middle of
7089 a document, and to robustly check for typesetting on odd or even pages.
7090 Instructions for use are at the end of the file.  The package is an extraction
7091 of code from the @code{memoir} class, whose user interface it shares.")
7092     (license license:lppl1.3+)))
7093
7094 (define-public texlive-latex-eukdate
7095   (package
7096     (name "texlive-latex-eukdate")
7097     (version (number->string %texlive-revision))
7098     (source
7099      (origin
7100        (method svn-fetch)
7101        (uri (svn-reference
7102              (url (string-append "svn://www.tug.org/texlive/tags/"
7103                                  %texlive-tag "/Master/texmf-dist/"
7104                                  "/tex/latex/eukdate"))
7105              (revision %texlive-revision)))
7106        (file-name (string-append name "-" version "-checkout"))
7107        (sha256
7108         (base32
7109          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
7110     (build-system trivial-build-system)
7111     (arguments
7112      `(#:modules ((guix build utils))
7113        #:builder
7114        (begin
7115          (use-modules (guix build utils))
7116          (let ((target (string-append (assoc-ref %outputs "out")
7117                                       "/share/texmf-dist/tex/latex/eukdate")))
7118            (mkdir-p target)
7119            (copy-recursively (assoc-ref %build-inputs "source") target)
7120            #t))))
7121     (home-page "https://www.ctan.org/pkg/eukdate")
7122     (synopsis "UK format dates, with weekday")
7123     (description
7124      "The package is used to change the format of @code{\\today}’s date,
7125 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
7126 is preferred in many parts of the world, as distinct from that which is used in
7127 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
7128     (license license:lppl)))
7129
7130 (define-public texlive-generic-ulem
7131   (package
7132     (name "texlive-generic-ulem")
7133     (version (number->string %texlive-revision))
7134     (source
7135      (origin
7136        (method svn-fetch)
7137        (uri (svn-reference
7138              (url (string-append "svn://www.tug.org/texlive/tags/"
7139                                  %texlive-tag "/Master/texmf-dist/"
7140                                  "/tex/generic/ulem"))
7141              (revision %texlive-revision)))
7142        (file-name (string-append name "-" version "-checkout"))
7143        (sha256
7144         (base32
7145          "161ka7sckiakcr1fgydxpc580sr16vp4sp3avjl2v9jn1pd2pwp0"))))
7146     (build-system trivial-build-system)
7147     (arguments
7148      `(#:modules ((guix build utils))
7149        #:builder
7150        (begin
7151          (use-modules (guix build utils))
7152          (let ((target (string-append (assoc-ref %outputs "out")
7153                                       "/share/texmf-dist/tex/generic/ulem")))
7154            (mkdir-p target)
7155            (copy-recursively (assoc-ref %build-inputs "source") target)
7156            #t))))
7157     (home-page "https://www.ctan.org/pkg/ulem")
7158     (synopsis "Underline text in TeX")
7159     (description
7160      "The package provides an @code{\\ul} (underline) command which will break
7161 over line ends; this technique may be used to replace @code{\\em} (both in that
7162 form and as the @code{\\emph} command), so as to make output look as if it comes
7163 from a typewriter.  The package also offers double and wavy underlining, and
7164 striking out (line through words) and crossing out (/// over words).")
7165     (license license:lppl1.3c+)))
7166
7167 (define-public texlive-latex-pgf
7168   (package
7169     (name "texlive-latex-pgf")
7170     (version (number->string %texlive-revision))
7171     (source
7172      (origin
7173        (method svn-fetch)
7174        (uri (svn-reference
7175              (url (string-append "svn://www.tug.org/texlive/tags/"
7176                                  %texlive-tag "/Master/texmf-dist/"
7177                                  "/tex/latex/pgf"))
7178              (revision %texlive-revision)))
7179        (file-name (string-append name "-" version "-checkout"))
7180        (sha256
7181         (base32
7182          "1hxivv4iq4ji1rz34fdx3hf9i0dj3a8336w1pa87jyavbl07n5g7"))))
7183     (build-system trivial-build-system)
7184     (native-inputs
7185      `(("texlive-latex-pgf-generic"
7186         ,(origin
7187            (method svn-fetch)
7188            (uri (svn-reference
7189              (url (string-append "svn://www.tug.org/texlive/tags/"
7190                                  %texlive-tag "/Master/texmf-dist/"
7191                                  "/tex/generic/pgf"))
7192              (revision %texlive-revision)))
7193            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
7194            (sha256
7195             (base32
7196              "1gh1vm8hkfgz1kw1cdws9hbw9llzw6n7w0v7z763am5amd3cyhhm"))))))
7197     (propagated-inputs
7198      `(("texlive-latex-xcolor" ,texlive-latex-xcolor)))
7199     (arguments
7200      `(#:modules ((guix build utils))
7201        #:builder
7202        (begin
7203          (use-modules (guix build utils))
7204          (let ((target-generic (string-append (assoc-ref %outputs "out")
7205                                               "/share/texmf-dist/tex/generic/pgf"))
7206                (target-latex (string-append (assoc-ref %outputs "out")
7207                                             "/share/texmf-dist/tex/latex/pgf")))
7208            (mkdir-p target-generic)
7209            (mkdir-p target-latex)
7210            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
7211            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
7212            #t))))
7213     (home-page "https://www.ctan.org/pkg/tikz")
7214     (synopsis "Create PostScript and PDF graphics in TeX")
7215     (description
7216      "PGF is a macro package for creating graphics.  It is platform- and
7217 format-independent and works together with the most important TeX backend
7218 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
7219 called TikZ.
7220
7221 Its usage is similar to pstricks and the standard picture environment.  PGF
7222 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
7223 produce either PostScript or PDF output.")
7224     (license license:lppl1.3c+)))
7225
7226 (define-public texlive-latex-koma-script
7227   (package
7228     (name "texlive-latex-koma-script")
7229     (version (number->string %texlive-revision))
7230     (source (origin
7231               (method svn-fetch)
7232               (uri (svn-reference
7233                     (url (string-append "svn://www.tug.org/texlive/tags/"
7234                                         %texlive-tag "/Master/texmf-dist/"
7235                                         "/tex/latex/koma-script"))
7236                     (revision %texlive-revision)))
7237               (file-name (string-append name "-" version "-checkout"))
7238               (sha256
7239                (base32
7240                 "18bfdfhdfc7nxr29wvcmp08wgq6f3fc7yysg1sgzgsqrffr1viwa"))))
7241     (build-system trivial-build-system)
7242     (arguments
7243      `(#:modules ((guix build utils))
7244        #:builder
7245        (begin
7246          (use-modules (guix build utils)
7247                       (ice-9 match))
7248          (let ((root (string-append (assoc-ref %outputs "out")
7249                                     "/share/texmf-dist/"))
7250                (pkgs '(("source" . "tex/latex/koma-script"))))
7251            (for-each (match-lambda
7252                        ((pkg . dir)
7253                         (let ((target (string-append root dir)))
7254                           (mkdir-p target)
7255                           (copy-recursively (assoc-ref %build-inputs pkg)
7256                                             target))))
7257                      pkgs)
7258            #t))))
7259     (home-page "https://www.ctan.org/pkg/koma-script")
7260     (synopsis "Bundle of versatile classes and packages")
7261     (description
7262      "The KOMA-Script bundle provides replacements for the article, report, and
7263 book classes with emphasis on typography and versatility.  There is also a
7264 letter class.
7265
7266 The bundle also offers:
7267
7268 @itemize
7269 @item a package for calculating type areas in the way laid down by the
7270 typographer Jan Tschichold,
7271 @item packages for easily changing and defining page styles,
7272 @item a package scrdate for getting not only the current date but also the name
7273 of the day, and
7274 @item a package scrtime for getting the current time.
7275 @end itemize
7276
7277 All these packages may be used not only with KOMA-Script classes but also with
7278 the standard classes.
7279
7280 Since every package has its own version number, the version number quoted only
7281 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
7282 typearea (which are the main parts of the bundle).")
7283     (license license:lppl1.3+)))
7284
7285 (define-public texlive-generic-infwarerr
7286   (package
7287     (inherit (simple-texlive-package
7288               "texlive-generic-infwarerr"
7289               '("/tex/generic/infwarerr/")
7290               (base32
7291                "19nlrbfmqbkjrrx9x75s9nd6crg1lzimb2fr3hfblaivj6lx8p4r")
7292               #:trivial? #t))
7293     (home-page "https://www.ctan.org/pkg/infwarerr")
7294     (synopsis "Information/warning/error macros")
7295     (description
7296      "This package provides a complete set of macros for information,
7297 warning and error messages.  Under LaTeX, the commands are wrappers for
7298 the corresponding LaTeX commands; under Plain TeX they are available as
7299 complete implementations.")
7300     (license license:lppl1.3c+)))
7301
7302 (define-public texlive-generic-listofitems
7303   (package
7304     (name "texlive-generic-listofitems")
7305     (version (number->string %texlive-revision))
7306     (source (origin
7307               (method svn-fetch)
7308               (uri (svn-reference
7309                     (url (string-append "svn://www.tug.org/texlive/tags/"
7310                                         %texlive-tag "/Master/texmf-dist/"
7311                                         "/tex/generic/listofitems"))
7312                     (revision %texlive-revision)))
7313               (file-name (string-append name "-" version "-checkout"))
7314               (sha256
7315                (base32
7316                 "1wnbnfrhi6hgqa78jsw6hljzi03i5x99mlr5n2419hgws52hk67y"))))
7317     (build-system trivial-build-system)
7318     (arguments
7319      `(#:modules ((guix build utils))
7320        #:builder
7321        (begin
7322          (use-modules (guix build utils))
7323          (let ((target (string-append (assoc-ref %outputs "out")
7324                                       "/share/texmf-dist/tex/generic/listofitems")))
7325            (mkdir-p target)
7326            (copy-recursively (assoc-ref %build-inputs "source") target)
7327            #t))))
7328     (home-page "https://www.ctan.org/pkg/listofitems")
7329     (synopsis "Grab items in lists using user-specified separation character")
7330     (description
7331      "This package allows one to capture all the items of a list, for which
7332 the parsing character has been selected by the user, and to access any of
7333 these items with a simple syntax.")
7334     (license license:lppl1.3c+)))
7335
7336 (define-public texlive-generic-ltxcmds
7337   (package
7338     (inherit (simple-texlive-package
7339               "texlive-generic-ltxcmds"
7340               '("/tex/generic/ltxcmds/")
7341               (base32
7342                "0mdzy76sbc3pmas5zqxn35w9xcg4v7j4p31jcjm9f4hzm27y974a")
7343               #:trivial? #t))
7344     (home-page "https://www.ctan.org/pkg/ltxcmds")
7345     (synopsis "LaTeX kernel commands extracted for general use")
7346     (description
7347      "This package exports some utility macros from the LaTeX kernel into
7348 a separate namespace and also makes them available for other formats such
7349 as plain TeX.")
7350     (license license:lppl1.3c+)))
7351
7352 (define-public texlive-latex-readarray
7353   (package
7354     (name "texlive-latex-readarray")
7355     (version (number->string %texlive-revision))
7356     (source (origin
7357               (method svn-fetch)
7358               (uri (svn-reference
7359                     (url (string-append "svn://www.tug.org/texlive/tags/"
7360                                         %texlive-tag "/Master/texmf-dist/"
7361                                         "/tex/latex/readarray"))
7362                     (revision %texlive-revision)))
7363               (file-name (string-append name "-" version "-checkout"))
7364               (sha256
7365                (base32
7366                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
7367     (build-system trivial-build-system)
7368     (arguments
7369      `(#:modules ((guix build utils))
7370        #:builder
7371        (begin
7372          (use-modules (guix build utils))
7373          (let ((target (string-append (assoc-ref %outputs "out")
7374                                       "/share/texmf-dist/tex/latex/readarray")))
7375            (mkdir-p target)
7376            (copy-recursively (assoc-ref %build-inputs "source") target)
7377            #t))))
7378     (propagated-inputs
7379      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
7380     (home-page "https://www.ctan.org/pkg/readarray")
7381     (synopsis "Read, store and recall array-formatted data")
7382     (description
7383      "This package allows the user to input formatted data into elements of a
7384 2-D or 3-D array and to recall that data at will by individual cell number.
7385 The data can be but need not be numerical in nature.  It can be, for example,
7386 formatted text.")
7387     (license license:lppl1.3)))
7388
7389 (define-public texlive-latex-verbatimbox
7390   (package
7391     (name "texlive-latex-verbatimbox")
7392     (version (number->string %texlive-revision))
7393     (source (origin
7394               (method svn-fetch)
7395               (uri (svn-reference
7396                     (url (string-append "svn://www.tug.org/texlive/tags/"
7397                                         %texlive-tag "/Master/texmf-dist/"
7398                                         "/tex/latex/verbatimbox"))
7399                     (revision %texlive-revision)))
7400               (file-name (string-append name "-" version "-checkout"))
7401               (sha256
7402                (base32
7403                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
7404     (build-system trivial-build-system)
7405     (arguments
7406      `(#:modules ((guix build utils))
7407        #:builder
7408        (begin
7409          (use-modules (guix build utils))
7410          (let ((target (string-append (assoc-ref %outputs "out")
7411                                       "/share/texmf-dist/tex/latex/verbatimbox")))
7412            (mkdir-p target)
7413            (copy-recursively (assoc-ref %build-inputs "source") target)
7414            #t))))
7415     (propagated-inputs
7416      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
7417     (home-page "https://www.ctan.org/pkg/verbatimbox")
7418     (synopsis "Deposit verbatim text in a box")
7419     (description
7420      "The package provides a @code{verbbox} environment to place its contents
7421 into a globally available box, or into a box specified by the user.  The
7422 global box may then be used in a variety of situations (for example, providing
7423 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
7424 in places where the standard @code{verbatim} environment (which is based on a
7425 @code{trivlist}) may not appear.")
7426     (license license:lppl1.3+)))
7427
7428 (define-public texlive-latex-examplep
7429   (package
7430     (name "texlive-latex-examplep")
7431     (version (number->string %texlive-revision))
7432     (source (origin
7433               (method svn-fetch)
7434               (uri (svn-reference
7435                     (url (string-append "svn://www.tug.org/texlive/tags/"
7436                                         %texlive-tag "/Master/texmf-dist/"
7437                                         "/tex/latex/examplep"))
7438                     (revision %texlive-revision)))
7439               (file-name (string-append name "-" version "-checkout"))
7440               (sha256
7441                (base32
7442                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
7443     (build-system trivial-build-system)
7444     (arguments
7445      `(#:modules ((guix build utils))
7446        #:builder
7447        (begin
7448          (use-modules (guix build utils))
7449          (let ((target (string-append (assoc-ref %outputs "out")
7450                                       "/share/texmf-dist/tex/latex/examplep")))
7451            (mkdir-p target)
7452            (copy-recursively (assoc-ref %build-inputs "source") target)
7453            #t))))
7454     (home-page "https://www.ctan.org/pkg/examplep")
7455     (synopsis "Verbatim phrases and listings in LaTeX")
7456     (description
7457      "Examplep provides sophisticated features for typesetting verbatim source
7458 code listings, including the display of the source code and its compiled LaTeX
7459 or METAPOST output side-by-side, with automatic width detection and enabled
7460 page breaks (in the source), without the need for specifying the source twice.
7461 Special care is taken that section, page and footnote numbers do not interfere
7462 with the main document.  For typesetting short verbatim phrases, a replacement
7463 for the @code{\\verb} command is also provided in the package, which can be
7464 used inside tables and moving arguments such as footnotes and section
7465 titles.")
7466     ;; No version of the GPL is specified.
7467     (license license:gpl3+)))
7468
7469 (define-public texlive-xypic
7470   (let ((template (simple-texlive-package
7471                    "texlive-xypic"
7472                    (list "/doc/generic/xypic/"
7473                          "/dvips/xypic/xy389dict.pro"
7474                          "/fonts/enc/dvips/xypic/"
7475                          "/fonts/map/dvips/xypic/xypic.map"
7476
7477                          "/fonts/source/public/xypic/"
7478                          "/fonts/afm/public/xypic/"
7479                          "/fonts/tfm/public/xypic/"
7480                          "/fonts/type1/public/xypic/"
7481                          "/tex/generic/xypic/")
7482                    (base32
7483                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
7484                    #:trivial? #t)))
7485     (package
7486       (inherit template)
7487       (arguments
7488        (substitute-keyword-arguments (package-arguments template)
7489          ((#:phases phases)
7490           `(modify-phases ,phases
7491              (delete 'reset-gzip-timestamps)))))
7492       (home-page "https://www.ctan.org/pkg/xypic")
7493       (synopsis "Flexible diagramming macros")
7494       (description "This is a package for typesetting a variety of graphs and
7495 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
7496 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
7497 @code{diag} package, which was previously distributed stand-alone.")
7498       (license license:gpl3+))))
7499
7500 (define-public texlive-fonts-xypic
7501   (deprecated-package "texlive-fonts-xypic" texlive-xypic))
7502
7503 (define-public texlive-generic-xypic
7504   (deprecated-package "texblive-generic-xypic" texlive-xypic))
7505
7506 (define-public texlive-bibtex
7507   (package
7508     (name "texlive-bibtex")
7509     (version (number->string %texlive-revision))
7510     (source
7511      (origin
7512        (method svn-fetch)
7513        (uri (svn-reference
7514              (url (string-append "svn://www.tug.org/texlive/tags/"
7515                                  %texlive-tag "/Master/texmf-dist/"
7516                                  "/bibtex"))
7517              (revision %texlive-revision)))
7518        (file-name (string-append name "-" version "-checkout"))
7519        (sha256
7520         (base32
7521          "056q9sg3bn8j70laspwdvh7fr3635l7vv3762h6rq79a58g3bya4"))))
7522     (build-system trivial-build-system)
7523     (arguments
7524      `(#:modules ((guix build utils))
7525        #:builder
7526        (begin
7527          (use-modules (guix build utils))
7528          (let ((target (string-append (assoc-ref %outputs "out")
7529                                       "/share/texmf-dist/bibtex")))
7530            (mkdir-p target)
7531            (copy-recursively (assoc-ref %build-inputs "source") target)
7532            #t))))
7533     (home-page "https://www.ctan.org/pkg/bibtex")
7534     (synopsis "Process bibliographies for LaTeX")
7535     (description
7536      "BibTeX allows the user to store his citation data in generic form, while
7537 printing citations in a document in the form specified by a BibTeX style, to
7538 be specified in the document itself (one often needs a LaTeX citation-style
7539 package, such as @command{natbib} as well).")
7540     (license license:knuth)))
7541
7542 (define-public texlive-charter
7543   (package
7544     (inherit (simple-texlive-package
7545               "texlive-charter"
7546               (list "/doc/fonts/charter/readme.charter"
7547                     "/fonts/afm/bitstrea/charter/"
7548                     "/fonts/tfm/bitstrea/charter/"
7549                     "/fonts/type1/bitstrea/charter/"
7550                     "/fonts/vf/bitstrea/charter/")
7551               (base32
7552                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
7553               #:trivial? #t))
7554     (home-page "https://www.ctan.org/pkg/charter")
7555     (synopsis "Charter fonts for TeX")
7556     (description "This package provides a copy of the Charter Type-1 fonts
7557 which Bitstream contributed to the X consortium, renamed for use with TeX.
7558 Support for use with LaTeX is available in @code{freenfss}, part of
7559 @command{psnfss}. ")
7560     (license (license:non-copyleft
7561               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
7562
7563 (define-public texlive-fonts-charter
7564   (deprecated-package "texlive-fonts-charter" texlive-charter))
7565
7566 (define-public texlive-context-base
7567   (package
7568     (name "texlive-context-base")
7569     (version (number->string %texlive-revision))
7570     (source (origin
7571               (method svn-fetch)
7572               (uri (svn-reference
7573                     (url (string-append "svn://www.tug.org/texlive/tags/"
7574                                         %texlive-tag "/Master/texmf-dist/"
7575                                         "/tex/context/base"))
7576                     (revision %texlive-revision)))
7577               (file-name (string-append name "-" version "-checkout"))
7578               (sha256
7579                (base32
7580                 "145klhcf1i1n9rldjxccd3gkjxwp3i36601xlhch8kyf64rrgybk"))))
7581     (build-system trivial-build-system)
7582     (arguments
7583      `(#:modules ((guix build utils))
7584        #:builder
7585        (begin
7586          (use-modules (guix build utils))
7587          (let ((target (string-append (assoc-ref %outputs "out")
7588                                       "/share/texmf-dist/tex/context/case")))
7589            (mkdir-p target)
7590            (copy-recursively (assoc-ref %build-inputs "source") target)
7591            #t))))
7592     (home-page "https://www.ctan.org/pkg/context")
7593     (synopsis "Full featured, parameter driven macro package for TeX")
7594     (description "A full featured, parameter driven macro package, which fully
7595 supports advanced interactive documents.  See the ConTeXt garden for a wealth
7596 of support information.")
7597     (license license:gpl2+)))
7598
7599 (define-public texlive-context
7600   (package
7601     (inherit (simple-texlive-package
7602               "texlive-context"
7603               (list "/doc/context/"
7604                     ;; XXX Omitting /doc/man/man1/*.pdf
7605                     "/bibtex/bst/context/mkii/"
7606                     "/context/data/"
7607
7608                     "/fonts/afm/hoekwater/context/contnav.afm"
7609                     "/fonts/cid/fontforge/Adobe-CNS1-4.cidmap"
7610                     "/fonts/cid/fontforge/Adobe-GB1-4.cidmap"
7611                     "/fonts/cid/fontforge/Adobe-Identity-0.cidmap"
7612                     "/fonts/cid/fontforge/Adobe-Japan1-5.cidmap"
7613                     "/fonts/cid/fontforge/Adobe-Japan1-6.cidmap"
7614                     "/fonts/cid/fontforge/Adobe-Japan2-0.cidmap"
7615                     "/fonts/cid/fontforge/Adobe-Korea1-2.cidmap"
7616                     "/fonts/enc/dvips/context/"
7617                     "/fonts/map/dvips/context/"
7618                     "/fonts/map/luatex/context/"
7619                     "/fonts/map/pdftex/context/"
7620                     "/fonts/misc/xetex/fontmapping/context/"
7621                     "/fonts/tfm/hoekwater/context/contnav.tfm"
7622                     "/fonts/type1/hoekwater/context/"
7623
7624                     "/metapost/context/"
7625                     "/scripts/context/"
7626                     "/tex/context/"
7627
7628                     "/tex/generic/context/luatex/"
7629                     "/tex/generic/context/ppchtex/"
7630                     "/tex/latex/context/")
7631               (base32
7632                "0krbxj0cjyy9b6xv5xx670rh8y3pxbqziljjj80qbdwixk1lf01q")
7633               #:trivial? #t))
7634     (home-page "https://www.ctan.org/pkg/context")
7635     (synopsis "ConTeXt macro package")
7636     (description "ConTeXt is a full featured, parameter driven macro package,
7637 which fully supports advanced interactive documents.  See the ConTeXt garden
7638 for a wealth of support information.")
7639     ;; The GPL applies to all code; alternatively, the LaTeX license may be used.
7640     ;; The CC-BY-SA license applies to all documentation.
7641     (license (list license:lppl1.3c+
7642                    license:gpl2+
7643                    license:cc-by-sa4.0))))
7644
7645 (define-public texlive-beamer
7646   (package
7647     (inherit (simple-texlive-package
7648               "texlive-beamer"
7649               (list "/doc/latex/beamer/"
7650                     "/tex/latex/beamer/")
7651               (base32
7652                "1yw9ixmjc0h1nqxsvd8lvibdggcysx25001pzzixg1b00l2jf242")
7653               #:trivial? #t))
7654     (propagated-inputs
7655      `(("texlive-latex-hyperref" ,texlive-latex-hyperref)
7656        ("texlive-oberdiek" ,texlive-oberdiek)
7657        ("texlive-latex-etoolbox" ,texlive-latex-etoolbox)
7658        ("texlive-latex-pgf" ,texlive-latex-pgf)))
7659     (home-page "https://www.ctan.org/pkg/beamer")
7660     (synopsis "LaTeX class for producing presentations and slides")
7661     (description "The beamer LaTeX class can be used for producing slides.
7662 The class works in both PostScript and direct PDF output modes, using the
7663 @code{pgf} graphics system for visual effects.  Content is created in the
7664 @code{frame} environment, and each frame can be made up of a number of slides
7665 using a simple notation for specifying material to appear on each slide within
7666 a frame.  Short versions of title, authors, institute can also be specified as
7667 optional parameters.  Whole frame graphics are supported by plain frames.  The
7668 class supports @code{figure} and @code{table} environments, transparency
7669 effects, varying slide transitions and animations.")
7670     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
7671     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
7672     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
7673
7674 (define-public texlive-latex-beamer
7675   (deprecated-package "texlive-latex-beamer" texlive-beamer))
7676
7677 (define-public texlive-latex-xmpincl
7678   (package
7679     (name "texlive-latex-xmpincl")
7680     (version (number->string %texlive-revision))
7681     (source
7682      (origin
7683        (method svn-fetch)
7684        (uri (texlive-ref "latex" "xmpincl"))
7685        (file-name (string-append name "-" version "-checkout"))
7686        (sha256
7687         (base32
7688          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
7689     (build-system texlive-build-system)
7690     (arguments '(#:tex-directory "latex/xmpincl"))
7691     (home-page "http://www.ctan.org/pkg/xmpincl")
7692     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
7693     (description
7694      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
7695 digital material to enhance the workflow in publication.  The essence is that
7696 the metadata is stored in an XML file, and this XML stream is then embedded in
7697 the file to which it applies.")
7698     (license license:gpl3+)))
7699
7700 (define-public texlive-pdfx
7701   (let ((template (simple-texlive-package
7702                    "texlive-pdfx"
7703                    (list "/doc/latex/pdfx/"
7704                          "/source/latex/pdfx/"
7705                          "/tex/latex/pdfx/")
7706                    (base32
7707                     "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
7708     (package
7709       (inherit template)
7710       (arguments
7711        (substitute-keyword-arguments (package-arguments template)
7712          ((#:tex-directory _ #t)
7713           "latex/pdfx")
7714          ((#:phases phases)
7715           `(modify-phases ,phases
7716              (add-after 'unpack 'delete-generated-file
7717                (lambda _
7718                  ;; Generate this file from sources
7719                  (delete-file "tex/latex/pdfx/pdfx.sty")
7720                  #t))
7721              (add-after 'delete-generated-file 'chdir
7722                (lambda _ (chdir "source/latex/pdfx") #t))
7723              (add-after 'chdir 'fix-encoding
7724                (lambda _
7725                  (substitute* "pdfx.dtx"
7726                    (("    .+umaczy") "umaczy"))
7727                  #t))))))
7728       (propagated-inputs
7729        `(("texlive-pdftex" ,texlive-pdftex)))
7730       (home-page "https://www.ctan.org/pkg/pdfx")
7731       (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
7732       (description
7733        "This package helps LaTeX users to create PDF/X, PDF/A and other
7734 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
7735       (license license:lppl1.2+))))
7736
7737 (define-public texlive-latex-pdfx
7738   (deprecated-package "texlive-latex-pdfx" texlive-pdfx))
7739
7740 (define-public texlive-ydoc
7741   (let ((template (simple-texlive-package
7742                    "texlive-ydoc"
7743                    (list "/doc/latex/ydoc/"
7744                          "/source/latex/ydoc/")
7745                    (base32
7746                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
7747                    #:trivial? #f)))
7748     (package
7749       (inherit template)
7750       (outputs '("out" "doc"))
7751       (arguments
7752        (substitute-keyword-arguments (package-arguments template)
7753          ((#:tex-directory _ #t)
7754           "latex/ydoc")
7755          ((#:build-targets _ #t)
7756           ''("ydoc.dtx"))
7757          ((#:phases phases)
7758           `(modify-phases ,phases
7759              (add-after 'unpack 'chdir
7760                (lambda _ (chdir "source/latex/ydoc") #t))
7761              (add-after 'copy-files 'move-files
7762                (lambda* (#:key inputs outputs #:allow-other-keys)
7763                  (let ((source (assoc-ref inputs "source"))
7764                        (doc (string-append (assoc-ref outputs "doc")
7765                                            "/share/texmf-dist/doc")))
7766                    (copy-recursively (string-append source "/doc")  doc))))))))
7767       (home-page "http://www.ctan.org/pkg/ydoc")
7768       (synopsis "Macros for documentation of LaTeX classes and packages")
7769       (description "The package provides macros and environments to document
7770 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
7771 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
7772 provide a different layout and more modern styles (using the @code{xcolor},
7773 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
7774 not (yet) be used with other packages, since the implementation might
7775 change.")
7776       (license license:lppl1.3+))))
7777
7778 (define-public texlive-pstricks
7779   (let ((template (simple-texlive-package
7780                    "texlive-pstricks"
7781                    (list "/doc/generic/pstricks/"
7782                          "/dvips/pstricks/"
7783                          "/tex/generic/pstricks/"
7784                          "/tex/latex/pstricks/")
7785                    (base32
7786                     "0sdq0ij83vg154205n1cps9yirr45240dfcly4bms2cqc789bk5a")
7787                    #:trivial? #t)))
7788     (package
7789       (inherit template)
7790       (arguments
7791        (substitute-keyword-arguments (package-arguments template)
7792          ((#:phases phases)
7793           `(modify-phases ,phases
7794              (delete 'reset-gzip-timestamps)))))
7795       (home-page "http://www.ctan.org/pkg/pstricks")
7796       (synopsis "PostScript macros for TeX")
7797       (description "PSTricks offers an extensive collection of macros for
7798 generating PostScript that is usable with most TeX macro formats, including
7799 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
7800 graphics, pie charts, rotation, trees and overlays.  It has many special
7801 features, including a wide variety of graphics (picture drawing) macros, with
7802 a flexible interface and with colour support.  There are macros for colouring
7803 or shading the cells of tables.")
7804       (license license:lppl1.3+))))
7805
7806 (define-public texlive-pst-text
7807   (let ((template (simple-texlive-package
7808                    "texlive-pst-text"
7809                    (list "/doc/generic/pst-text/"
7810                          "/dvips/pst-text/pst-text.pro"
7811                          "/tex/generic/pst-text/"
7812                          "/tex/latex/pst-text/")
7813                    (base32
7814                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
7815                    #:trivial? #t)))
7816     (package
7817       (inherit template)
7818       (propagated-inputs
7819        `(("texlive-pstricks" ,texlive-pstricks)))
7820       (home-page "http://www.ctan.org/pkg/pst-text")
7821       (synopsis "Text and character manipulation in PSTricks")
7822       (description "Pst-text is a PSTricks based package for plotting text along
7823 a different path and manipulating characters.  It includes the functionality
7824 of the old package @code{pst-char}.")
7825       (license license:lppl))))
7826
7827 (define-public texlive-marginnote
7828   (let ((template (simple-texlive-package
7829                    "texlive-marginnote"
7830                    (list "/source/latex/marginnote/marginnote.dtx")
7831                    (base32
7832                     "152bwxhnssj40rr72r6cfirvqbnc0h7xnagfrbz58v2xck53qhg1"))))
7833     (package
7834       (inherit template)
7835       (home-page "http://www.ctan.org/pkg/marginnote")
7836       (arguments
7837        (substitute-keyword-arguments (package-arguments template)
7838          ((#:tex-directory _ '())
7839           "latex/marginnote")
7840          ((#:build-targets _ '())
7841           ''("marginnote.dtx"))
7842          ((#:phases phases)
7843           `(modify-phases ,phases
7844              (add-after 'unpack 'chdir
7845                (lambda _ (chdir "source/latex/marginnote") #t))))))
7846       (synopsis "Notes in the margin")
7847       (description "This package provides the command @code{\\marginnote} that
7848 may be used instead of @code{\\marginpar} at almost every place where
7849 @code{\\marginpar} cannot be used, e.g., inside floats, footnotes, or in
7850 frames made with the @code{framed} package.")
7851       (license license:lppl1.3c+))))
7852
7853 (define-public texlive-generic-iftex
7854   (let ((template (simple-texlive-package
7855                    "texlive-generic-iftex"
7856                    (list "/doc/generic/iftex/"
7857                          "/tex/generic/iftex/")
7858                    (base32
7859                     "147xa5kl4kjs05nj8v3kd7dpr5xkz3xp3gdvjih32ccd7527f5vp")
7860                    #:trivial? #t)))
7861     (package
7862       (inherit template)
7863       (home-page "http://www.ctan.org/pkg/iftex")
7864       (synopsis "Determine the currently used TeX engine")
7865       (description "This package, which works both for Plain TeX and for
7866 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
7867 conditionals for testing which engine is being used for typesetting.  The
7868 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
7869 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
7870 LuaTeX (respectively) is not the engine in use.")
7871       (license license:lppl1.3+))))
7872
7873 (define-public texlive-iftex
7874   (deprecated-package "texlive-iftex" texlive-generic-iftex))
7875
7876 (define-public texlive-generic-ifxetex
7877   (deprecated-package "texlive-generic-ifxetex" texlive-generic-iftex))
7878
7879 (define-public texlive-tools
7880   (let ((template (simple-texlive-package
7881                    "texlive-tools"
7882                    (list "/doc/latex/tools/"
7883                          "/source/latex/tools/")
7884                    (base32
7885                     "1860bll28mr8nhbdfx073mj87vgg3gpc62v8bk9q0kq8pg0wsx1a"))))
7886     (package
7887       (inherit template)
7888       (arguments
7889        (substitute-keyword-arguments (package-arguments template)
7890          ((#:tex-directory _ '())
7891           "latex/tools")
7892          ((#:build-targets _ '())
7893           ''("tools.ins"))
7894          ((#:phases phases)
7895           `(modify-phases ,phases
7896              (add-after 'unpack 'chdir
7897                (lambda _ (chdir "source/latex/tools") #t))))))
7898       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
7899       (synopsis "LaTeX standard tools bundle")
7900       (description "This package provides a collection of simple tools that
7901 are part of the LaTeX required tools distribution, comprising the packages:
7902 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
7903 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
7904 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
7905 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
7906 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
7907 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
7908       (license license:lppl1.3+))))
7909
7910 (define-public texlive-latex-xkeyval
7911   (package
7912     (name "texlive-latex-xkeyval")
7913     (version (number->string %texlive-revision))
7914     (source (origin
7915               (method svn-fetch)
7916               (uri (texlive-ref "latex" "xkeyval"))
7917               (file-name (string-append name "-" version "-checkout"))
7918               (sha256
7919                (base32
7920                 "0wancavix39j240pd8m9cgmwsijwx6jd6n54v8wg0x2rk5m44myp"))))
7921     (build-system texlive-build-system)
7922     (arguments
7923      '(#:tex-directory "latex/xkeyval"
7924        #:build-targets '("xkeyval.dtx")
7925        #:tex-format "latex" ; won't build with luatex
7926        #:phases
7927        (modify-phases %standard-phases
7928          ;; This package cannot be built out of tree as it expects to find
7929          ;; built files in the working directory.
7930          (add-before 'build 'fix-build
7931            (lambda _
7932              (setenv "TEXINPUTS"
7933                      (string-append (getcwd) "/build:"))
7934              (substitute* "xkeyval.dtx"
7935                (("usepackage\\{xcolor\\}")
7936                 "usepackage[dvips]{xcolor}"))
7937              #t))
7938          ;; FIXME: We don't have a package for this font yet.
7939          (add-after 'unpack 'remove-dependency-on-fourier
7940            (lambda _
7941              (substitute* "xkeyval.dtx"
7942                (("\\\\usepackage\\{fourier\\}") ""))
7943              #t))
7944          (add-after 'install 'move-files
7945            (lambda* (#:key outputs #:allow-other-keys)
7946              (let* ((out (assoc-ref outputs "out"))
7947                     (share (string-append out "/share/texmf-dist"))
7948                     (source (string-append share "/tex/latex/xkeyval/"))
7949                     (target (string-append share "/tex/generic/xkeyval/")))
7950                (mkdir-p target)
7951                (for-each (lambda (file)
7952                            (rename-file (string-append source file)
7953                                         (string-append target file)))
7954                          '("keyval.tex"
7955                            "pst-xkey.tex"
7956                            "xkeyval.tex"
7957                            "xkvex1.tex"
7958                            "xkvex2.tex"
7959                            "xkvex3.tex"
7960                            "xkvex4.tex"
7961                            "xkvtxhdr.tex"
7962                            "xkvutils.tex"))
7963                #t))))))
7964     (native-inputs
7965      `(("texlive-latex-base" ,texlive-latex-base)
7966        ("texlive-cm" ,texlive-cm)
7967        ("texlive-lm" ,texlive-lm)
7968        ("texlive-url" ,texlive-url)
7969        ("texlive-graphics-def" ,texlive-graphics-def)
7970        ("texlive-xcolor" ,texlive-xcolor)
7971        ("texlive-latex-footmisc" ,texlive-latex-footmisc)
7972        ("texlive-latex-listings" ,texlive-latex-listings)
7973        ("texlive-generic-iftex" ,texlive-generic-iftex)
7974        ("texlive-pstricks" ,texlive-pstricks)
7975        ("texlive-pst-text" ,texlive-pst-text)
7976        ("texlive-tools" ,texlive-tools)
7977        ("texlive-latex-pgf" ,texlive-latex-pgf)))
7978     (home-page "http://www.ctan.org/pkg/xkeyval")
7979     (synopsis "Extension of the keyval package")
7980     (description
7981      "This package is an extension of the keyval package and offers additional
7982 macros for setting keys and declaring and setting class or package options.
7983 The package allows the programmer to specify a prefix to the name of the
7984 macros it defines for keys, and to define families of key definitions; these
7985 all help use in documents where several packages define their own sets of
7986 keys.")
7987     (license license:lppl1.3+)))
7988
7989 (define-public texlive-standalone
7990   (package
7991     (name "texlive-standalone")
7992     (version (number->string %texlive-revision))
7993     (source
7994      (origin
7995        (method svn-fetch)
7996        (uri (texlive-ref "latex" "standalone"))
7997        (file-name (string-append name "-" version "-checkout"))
7998        (sha256
7999         (base32
8000          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
8001     (build-system texlive-build-system)
8002     (arguments '(#:tex-directory "latex/standalone"))
8003     (propagated-inputs
8004      `(("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8005     (native-inputs
8006      `(("texlive-ydoc" ,texlive-ydoc)))
8007     (home-page "http://www.ctan.org/pkg/standalone")
8008     (synopsis "Compile TeX pictures stand-alone or as part of a document")
8009     (description "A class and package is provided which allows TeX pictures or
8010 other TeX code to be compiled standalone or as part of a main document.
8011 Special support for pictures with beamer overlays is also provided.  The
8012 package is used in the main document and skips extra preambles in sub-files.
8013 The class may be used to simplify the preamble in sub-files.  By default the
8014 @code{preview} package is used to display the typeset code without margins.
8015 The behaviour in standalone mode may adjusted using a configuration file
8016 @code{standalone.cfg} to redefine the standalone environment.")
8017     (license license:lppl1.3+)))
8018
8019 (define-public texlive-siunitx
8020   (package
8021     (name "texlive-siunitx")
8022     (version (number->string %texlive-revision))
8023     (source (texlive-origin
8024              name version
8025              (list "/source/latex/siunitx/siunitx.dtx"
8026                    "/doc/latex/siunitx/README.md")
8027              (base32
8028               "05kl7yid2npp2gbfshnv2xd08w81fkh5h2n5wd9xcpbhlqjzx9sj")))
8029     (build-system texlive-build-system)
8030     (arguments
8031      '(#:tex-directory "latex/siunitx"
8032        #:build-targets '("siunitx.dtx")
8033        #:phases
8034        (modify-phases %standard-phases
8035          (add-after 'unpack 'chdir
8036            (lambda _ (chdir "source/latex/siunitx") #t)))))
8037     (propagated-inputs
8038      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
8039        ("texlive-latex-l3packages" ,texlive-latex-l3packages)))
8040     (home-page "http://www.ctan.org/pkg/siunitx")
8041     (synopsis "Comprehensive SI units package")
8042     (description
8043      "Typesetting values with units requires care to ensure that the combined
8044 mathematical meaning of the value plus unit combination is clear.  In
8045 particular, the SI units system lays down a consistent set of units with rules
8046 on how they are to be used.  However, different countries and publishers have
8047 differing conventions on the exact appearance of numbers (and units).  A
8048 number of LaTeX packages have been developed to provide consistent application
8049 of the various rules.  The @code{siunitx} package takes the best from the
8050 existing packages, and adds new features and a consistent interface.  A number
8051 of new ideas have been incorporated, to fill gaps in the existing provision.
8052 The package also provides backward-compatibility with @code{SIunits},
8053 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
8054 package to handle all of the possible unit-related needs of LaTeX users.")
8055     (license license:lppl1.3c)))
8056
8057 (define-public texlive-booktabs
8058   (package
8059     (name "texlive-booktabs")
8060     (version (number->string %texlive-revision))
8061     (source
8062      (origin
8063        (method svn-fetch)
8064        (uri (texlive-ref "latex" "booktabs"))
8065        (file-name (string-append name "-" version "-checkout"))
8066        (sha256
8067         (base32
8068          "1mycxzl761p2zzmva8xsjbxbvrxx3vhi5p160mh9kiqwhrs5biz5"))))
8069     (build-system texlive-build-system)
8070     (arguments '(#:tex-directory "latex/booktabs"))
8071     (home-page "http://www.ctan.org/pkg/booktabs")
8072     (synopsis "Publication quality tables in LaTeX")
8073     (description
8074      "This package enhances the quality of tables in LaTeX, providing extra
8075 commands as well as behind-the-scenes optimisation.  Guidelines are given as
8076 to what constitutes a good table in this context.  The package offers
8077 @code{longtable} compatibility.")
8078     (license license:lppl1.3+)))
8079
8080 (define-public texlive-csquotes
8081   (let ((template (simple-texlive-package
8082                    "texlive-csquotes"
8083                    (list "/doc/latex/csquotes/"
8084                          "/tex/latex/csquotes/")
8085                    (base32
8086                     "1k7riymar0xx41n03p6yscrsjr2mzmzzkqihh2yv4lixd1nd7l8j")
8087                    #:trivial? #t)))
8088     (package
8089       (inherit template)
8090       (propagated-inputs
8091        `(("texlive-etoolbox" ,texlive-etoolbox)))
8092       (home-page "https://www.ctan.org/pkg/csquotes")
8093       (synopsis "Context sensitive quotation facilities")
8094       (description "This package provides advanced facilities for inline and
8095 display quotations.  It is designed for a wide range of tasks ranging from the
8096 most simple applications to the more complex demands of formal quotations.
8097 The facilities include commands, environments, and user-definable 'smart
8098 quotes' which dynamically adjust to their context.  Quotation marks are
8099 switched automatically if quotations are nested and they can be adjusted to
8100 the current language if the babel package is available.  There are additional
8101 facilities designed to cope with the more specific demands of academic
8102 writing, especially in the humanities and the social sciences.  All quote
8103 styles as well as the optional active quotes are freely configurable.")
8104       (license license:lppl1.3c+))))
8105
8106 (define-public texlive-logreq
8107   (let ((template (simple-texlive-package
8108                    "texlive-logreq"
8109                    (list "/doc/latex/logreq/"
8110                          "/tex/latex/logreq/")
8111                    (base32
8112                     "13difccs3cxlkqlnhw286yb0c7mifrxfd402a2x5wwxv0m1kgfqd")
8113                    #:trivial? #t)))
8114     (package
8115       (inherit template)
8116       (propagated-inputs
8117        `(("texlive-etoolbox" ,texlive-etoolbox)))
8118       (home-page "https://www.ctan.org/pkg/logreq")
8119       (synopsis "Support for automation of the LaTeX workflow")
8120       (description "The package helps to automate a typical LaTeX
8121 workflow that involves running LaTeX several times and running tools
8122 such as BibTeX or makeindex.  It will log requests like \"please rerun
8123 LaTeX\" or \"please run BibTeX on file X\" to an external file in a
8124 machine-readable format.  Compiler scripts and integrated LaTeX
8125 editing environments may parse this file to determine the next steps
8126 in the workflow.  In sum, the package will do two things:
8127
8128 @enumerate
8129 @item
8130 enable package authors to use LaTeX commands to issue requests, and
8131
8132 @item
8133 collect all requests from all packages and write them to an external
8134 XML file.
8135 @end enumerate\n")
8136       (license license:lppl1.3c))))
8137
8138 (define-public texlive-biblatex
8139   (let ((template (simple-texlive-package
8140                    "texlive-biblatex"
8141                    (list "/doc/latex/biblatex/"
8142                          "/tex/latex/biblatex/")
8143                    (base32
8144                     "0bq15ynx84v3ppz5ar1k321k1ck85x2p0irgxgzjh1lna9h6w7v0")
8145                    #:trivial? #t)))
8146     (package
8147       (inherit template)
8148       (propagated-inputs
8149        `(("texlive-logreq" ,texlive-logreq)
8150          ("texlive-url" ,texlive-url)))
8151       (home-page "https://www.ctan.org/pkg/biblatex")
8152       (synopsis "Sophisticated bibliographies in LaTeX")
8153       (description "BibLaTeX is a complete reimplementation of the
8154 bibliographic facilities provided by LaTeX.  Formatting of the
8155 bibliography is entirely controlled by LaTeX macros, facilitating the
8156 design of new bibliography and citation styles.  BibLaTeX uses its own
8157 data backend program \"biber\" to read and process the bibliographic
8158 data.  With biber, the range of features provided by biblatex
8159 includes:
8160
8161 @enumerate
8162 @item
8163 full unicode support,
8164
8165 @item
8166 customisable bibliography labels,
8167
8168 @item
8169 multiple bibliographies in the same document, and
8170
8171 @item
8172 subdivided bibliographies, such as bibliographies per chapter or
8173 section.
8174 @end enumerate\n")
8175       (license license:lppl1.3c))))
8176
8177 (define-public texlive-todonotes
8178   (let ((template (simple-texlive-package
8179                    "texlive-todonotes"
8180                    (list "/doc/latex/todonotes/"
8181                          "/tex/latex/todonotes/")
8182                    (base32
8183                     "0lvxsskz4bdfxhd59hf77kiq8k4nh2spb66vc6hifdgi21z8r8wm")
8184                    #:trivial? #t)))
8185     (package
8186       (inherit template)
8187       (propagated-inputs
8188        `(("texlive-latex-pgf" ,texlive-latex-pgf)
8189          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8190       (home-page "http://www.ctan.org/pkg/todonotes")
8191       (synopsis "Marking things to do in a LaTeX document")
8192       (description "The @code{todonotes} package lets the user mark
8193 things to do later, in a simple and visually appealing way.  The
8194 package takes several options to enable customization and finetuning
8195 of the visual appearance.")
8196       (license license:lppl1.3+))))
8197
8198 (define-public texlive-units
8199   (let ((template (simple-texlive-package
8200                    "texlive-units"
8201                    (list "/doc/latex/units/"
8202                          "/tex/latex/units/")
8203                    (base32
8204                     "1ia1vzy8dp7pdvmawwnmh9lmkajmpnnh62dixrjpb6mnxq118bfd")
8205                    #:trivial? #t)))
8206     (package
8207       (inherit template)
8208       (home-page "http://www.ctan.org/pkg/units")
8209       (synopsis "Typeset physical units and fractions")
8210       (description "@code{units} is a package for typesetting physical
8211 units in a standard-looking way.  The package is based upon
8212 @code{nicefrac}, a package for typing fractions.  @code{nicefrac} is
8213 included in the @code{units} bundle.")
8214       (license license:gpl3+))))
8215
8216 (define-public texlive-microtype
8217   (let ((template (simple-texlive-package
8218                    "texlive-microtype"
8219                    (list "/doc/latex/microtype/"
8220                          "/tex/latex/microtype/")
8221                    (base32
8222                     "1yig4i0alqrb1a6hhhlh5y0y4dzpznh698j0cb9632m2cd3aghwz")
8223                    #:trivial? #t)))
8224     (package
8225       (inherit template)
8226       (home-page "http://www.ctan.org/pkg/microtype")
8227       (synopsis "Subliminal refinements towards typographical perfection")
8228       (description "@code{microtype} provides a LaTeX interface to the
8229 micro-typographic extensions that were introduced by pdfTeX and have
8230 since propagated to XeTeX and LuaTeX: most prominently character
8231 protrusion and font expansion, the adjustment of kerning and interword
8232 spacing, hyphenatable letterspacing and the possibility to disable all
8233 or selected ligatures.  These features may be applied to customisable
8234 sets of fonts.  All micro-typographic aspects of the fonts can be
8235 configured in a straight-forward and flexible way.  Settings for
8236 various fonts are provided.  An alternative package
8237 @code{letterspace}, which also works with plain TeX, is included in
8238 the bundle.")
8239       (license license:lppl1.3c))))
8240
8241 (define-public texlive-caption
8242   (let ((template (simple-texlive-package
8243                    "texlive-caption"
8244                    (list "/doc/latex/caption/"
8245                          "/tex/latex/caption/")
8246                    (base32
8247                     "11wnakgbqbpqvc6rr1j0s7qw5jvkhf3miizax4l73i87a90gxk6b")
8248                    #:trivial? #t)))
8249     (package
8250       (inherit template)
8251       (home-page "http://www.ctan.org/pkg/caption")
8252       (synopsis "Customising captions in floating environments")
8253       (description "The @code{caption} package provides many ways to
8254 customise the captions in floating environments like figure and table.
8255 Facilities include rotating captions, sideways captions and continued
8256 captions (for tables or figures that come in several parts).  A list
8257 of compatibility notes, for other packages, is provided in the
8258 documentation.  The package also provides the \"caption outside
8259 float\" facility, in the same way that simpler packages like
8260 @code{capt-ofcapt-of} do.  The package supersedes @code{caption2}.
8261 Packages @code{bicaption}, @code{ltcaption}, @code{newfloat},
8262 @code{subcaption} and @code{totalcount} are included in the bundle.")
8263       (license license:lppl1.3+))))
8264
8265 (define-public texlive-symbol
8266   (package
8267     (inherit (simple-texlive-package
8268               "texlive-symbol"
8269               (list "/dvips/symbol/"
8270                     "/fonts/afm/adobe/symbol/"
8271                     "/fonts/afm/urw/symbol/"
8272                     "/fonts/tfm/adobe/symbol/"
8273                     "/fonts/tfm/urw35vf/symbol/"
8274                     "/fonts/type1/urw/symbol/"
8275                     "/fonts/map/dvips/symbol/"
8276                     "/tex/latex/symbol/")
8277               (base32
8278                "01xiygb88xwi7rfvh1zrlxzi5pqb5fvylws5zzszg379iz4pyzwj")
8279               #:trivial? #t))
8280     (home-page "https://ctan.org/pkg/urw-base35")
8281     (synopsis "URW Base 35 font pack for LaTeX")
8282     (description "This package provides a drop-in replacement for the
8283 Symbol font from Adobe's basic set.")
8284     (license license:gpl2)))
8285
8286 (define-public texlive-mathpazo
8287   (package
8288     (inherit (simple-texlive-package
8289               "texlive-mathpazo"
8290               (list "/doc/latex/mathpazo/"
8291                     "/fonts/afm/public/mathpazo/"
8292                     "/fonts/tfm/public/mathpazo/"
8293                     "/fonts/type1/public/mathpazo/"
8294                     "/fonts/vf/public/mathpazo/")
8295               (base32
8296                "02in6hdnbnkz216mpy8g6fk3wmlls8nh5982vmg37vhbj77lk0rh")
8297               #:trivial? #t))
8298     (home-page "http://www.ctan.org/pkg/mathpazo")
8299     (synopsis "Fonts to typeset mathematics to match Palatino")
8300     (description "The Pazo Math fonts are a family of PostScript fonts
8301 suitable for typesetting mathematics in combination with the Palatino
8302 family of text fonts.  The Pazo Math family is made up of five fonts
8303 provided in Adobe Type 1 format.  These contain glyphs that are
8304 usually not available in Palatino and for which Computer Modern looks
8305 odd when combined with Palatino.  These glyphs include the uppercase
8306 Greek alphabet in upright and slanted shapes, the lowercase Greek
8307 alphabet in slanted shape, several mathematical glyphs and the
8308 uppercase letters commonly used to represent various number sets.
8309 LaTeX macro support is provided in package @code{psnfss}.")
8310     (license license:gpl3+)))
8311
8312 (define-public texlive-fpl
8313   (package
8314     (inherit (simple-texlive-package
8315               "texlive-fpl"
8316               (list "/doc/fonts/fpl/"
8317                     "/source/fonts/fpl/"
8318                     "/fonts/afm/public/fpl/"
8319                     "/fonts/type1/public/fpl/")
8320               (base32
8321                "02gkl516z9kn8xqs269pdkqn37sxm8ib0pcs43s4rs2rhyyl5z68")
8322               #:trivial? #t))
8323     (home-page "https://www.ctan.org/pkg/fpl")
8324     (synopsis "SC and OsF fonts for URW Palladio L")
8325     (description "The FPL Fonts provide a set of SC/OsF fonts for URW
8326 Palladio L which are compatible with the Palatino SC/OsF fonts from
8327 Adobe.  LaTeX use is enabled by the mathpazo package, which is part of
8328 the @code{psnfss} distribution.")
8329     ;; Either LPPL version 1.0 or later, or GPL version 2
8330     (license (list license:lppl1.0+ license:gpl2))))
8331
8332 (define-public texlive-arev
8333   (package
8334     (inherit (simple-texlive-package
8335               "texlive-arev"
8336               (list "/doc/fonts/arev/"
8337                     "/fonts/afm/public/arev/"
8338                     "/fonts/enc/dvips/arev/"
8339                     "/fonts/map/dvips/arev/"
8340                     "/fonts/tfm/public/arev/"
8341                     "/fonts/type1/public/arev/"
8342                     "/fonts/vf/public/arev/"
8343                     "/tex/latex/arev/")
8344               (base32
8345                "15wkgc48r52mjpymv6l7j9bl99kwxbvg3g1mi3qyq7nfm799dkxy")
8346               #:trivial? #t))
8347     (home-page "https://www.ctan.org/pkg/arev")
8348     (synopsis "Fonts and LaTeX support files for Arev Sans")
8349     (description "The @code{arev} package provides type 1 fonts,
8350 virtual fonts and LaTeX packages for using Arev Sans in both text and
8351 mathematics.  Arev Sans is a derivative of Bitstream Vera Sans, adding
8352 support for Greek and Cyrillic characters and a few variant letters
8353 appropriate for mathematics.  The font is primarily used in LaTeX for
8354 presentations, particularly when using a computer projector.  Arev
8355 Sans has large x-height, \"open letters\", wide spacing and thick
8356 stems.  The style is very similar to the SliTeX font lcmss but
8357 heavier.  Arev is one of a very small number of sans-font mathematics
8358 support packages.  Others are cmbright, hvmath and kerkis.")
8359     (license (list license:silofl1.1 ;for Arev Sans
8360                    license:lppl1.3a  ;for TeX support files
8361                    license:gpl2))))  ;for ams-mdbch.sty
8362
8363 (define-public texlive-mathdesign
8364   (package
8365     (inherit (simple-texlive-package
8366               "texlive-mathdesign"
8367               (list "/doc/fonts/mathdesign/"
8368                     "/dvips/mathdesign/"
8369                     "/fonts/enc/dvips/mathdesign/"
8370                     "/fonts/map/dvips/mathdesign/"
8371                     "/fonts/tfm/public/mathdesign/"
8372                     "/fonts/type1/public/mathdesign/"
8373                     "/fonts/vf/public/mathdesign/"
8374                     "/tex/latex/mathdesign/")
8375               (base32
8376                "0jcby2sd0l3ank2drxc0qcf5d1cwa8idzh4g91h4nxk8zrzxj8nr")
8377               #:trivial? #t))
8378     (home-page "https://www.ctan.org/pkg/mathdesign")
8379     (synopsis "Mathematical fonts to fit with particular text fonts")
8380     (description "The Math Design project offers free mathematical
8381 fonts that match with existing text fonts.  To date, three free font
8382 families are available: Adobe Utopia, URW Garamond and Bitstream
8383 Charter.  Mathdesign covers the whole LaTeX glyph set including AMS
8384 symbols.  Both roman and bold versions of these symbols can be used.
8385 Moreover, there is a choice between three greek fonts (two of them
8386 created by the Greek Font Society).")
8387     (license license:gpl2+)))
8388
8389 (define-public texlive-bera
8390   (package
8391     (inherit (simple-texlive-package
8392               "texlive-bera"
8393               (list "/doc/fonts/bera/"
8394                     "/fonts/afm/public/bera/"
8395                     "/fonts/map/dvips/bera/"
8396                     "/fonts/tfm/public/bera/"
8397                     "/fonts/type1/public/bera/"
8398                     "/fonts/vf/public/bera/"
8399                     "/tex/latex/bera/")
8400               (base32
8401                "1pkmhhr6ah44xhipjr7nianv03hr4w4bn45xcvp264yw6ymqzqwr")
8402               #:trivial? #t))
8403     (home-page "https://www.ctan.org/pkg/bera")
8404     (synopsis "Bera fonts")
8405     (description "The @code{bera} package contains the Bera Type 1
8406 fonts and files to use the fonts with LaTeX.  Bera is a set of three
8407 font families: Bera Serif (a slab-serif Roman), Bera Sans (a Frutiger
8408 descendant) and Bera Mono (monospaced/typewriter).  The Bera family is
8409 a repackaging, for use with TeX, of the Bitstream Vera family.")
8410     (license license:silofl1.1)))
8411
8412 (define-public texlive-fourier
8413   (package
8414     (inherit (simple-texlive-package
8415               "texlive-fourier"
8416               (list "/doc/fonts/fourier/"
8417                     "/fonts/afm/public/fourier/"
8418                     "/fonts/map/dvips/fourier/"
8419                     "/fonts/tfm/public/fourier/"
8420                     "/fonts/type1/public/fourier/"
8421                     "/fonts/vf/public/fourier/"
8422                     "/tex/latex/fourier/")
8423               (base32
8424                "04d575nd4yvl58g9dfab9mrjxiv4792bdkz4bjvlkx6x257vlfzn")
8425               #:trivial? #t))
8426     (home-page "https://www.ctan.org/pkg/fourier")
8427     (synopsis "Utopia fonts for LaTeX documents")
8428     (description "Fourier-GUTenberg is a LaTeX typesetting system
8429 which uses Adobe Utopia as its standard base font.  Fourier-GUTenberg
8430 provides all complementary typefaces needed to allow Utopia based TeX
8431 typesetting including an extensive mathematics set and several other
8432 symbols.  The system is absolutely stand-alone; apart from Utopia and
8433 Fourier no other typefaces are required.  Utopia is a registered
8434 trademark of Adobe Systems Incorporated.")
8435     (license license:lppl)))
8436
8437 (define-public texlive-utopia
8438   (package
8439     (inherit (simple-texlive-package
8440               "texlive-utopia"
8441               (list "/doc/fonts/utopia/"
8442                     "/fonts/afm/adobe/utopia/"
8443                     "/fonts/tfm/adobe/utopia/"
8444                     "/fonts/type1/adobe/utopia/"
8445                     "/fonts/vf/adobe/utopia/")
8446               (base32
8447                "113wgkfz4z0ls2grxxfj17l42a1yv9r5ipcd0156xnfsrqvqzxfc")
8448               #:trivial? #t))
8449     (home-page "https://www.ctan.org/pkg/utopia")
8450     (synopsis "Adobe Utopia fonts")
8451     (description "The Adobe Standard Encoding set of the Utopia font
8452 family, as contributed to the X Consortium.  The set comprises upright
8453 and italic shapes in medium and bold weights.  Macro support and
8454 matching maths fonts are provided by the @code{fourier} and
8455 @code{mathdesign} font packages.")
8456     (license (license:fsf-free
8457               "http://mirrors.ctan.org/fonts/utopia/README"))))
8458
8459 (define-public texlive-fontaxes
8460   (package
8461     (name "texlive-fontaxes")
8462     (version "1.0e")
8463     (source
8464      (origin
8465        (method svn-fetch)
8466        (uri (texlive-ref "latex" "fontaxes"))
8467        (file-name (string-append name "-" version "-checkout"))
8468        (sha256
8469         (base32
8470          "19mhp9l7cjw0sbq55c9lz0l2pffkyhyir3i63jqynifjmglbgkl7"))))
8471     (build-system texlive-build-system)
8472     (arguments '(#:tex-directory "latex/fontaxes"))
8473     (home-page "http://www.ctan.org/pkg/fontaxes")
8474     (synopsis "Additional font axes for LaTeX")
8475     (description "The @code{fontaxes} package adds several new font
8476 axes on top of LaTeX's New Font Selection Scheme (NFSS).  In
8477 particular, it splits the shape axis into a primary and a secondary
8478 shape axis and it adds three new axes to deal with the different
8479 figure versions offered by many professional fonts.")
8480     (license license:lppl1.3+)))
8481
8482 (define-public texlive-mweights
8483   (package
8484     (inherit (simple-texlive-package
8485               "texlive-mweights"
8486               (list "/doc/latex/mweights/"
8487                     "/tex/latex/mweights/")
8488               (base32
8489                "12493g3yz06mhiybnphqbp49fjzy36clzw63b74mkfhsg1pq7h1b")
8490               #:trivial? #t))
8491     (home-page "https://www.ctan.org/pkg/mweights")
8492     (synopsis "Support for multiple-weight font packages")
8493     (description "Many font families available for use with LaTeX are
8494 available at multiple weights.  Many Type 1-oriented support packages
8495 for such fonts re-define the standard @code{\\mddefault} or
8496 @code{\\bfdefault} macros.  This can create difficulties if the weight
8497 desired for one font family is not available for another font family,
8498 or if it differs from the weight desired for another font family.  The
8499 @code{mweights} package provides a solution to these difficulties.")
8500     (license license:lppl)))
8501
8502 (define-public texlive-cabin
8503   (package
8504     (inherit (simple-texlive-package
8505               "texlive-cabin"
8506               (list "/doc/fonts/cabin/"
8507                     "/fonts/enc/dvips/cabin/"
8508                     "/fonts/map/dvips/cabin/"
8509                     "/fonts/opentype/impallari/cabin/"
8510                     "/fonts/tfm/impallari/cabin/"
8511                     "/fonts/type1/impallari/cabin/"
8512                     "/fonts/vf/impallari/cabin/"
8513                     "/tex/latex/cabin/")
8514               (base32
8515                "0878gc4aqs9168kfb1j3js7rrxvf9lrxwfqzc9cag1cjy60nqljy")
8516               #:trivial? #t))
8517     (home-page "https://www.ctan.org/pkg/cabin")
8518     (synopsis "Humanist Sans Serif font with LaTeX support")
8519     (description "Cabin is a humanist sans with four weights, true
8520 italics and small capitals.  According to its designer, Pablo
8521 Impallari, Cabin was inspired by the typefaces of Edward Johnston and
8522 Eric Gill.  Cabin incorporates modern proportions, optical adjustments
8523 and some elements of the geometric sans.  @code{cabin.sty} supports
8524 use of the font under LaTeX, pdfLaTeX, XeLaTeX and LuaLaTeX.  It uses
8525 the @code{mweights} package to manage the user's view of all those
8526 font weights.  An @code{sfdefault} option is provided to enable Cabin
8527 as the default text font.  The @code{fontaxes} package is required for
8528 use with [pdf]LaTeX.")
8529     (license (list license:silofl1.1 ;for Cabin
8530                    license:lppl))))  ;for support files
8531
8532 (define-public texlive-newtx
8533   (package
8534     (inherit (simple-texlive-package
8535               "texlive-newtx"
8536               (list "/doc/fonts/newtx/"
8537                     "/fonts/afm/public/newtx/"
8538                     "/fonts/enc/dvips/newtx/"
8539                     "/fonts/map/dvips/newtx/"
8540                     "/fonts/opentype/public/newtx/"
8541                     "/fonts/tfm/public/newtx/"
8542                     "/fonts/type1/public/newtx/"
8543                     "/fonts/vf/public/newtx/"
8544                     "/tex/latex/newtx/")
8545               (base32
8546                "0fa90qz8px369yk0x1nhmq4901rvnclx06ijb4ir57f2324rrg8d")
8547               #:trivial? #t))
8548     (home-page "https://www.ctan.org/pkg/newtx")
8549     (synopsis "Repackaging of the TX fonts with improved metrics")
8550     (description "The @code{newtx} bundle splits
8551 @code{txfonts.sty} (from the TX fonts distribution) into two
8552 independent packages, @code{newtxtext.sty} and @code{newtxmath.sty},
8553 each with fixes and enhancements.  @code{newtxmath}'s metrics have
8554 been re-evaluated to provide a less tight appearance and to provide a
8555 @code{libertine} option that substitutes Libertine italic and Greek
8556 letters for the existing math italic and Greek glyphs, making a
8557 mathematics package that matches Libertine text quite well.")
8558     (license license:lppl1.3)))
8559
8560 (define-public texlive-xcharter
8561   (package
8562     (inherit (simple-texlive-package
8563               "texlive-xcharter"
8564               (list "/doc/fonts/xcharter/"
8565                     "/fonts/afm/public/xcharter/"
8566                     "/fonts/enc/dvips/xcharter/"
8567                     "/fonts/map/dvips/xcharter/"
8568                     "/fonts/opentype/public/xcharter/"
8569                     "/fonts/tfm/public/xcharter/"
8570                     "/fonts/type1/public/xcharter/"
8571                     "/fonts/vf/public/xcharter/"
8572                     "/tex/latex/xcharter/")
8573               (base32
8574                "1qlid98lg0wcdq6hpk9kl2cl139pxcw6y8x8mfah2j95wq1i64lm")
8575               #:trivial? #t))
8576     (home-page "https://www.ctan.org/pkg/xcharter")
8577     (synopsis "Extension of the Bitstream Charter fonts")
8578     (description "@code{xcharter} repackages Bitstream Charter with an
8579 extended set of features.  The extension provides small caps, oldstyle
8580 figures and superior figures in all four styles, accompanied by LaTeX
8581 font support files.  The fonts themselves are provided in both Adobe
8582 Type 1 and OTF formats, with supporting files as necessary.")
8583     (license (list (license:fsf-free
8584                     "http://mirrors.ctan.org/fonts/xcharter/README")
8585                    license:lppl1.3))))
8586
8587 (define-public texlive-ly1
8588   (package
8589     (inherit (simple-texlive-package
8590               "texlive-ly1"
8591               (list "/doc/fonts/ly1/"
8592                     "/fonts/enc/dvips/ly1/"
8593                     "/fonts/map/dvips/ly1/"
8594                     "/fonts/tfm/adobe/ly1/"
8595                     "/fonts/vf/adobe/ly1/"
8596                     "/tex/latex/ly1/")
8597               (base32
8598                "0wjyw0risgvrq97zfciglwy1f4msvfslln6pz0q8yzzx8wsv3zgq")
8599               #:trivial? #t))
8600     (home-page "https://www.ctan.org/pkg/ly1")
8601     (synopsis "Support for LY1 LaTeX encoding")
8602     (description "The legacy @emph{texnansi} (TeX and ANSI) encoding
8603 is known in the LaTeX scheme of things as @emph{LY1} encoding.  The
8604 @code{ly1} bundle includes metrics and LaTeX macros to use the three
8605 basic Adobe Type 1 fonts (Times, Helvetica and Courier) in LaTeX using
8606 LY1 encoding.")
8607     (license license:lppl1.0+)))
8608
8609 (define-public texlive-sectsty
8610   (let ((template (simple-texlive-package
8611                    "texlive-sectsty"
8612                    (list "/doc/latex/sectsty/"
8613                          "/source/latex/sectsty/")
8614                    (base32
8615                     "08m90j7cg6w46vnwgsp10clpj4l6c9a6l8dad20q3mnd32l84hbl"))))
8616     (package
8617       (inherit template)
8618       (arguments
8619        (substitute-keyword-arguments (package-arguments template)
8620          ((#:tex-directory _ '())
8621           "latex/sectsty")
8622          ((#:build-targets _ '())
8623           ''("sectsty.ins"))
8624          ((#:tex-format _ "latex") "latex")
8625          ((#:phases phases)
8626           `(modify-phases ,phases
8627              (add-after 'unpack 'chdir
8628                (lambda _ (chdir "source/latex/sectsty")))))))
8629       (home-page "https://www.ctan.org/pkg/sectsty")
8630       (synopsis "Control sectional headers")
8631       (description "This is a LaTeX2ε package to help change the style of any or
8632 all of LaTeX's sectional headers in the article, book, or report classes.
8633 Examples include the addition of rules above or below a section title. ")
8634       (license license:lppl1.2+))))
8635
8636 (define-public texlive-morefloats
8637   (let ((template (simple-texlive-package
8638                    "texlive-morefloats"
8639                    (list "/doc/latex/morefloats/"
8640                          "/source/latex/morefloats/")
8641                    (base32
8642                     "0n0405fjxyjlbjspzfvhl0wjkwiqicj3hk8fa0g7agw72wlxscpl"))))
8643     (package
8644       (inherit template)
8645       (arguments
8646        (substitute-keyword-arguments (package-arguments template)
8647          ((#:tex-directory _ '())
8648           "latex/morefloats")
8649          ((#:build-targets _ '())
8650           ''("morefloats.ins"))
8651          ((#:phases phases)
8652           `(modify-phases ,phases
8653              (add-after 'unpack 'chdir
8654                (lambda _ (chdir "source/latex/morefloats")))))))
8655       (home-page "https://www.ctan.org/pkg/morefloats")
8656       (synopsis "Increase the number of simultaneous LaTeX floats")
8657       (description "LaTeX can, by default, only cope with 18 outstanding floats;
8658 any more, and you get the error “too many unprocessed floats”.  This package
8659 releases the limit; TeX itself imposes limits (which are independent of the
8660 help offered by e-TeX).
8661
8662 However, if your floats can’t be placed anywhere, extending the number of
8663 floats merely delays the arrival of the inevitable error message.")
8664       (license license:lppl1.3c+))))
8665
8666 (define-public texlive-ifmtarg
8667   (let ((template (simple-texlive-package
8668                    "texlive-ifmtarg"
8669                    (list "/doc/latex/ifmtarg/"
8670                          "/source/latex/ifmtarg/")
8671                    (base32
8672                     "0cwjn4bhq9zyfxr1595hgyc1d7rcsf9lva55x98q81xy5xrrmrb2"))))
8673     (package
8674       (inherit template)
8675       (arguments
8676        (substitute-keyword-arguments (package-arguments template)
8677          ((#:tex-directory _ '())
8678           "latex/ifmtarg")
8679          ((#:build-targets _ '())
8680           ''("ifmtarg.ins"))
8681          ((#:tex-format _ "latex") "latex")
8682          ((#:phases phases)
8683           `(modify-phases ,phases
8684              (add-after 'unpack 'chdir
8685                (lambda _ (chdir "source/latex/ifmtarg")))))))
8686       (inputs
8687        `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
8688       (home-page "https://www.ctan.org/pkg/ifmtarg")
8689       (synopsis "If-then-else command for processing potentially empty arguments")
8690       (description "This package provides a command for the LaTeX programmer for
8691 testing whether an argument is empty.")
8692       (license license:lppl1.3c+))))
8693
8694 (define-public texlive-pagenote
8695   (let ((template (simple-texlive-package
8696                    "texlive-pagenote"
8697                    (list "/doc/latex/pagenote/"
8698                          "/source/latex/pagenote/")
8699                    (base32
8700                     "0cqfqrfvnzq7ldaf255hcvi8xsfx8h7iha3hs8p9gdi3cfzbcmjm"))))
8701     (package
8702       (inherit template)
8703       (arguments
8704        (substitute-keyword-arguments (package-arguments template)
8705          ((#:tex-directory _ '())
8706           "latex/pagenote")
8707          ((#:build-targets _ '())
8708           ''("pagenote.ins"))
8709          ((#:phases phases)
8710           `(modify-phases ,phases
8711              (add-after 'unpack 'chdir
8712                (lambda _ (chdir "source/latex/pagenote")))))))
8713       (propagated-inputs
8714        `(("texlive-ifmtarg" ,texlive-ifmtarg)))
8715       (home-page "https://www.ctan.org/pkg/pagenote")
8716       (synopsis "Notes at end of document")
8717       (description "The pagenote package provides tagged notes on a separate
8718 page (also known as ‘end notes’).")
8719       (license license:lppl1.3c+))))
8720
8721 (define-public texlive-titling
8722   (let ((template (simple-texlive-package
8723                    "texlive-titling"
8724                    (list "/doc/latex/titling/"
8725                          "/source/latex/titling/")
8726                    (base32
8727                     "0pc3806kc9p2dizdghis0p0b00xs0gmlh2nmf94f5wasz5mkw6bk"))))
8728     (package
8729       (inherit template)
8730       (arguments
8731        (substitute-keyword-arguments (package-arguments template)
8732          ((#:tex-directory _ '())
8733           "latex/titling")
8734          ((#:build-targets _ '())
8735           ''("titling.ins"))
8736          ((#:tex-format _ "latex") "latex")
8737          ((#:phases phases)
8738           `(modify-phases ,phases
8739              (add-after 'unpack 'chdir
8740                (lambda _ (chdir "source/latex/titling")))))))
8741       (native-inputs
8742        `(("texlive-cm" ,texlive-cm)))
8743       (home-page "https://www.ctan.org/pkg/titling")
8744       (synopsis "Control typesetting of the \\maketitle command")
8745       (description "The @code{titling} package provides control over the
8746 typesetting of the @code{\\maketitle} command and @code{\\thanks} commands,
8747 and makes the \title, @code{\\author} and @code{\\date} information
8748 permanently available.  Multiple titles are allowed in a single document.  New
8749 titling elements can be added and a @code{titlepage} title can be centered on
8750 a physical page.")
8751       (license license:lppl))))
8752
8753 (define-public texlive-ifoddpage
8754   (let ((template (simple-texlive-package
8755                    "texlive-ifoddpage"
8756                    (list "/source/latex/ifoddpage/")
8757                    (base32
8758                     "14x0haj3xjsk9dn2djg117sl7x5nbwgbivhjj3ichnxlgrlf1bis"))))
8759     (package
8760       (inherit template)
8761       (arguments
8762        (substitute-keyword-arguments (package-arguments template)
8763          ((#:tex-directory _ '())
8764           "latex/ifoddpage")
8765          ((#:build-targets _ '())
8766           ''("ifoddpage.ins"))
8767          ((#:phases phases)
8768           `(modify-phases ,phases
8769              (add-after 'unpack 'chdir
8770                (lambda _ (chdir "source/latex/ifoddpage")))))))
8771       (native-inputs
8772        `(("texlive-ydoc" ,texlive-ydoc)))
8773       (home-page "https://www.ctan.org/pkg/ifoddpage")
8774       (synopsis "Determine if the current page is odd or even")
8775       (description "This package provides an @code{\\ifoddpage} conditional to
8776 determine if the current page is odd or even.  The macro @code{\\checkoddpage}
8777 must be used directly before to check the page number using a label.  Two
8778 compiler runs are therefore required to achieve correct results.  In addition,
8779 the conditional @code{\\ifoddpageoronside} is provided which is also true in
8780 @code{oneside} mode where all pages use the odd page layout.")
8781       (license license:lppl1.3))))
8782
8783 (define-public texlive-storebox
8784   (let ((template (simple-texlive-package
8785                    "texlive-storebox"
8786                    (list "/source/latex/storebox/")
8787                    (base32
8788                     "1ybpjfrria57fwvr9kriiw6y76ivwvsyb6ayp0bi750smsv8k5n1"))))
8789     (package
8790       (inherit template)
8791       (arguments
8792        (substitute-keyword-arguments (package-arguments template)
8793          ((#:tex-directory _ '())
8794           "latex/storebox")
8795          ((#:build-targets _ '())
8796           ''("storebox.ins"))
8797          ((#:phases phases)
8798           `(modify-phases ,phases
8799              (add-after 'unpack 'chdir
8800                (lambda _ (chdir "source/latex/storebox")))))))
8801       (native-inputs
8802        `(("texlive-ydoc" ,texlive-ydoc)))
8803       (home-page "https://www.ctan.org/pkg/storebox")
8804       (synopsis "Storing information for reuse")
8805       (description "The package provides \"store boxes\" whose user interface
8806 matches that of normal LaTeX \"save boxes\", except that the content of a
8807 store box appears at most once in the output PDF file, however often it is
8808 used.  The present version of the package supports pdfLaTeX and LuaLaTeX; when
8809 DVI is output, store boxes behave the same as save boxes.")
8810       (license license:lppl1.3))))
8811
8812 (define-public texlive-collectbox
8813   (let ((template (simple-texlive-package
8814                    "texlive-collectbox"
8815                    (list "/source/latex/collectbox/")
8816                    (base32
8817                     "1k0bbphvr20k9hgpr3dv869h9ygxx3g8vjapkc63nq8i13crpsvz"))))
8818     (package
8819       (inherit template)
8820       (arguments
8821        (substitute-keyword-arguments (package-arguments template)
8822          ((#:tex-directory _ '())
8823           "latex/collectbox")
8824          ((#:build-targets _ '())
8825           ''("collectbox.ins"))
8826          ((#:phases phases)
8827           `(modify-phases ,phases
8828              (add-after 'unpack 'chdir
8829                (lambda _ (chdir "source/latex/collectbox")))))))
8830       (native-inputs
8831        `(("texlive-ydoc" ,texlive-ydoc)))
8832       (home-page "https://www.ctan.org/pkg/collectbox")
8833       (synopsis "Collect and process macro arguments as boxes")
8834       (description "The package provides macros to collect and process a macro
8835 argument (i.e., something which looks like a macro argument) as a horizontal
8836 box rather than as a real macro argument.  The \"arguments\" are stored as if
8837 they had been saved by @code{\\savebox} or by the @code{lrbox} environment.
8838 Grouping tokens @code{\\bgroup} and @code{\\egroup} may be used, which allows
8839 the user to have the beginning and end of a group in different macro
8840 invocations, or to place them in the begin and end code of an environment.
8841 Arguments may contain verbatim material or other special use of characters.
8842 The macros were designed for use within other macros.")
8843       (license license:lppl1.3))))
8844
8845 (define-public texlive-adjustbox
8846   (let ((template (simple-texlive-package
8847                    "texlive-adjustbox"
8848                    (list "/doc/latex/adjustbox/"
8849                          "/source/latex/adjustbox/")
8850                    (base32
8851                     "14vd0yd50bky2pbbjkn59q1aglnqpdhh8vwjdyan0jkzljsr2ch8"))))
8852     (package
8853       (inherit template)
8854       (arguments
8855        (substitute-keyword-arguments (package-arguments template)
8856          ((#:tex-directory _ '())
8857           "latex/adjustbox")
8858          ((#:build-targets _ '())
8859           ''("adjustbox.ins"))
8860          ((#:phases phases)
8861           `(modify-phases ,phases
8862              (add-after 'unpack 'chdir
8863                (lambda _ (chdir "source/latex/adjustbox")))))))
8864       (native-inputs
8865        `(("texlive-ydoc" ,texlive-ydoc)))
8866       (propagated-inputs
8867        `(("texlive-latex-pgf" ,texlive-latex-pgf)
8868          ("texlive-latex-varwidth" ,texlive-latex-varwidth)
8869          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)
8870          ("texlive-collectbox" ,texlive-collectbox)
8871          ("texlive-ifoddpage" ,texlive-ifoddpage)
8872          ("texlive-storebox" ,texlive-storebox)))
8873       (home-page "https://www.ctan.org/pkg/adjustbox")
8874       (synopsis "Graphics package-alike macros for “general” boxes")
8875       (description "The package provides several macros to adjust boxed
8876 content.  One purpose is to supplement the standard @code{graphics} package,
8877 which defines the macros @code{\\resizebox}, @code{\\scalebox} and
8878 @code{\\rotatebox} , with the macros @code{\\trimbox} and @code{\\clipbox}.
8879 The main feature is the general @code{\\adjustbox} macro which extends the
8880 @code{key=value} interface of @code{\\includegraphics} from the
8881 @code{graphics} package and applies it to general text content.  Additional
8882 provided box macros are @code{\\lapbox}, @code{\\marginbox},
8883 @code{\\minsizebox}, @code{\\maxsizebox} and @code{\\phantombox}.")
8884       (license license:lppl1.3))))
8885
8886 (define-public texlive-tcolorbox
8887   (let ((template (simple-texlive-package
8888                    "texlive-tcolorbox"
8889                    (list "/doc/latex/tcolorbox/"
8890                          "/tex/latex/tcolorbox/")
8891                    (base32
8892                     "1swhagdj0a39ssifp29a36ldrjqmx8w92dqsgsjpal6lhksvzn2w")
8893                    #:trivial? #true)))
8894     (package
8895       (inherit template)
8896       (propagated-inputs
8897        `(("texlive-etoolbox" ,texlive-etoolbox)
8898          ("texlive-latex-environ" ,texlive-latex-environ)
8899          ("texlive-latex-pgf" ,texlive-latex-pgf)
8900          ("texlive-latex-tools" ,texlive-latex-tools)))
8901       (home-page "https://www.ctan.org/pkg/tcolorbox")
8902       (synopsis "Colored boxes, for LaTeX examples and theorems, etc")
8903       (description "This package provides an environment for colored and
8904 framed text boxes with a heading line.  Optionally, such a box may be split in
8905 an upper and a lower part; thus the package may be used for the setting of
8906 LaTeX examples where one part of the box displays the source code and the
8907 other part shows the output.  Another common use case is the setting of
8908 theorems.  The package supports saving and reuse of source code and text
8909 parts.")
8910       (license license:lppl1.3c+))))
8911
8912 (define-public texlive-eurosym
8913   (let ((template (simple-texlive-package
8914                    "texlive-eurosym"
8915                    (list "/doc/fonts/eurosym/"
8916                          "/fonts/map/dvips/eurosym/"
8917                          "/fonts/source/public/eurosym/"
8918                          "/fonts/tfm/public/eurosym/"
8919                          "/fonts/type1/public/eurosym/"
8920                          "/tex/latex/eurosym/eurosym.sty")
8921                    (base32
8922                     "0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")
8923                    #:trivial? #true)))
8924     (package
8925       (inherit template)
8926       (home-page "https://www.ctan.org/pkg/eurosym")
8927       (synopsis "METAFONT and macros for Euro sign")
8928       (description "This package provides the European currency symbol for the
8929 Euro implemented in METAFONT, using the official European Commission
8930 dimensions, and providing several shapes (normal, slanted, bold, outline).
8931 The package also includes a LaTeX package which defines the macro,
8932 pre-compiled font files, and documentation.")
8933       (license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING")))))
8934
8935 (define-public texlive-kastrup
8936   (package
8937     (name "texlive-kastrup")
8938     (version (number->string %texlive-revision))
8939     (source
8940      (origin
8941        (method svn-fetch)
8942        (uri (texlive-ref "generic" "kastrup"))
8943        (file-name (string-append name "-" version "-checkout"))
8944        (sha256
8945         (base32
8946          "1kkshc48brkq2nx3rlbv78a2130izykbf33ri1q2shqr8pjfmmq8"))))
8947     (build-system texlive-build-system)
8948     (arguments
8949      '(#:tex-directory "generic/kastrup"
8950        #:phases
8951        (modify-phases %standard-phases
8952          (add-after 'unpack 'remove-generated-file
8953            (lambda _
8954              (delete-file "binhex.drv")
8955              #t)))))
8956     (home-page "http://www.ctan.org/pkg/binhex")
8957     (synopsis "Convert numbers into binary, octal and hexadecimal")
8958     (description "The @code{kastrup} package provides the
8959 @emph{binhex.tex} file.  This file provides expandable macros for both
8960 fixed-width and minimum-width numbers to bases 2, 4, 8 and 16.  All
8961 constructs TeX accepts as arguments to its @code{\\number} primitive
8962 are valid as arguments for the macros.  The package may be used under
8963 LaTeX and plain TeX.")
8964     (license (license:fsf-free "file:/binhex.dtx"))))