gnu/packages/tex.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
   4 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
   6 ;;; Copyright © 2016, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
   8 ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
   9 ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
  10 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
  11 ;;; Copyright © 2017, 2020, 2021 Marius Bakke <marius@gnu.org>
  12 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  13 ;;; Copyright © 2018 Danny Milosavljevic <dannym+a@scratchpost.org>
  14 ;;; Copyright © 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
  15 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  16 ;;; Copyright © 2020, 2021 Paul Garlick <pgarlick@tourbillion-technology.com>
  17 ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  18 ;;; Copyright © 2021 Leo Le Bouter <lle-bout@zaclys.net>
  19 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 (define-module (gnu packages tex)
  36   #:use-module ((guix licenses) #:prefix license:)
  37   #:use-module (guix packages)
  38   #:use-module (guix download)
  39   #:use-module (guix build-system copy)
  40   #:use-module (guix build-system gnu)
  41   #:use-module (guix build-system perl)
  42   #:use-module (guix build-system python)
  43   #:use-module (guix build-system qt)
  44   #:use-module (guix build-system trivial)
  45   #:use-module (guix build-system texlive)
  46   #:use-module (guix utils)
  47   #:use-module (guix git-download)
  48   #:use-module (guix svn-download)
  49   #:use-module (gnu packages)
  50   #:use-module (gnu packages algebra)
  51   #:use-module (gnu packages autotools)
  52   #:use-module (gnu packages bash)
  53   #:use-module (gnu packages boost)
  54   #:use-module (gnu packages compression)
  55   #:use-module (gnu packages fontutils)
  56   #:use-module (gnu packages gd)
  57   #:use-module (gnu packages ghostscript)
  58   #:use-module (gnu packages graphviz)
  59   #:use-module (gnu packages gtk)
  60   #:use-module (gnu packages icu4c)
  61   #:use-module (gnu packages image)
  62   #:use-module (gnu packages libreoffice)
  63   #:use-module (gnu packages lua)
  64   #:use-module (gnu packages multiprecision)
  65   #:use-module (gnu packages pdf)
  66   #:use-module (gnu packages perl)
  67   #:use-module (gnu packages perl-check)
  68   #:use-module (gnu packages pkg-config)
  69   #:use-module (gnu packages python)
  70   #:use-module (gnu packages python-xyz)
  71   #:use-module (gnu packages qt)
  72   #:use-module (gnu packages ruby)
  73   #:use-module (gnu packages shells)
  74   #:use-module (gnu packages base)
  75   #:use-module (gnu packages gawk)
  76   #:use-module (gnu packages web)
  77   #:use-module (gnu packages xml)
  78   #:use-module (gnu packages xorg)
  79   #:use-module (gnu packages xdisorg)
  80   #:use-module (gnu packages texinfo)
  81   #:use-module (ice-9 ftw)
  82   #:use-module (ice-9 match)
  83   #:use-module ((srfi srfi-1) #:hide (zip)))
  84
  85 (define* (simple-texlive-package name locations hash
  86                                  #:key trivial?)
  87   "Return a template for a simple TeX Live package with the given NAME,
  88 downloading from a list of LOCATIONS in the TeX Live repository, and expecting
  89 the provided output HASH.  If TRIVIAL? is provided, all files will simply be
  90 copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
  91   (define with-documentation?
  92     (and trivial?
  93          (any (lambda (location)
  94                 (string-prefix? "/doc" location))
  95               locations)))
  96   (package
  97     (name name)
  98     (version (number->string %texlive-revision))
  99     (source (texlive-origin name version
 100                             locations hash))
 101     (outputs (if with-documentation?
 102                  '("out" "doc")
 103                  '("out")))
 104     (build-system (if trivial?
 105                       gnu-build-system
 106                       texlive-build-system))
 107     (arguments
 108      (let ((copy-files
 109             `(lambda* (#:key outputs inputs #:allow-other-keys)
 110                (let (,@(if with-documentation?
 111                            `((doc (string-append (assoc-ref outputs "doc")
 112                                                  "/share/texmf-dist/")))
 113                            '())
 114                      (out (string-append (assoc-ref outputs "out")
 115                                          "/share/texmf-dist/")))
 116                  ,@(if with-documentation?
 117                        '((mkdir-p doc)
 118                          (copy-recursively
 119                           (string-append (assoc-ref inputs "source") "/doc")
 120                           (string-append doc "/doc")))
 121                        '())
 122                  (mkdir-p out)
 123                  (copy-recursively "." out)
 124                  ,@(if with-documentation?
 125                        '((delete-file-recursively (string-append out "/doc")))
 126                        '())
 127                  #t))))
 128        (if trivial?
 129            `(#:tests? #f
 130              #:phases
 131              (modify-phases %standard-phases
 132                (delete 'configure)
 133                (replace 'build (const #t))
 134                (replace 'install ,copy-files)))
 135            `(#:phases
 136              (modify-phases %standard-phases
 137                (add-after 'install 'copy-files ,copy-files))))))
 138     (home-page #f)
 139     (synopsis #f)
 140     (description #f)
 141     (license #f)))
 142
 143 (define hyph-utf8-scripts
 144   (origin
 145     (method svn-fetch)
 146     (uri (texlive-ref "generic" "hyph-utf8"))
 147     (file-name (string-append "hyph-utf8-scripts-"
 148                               (number->string %texlive-revision)
 149                               "-checkout"))
 150     (sha256
 151      (base32
 152       "1gdyc8nmvp5jqlc429rmfzfl0cqqsdayc70y1hxwz025pv9jn960"))))
 153
 154 (define (texlive-hyphen-package name code locations hash)
 155   "Return a TeX Live hyphenation package with the given NAME, using source
 156 files from LOCATIONS with expected checksum HASH.  CODE is not currently in use."
 157   (let ((parent (simple-texlive-package
 158                  name locations hash #:trivial? #t)))
 159     (package
 160       (inherit parent)
 161       (arguments
 162        (substitute-keyword-arguments (package-arguments parent)
 163          ((#:phases phases)
 164           `(modify-phases ,phases
 165              (replace 'build
 166                (lambda* (#:key inputs outputs #:allow-other-keys)
 167                  (let* ((out (assoc-ref outputs "out"))
 168                         (root (string-append out "/share/texmf-dist"))
 169                         (patterns
 170                          (string-append root "/tex/generic/hyph-utf8/patterns/txt/"))
 171                         (loaders
 172                          (string-append root "/tex/generic/hyph-utf8/loadhyph"))
 173                         (ptex
 174                          (string-append root "/tex/generic/hyph-utf8/patterns/ptex"))
 175                         (quote
 176                          (string-append root "/tex/generic/hyph-utf8/patterns/quote")))
 177                    (mkdir "scripts")
 178                    (copy-recursively
 179                     (assoc-ref inputs "hyph-utf8-scripts") "scripts")
 180
 181                    ;; Prepare target directories
 182                    (mkdir-p patterns)
 183                    (mkdir-p loaders)
 184                    (mkdir-p ptex)
 185                    (mkdir-p quote)
 186
 187                    ;; Generate plain patterns
 188                    (with-directory-excursion "scripts"
 189                      (substitute* "lib/tex/hyphen/path.rb"
 190                        (("^([[:blank:]]+)TeXROOT = .*" _ indent)
 191                         (string-append indent "TeXROOT = \""
 192                                        (getcwd) "/..\"\n")))
 193
 194                      (substitute* "generate-plain-patterns.rb"
 195                        ;; Ruby 2 does not need this.
 196                        (("require 'unicode'") "")
 197                        ;; Write directly to the output directory
 198                        (("File\\.join\\(PATH::TXT")
 199                         (string-append "File.join(\"" patterns "\""))
 200                        (("File\\.join\\(PATH::QUOTE")
 201                         (string-append "File.join(\"" quote "\"")))
 202                      (invoke "ruby" "generate-plain-patterns.rb")
 203
 204                      ;; Build pattern loaders
 205                      (substitute* "generate-pattern-loaders.rb"
 206                        (("File\\.join\\(PATH::LOADER")
 207                         (string-append "File.join(\"" loaders "\"")))
 208
 209                      (invoke "ruby" "generate-pattern-loaders.rb")
 210
 211                      ;; Build ptex patterns
 212                      (substitute* "generate-ptex-patterns.rb"
 213                        (("File\\.join\\(PATH::PTEX")
 214                         (string-append "File.join(\"" ptex "\"")))
 215                      (invoke "ruby" "generate-ptex-patterns.rb")))))))))
 216       (native-inputs
 217        `(("ruby" ,ruby)
 218          ("ruby-hydra" ,ruby-hydra)
 219          ("hyph-utf8-scripts" ,hyph-utf8-scripts)))
 220       (home-page "https://ctan.org/pkg/hyph-utf8"))))
 221
 222 (define texlive-extra-src
 223   (origin
 224     (method url-fetch)
 225     (uri "ftp://tug.org/historic/systems/texlive/2020/texlive-20200406-extra.tar.xz")
 226     (sha256 (base32
 227              "0kx6r2ncnqpmhs0jhjk4ypq99czcvql9l9n0npcgqzrv4qmzsg94"))))
 228
 229 (define texlive-texmf-src
 230   (origin
 231     (method url-fetch)
 232     (uri "ftp://tug.org/historic/systems/texlive/2020/texlive-20200406-texmf.tar.xz")
 233     (sha256 (base32
 234              "15ashyxm3j78wjik1pp7vwi1wg07xjgh9zv0vkhqim6g7rc7xa8a"))))
 235
 236 (define-public texlive-bin
 237   (package
 238     (name "texlive-bin")
 239     (version "20200406")
 240     (source
 241      (origin
 242        (method url-fetch)
 243        (uri (string-append "ftp://tug.org/historic/systems/texlive/2020/"
 244                            "texlive-" version "-source.tar.xz"))
 245        (sha256
 246         (base32
 247          "0y4h4j2qg714srhvf1hvn165w7sanr1j2vzrsgc23kxvrc43sbz3"))
 248        (modules '((guix build utils)
 249                   (ice-9 ftw)))
 250        (snippet
 251         '(begin
 252            (with-directory-excursion "libs"
 253              (let ((preserved-directories '("." ".." "lua53" "luajit")))
 254                ;; Delete bundled software, except Lua which cannot easily be
 255                ;; used as an external dependency.
 256                (for-each delete-file-recursively
 257                          (scandir "."
 258                                   (lambda (file)
 259                                     (and (not (member file preserved-directories))
 260                                          (eq? 'directory (stat:type (stat file)))))))))
 261            ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
 262            #t))))
 263     (build-system gnu-build-system)
 264     (inputs
 265      `(("texlive-extra-src" ,texlive-extra-src)
 266        ("config" ,config)
 267        ("texlive-scripts"
 268         ,(origin
 269            (method svn-fetch)
 270            (uri (svn-reference
 271                  (url (string-append "svn://www.tug.org/texlive/tags/"
 272                                      %texlive-tag "/Master/texmf-dist/"
 273                                      "/scripts/texlive"))
 274                  (revision %texlive-revision)))
 275            (file-name (string-append "texlive-scripts-"
 276                                      (number->string %texlive-revision)
 277                                      "-checkout"))
 278            (sha256
 279             (base32
 280              "0p3ff839q4kv3zj4xxc76fqcjcjinv8xf7ix0zgwl7yhy5p3sm80"))))
 281        ("cairo" ,cairo)
 282        ("fontconfig" ,fontconfig)
 283        ("fontforge" ,fontforge)
 284        ("freetype" ,freetype)
 285        ("gd" ,gd)
 286        ("gmp" ,gmp)
 287        ("ghostscript" ,ghostscript)
 288        ("graphite2" ,graphite2)
 289        ("harfbuzz" ,harfbuzz)
 290        ("icu4c" ,icu4c)
 291        ("libpaper" ,libpaper)
 292        ("libpng" ,libpng)
 293        ("libxaw" ,libxaw)
 294        ("libxt" ,libxt)
 295        ("mpfr" ,mpfr)
 296        ("perl" ,perl)
 297        ("pixman" ,pixman)
 298        ("poppler" ,poppler)
 299        ("potrace" ,potrace)
 300        ("python" ,python)
 301        ("ruby" ,ruby)
 302        ("tcsh" ,tcsh)
 303        ("teckit" ,teckit)
 304        ("zlib" ,zlib)
 305        ("zziplib" ,zziplib)))
 306     (native-inputs
 307      `(("pkg-config" ,pkg-config)))
 308     (arguments
 309      `(#:modules ((guix build gnu-build-system)
 310                   (guix build utils)
 311                   (ice-9 ftw)
 312                   (srfi srfi-1)
 313                   (srfi srfi-26))
 314        #:out-of-source? #t
 315        #:configure-flags
 316        '("--disable-static"
 317          "--disable-native-texlive-build"
 318          "--enable-shared"
 319          "--with-system-cairo"
 320          "--with-system-freetype2"
 321          "--with-system-gd"
 322          "--with-system-gmp"
 323          "--with-system-graphite2"
 324          "--with-system-harfbuzz"
 325          "--with-system-icu"
 326          "--with-system-libgs"
 327          "--with-system-libpaper"
 328          "--with-system-libpng"
 329          "--with-system-mpfr"
 330          "--with-system-pixman"
 331          "--with-system-poppler"
 332          "--with-system-potrace"
 333          "--with-system-teckit"
 334          "--with-system-xpdf"
 335          "--with-system-zlib"
 336          "--with-system-zziplib"
 337          ;; LuaJIT is not ported to powerpc64le* yet.
 338          ,@(if (string-prefix? "powerpc64le" (or (%current-target-system)
 339                                                  (%current-system)))
 340                '("--disable-luajittex"
 341                  "--disable-mfluajit")
 342                '()))
 343
 344       ;; Disable tests on some architectures to cope with a failure of
 345       ;; luajiterr.test.
 346       ;; XXX FIXME fix luajit properly on these architectures.
 347       #:tests? ,(let ((s (or (%current-target-system)
 348                              (%current-system))))
 349                   (not (or (string-prefix? "aarch64" s)
 350                            (string-prefix? "mips64" s)
 351                            (string-prefix? "powerpc64le" s))))
 352
 353        #:phases
 354        (modify-phases %standard-phases
 355          (add-after 'unpack 'configure-ghostscript-executable
 356            ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows,
 357            ;; and the "gs" ghostscript executable on Unix. It detects Unix by
 358            ;; checking for the existence of the /usr/bin directory. Since
 359            ;; Guix System does not have /usr/bin, it is also detected as Windows.
 360            (lambda* (#:key inputs #:allow-other-keys)
 361              (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl"
 362                (("gswin32c") "gs"))
 363              (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
 364                (("\"gs\"")
 365                 (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))
 366              #t))
 367          (add-after 'unpack 'use-code-for-new-poppler
 368            (lambda _
 369              (copy-file "texk/web2c/pdftexdir/pdftoepdf-poppler0.86.0.cc"
 370                         "texk/web2c/pdftexdir/pdftoepdf.cc")
 371              (copy-file "texk/web2c/pdftexdir/pdftosrc-poppler0.83.0.cc"
 372                         "texk/web2c/pdftexdir/pdftosrc.cc")
 373              #t))
 374          (add-after 'unpack 'patch-dvisvgm-build-files
 375            (lambda _
 376              ;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so
 377              ;; the appropriate linker flags are not added.
 378              (substitute* "texk/dvisvgm/configure"
 379                (("^have_libgs=yes" all)
 380                 (string-append all "\nHAVE_LIBGS=1")))
 381              #t))
 382          (add-after 'unpack 'disable-failing-test
 383            (lambda _
 384              ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
 385              ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
 386              (substitute* "texk/web2c/omegafonts/check.test"
 387                (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
 388                 "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))
 389              #t))
 390          (add-after 'unpack 'unpack-texlive-extra
 391            (lambda* (#:key inputs #:allow-other-keys)
 392              (mkdir "texlive-extra")
 393              (with-directory-excursion "texlive-extra"
 394                (apply (assoc-ref %standard-phases 'unpack)
 395                       (list #:source (assoc-ref inputs "texlive-extra-src"))))))
 396          (add-after 'unpack-texlive-extra 'unpack-texlive-scripts
 397            (lambda* (#:key inputs #:allow-other-keys)
 398              (mkdir "texlive-scripts")
 399              (with-directory-excursion "texlive-scripts"
 400                (apply (assoc-ref %standard-phases 'unpack)
 401                       (list #:source (assoc-ref inputs "texlive-scripts"))))))
 402          (add-after 'unpack-texlive-scripts 'patch-scripts
 403            (lambda _
 404              (let* ((scripts (append (find-files "texk/kpathsea" "^mktex")
 405                                      (find-files "texk/texlive/linked_scripts"
 406                                                  "\\.sh$")
 407                                      (find-files "texlive-scripts" "\\.sh$")))
 408                     (commands '("awk" "basename" "cat" "grep" "mkdir" "rm"
 409                                 "sed" "sort" "uname"))
 410                     (command-regexp (format #f "\\b(~a)\\b"
 411                                             (string-join commands "|")))
 412                     (iso-8859-1-encoded-scripts
 413                      '("texk/texlive/linked_scripts/texlive-extra/rubibtex.sh"
 414                        "texk/texlive/linked_scripts/texlive-extra/rumakeindex.sh")))
 415
 416                (define (substitute-commands scripts)
 417                  (substitute* scripts
 418                    ((command-regexp dummy command)
 419                     (which command))))
 420
 421                (substitute-commands (lset-difference string= scripts
 422                                                      iso-8859-1-encoded-scripts))
 423
 424                (with-fluids ((%default-port-encoding "ISO-8859-1"))
 425                  (substitute-commands iso-8859-1-encoded-scripts))
 426
 427                #t)))
 428          (add-after 'check 'customize-texmf.cnf
 429            ;; The default texmf.cnf is provided by this package, texlive-bin.
 430            ;; Every variable of interest is set relatively to the GUIX_TEXMF
 431            ;; environment variable defined via a search path specification
 432            ;; further below.  The configuration file is patched after the test
 433            ;; suite has run, as it relies on the default configuration to find
 434            ;; its paths (and the GUIX_TEXMF variable isn't set yet).
 435            (lambda _
 436              ;; The current directory is build/ because of the out-of-tree
 437              ;; build.
 438              (let* ((source    (first (scandir ".." (cut string-suffix?
 439                                                          "source" <>))))
 440                     (texmf.cnf (string-append "../" source
 441                                               "/texk/kpathsea/texmf.cnf")))
 442                (substitute* texmf.cnf
 443                  (("^TEXMFROOT = .*")
 444                   "TEXMFROOT = {$GUIX_TEXMF}/..\n")
 445                  (("^TEXMF = .*")
 446                   "TEXMF = {$GUIX_TEXMF}\n")
 447                  (("^%TEXMFCNF = .*")
 448                   "TEXMFCNF = {$GUIX_TEXMF}/web2c\n")
 449                  ;; Don't truncate lines.
 450                  (("^error_line = .*$") "error_line = 254\n")
 451                  (("^half_error_line = .*$") "half_error_line = 238\n")
 452                  (("^max_print_line = .*$") "max_print_line = 1000\n")))
 453              #t))
 454          (add-after 'install 'post-install
 455            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
 456              (let* ((out (assoc-ref outputs "out"))
 457                     (patch-source-shebangs (assoc-ref %standard-phases
 458                                                       'patch-source-shebangs))
 459                     (share (string-append out "/share"))
 460                     (scripts (string-append share
 461                                             "/texmf-dist/scripts/texlive"))
 462                     (source (string-append
 463                              "../" (first (scandir ".." (cut string-suffix?
 464                                                              "source" <>)))))
 465                     (tl-extra-root (string-append source "/texlive-extra"))
 466                     (tl-extra-dir (first
 467                                    (scandir tl-extra-root
 468                                             (negate
 469                                              (cut member <> '("." ".."))))))
 470                     (tlpkg-src (string-append tl-extra-root "/" tl-extra-dir
 471                                               "/tlpkg"))
 472                     (config.guess (string-append (assoc-ref inputs "config")
 473                                                  "/bin/config.guess")))
 474
 475                ;; Create symbolic links for the latex variants and their
 476                ;; man pages.
 477                (with-directory-excursion (string-append out "/bin/")
 478                  (for-each symlink
 479                            '("pdftex" "pdftex"   "xetex"   "luatex")
 480                            '("latex"  "pdflatex" "xelatex" "lualatex")))
 481                (with-directory-excursion (string-append share "/man/man1/")
 482                  (symlink "luatex.1" "lualatex.1"))
 483
 484                ;; Install tlpkg.
 485                (copy-recursively tlpkg-src (string-append share "/tlpkg"))
 486
 487                ;; Install texlive-scripts.
 488                (copy-recursively (string-append
 489                                   source "/texlive-scripts/source/")
 490                                  scripts)
 491
 492                ;; Make sure that fmtutil can find its Perl modules.
 493                (substitute* (string-append scripts "/fmtutil.pl")
 494                  (("\\$TEXMFROOT/")
 495                   (string-append share "/")))
 496
 497                ;; Likewise for updmap.pl.
 498                (substitute* (string-append scripts "/updmap.pl")
 499                  (("\\$TEXMFROOT/tlpkg")
 500                   (string-append share "/tlpkg")))
 501
 502                ;; Likewise for the tlmgr.
 503                (substitute* (string-append scripts "/tlmgr.pl")
 504                  ((".*\\$::installerdir = \\$Master.*" all)
 505                   (format #f "  $Master = ~s;~%~a" share all)))
 506
 507                ;; Install the config.guess script, required by tlmgr.
 508                (with-directory-excursion share
 509                  (mkdir-p "tlpkg/installer/")
 510                  (symlink config.guess "tlpkg/installer/config.guess"))
 511
 512                ;; texlua shebangs are not patched by the patch-source-shebangs
 513                ;; phase because the texlua executable does not exist at that
 514                ;; time.
 515                (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
 516                (with-directory-excursion out
 517                  (patch-source-shebangs))))))))
 518     (native-search-paths
 519      (list (search-path-specification
 520             (variable "GUIX_TEXMF")
 521             (files '("share/texmf-dist")))))
 522     (synopsis "TeX Live, a package of the TeX typesetting system")
 523     (description
 524      "TeX Live provides a comprehensive TeX document production system.
 525 It includes all the major TeX-related programs, macro packages, and fonts
 526 that are free software, including support for many languages around the
 527 world.
 528
 529 This package contains the binaries.")
 530     (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
 531     (home-page "https://www.tug.org/texlive/")))
 532
 533 \f
 534 (define texlive-docstrip
 535   (package
 536     (inherit (simple-texlive-package
 537               "texlive-docstrip"
 538               (list "/tex/latex/base/docstrip.tex")
 539               (base32
 540                "1vyn0vskxqmq58fbq4r4pknbzpxpyw30nmlmsncnialrmrwqm7k5")
 541               #:trivial? #t))
 542     (home-page "https://www.ctan.org/texlive")
 543     (synopsis "Utility to strip documentation from TeX files.")
 544     (description "This package provides the docstrip utility to strip
 545 documentation from TeX files.  It is part of the LaTeX base.")
 546     (license license:lppl1.3+)))
 547
 548 (define-public texlive-unicode-data
 549   (package
 550     (inherit (simple-texlive-package
 551               "texlive-unicode-data"
 552               (list "/tex/generic/unicode-data/"
 553                     "/doc/generic/unicode-data/")
 554               (base32
 555                "1mxb55ml92zd00w0zbr0dkscnxdgpxamfabl0izhk3cpz81n9g92")
 556               #:trivial? #t))
 557     (home-page "https://www.ctan.org/pkg/unicode-data")
 558     (synopsis "Unicode data and loaders for TeX")
 559     (description "This bundle provides generic access to Unicode Consortium
 560 data for TeX use.  It contains a set of text files provided by the Unicode
 561 Consortium which are currently all from Unicode 8.0.0, with the exception of
 562 @code{MathClass.txt} which is not currently part of the Unicode Character
 563 Database.  Accompanying these source data are generic TeX loader files
 564 allowing this data to be used as part of TeX runs, in particular in building
 565 format files.  Currently there are two loader files: one for general character
 566 set up and one for initializing XeTeX character classes as has been carried
 567 out to date by @code{unicode-letters.tex}. ")
 568     (license license:lppl1.3c+)))
 569
 570 (define-public texlive-generic-unicode-data
 571   (deprecated-package "texlive-generic-unicode-data" texlive-unicode-data))
 572
 573 (define-public texlive-hyphen-base
 574   (package
 575     (inherit (simple-texlive-package
 576               "texlive-hyphen-base"
 577               (list "/tex/generic/config/language.dat"
 578                     "/tex/generic/config/language.dat.lua"
 579                     "/tex/generic/config/language.def"
 580                     "/tex/generic/config/language.us"
 581                     "/tex/generic/config/language.us.def"
 582                     "/tex/generic/config/language.us.lua"
 583                     "/tex/generic/hyphen/dumyhyph.tex"
 584                     "/tex/generic/hyphen/hyphen.tex"
 585                     "/tex/generic/hyphen/hypht1.tex"
 586                     "/tex/generic/hyphen/zerohyph.tex")
 587               (base32
 588                "1vakayd82a4ga0b80mxypbibw2vrf2a8p4v6bim7s97zh8b9mzk3")
 589               #:trivial? #t))
 590     (home-page "https://tug.org/texlive/")
 591     (synopsis "Core hyphenation support files")
 592     (description "This package includes Knuth's original @file{hyphen.tex},
 593 @file{zerohyph.tex} to disable hyphenation, @file{language.us} which starts
 594 the autogenerated files @file{language.dat} and @file{language.def} (and
 595 default versions of those), etc.")
 596     (license license:knuth)))
 597
 598 (define-public texlive-dvips
 599   (package
 600     (inherit (simple-texlive-package
 601               "texlive-dvips"
 602               (list "/doc/man/man1/afm2tfm.1"
 603                     "/doc/man/man1/dvips.1"
 604                     "/dvips/base/"
 605                     "/dvips/config/"
 606                     "/fonts/enc/dvips/base/"
 607                     "/tex/generic/dvips/")
 608               (base32
 609                "0rns1hpjy4fmsskmkwx197j8qbgdmyj0j9214sq9vhpa6nv7czm3")
 610               #:trivial? #t))
 611     (home-page "https://www.ctan.org/pkg/dvips")
 612     (synopsis "DVI to PostScript drivers")
 613     (description "This package provides files needed for converting DVI files
 614 to PostScript.")
 615     (license license:lppl)))
 616
 617 (define-public texlive-tex-ini-files
 618   (package
 619     (inherit (simple-texlive-package
 620               "texlive-tex-ini-files"
 621               (list "/tex/generic/tex-ini-files/")
 622               (base32
 623                "0q1g62jg0qiqslm93ycvm30bw8ydmssjdshzsnzl7n2vpd62qfi2")
 624               #:trivial? #t))
 625     (home-page "https://www.ctan.org/pkg/tex-ini-files")
 626     (synopsis "Files for creating TeX formats")
 627     (description "This bundle provides a collection of model \".ini\" files
 628 for creating TeX formats.  These files are commonly used to introduced
 629 distribution-dependent variations in formats.  They are also used to
 630 allow existing format source files to be used with newer engines, for example
 631 to adapt the plain e-TeX source file to work with XeTeX and LuaTeX.")
 632     (license license:public-domain)))
 633
 634 (define-public texlive-generic-tex-ini-files
 635   (deprecated-package "texlive-generic-tex-ini-files" texlive-tex-ini-files))
 636
 637 (define-public texlive-metafont
 638   (package
 639     (name "texlive-metafont")
 640     (version (number->string %texlive-revision))
 641     (source (origin
 642               (method svn-multi-fetch)
 643               (uri (svn-multi-reference
 644                     (url (string-append "svn://www.tug.org/texlive/tags/"
 645                                         %texlive-tag "/Master/texmf-dist"))
 646                     (locations '("/metafont/"
 647                                  "/fonts/source/public/modes/"))
 648                     (revision %texlive-revision)))
 649               (file-name (string-append name "-" version "-checkout"))
 650               (sha256
 651                (base32
 652                 "1r1v3zm600nrl3iskx130fjwj1qib82n02dlca446zb53x0hg6gr"))))
 653     (build-system gnu-build-system)
 654     (arguments
 655      `(#:tests? #f ; no test target
 656        #:phases
 657        (modify-phases %standard-phases
 658          (delete 'configure)
 659          (replace 'build
 660            (lambda* (#:key inputs #:allow-other-keys)
 661              (let* ((cwd (getcwd))
 662                     (mf (string-append cwd "/metafont"))
 663                     (modes (string-append cwd "/fonts/source/public/modes")))
 664                (setenv "MFINPUTS"
 665                        (string-append modes ":"
 666                                       mf "/base:"
 667                                       mf "/misc:"
 668                                       mf "/roex:"
 669                                       mf "/feynmf:"
 670                                       mf "/mfpic:"
 671                                       mf "/config")))
 672              (mkdir "build")
 673              (with-directory-excursion "build"
 674                (invoke "inimf" "mf.mf"))))
 675          (replace 'install
 676            (lambda* (#:key outputs #:allow-other-keys)
 677              (let* ((out  (assoc-ref outputs "out"))
 678                     (base (string-append out "/share/texmf-dist/web2c"))
 679                     (mf   (string-append out "/share/texmf-dist/metafont/")))
 680                (mkdir-p base)
 681                (mkdir-p mf)
 682                (install-file "build/mf.base" base)
 683                (with-directory-excursion "metafont"
 684                  (for-each (lambda (where)
 685                              (copy-recursively where (string-append mf where)))
 686                            (list "base" "misc" "config")))))))))
 687     (native-inputs
 688      `(("texlive-bin" ,texlive-bin)))
 689     (home-page "https://www.ctan.org/pkg/metafont")
 690     (synopsis "Metafont base files")
 691     (description "This package provides the Metafont base files needed to
 692 build fonts using the Metafont system.")
 693     (license license:knuth)))
 694
 695 (define-public texlive-metafont-base
 696   (deprecated-package "texlive-metafont-base" texlive-metafont))
 697
 698 (define-public texlive-fontinst
 699   (let ((template (simple-texlive-package
 700                    "texlive-fontinst"
 701                    (list "/doc/fonts/fontinst/"
 702                          "/doc/man/man1/fontinst.1"
 703                          "/doc/man/man1/fontinst.man1.pdf"
 704
 705                          ;; This is used to build parts of
 706                          ;; /tex/fontinst/{base,misc}/ and
 707                          ;; /tex/latex/fontinst/fontdoc.sty.
 708                          "/source/fontinst/base/"
 709
 710                          ;; These are not generated.
 711                          "/tex/fontinst/base/bbox.sty"
 712                          "/tex/fontinst/base/multislot.sty"
 713                          "/tex/fontinst/misc/glyphbox.mtx"
 714                          "/tex/fontinst/misc/glyphoff.mtx"
 715                          "/tex/fontinst/misc/glyphon.mtx"
 716                          "/tex/fontinst/misc/kernoff.mtx"
 717                          "/tex/fontinst/misc/kernon.mtx"
 718
 719                          "/tex/fontinst/latinetx/"
 720                          "/tex/fontinst/latinmtx/"
 721                          "/tex/fontinst/mathmtx/"
 722                          "/tex/fontinst/smblmtx/")
 723                    (base32
 724                     "195jsijrpv828pqy99gm13j31nsc8bsa58zlbln2r0h5j9l44b5g")
 725                    #:trivial? #t)))
 726     (package
 727       (inherit template)
 728       (arguments
 729        (substitute-keyword-arguments (package-arguments template)
 730          ((#:modules _ '())
 731           '((guix build gnu-build-system)
 732             (guix build utils)
 733             (ice-9 match)))
 734          ((#:phases phases)
 735           `(modify-phases ,phases
 736              (replace 'build
 737                (lambda* (#:key inputs #:allow-other-keys)
 738                  (setenv "TEXINPUTS"
 739                          (string-append (getcwd) "//:"
 740                                         (getcwd) "/source/fontinst/base//:"
 741                                         (assoc-ref inputs "texlive-docstrip") "//"))
 742                  (mkdir "build")
 743                  (invoke "tex" "-ini" "-interaction=scrollmode"
 744                          "-output-directory=build"
 745                          "fontinst.ins")))
 746              ;; Since we're using docstrip without LaTeX we can't set \UseTDS
 747              ;; or \BaseDirectory, so the generated files are just dumped in
 748              ;; the "build" directory.
 749              (add-after 'install 'install-generated-files
 750                (lambda* (#:key outputs #:allow-other-keys)
 751                  (let* ((out (assoc-ref outputs "out"))
 752                         (root (string-append out "/share/texmf-dist")))
 753                    (for-each (match-lambda
 754                                ((dir files ...)
 755                                 (for-each (lambda (file)
 756                                             (install-file
 757                                              (string-append "build/" file)
 758                                              (string-append root dir)))
 759                                           files)))
 760                              '(("/tex/fontinst/base"
 761                                 "fontinst.sty"
 762                                 "cfntinst.sty"
 763                                 "xfntinst.sty"
 764                                 "finstmsc.sty"
 765                                 "fontinst.ini")
 766                                ("/tex/fontinst/misc"
 767                                 "csc2x.tex"
 768                                 "csckrn2x.tex"
 769                                 "osf2x.tex")
 770                                ("/tex/latex/fontinst"
 771                                 "fontdoc.sty")))
 772                    #t)))))))
 773       (native-inputs
 774        `(("texlive-bin" ,texlive-bin)
 775          ("texlive-docstrip" ,texlive-docstrip)))
 776       (home-page "https://www.ctan.org/pkg/fontinst")
 777       (synopsis "Tools for converting and installing fonts for TeX and LaTeX")
 778       (description "This package provides TeX macros for converting Adobe Font
 779 Metric files to TeX metric and virtual font format.  Fontinst helps mainly
 780 with the number crunching and shovelling parts of font installation.  This
 781 means in practice that it creates a number of files which give the TeX
 782 metrics (and related information) for a font family that TeX needs to do any
 783 typesetting in these fonts.")
 784       (license license:lppl1.1+))))
 785
 786 (define-public texlive-tex-fontinst-base
 787   (deprecated-package "texlive-tex-fontinst-base" texlive-fontinst))
 788
 789 (define-public texlive-fontname
 790   (package
 791     (inherit (simple-texlive-package
 792               "texlive-fontname"
 793               (list "/doc/fonts/fontname/fontname.texi"
 794                     "/fonts/map/fontname/")
 795               (base32
 796                "009qvjpw48lajp0gxpvdk10n5qw3q41cpq05ycns67mxwkcaywq6")
 797               #:trivial? #t))
 798     (home-page "https://www.ctan.org/pkg/fontname")
 799     (synopsis "Scheme for naming fonts in TeX")
 800     (description "This is Fontname, a naming scheme for (the base part of)
 801 external TeX font filenames.  This makes at most eight-character names
 802 from (almost) arbitrarily complex font names, thus helping portability of TeX
 803 documents.")
 804     (license license:public-domain)))
 805
 806 (define-public texlive-cm
 807   (let ((template (simple-texlive-package
 808                    "texlive-cm"
 809                    (list "/fonts/source/public/cm/"
 810                          "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
 811                          "/doc/fonts/cm/")
 812                    (base32
 813                     "09mvl94qrwlb9b4pkigi151l256v3djhwl4m5lgvk6yhn5y75zrp")
 814                    #:trivial? #t)))
 815     (package
 816       (inherit template)
 817       (arguments
 818        (substitute-keyword-arguments (package-arguments template)
 819          ((#:modules modules '())
 820           '((guix build gnu-build-system)
 821             (guix build utils)
 822             (srfi srfi-26)))
 823          ((#:phases phases)
 824           `(modify-phases ,phases
 825              (replace 'build
 826                (lambda* (#:key inputs #:allow-other-keys)
 827                  (let ((mf (assoc-ref inputs "texlive-metafont")))
 828                    ;; Tell mf where to find mf.base
 829                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 830                    ;; Tell mf where to look for source files
 831                    (setenv "MFINPUTS"
 832                            (string-append (getcwd) "/fonts/source/public/cm/:"
 833                                           mf "/share/texmf-dist/metafont/base")))
 834                  (for-each make-file-writable
 835                            (cons "fonts/source/public/cm/"
 836                                  (find-files "fonts/source/public/cm/" ".*")))
 837                  (let ((build (string-append (getcwd) "/build"))
 838                        (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
 839                    (mkdir-p pkdir)
 840                    (mkdir-p build)
 841                    (with-directory-excursion "fonts/source/public/cm/"
 842                      (for-each (lambda (font)
 843                                  (format #t "building font ~a\n" font)
 844                                  (invoke "mf" "-progname=mf"
 845                                          (string-append "-output-directory=" build)
 846                                          (string-append "\\"
 847                                                         "mode:=ljfour; "
 848                                                         "mag:=1+0/600; "
 849                                                         "scrollmode; "
 850                                                         "input "
 851                                                         (basename font ".mf")))
 852                                  (invoke "gftopk"
 853                                          (string-append build "/"
 854                                                         (basename font ".mf") ".600gf")
 855                                          (string-append pkdir "/"
 856                                                         (basename font ".mf") ".pk")))
 857                                (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
 858                  #t))
 859              (add-after 'install 'install-generated-fonts
 860                (lambda* (#:key inputs outputs #:allow-other-keys)
 861                  (let* ((out    (assoc-ref outputs "out"))
 862                         (fonts  (string-append out "/share/texmf-dist/fonts/"))
 863                         (pk     (string-append fonts "pk"))
 864                         (tfm    (string-append fonts "tfm/public/cm")))
 865                    (for-each (cut install-file <> tfm)
 866                              (find-files "build" "\\.*"))
 867                    (copy-recursively "pk" pk)
 868                    #t)))))))
 869       (native-inputs
 870        `(("texlive-bin" ,texlive-bin)
 871          ("texlive-metafont" ,texlive-metafont)))
 872       (home-page "https://www.ctan.org/pkg/cm")
 873       (synopsis "Computer Modern fonts for TeX")
 874       (description "This package provides the Computer Modern fonts by Donald
 875 Knuth.  The Computer Modern font family is a large collection of text,
 876 display, and mathematical fonts in a range of styles, based on Monotype Modern
 877 8A.")
 878       (license license:knuth))))
 879
 880 (define-public texlive-fonts-cm
 881   (deprecated-package "texlive-fonts-cm" texlive-cm))
 882
 883 (define-public texlive-cm-super
 884   (let ((template (simple-texlive-package
 885                    "texlive-cm-super"
 886                    (list "/doc/fonts/cm-super/"
 887                          "/dvips/cm-super/"
 888                          "/fonts/afm/public/cm-super/"
 889                          "/fonts/enc/dvips/cm-super/"
 890                          "/fonts/map/dvips/cm-super/"
 891                          "/fonts/map/vtex/cm-super/"
 892                          "/fonts/type1/public/cm-super/"
 893                          "/tex/latex/cm-super/")
 894                    (base32
 895                     "1k3afl0x0bqbr5mnawbnp7rr2126dwn0vwnxzibm9ggvzqilnkm6")
 896                    #:trivial? #t)))
 897     (package
 898       (inherit template)
 899       (arguments
 900        (substitute-keyword-arguments (package-arguments template)
 901          ((#:phases phases)
 902           `(modify-phases ,phases
 903              (delete 'reset-gzip-timestamps)))))
 904       (home-page "https://www.ctan.org/pkg/cm-super")
 905       (synopsis "Computer Modern Super family of fonts")
 906       (description "The CM-Super family provides Adobe Type 1 fonts that replace
 907 the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete,
 908 T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European
 909 languages except Greek), and bringing many ameliorations in typesetting
 910 quality.  The fonts exhibit the same metrics as the METAFONT-encoded
 911 originals.")
 912       ;; With font exception
 913       (license license:gpl2+))))
 914
 915 (define-public texlive-fonts-cm-super
 916   (deprecated-package "texlive-fonts-cm-super" texlive-cm-super))
 917
 918 (define-public texlive-courier
 919   (package
 920     (inherit (simple-texlive-package
 921               "texlive-courier"
 922               (list "/dvips/courier/"
 923                     "/fonts/afm/adobe/courier/"
 924                     "/fonts/afm/urw/courier/"
 925                     "/fonts/map/dvips/courier/"
 926                     "/fonts/tfm/adobe/courier/"
 927                     "/fonts/tfm/urw35vf/courier/"
 928                     "/fonts/type1/adobe/courier/"
 929                     "/fonts/type1/urw/courier/"
 930                     "/fonts/vf/adobe/courier/"
 931                     "/fonts/vf/urw35vf/courier/"
 932                     "/tex/latex/courier/"
 933                     "/tex4ht/ht-fonts/alias/adobe/courier/"
 934                     "/tex4ht/ht-fonts/unicode/adobe/courier/")
 935               (base32
 936                "03vz7zd7gayry9h4pq81s2bqqn2kmxf9yyzs0vap0w9rkf99rrci")
 937               #:trivial? #t))
 938     (home-page "https://ctan.org/pkg/urw-base35")
 939     (synopsis "URW Base 35 font pack for LaTeX")
 940     (description "This package provides a drop-in replacements for the Courier
 941 font from Adobe's basic set.")
 942     ;; No license version specified.
 943     (license license:gpl3+)))
 944
 945 (define-public texlive-tex-gyre
 946   (package
 947     (inherit (simple-texlive-package
 948               "texlive-tex-gyre"
 949               '("/doc/fonts/tex-gyre/GUST-FONT-LICENSE.txt"
 950                 "/fonts/afm/public/tex-gyre/"
 951                 "/fonts/enc/dvips/tex-gyre/"
 952                 "/fonts/map/dvips/tex-gyre/"
 953                 "/fonts/opentype/public/tex-gyre/"
 954                 "/fonts/tfm/public/tex-gyre/"
 955                 "/fonts/type1/public/tex-gyre/"
 956                 "/tex/latex/tex-gyre/")
 957               (base32
 958                "1ldnlmclghm3gnyv02r8a6cqybygz2ifq07mhykhf43h1pw3aq7k")
 959               #:trivial? #t))
 960     (home-page "https://ctan.org/pkg/tex-gyre")
 961     (synopsis "TeX fonts extending URW fonts")
 962     (description
 963      "The TeX-GYRE bundle consist of multiple font families:
 964 @itemize @bullet
 965 @item Adventor, based on the URW Gothic L family of fonts;
 966 @item Bonum, based on the URW Bookman L family;
 967 @item Chorus, based on URW Chancery L Medium Italic;
 968 @item Cursor, based on URW Nimbus Mono L;
 969 @item Heros, based on URW Nimbus Sans L;
 970 @item Pagella, based on URW Palladio L;
 971 @item Schola, based on the URW Century Schoolbook L family;
 972 @item Termes, based on the URW Nimbus Roman No9 L family of fonts.
 973 @end itemize
 974
 975 The constituent standard faces of each family have been greatly extended
 976 (though Chorus omits Greek support and has no small-caps family).  Each
 977 family is available in Adobe Type 1 and Open Type formats, and LaTeX
 978 support (for use with a variety of encodings) is provided.")
 979     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
 980     ;; Public License (LPPL), version 1.3c or later, but comes with an
 981     ;; additional but not legally binding clause.
 982     (license license:lppl1.3c+)))
 983
 984 (define-public texlive-lm
 985   (package
 986     (inherit (simple-texlive-package
 987               "texlive-lm"
 988               (list "/doc/fonts/lm/"
 989                     "/fonts/afm/public/lm/"
 990                     "/fonts/enc/dvips/lm/"
 991                     "/fonts/map/dvipdfm/lm/"
 992                     "/fonts/map/dvips/lm/"
 993                     "/fonts/opentype/public/lm/"
 994                     "/fonts/tfm/public/lm/"
 995                     "/fonts/type1/public/lm/"
 996                     "/tex/latex/lm/")
 997               (base32
 998                "0i1hwr8rp0jqyvs4qyplrirscd4w7lsgwsncyv3yzy80bsa56jq5")
 999               #:trivial? #t))
1000     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
1001     (synopsis "Latin Modern family of fonts")
1002     (description "The Latin Modern fonts are derived from the famous Computer
1003 Modern fonts designed by Donald E. Knuth and described in Volume E of his
1004 Computers & Typesetting series.")
1005     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
1006     ;; Public License (LPPL), version 1.3c or later, but comes with an
1007     ;; additional but not legally binding clause.
1008     (license license:lppl1.3c+)))
1009
1010 (define-public texlive-fonts-lm
1011   (deprecated-package "texlive-fonts-lm" texlive-lm))
1012
1013 (define-public texlive-knuth-lib
1014   (let ((template (simple-texlive-package
1015                    "texlive-knuth-lib"
1016                    (list "/fonts/source/public/knuth-lib/"
1017                          "/tex/generic/knuth-lib/"
1018                          "/tex/plain/knuth-lib/")
1019                    (base32
1020                     "0lizrhdr4pirhh4ry44znddksd7akkxli2i6sddm5rzqljiqdy3v")
1021                    #:trivial? #t)))
1022     (package
1023       (inherit template)
1024       (arguments
1025        (substitute-keyword-arguments (package-arguments template)
1026          ((#:modules _ '())
1027           '((guix build gnu-build-system)
1028             (guix build utils)
1029             (srfi srfi-26)))
1030          ((#:phases phases '())
1031           `(modify-phases ,phases
1032              (replace 'build
1033                (lambda* (#:key inputs #:allow-other-keys)
1034                  (with-directory-excursion "fonts/source/public/knuth-lib"
1035                    (let ((mf (assoc-ref inputs "texlive-metafont")))
1036                      ;; Tell mf where to find mf.base
1037                      (setenv "MFBASES"
1038                              (string-append mf "/share/texmf-dist/web2c"))
1039                      ;; Tell mf where to look for source files
1040                      (setenv "MFINPUTS"
1041                              (string-append (getcwd) ":"
1042                                             mf "/share/texmf-dist/metafont/base")))
1043                    (mkdir "build")
1044                    (for-each (lambda (font)
1045                                (format #t "building font ~a\n" font)
1046                                (invoke "mf" "-progname=mf"
1047                                        "-output-directory=build"
1048                                        (string-append "\\"
1049                                                       "mode:=ljfour; "
1050                                                       "mag:=1; "
1051                                                       "batchmode; "
1052                                                       "input " font)))
1053                              (find-files "." "(manfnt|logo.+)\\.mf$")))
1054                  #t))
1055              (add-after 'install 'install-fonts
1056                (lambda* (#:key outputs #:allow-other-keys)
1057                  (with-directory-excursion "fonts/source/public/knuth-lib"
1058                    (let* ((out (assoc-ref outputs "out"))
1059                           (tfm (string-append
1060                                 out "/share/texmf-dist/fonts/tfm/public/knuth-lib")))
1061                      (for-each (cut install-file <> tfm)
1062                                (find-files "build" "\\.tfm"))
1063                      #t))))))))
1064       (native-inputs
1065        `(("texlive-bin" ,texlive-bin)
1066          ("texlive-metafont" ,texlive-metafont)))
1067       (home-page "https://www.ctan.org/pkg/knuth-lib")
1068       (synopsis "Small library of METAFONT sources")
1069       (description "This is a collection of core TeX and METAFONT macro files
1070 from Donald Knuth, including the plain format, plain base, and the MF logo
1071 fonts.")
1072       (license license:knuth))))
1073
1074 (define-public texlive-fonts-knuth-lib
1075   (deprecated-package "texlive-fonts-knuth-lib" texlive-knuth-lib))
1076
1077 (define-public texlive-fonts-latex
1078   (package
1079     (name "texlive-fonts-latex")
1080     (version (number->string %texlive-revision))
1081     (source (origin
1082               (method svn-fetch)
1083               (uri (svn-reference
1084                     (url (string-append "svn://www.tug.org/texlive/tags/"
1085                                         %texlive-tag "/Master/texmf-dist/"
1086                                         "/fonts/source/public/latex-fonts"))
1087                     (revision %texlive-revision)))
1088               (file-name (string-append name "-" version "-checkout"))
1089               (sha256
1090                (base32
1091                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
1092     (build-system gnu-build-system)
1093     (arguments
1094      `(#:modules ((guix build gnu-build-system)
1095                   (guix build utils)
1096                   (srfi srfi-1)
1097                   (srfi srfi-26))
1098        #:tests? #f                      ; no tests
1099        #:phases
1100        (modify-phases %standard-phases
1101          (delete 'configure)
1102          (replace 'build
1103            (lambda* (#:key inputs #:allow-other-keys)
1104              (let ((mf (assoc-ref inputs "texlive-metafont")))
1105                ;; Tell mf where to find mf.base
1106                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1107                ;; Tell mf where to look for source files
1108                (setenv "MFINPUTS"
1109                        (string-append (getcwd) ":"
1110                                       mf "/share/texmf-dist/metafont/base:"
1111                                       (assoc-ref inputs "texlive-cm")
1112                                       "/share/texmf-dist/fonts/source/public/cm")))
1113              (mkdir "build")
1114              (for-each (lambda (font)
1115                          (format #t "building font ~a\n" font)
1116                          (invoke "mf" "-progname=mf"
1117                                  "-output-directory=build"
1118                                  (string-append "\\"
1119                                                 "mode:=ljfour; "
1120                                                 "mag:=1; "
1121                                                 "batchmode; "
1122                                                 "input " font)))
1123                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
1124                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
1125                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
1126                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
1127                          "line10" "linew10"))
1128              #t))
1129          (replace 'install
1130            (lambda* (#:key outputs #:allow-other-keys)
1131              (let* ((out (assoc-ref outputs "out"))
1132                     (tfm (string-append
1133                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
1134                     (mf  (string-append
1135                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
1136                (for-each (cut install-file <> tfm)
1137                          (find-files "build" "\\.*"))
1138                (for-each (cut install-file <> mf)
1139                          (find-files "." "\\.mf"))
1140                #t))))))
1141     (native-inputs
1142      `(("texlive-bin" ,texlive-bin)
1143        ("texlive-metafont" ,texlive-metafont)
1144        ("texlive-cm" ,texlive-cm)))
1145     (home-page "https://www.ctan.org/pkg/latex-fonts")
1146     (synopsis "Collection of fonts used in LaTeX distributions")
1147     (description "This is a collection of fonts for use with standard LaTeX
1148 packages and classes. It includes invisible fonts (for use with the slides
1149 class), line and circle fonts (for use in the picture environment) and LaTeX
1150 symbol fonts.")
1151     (license license:lppl1.2+)))
1152
1153 (define-public texlive-mflogo
1154   (let ((template (simple-texlive-package
1155                    "texlive-mflogo"
1156                    (list "/doc/latex/mflogo/"
1157                          "/source/latex/mflogo/"
1158                          "/fonts/source/public/mflogo/logosl8.mf")
1159                    (base32
1160                     "1vb4mg7fh4k54g7nqwiw3qm4iir8whpfnspis76l4sddzar1amh7"))))
1161     (package
1162       (inherit template)
1163       (arguments
1164        (substitute-keyword-arguments (package-arguments template)
1165          ((#:modules _ '())
1166           '((guix build texlive-build-system)
1167             (guix build utils)
1168             (srfi srfi-1)
1169             (srfi srfi-26)))
1170          ((#:tex-directory _ #t)
1171           "latex/mflogo")
1172          ((#:phases phases '())
1173           `(modify-phases ,phases
1174              (add-after 'unpack 'chdir
1175                (lambda _
1176                  (chdir "source/latex/mflogo") #t))
1177              (add-after 'build 'build-font-metrics
1178                (lambda* (#:key inputs #:allow-other-keys)
1179                  (let ((root "../../..")
1180                        (mf (assoc-ref inputs "texlive-metafont"))
1181                        (kl (assoc-ref inputs "texlive-knuth-lib")))
1182                    ;; Tell mf where to find mf.base
1183                    (setenv "MFBASES"
1184                            (string-append mf "/share/texmf-dist/web2c"))
1185                    ;; Tell mf where to look for source files
1186                    (setenv "MFINPUTS"
1187                            (string-append root ":"
1188                                           mf "/share/texmf-dist/metafont/base:"
1189                                           kl "/share/texmf-dist/fonts/source/public/knuth-lib:"
1190                                           root "/fonts/source/public/mflogo/"))
1191                    (for-each (lambda (font)
1192                                (format #t "building font ~a\n" font)
1193                                (invoke "mf" "-progname=mf"
1194                                        "-output-directory=build"
1195                                        (string-append "\\"
1196                                                       "mode:=ljfour; "
1197                                                       "mag:=1; "
1198                                                       "scrollmode; "
1199                                                       "input " (basename font))))
1200                              (find-files (string-append root
1201                                                         "/fonts/source/public/mflogo/")
1202                                          "\\.mf$")))
1203                  #t))
1204              (add-before 'install 'install-fonts
1205                (lambda* (#:key outputs #:allow-other-keys)
1206                  (let* ((out (assoc-ref outputs "out"))
1207                         (tfm (string-append
1208                               out "/share/texmf-dist/fonts/tfm/public/mflogo")))
1209                    (for-each (lambda (file)
1210                                (install-file file tfm)
1211                                (delete-file file))
1212                              (find-files "build" "\\.tfm"))
1213                    #t)))))))
1214       (native-inputs
1215        `(("texlive-bin" ,texlive-bin)
1216          ("texlive-metafont" ,texlive-metafont)
1217          ("texlive-knuth-lib" ,texlive-knuth-lib)))
1218       (home-page "http://www.ctan.org/pkg/mflogo")
1219       (synopsis "LaTeX support for Metafont logo fonts")
1220       (description
1221        "This package provides LaTeX and font definition files to access the
1222 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1223 logos in LaTeX documents.")
1224       (license license:lppl))))
1225
1226 (define-public texlive-latex-mflogo
1227   (deprecated-package "texlive-latex-mflogo" texlive-mflogo))
1228
1229 (define-public texlive-mflogo-font
1230   (package
1231     (inherit (simple-texlive-package
1232               "texlive-mflogo-font"
1233               (list "/doc/fonts/mflogo-font/README"
1234                     "/fonts/afm/hoekwater/mflogo-font/"
1235                     "/fonts/map/dvips/mflogo-font/"
1236                     "/fonts/type1/hoekwater/mflogo-font/")
1237               (base32
1238                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1239               #:trivial? #t))
1240     (home-page "https://www.ctan.org/pkg/mflogo-font")
1241     (synopsis "Metafont logo font")
1242     (description
1243      "These fonts were created in METAFONT by Knuth, for his own publications.
1244 At some stage, the letters P and S were added, so that the METAPOST logo could
1245 also be expressed.  The fonts were originally issued (of course) as METAFONT
1246 source; they have since been autotraced and reissued in Adobe Type 1 format by
1247 Taco Hoekwater.")
1248     (license license:knuth)))
1249
1250 (define-public texlive-fonts-mflogo-font
1251   (deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
1252
1253 (define-public texlive-amsfonts
1254   (let ((template (simple-texlive-package
1255                    "texlive-amsfonts"
1256                    (list "/source/latex/amsfonts/"
1257                          "/fonts/source/public/amsfonts/"
1258                          "/fonts/type1/public/amsfonts/"
1259                          "/fonts/afm/public/amsfonts/"
1260                          "/fonts/map/dvips/amsfonts/"
1261                          "/tex/plain/amsfonts/"
1262                          "/doc/fonts/amsfonts/")
1263                    (base32
1264                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1265     (package
1266       (inherit template)
1267       (arguments
1268        (substitute-keyword-arguments (package-arguments template)
1269          ((#:build-targets _ #t)
1270           '(list "amsfonts.ins"))
1271          ((#:tex-directory _ #t)
1272           "latex/amsfonts")
1273          ((#:modules modules '())
1274           `((guix build texlive-build-system)
1275             (guix build utils)
1276             (ice-9 match)
1277             (srfi srfi-1)
1278             (srfi srfi-26)))
1279          ((#:phases phases)
1280           `(modify-phases ,phases
1281              (add-before 'build 'build-fonts
1282                (lambda* (#:key inputs #:allow-other-keys)
1283                  ;; Allow self fonts sources and other resources to be
1284                  ;; discovered.
1285                  (setenv "GUIX_TEXMF" (string-append (getenv "GUIX_TEXMF")
1286                                                      ":" (getcwd)))
1287
1288                  (let ((build (string-append (getcwd) "/build-fonts")))
1289                    (mkdir-p build)
1290                    (with-directory-excursion "fonts/source/public/amsfonts"
1291                      (for-each (lambda (font)
1292                                  (format #t "building font ~a\n" (basename font ".mf"))
1293                                  (with-directory-excursion (dirname font)
1294                                    (invoke "mf" "-progname=mf"
1295                                            (string-append "-output-directory=" build)
1296                                            (string-append "\\"
1297                                                           "mode:=ljfour; "
1298                                                           "mag:=1; "
1299                                                           "nonstopmode; "
1300                                                           "input "
1301                                                           (getcwd) "/"
1302                                                           (basename font ".mf")))))
1303                                (find-files "." "[0-9]+\\.mf$"))))
1304
1305                  ;; There are no metafont sources for the Euler fonts, so we
1306                  ;; convert the afm files instead.
1307                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1308                    (mkdir build)
1309                    (with-directory-excursion "fonts/afm/public/amsfonts/euler"
1310                      (for-each (lambda (font)
1311                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1312                                  (invoke "afm2tfm" font
1313                                          (string-append build "/"
1314                                                         (basename font ".tfm"))))
1315                                (find-files "(cmextra|cyrillic|dummy|euler|symbols)"
1316                                            "\\.afm$")))
1317
1318                    ;; Frustratingly, not all fonts can be created this way.  To
1319                    ;; generate eufm8.tfm, for example, we first scale down
1320                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1321                    ;; the pl file.
1322                    (setenv "TEXINPUTS"
1323                            (string-append ":" build "//:"
1324                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1325                                           (getcwd) "/source/latex/amsfonts//:"))
1326                    (with-directory-excursion build
1327                      (for-each (match-lambda
1328                                  (((target-base target-size)
1329                                    (source-base source-size))
1330                                   (let ((factor (number->string
1331                                                  (truncate/ (* 1000 target-size)
1332                                                             source-size))))
1333                                     (invoke "tex"
1334                                             "-interaction=scrollmode"
1335                                             (string-append "\\input fontinst.sty "
1336                                                            "\\transformfont{" target-base "}"
1337                                                            "{\\scalefont{" factor "}"
1338                                                            "{\\fromafm{" source-base "}}} "
1339                                                            "\\bye")))
1340                                   (invoke "pltotf"
1341                                           (string-append target-base ".pl")
1342                                           (string-append target-base ".tfm"))
1343                                   (delete-file (string-append target-base ".pl"))))
1344
1345                                '((("eufm8" 8) ("eufm10" 10))
1346
1347                                  (("eufb6" 6) ("eufb7" 7))
1348                                  (("eufb8" 8) ("eufb10" 10))
1349                                  (("eufb9" 9) ("eufb10" 10))
1350
1351                                  (("eufm6" 6) ("eufb7" 7))
1352                                  (("eufm9" 9) ("eufb10" 10))
1353
1354                                  (("eurb6" 6) ("eurb7" 7))
1355                                  (("eurb8" 8) ("eurb10" 10))
1356                                  (("eurb9" 9) ("eurb10" 10))
1357
1358                                  (("eurm6" 6) ("eurm7" 7))
1359                                  (("eurm8" 8) ("eurm10" 10))
1360                                  (("eurm9" 9) ("eurm10" 10))))))))
1361              (add-after 'install 'install-generated-fonts
1362                (lambda* (#:key inputs outputs #:allow-other-keys)
1363                  (copy-recursively "build-fonts"
1364                                    (string-append
1365                                     (assoc-ref outputs "out")
1366                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))))))))
1367       (native-inputs
1368        `(("texlive-updmap.cfg" ,(texlive-updmap.cfg
1369                                  (list texlive-fontinst)))))
1370       (home-page "https://www.ctan.org/pkg/amsfonts")
1371       (synopsis "TeX fonts from the American Mathematical Society")
1372       (description
1373        "This package provides an extended set of fonts for use in mathematics,
1374 including: extra mathematical symbols; blackboard bold letters (uppercase
1375 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1376 letters; subscript sizes of large symbols such as sum and product; added sizes
1377 of the Computer Modern small caps font; cyrillic fonts (from the University of
1378 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1379 files, and all except the Euler fonts are provided as Metafont source.  The
1380 distribution also includes the canonical Type 1 versions of the Computer
1381 Modern family of fonts.  The Euler fonts are supported by separate packages;
1382 details can be found in the documentation.")
1383       (license license:silofl1.1))))
1384
1385 (define-public texlive-fonts-amsfonts
1386   (deprecated-package "texlive-fonts-amsfonts" texlive-amsfonts))
1387
1388 (define-public texlive-latex-amsfonts
1389   (deprecated-package "texlive-latex-amsfonts" texlive-amsfonts))
1390
1391 (define-public texlive-mkpattern
1392   (package
1393     (inherit (simple-texlive-package
1394               "texlive-mkpattern"
1395               (list "/doc/plain/mkpattern/README"
1396                     "/doc/plain/mkpattern/mkpatdoc.tex"
1397                     "/doc/plain/mkpattern/mkpatter.pdf"
1398                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1399                     "/tex/plain/mkpattern/mkpatter.tex")
1400               (base32
1401                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1402               #:trivial? #t))
1403     (home-page "https://ctan.org/pkg/mkpattern")
1404     (synopsis "Utility for making hyphenation patterns")
1405     (description "Mkpattern is a general purpose program for the generation of
1406 hyphenation patterns, with definition of letter sets and template-like
1407 constructions.  It also provides an easy way to handle different input and
1408 output encodings, and features generation of clean UTF-8 patterns.")
1409     (license license:lppl)))
1410
1411 ;; This provides etex.src which is needed to build various formats, including
1412 ;; luatex.fmt and pdflatex.fmt
1413 (define-public texlive-etex
1414   (let ((template (simple-texlive-package
1415                    "texlive-etex"
1416                    (list "/doc/etex/base/"
1417                          "/doc/man/man1/etex.1"
1418                          "/doc/man/man1/etex.man1.pdf"
1419                          "/tex/plain/etex/"
1420                          "/fonts/source/public/etex/")
1421                    (base32
1422                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1423                    #:trivial? #t)))
1424     (package
1425       (inherit template)
1426       (arguments
1427        (substitute-keyword-arguments (package-arguments template)
1428          ((#:phases phases)
1429           `(modify-phases ,phases
1430              ;; Build tfm font.
1431              (replace 'build
1432                (lambda* (#:key inputs #:allow-other-keys)
1433                  (let ((mf (assoc-ref inputs "texlive-metafont")))
1434                    ;; Tell mf where to find mf.base
1435                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1436                    ;; Tell mf where to look for source files
1437                    (setenv "MFINPUTS"
1438                            (string-append (getcwd)
1439                                           "/fonts/source/public/etex/:"
1440                                           mf "/share/texmf-dist/metafont/base:"
1441                                           (assoc-ref inputs "texlive-cm")
1442                                           "/share/texmf-dist/fonts/source/public/cm")))
1443                  (invoke "mf" "-progname=mf"
1444                          (string-append "\\"
1445                                         "mode:=ljfour; "
1446                                         "mag:=1; "
1447                                         "scrollmode; "
1448                                         "input xbmc10"))
1449                  #t))
1450              (add-after 'install 'install-font
1451                (lambda* (#:key outputs #:allow-other-keys)
1452                  (install-file
1453                   "xbmc10.tfm"
1454                   (string-append (assoc-ref outputs "out")
1455                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1456                  #t))))))
1457       (native-inputs
1458        `(("texlive-bin" ,texlive-bin)
1459          ("texlive-metafont" ,texlive-metafont)
1460          ("texlive-cm" ,texlive-cm)))
1461       (home-page "https://www.ctan.org/pkg/etex")
1462       (synopsis "Extended version of TeX")
1463       (description
1464        "This package provides an extended version of TeX (which is capable of
1465 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1466 team as the engine for the development of LaTeX2e; as a result, LaTeX
1467 programmers may assume e-TeX functionality.  The pdftex engine directly
1468 incorporates the e-TeX extensions.")
1469       (license license:knuth))))
1470
1471 (define-public texlive-tex-plain
1472   (package
1473     (inherit (simple-texlive-package
1474               "texlive-tex-plain"
1475               (list "/tex/plain/")
1476               (base32
1477                "1qryji08shim7fwjfcm0rcb0m5pwagjv1ahpr3xkfg8mkj160nrg")
1478               #:trivial? #t))
1479     (home-page "https://www.ctan.org/pkg/plain")
1480     (synopsis "Plain TeX format and supporting files")
1481     (description
1482      "This package contains files used to build the Plain TeX format, as
1483 described in the TeXbook, together with various supporting files (some also
1484 discussed in the book).")
1485     (license license:knuth)))
1486
1487 (define-public texlive-helvetic
1488   (package
1489     (inherit (simple-texlive-package
1490               "texlive-helvetic"
1491               (list "/dvips/helvetic/"
1492                     "/fonts/afm/adobe/helvetic/"
1493                     "/fonts/afm/urw/helvetic/"
1494                     "/fonts/map/dvips/helvetic/"
1495                     "/fonts/tfm/adobe/helvetic/"
1496                     "/fonts/tfm/monotype/helvetic/"
1497                     "/fonts/tfm/urw35vf/helvetic/"
1498                     "/fonts/type1/urw/helvetic/"
1499                     "/fonts/vf/adobe/helvetic/"
1500                     "/fonts/vf/monotype/helvetic/"
1501                     "/fonts/vf/urw35vf/helvetic/"
1502                     "/tex/latex/helvetic/")
1503               (base32
1504                "0c3f1ly7y6404z0akbfbbfql13sz717v0n0g69qjpr69hi4n0nsl")
1505               #:trivial? #t))
1506     (home-page "https://ctan.org/pkg/urw-base35")
1507     (synopsis "URW Base 35 font pack for LaTeX")
1508     (description "This package provides a drop-in replacements for the Helvetica
1509 font from Adobe's basic set.")
1510     ;; No license version specified.
1511     (license license:gpl3+)))
1512
1513 (define-public texlive-hyphen-afrikaans
1514   (package
1515     (inherit (texlive-hyphen-package
1516               "texlive-hyphen-afrikaans" "af"
1517               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1518               (base32
1519                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1520     (synopsis "Hyphenation patterns for Afrikaans")
1521     (description "The package provides hyphenation patterns for the Afrikaans
1522 language.")
1523     (license license:lppl1.3+)))
1524
1525 (define-public texlive-hyphen-ancientgreek
1526   (package
1527     (inherit (texlive-hyphen-package
1528               "texlive-hyphen-ancientgreek" "grc"
1529               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1530                     "/tex/generic/hyphen/grahyph5.tex"
1531                     "/tex/generic/hyphen/ibyhyph.tex")
1532               (base32
1533                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1534     (synopsis "Hyphenation patterns for ancient Greek")
1535     (description "The package provides hyphenation patterns for ancient
1536 Greek.")
1537     (license license:lppl1.3+)))
1538
1539 (define-public texlive-hyphen-armenian
1540   (let ((template (texlive-hyphen-package
1541                    "texlive-hyphen-armenian" "hy"
1542                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1543                    (base32
1544                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1545     (package
1546       (inherit template)
1547       (synopsis "Hyphenation patterns for Armenian")
1548       (description "The package provides hyphenation patterns for the Armenian
1549 language.")
1550       ;; Any version of the LGPL.
1551       (license license:lgpl3+))))
1552
1553 (define-public texlive-hyphen-basque
1554   (let ((template (texlive-hyphen-package
1555                     "texlive-hyphen-basque" "eu"
1556                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1557                     (base32
1558                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1559     (package
1560       (inherit template)
1561       (synopsis "Hyphenation patterns for Basque")
1562       (description "The package provides hyphenation patterns for the Basque
1563 language.")
1564       ;; Similar to Unicode license.
1565       (license (license:fsf-free
1566                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1567
1568 (define-public texlive-hyphen-belarusian
1569   (package
1570     (inherit (texlive-hyphen-package
1571               "texlive-hyphen-belarusian" "be"
1572               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1573               (base32
1574                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1575     (synopsis "Hyphenation patterns for Belarusian")
1576     (description "The package provides hyphenation patterns for the Belarusian
1577 language.")
1578     (license license:expat)))
1579
1580 (define-public texlive-hyphen-bulgarian
1581   (package
1582     (inherit (texlive-hyphen-package
1583               "texlive-hyphen-bulgarian" "bg"
1584               '("/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1585               (base32
1586                "0m254y71j3qrb71klvfalfmic3kjy31l85b9cgpdm5yznlsq3i8d")))
1587     (synopsis "Hyphenation patterns for Bulgarian")
1588     (description "The package provides hyphenation patterns for the Bulgarian
1589 language in T2A and UTF-8 encodings.")
1590     (license (license:non-copyleft
1591               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1592               "Ancestral BSD variant"))))
1593
1594 (define-public texlive-hyphen-catalan
1595   (package
1596     (inherit (texlive-hyphen-package
1597               "texlive-hyphen-catalan" "ca"
1598               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1599               (base32
1600                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1601     (synopsis "Hyphenation patterns for Catalan")
1602     (description "The package provides hyphenation patterns for Catalan in
1603 T1/EC and UTF-8 encodings.")
1604     (license license:lppl1.0+)))
1605
1606 (define-public texlive-hyphen-chinese
1607   (package
1608     (inherit (texlive-hyphen-package
1609               "texlive-hyphen-chinese" "zh-latn-pinyin"
1610               '("/tex/generic/hyph-utf8/patterns/ptex/hyph-zh-latn-pinyin.ec.tex"
1611                 "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1612               (base32
1613                "1hhh30hcjymm2igpllly04cavsfmd6xrjkd9zax6b2wdxn3ka4pm")))
1614     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1615     (description "The package provides hyphenation patterns for unaccented
1616 Chinese pinyin T1/EC and UTF-8 encodings.")
1617     (license license:gpl2+)))
1618
1619 (define-public texlive-hyphen-churchslavonic
1620   (package
1621     (inherit (texlive-hyphen-package
1622               "texlive-hyphen-churchslavonic" "cu"
1623               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1624               (base32
1625                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1626     (synopsis "Hyphenation patterns for Church Slavonic")
1627     (description "The package provides hyphenation patterns for Church
1628 Slavonic in UTF-8 encoding.")
1629     (license license:expat)))
1630
1631 (define-public texlive-hyphen-coptic
1632   (package
1633     (inherit (texlive-hyphen-package
1634               "texlive-hyphen-coptic" "cop"
1635               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1636                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1637               (base32
1638                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1639     (synopsis "Hyphenation patterns for Coptic")
1640     (description "The package provides hyphenation patterns for Coptic in
1641 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1642     ;; No explicit license declaration, so we use the project license.
1643     (license license:lppl)))
1644
1645 (define-public texlive-hyphen-croatian
1646   (package
1647     (inherit (texlive-hyphen-package
1648               "texlive-hyphen-croatian" "hr"
1649               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1650               (base32
1651                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1652     (synopsis "Hyphenation patterns for Croatian")
1653     (description "The package provides hyphenation patterns for Croatian in
1654 T1/EC and UTF-8 encodings.")
1655     (license license:lppl1.0+)))
1656
1657 (define-public texlive-hyphen-czech
1658   (package
1659     (inherit (texlive-hyphen-package
1660               "texlive-hyphen-czech" "cs"
1661               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1662               (base32
1663                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1664     (synopsis "Hyphenation patterns for Czech")
1665     (description "The package provides hyphenation patterns for Czech in T1/EC
1666 and UTF-8 encodings.")
1667     (license license:gpl2+)))
1668
1669 (define-public texlive-hyphen-danish
1670   (package
1671     (inherit (texlive-hyphen-package
1672               "texlive-hyphen-danish" "da"
1673               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1674               (base32
1675                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1676     (synopsis "Hyphenation patterns for Danish")
1677     (description "The package provides hyphenation patterns for Danish in
1678 T1/EC and UTF-8 encodings.")
1679     ;; Either LPPL 1.3 or later, or Expat
1680     (license (list license:lppl1.3+ license:expat))))
1681
1682 (define-public texlive-hyphen-dutch
1683   (package
1684     (inherit (texlive-hyphen-package
1685               "texlive-hyphen-dutch" "nl"
1686               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1687               (base32
1688                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1689     (synopsis "Hyphenation patterns for Dutch")
1690     (description "The package provides hyphenation patterns for Dutch in T1/EC
1691 and UTF-8 encodings.")
1692     (license license:lppl1.0+)))
1693
1694 (define-public texlive-hyphen-english
1695   (package
1696     (inherit (texlive-hyphen-package
1697               "texlive-hyphen-english" '("en-gb" "en-us")
1698               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1699                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1700               (base32
1701                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1702     (synopsis "Hyphenation patterns for American and British English")
1703     (description "The package provides additional hyphenation patterns for
1704 American and British English in ASCII encoding.")
1705     (license (license:non-copyleft
1706               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1707               "FSF all permissive license"))))
1708
1709 (define-public texlive-hyphen-esperanto
1710   (package
1711     (inherit (texlive-hyphen-package
1712               "texlive-hyphen-esperanto" "eo"
1713               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1714               (base32
1715                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1716     (synopsis "Hyphenation patterns for Esperanto")
1717     (description "The package provides hyphenation patterns for Esperanto ISO
1718 Latin 3 and UTF-8 encodings.")
1719     (license license:lppl1.0+)))
1720
1721 (define-public texlive-hyphen-estonian
1722   (package
1723     (inherit (texlive-hyphen-package
1724               "texlive-hyphen-estonian" "et"
1725               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1726               (base32
1727                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1728     (synopsis "Hyphenation patterns for Estonian")
1729     (description "The package provides hyphenation patterns for Estonian in
1730 T1/EC and UTF-8 encodings.")
1731     ;; Dual licensed under either license.
1732     (license (list license:lppl1.3+ license:expat))))
1733
1734 (define-public texlive-hyphen-ethiopic
1735   (let ((template (texlive-hyphen-package
1736                    "texlive-hyphen-ethiopic" "mul-ethi"
1737                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1738                    (base32
1739                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1740     (package
1741       (inherit template)
1742       (synopsis "Hyphenation patterns for Ethiopic scripts")
1743       (description "The package provides hyphenation patterns for languages
1744 written using the Ethiopic script for Unicode engines.  They are not supposed
1745 to be linguistically relevant in all cases and should, for proper typography,
1746 be replaced by files tailored to individual languages.")
1747       (license license:expat))))
1748
1749 (define-public texlive-hyphen-finnish
1750   (package
1751     (inherit (texlive-hyphen-package
1752               "texlive-hyphen-finnish" "fi"
1753               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1754               (base32
1755                "1f72b4ydb4zddvw2i004948khmwzigxkdkwfym5v1kkq0183sfpj")))
1756     (synopsis "Hyphenation patterns for Finnish")
1757     (description "The package provides hyphenation patterns for Finnish in
1758 T1/EC and UTF-8 encodings.")
1759     (license license:public-domain)))
1760
1761 (define-public texlive-hyphen-french
1762   (package
1763     (inherit (texlive-hyphen-package
1764               "texlive-hyphen-french" "fr"
1765               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1766               (base32
1767                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1768     (synopsis "Hyphenation patterns for French")
1769     (description "The package provides hyphenation patterns for French in
1770 T1/EC and UTF-8 encodings.")
1771     (license license:expat)))
1772
1773 (define-public texlive-hyphen-friulan
1774   (package
1775     (inherit (texlive-hyphen-package
1776               "texlive-hyphen-friulan" "fur"
1777               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1778               (base32
1779                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1780     (synopsis "Hyphenation patterns for Friulan")
1781     (description "The package provides hyphenation patterns for Friulan in
1782 ASCII encodings.")
1783     (license license:lppl1.3+)))
1784
1785 (define-public texlive-hyphen-galician
1786   (let ((template (texlive-hyphen-package
1787                    "texlive-hyphen-galician" "gl"
1788                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1789                    (base32
1790                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1791     (package
1792       (inherit template)
1793       (synopsis "Hyphenation patterns for Galician")
1794       (description "The package provides hyphenation patterns for Galician in
1795 T1/EC and UTF-8 encodings.")
1796       (license license:lppl1.3))))
1797
1798 (define-public texlive-hyphen-georgian
1799   (package
1800     (inherit (texlive-hyphen-package
1801               "texlive-hyphen-georgian" "ka"
1802               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1803               (base32
1804                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1805     (synopsis "Hyphenation patterns for Georgian")
1806     (description "The package provides hyphenation patterns for Georgian in
1807 T8M, T8K, and UTF-8 encodings.")
1808     (license license:lppl1.3+)))
1809
1810 (define-public texlive-hyphen-german
1811   (package
1812     (inherit (texlive-hyphen-package
1813               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1814               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1815                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1816                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1817                     "/tex/generic/dehyph/dehyphn.tex"
1818                     "/tex/generic/dehyph/dehypht.tex"
1819                     "/tex/generic/dehyph/dehyphtex.tex"
1820                     "/tex/generic/dehyph/README")
1821               (base32
1822                "0wp5by5kkf4ac6li5mbppqzw11500wa7f22p5vpz3m1kwd15zavw")))
1823     (synopsis "Hyphenation patterns for German")
1824     (description "This package provides hyphenation patterns for German in
1825 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1826 Swiss German.")
1827     ;; The patterns are released under the Expat license; the dehyph* files
1828     ;; are released under the LPPL version 1 or later.
1829     (license (list license:expat license:lppl1.0+))))
1830
1831 (define-public texlive-hyphen-greek
1832   (package
1833     (inherit (texlive-hyphen-package
1834               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1835               (list "/doc/generic/elhyphen/"
1836                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1837                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1838                     "/tex/generic/hyphen/grmhyph5.tex"
1839                     "/tex/generic/hyphen/grphyph5.tex")
1840               (base32
1841                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1842     (synopsis "Hyphenation patterns for Greek")
1843     (description "This package provides hyphenation patterns for Modern Greek
1844 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1845     (license license:lppl)))
1846
1847 (define-public texlive-hyphen-hungarian
1848   (package
1849     (inherit (texlive-hyphen-package
1850               "texlive-hyphen-hungarian" "hu"
1851               (list "/doc/generic/huhyphen/"
1852                     "/doc/generic/hyph-utf8/languages/hu/"
1853                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1854               (base32
1855                "006d2290lcsqzh9ljansbaj9k52s17zgkw0kpsspn5l7a8n00zcl")))
1856     (synopsis "Hyphenation patterns for Hungarian")
1857     (description "This package provides hyphenation patterns for Hungarian in
1858 T1/EC and UTF-8 encodings.")
1859     ;; Any of these licenses
1860     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1861
1862 (define-public texlive-hyphen-icelandic
1863   (package
1864     (inherit (texlive-hyphen-package
1865               "texlive-hyphen-icelandic" "is"
1866               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1867               (base32
1868                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1869     (synopsis "Hyphenation patterns for Icelandic")
1870     (description "This package provides hyphenation patterns for Icelandic in
1871 T1/EC and UTF-8 encodings.")
1872     (license license:lppl1.2+)))
1873
1874 (define-public texlive-hyphen-indic
1875   (package
1876     (inherit (texlive-hyphen-package
1877               "texlive-hyphen-indic"
1878               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
1879               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
1880                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
1881                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
1882                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
1883                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
1884                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
1885                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
1886                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
1887                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
1888                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
1889                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
1890               (base32
1891                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
1892     (synopsis "Indic hyphenation patterns")
1893     (description "This package provides hyphenation patterns for Assamese,
1894 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
1895 and Telugu for Unicode engines.")
1896     (license license:expat)))
1897
1898 (define-public texlive-hyphen-indonesian
1899   (package
1900     (inherit (texlive-hyphen-package
1901               "texlive-hyphen-indonesian" "id"
1902               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
1903               (base32
1904                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
1905     (synopsis "Indonesian hyphenation patterns")
1906     (description "This package provides hyphenation patterns for
1907 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
1908 usable for Malay (Bahasa Melayu).")
1909     (license license:gpl2)))
1910
1911 (define-public texlive-hyphen-interlingua
1912   (package
1913     (inherit (texlive-hyphen-package
1914               "texlive-hyphen-interlingua" "ia"
1915               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
1916               (base32
1917                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
1918     (synopsis "Interlingua hyphenation patterns")
1919     (description "This package provides hyphenation patterns for Interlingua
1920 in ASCII encoding.")
1921     (license license:lppl1.3+)))
1922
1923 (define-public texlive-hyphen-irish
1924   (package
1925     (inherit (texlive-hyphen-package
1926               "texlive-hyphen-irish" "ga"
1927               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
1928               (base32
1929                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
1930     (synopsis "Irish hyphenation patterns")
1931     (description "This package provides hyphenation patterns for
1932 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
1933     ;; Either of these licenses
1934     (license (list license:gpl2+ license:expat))))
1935
1936 (define-public texlive-hyphen-italian
1937   (package
1938     (inherit (texlive-hyphen-package
1939               "texlive-hyphen-italian" "it"
1940               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
1941               (base32
1942                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
1943     (synopsis "Italian hyphenation patterns")
1944     (description "This package provides hyphenation patterns for Italian in
1945 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
1946 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
1947 UNI).")
1948     (license license:lppl1.3+)))
1949
1950 (define-public texlive-hyphen-kurmanji
1951   (package
1952     (inherit (texlive-hyphen-package
1953               "texlive-hyphen-kurmanji" "kmr"
1954               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
1955               (base32
1956                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
1957     (synopsis "Kurmanji hyphenation patterns")
1958     (description "This package provides hyphenation patterns for
1959 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
1960 Europe, in T1/EC and UTF-8 encodings.")
1961     (license license:lppl1.3)))
1962
1963 (define-public texlive-hyphen-latin
1964   (package
1965     (inherit (texlive-hyphen-package
1966               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
1967               '("/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
1968                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
1969                 "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex"
1970                 "/tex/generic/hyph-utf8/patterns/tex-8bit/hyph-la-x-classic.ec.tex")
1971               (base32
1972                "119rf6sk1f639ky6zr9njn21nsxzgfmjci94y26745qs8w08ilkl")))
1973     (synopsis "Liturgical Latin hyphenation patterns")
1974     (description "This package provides hyphenation patterns for Latin in
1975 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
1976 when v is needed), medieval spelling with the ligatures @code{\\ae} and
1977 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
1978 Apparently there is no conflict between the patterns of modern Latin and those
1979 of medieval Latin.  It also includes hyphenation patterns for the Classical
1980 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
1981 different from those of 'plain' Latin, the latter being more adapted to modern
1982 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
1983 T1/EC and UTF-8 encodings.")
1984     ;; Either of these licenses
1985     (license (list license:lppl1.0+ license:expat))))
1986
1987 (define-public texlive-hyphen-latvian
1988   (package
1989     (inherit (texlive-hyphen-package
1990               "texlive-hyphen-latvian" "lv"
1991               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
1992               (base32
1993                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
1994     (synopsis "Latvian hyphenation patterns")
1995     (description "This package provides hyphenation patterns for Latvian in
1996 L7X and UTF-8 encodings.")
1997     ;; Either of these licenses.
1998     (license (list license:gpl2 license:lgpl2.1))))
1999
2000 (define-public texlive-hyphen-lithuanian
2001   (package
2002     (inherit (texlive-hyphen-package
2003               "texlive-hyphen-lithuanian" "lt"
2004               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
2005               (base32
2006                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
2007     (synopsis "Lithuanian hyphenation patterns")
2008     (description "This package provides hyphenation patterns for Lithuanian in
2009 L7X and UTF-8 encodings.")
2010     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
2011     ;; the hyph-utf8 package we choose the LPPL license.
2012     (license license:lppl)))
2013
2014 (define-public texlive-hyphen-macedonian
2015   (package
2016     (inherit (texlive-hyphen-package
2017               "texlive-hyphen-macedonian" "mk"
2018               '("/tex/generic/hyph-utf8/patterns/tex/hyph-mk.tex")
2019               (base32
2020                "01w4cv8jm9q2gijys7cd7s6lfycdpgw9m26yxicc14ywbpi4ij3i")))
2021     (synopsis "Macedonian hyphenation patterns")
2022     (description "This package provides hypenation patterns for Macedonian.")
2023     ;; XXX: License just says 'GPL'.  Assume GPL2 since the file predates GPL3.
2024     (license license:gpl2+)))
2025
2026 (define-public texlive-hyphen-mongolian
2027   (package
2028     (inherit (texlive-hyphen-package
2029               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
2030               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
2031                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
2032               (base32
2033                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
2034     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
2035     (description "This package provides hyphenation patterns for Mongolian in
2036 T2A, LMC and UTF-8 encodings.")
2037     ;; Either of these licenses
2038     (license (list license:lppl1.3+ license:expat))))
2039
2040 (define-public texlive-hyphen-norwegian
2041   (package
2042     (inherit (texlive-hyphen-package
2043               "texlive-hyphen-norwegian" '("nb" "nn" "no")
2044               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
2045                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
2046                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
2047               (base32
2048                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
2049     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
2050     (description "This package provides hyphenation patterns for Norwegian
2051 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
2052     (license (license:non-copyleft
2053               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
2054               "FSF All permissive license"))))
2055
2056 (define-public texlive-hyphen-occitan
2057   (package
2058     (inherit (texlive-hyphen-package
2059               "texlive-hyphen-occitan" "oc"
2060               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
2061               (base32
2062                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
2063     (synopsis "Occitan hyphenation patterns")
2064     (description "This package provides hyphenation patterns for Occitan in
2065 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
2066 variants spoken and written in the wide area called 'Occitanie' by the French.
2067 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
2068 Alps encompassing the southern half of the French pentagon.")
2069     (license license:lppl1.0+)))
2070
2071 (define-public texlive-hyphen-pali
2072   (package
2073     (inherit (texlive-hyphen-package
2074               "texlive-hyphen-pali" "pi"
2075               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
2076               (base32
2077                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
2078     (synopsis "Panjabi hyphenation patterns")
2079     (description "This package provides hyphenation patterns for Panjabi in
2080 T1/EC encoding.")
2081     ;; Can be used with either license.
2082     (license (list license:expat license:lgpl3+ license:gpl3+))))
2083
2084 (define-public texlive-hyphen-piedmontese
2085   (package
2086     (inherit (texlive-hyphen-package
2087               "texlive-hyphen-piedmontese" "pms"
2088               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
2089               (base32
2090                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
2091     (synopsis "Piedmontese hyphenation patterns")
2092     (description "This package provides hyphenation patterns for Piedmontese
2093 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
2094 Camillo Brero.")
2095     (license license:lppl1.3+)))
2096
2097 (define-public texlive-hyphen-polish
2098   (package
2099     (inherit (texlive-hyphen-package
2100               "texlive-hyphen-polish" "pl"
2101               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
2102               (base32
2103                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
2104     (synopsis "Polish hyphenation patterns")
2105     (description "This package provides hyphenation patterns for Polish in QX
2106 and UTF-8 encodings.")
2107     ;; No differing license declared, so we choose the project license.
2108     (license license:lppl)))
2109
2110 (define-public texlive-hyphen-portuguese
2111   (package
2112     (inherit (texlive-hyphen-package
2113               "texlive-hyphen-portuguese" "pt"
2114               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
2115               (base32
2116                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
2117     (synopsis "Portuguese hyphenation patterns")
2118     (description "This package provides hyphenation patterns for Portuguese in
2119 T1/EC and UTF-8 encodings.")
2120     (license license:bsd-3)))
2121
2122 (define-public texlive-hyphen-romanian
2123   (package
2124     (inherit (texlive-hyphen-package
2125               "texlive-hyphen-romanian" "ro"
2126               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
2127               (base32
2128                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
2129     (synopsis "Romanian hyphenation patterns")
2130     (description "This package provides hyphenation patterns for Romanian in
2131 T1/EC and UTF-8 encodings.")
2132     ;; No differing license declared, so we choose the project license.
2133     (license license:lppl)))
2134
2135 (define-public texlive-hyphen-romansh
2136   (package
2137     (inherit (texlive-hyphen-package
2138               "texlive-hyphen-romansh" "rm"
2139               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
2140               (base32
2141                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
2142     (synopsis "Romansh hyphenation patterns")
2143     (description "This package provides hyphenation patterns for Romansh in
2144 ASCII encodings.  They are supposed to comply with the rules indicated by the
2145 Lia Rumantscha (Romansh language society).")
2146     (license license:lppl1.3+)))
2147
2148 (define-public texlive-hyphen-russian
2149   (package
2150     (inherit (texlive-hyphen-package
2151               "texlive-hyphen-russian" "ru"
2152               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
2153               (base32
2154                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
2155     (synopsis "Russian hyphenation patterns")
2156     (description "This package provides hyphenation patterns for Russian in
2157 T2A and UTF-8 encodings.")
2158     (license license:lppl1.2+)))
2159
2160 (define-public texlive-hyphen-sanskrit
2161   (package
2162     (inherit (texlive-hyphen-package
2163               "texlive-hyphen-sanskrit" "sa"
2164               (list "/doc/generic/hyph-utf8/languages/sa/hyphenmin.txt"
2165                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
2166               (base32
2167                "1bkzj8swj4lbswf1vr4pb1jg6dixzs7p8h8zm8s8as52h442aida")))
2168     (synopsis "Sanskrit hyphenation patterns")
2169     (description "This package provides hyphenation patterns for Sanskrit and
2170 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
2171 Malayalam longdesc and Telugu scripts for Unicode engines.")
2172     ;; "You may freely use, copy, modify and/or distribute this file."
2173     (license (license:non-copyleft
2174               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
2175
2176 (define-public texlive-hyphen-serbian
2177   (package
2178     (inherit (texlive-hyphen-package
2179               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
2180               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
2181                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
2182                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
2183               (base32
2184                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
2185     (synopsis "Serbian hyphenation patterns")
2186     (description "This package provides hyphenation patterns for Serbian in
2187 T1/EC, T2A and UTF-8 encodings.")
2188     ;; Any version of the GPL.
2189     (license license:gpl3+)))
2190
2191 (define-public texlive-hyphen-slovak
2192   (package
2193     (inherit (texlive-hyphen-package
2194               "texlive-hyphen-slovak" "sk"
2195               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
2196               (base32
2197                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
2198     (synopsis "Slovak hyphenation patterns")
2199     (description "This package provides hyphenation patterns for Slovak in
2200 T1/EC and UTF-8 encodings.")
2201     (license license:gpl2+)))
2202
2203 (define-public texlive-hyphen-slovenian
2204   (package
2205     (inherit (texlive-hyphen-package
2206               "texlive-hyphen-slovenian" "sl"
2207               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
2208               (base32
2209                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
2210     (synopsis "Slovenian hyphenation patterns")
2211     (description "This package provides hyphenation patterns for Slovenian in
2212 T1/EC and UTF-8 encodings.")
2213     ;; Either license
2214     (license (list license:lppl1.0+ license:expat))))
2215
2216 (define-public texlive-hyphen-spanish
2217   (package
2218     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
2219     ;; generate obsolete hyphenation patterns, which aren't included in a
2220     ;; default TeX Live distribution, so we don't include them either.
2221     (inherit (texlive-hyphen-package
2222               "texlive-hyphen-spanish" "es"
2223               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
2224               (base32
2225                "05lbvjkj304xxghyihk8js0kmg97ddlgijld3bp81bc28h4cav0v")))
2226     (synopsis "Hyphenation patterns for Spanish")
2227     (description "The package provides hyphenation patterns for Spanish in
2228 T1/EC and UTF-8 encodings.")
2229     (license license:expat)))
2230
2231 (define-public texlive-hyphen-swedish
2232   (package
2233     (inherit (texlive-hyphen-package
2234               "texlive-hyphen-swedish" "sv"
2235               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2236               (base32
2237                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2238     (synopsis "Swedish hyphenation patterns")
2239     (description "This package provides hyphenation patterns for Swedish in
2240 T1/EC and UTF-8 encodings.")
2241     (license license:lppl1.2+)))
2242
2243 (define-public texlive-hyphen-thai
2244   (package
2245     (inherit (texlive-hyphen-package
2246               "texlive-hyphen-thai" "th"
2247               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2248               (base32
2249                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2250     (synopsis "Thai hyphenation patterns")
2251     (description "This package provides hyphenation patterns for Thai in LTH
2252 and UTF-8 encodings.")
2253     (license license:lppl1.3+)))
2254
2255 (define-public texlive-hyphen-turkish
2256   (let ((template (texlive-hyphen-package
2257                    "texlive-hyphen-turkish" "tr"
2258                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2259                    (base32
2260                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2261     (package
2262       (inherit template)
2263       (synopsis "Hyphenation patterns for Turkish")
2264       (description "The package provides hyphenation patterns for Turkish in
2265 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2266 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2267 and Ottoman Turkish in Latin script, however the required character set didn't
2268 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2269 compatibility with 8-bit engines.")
2270       (license license:lppl1.0+))))
2271
2272 (define-public texlive-hyphen-turkmen
2273   (let ((template (texlive-hyphen-package
2274                    "texlive-hyphen-turkmen" "tk"
2275                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2276                    (base32
2277                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2278     (package
2279       (inherit template)
2280       (synopsis "Hyphenation patterns for Turkmen")
2281       (description "The package provides hyphenation patterns for Turkmen in
2282 T1/EC and UTF-8 encodings.")
2283       (license license:expat))))
2284
2285 (define-public texlive-hyphen-ukrainian
2286   (package
2287     (inherit (texlive-hyphen-package
2288               "texlive-hyphen-ukrainian" "uk"
2289               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2290               (base32
2291                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2292     (synopsis "Ukrainian hyphenation patterns")
2293     (description "This package provides hyphenation patterns for Ukrainian in
2294 T2A and UTF-8 encodings.")
2295     ;; No version specified
2296     (license license:lppl)))
2297
2298 (define-public texlive-hyphen-uppersorbian
2299   (package
2300     (inherit (texlive-hyphen-package
2301               "texlive-hyphen-uppersorbian" "hsb"
2302               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2303               (base32
2304                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2305     (synopsis "Upper Sorbian hyphenation patterns")
2306     (description "This package provides hyphenation patterns for Upper Sorbian
2307 in T1/EC and UTF-8 encodings.")
2308     (license license:lppl1.3a+)))
2309
2310 (define-public texlive-hyphen-welsh
2311   (package
2312     (inherit (texlive-hyphen-package
2313               "texlive-hyphen-welsh" "cy"
2314               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2315               (base32
2316                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2317     (synopsis "Welsh hyphenation patterns")
2318     (description "This package provides hyphenation patterns for Welsh in
2319 T1/EC and UTF-8 encodings.")
2320     ;; Either license
2321     (license (list license:lppl1.0+ license:expat))))
2322
2323 (define-public texlive-hyph-utf8
2324   (package
2325     (inherit (simple-texlive-package
2326               "texlive-hyph-utf8"
2327               (list "/source/generic/hyph-utf8/"
2328                     "/source/luatex/hyph-utf8/"
2329                     "/doc/luatex/hyph-utf8/"
2330                     "/tex/luatex/hyph-utf8/etex.src"
2331                     ;; Used to extract luatex-hyphen.lua
2332                     "/tex/latex/base/docstrip.tex"
2333
2334                     ;; Documentation; we can't use the whole directory because
2335                     ;; it includes files from other packages.
2336                     "/doc/generic/hyph-utf8/CHANGES"
2337                     "/doc/generic/hyph-utf8/HISTORY"
2338                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2339                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2340                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2341                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2342                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2343                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2344               (base32
2345                "1v6f59r1fcp7pk7ddskqdzl7hzbszsxd04mfd3xznv8fc73iv72l")))
2346     (outputs '("out" "doc"))
2347     (build-system gnu-build-system)
2348     (arguments
2349      `(#:tests? #f ; there are none
2350        #:modules ((guix build gnu-build-system)
2351                   (guix build utils)
2352                   (ice-9 match))
2353        #:make-flags
2354        (list "-C" "source/luatex/hyph-utf8/"
2355              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2356              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2357              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2358              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2359              (string-append "UNPACKED = $(NAME).lua"))
2360        #:phases
2361        (modify-phases %standard-phases
2362          ;; TeX isn't usable at this point, so we first need to generate the
2363          ;; tex.fmt.
2364          (replace 'configure
2365            (lambda* (#:key inputs outputs #:allow-other-keys)
2366              ;; Target directories must exist.
2367              (mkdir-p (string-append (assoc-ref %outputs "out")
2368                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2369              (mkdir-p (string-append (assoc-ref %outputs "doc")
2370                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2371
2372              ;; We cannot build the documentation because that requires a
2373              ;; fully functional pdflatex, which depends on this package.
2374              (substitute* "source/luatex/hyph-utf8/Makefile"
2375                (("all: .*") "all: $(RUNFILES)\n"))
2376
2377              ;; Find required fonts for building tex.fmt
2378              (setenv "TFMFONTS"
2379                      (string-append (assoc-ref inputs "texlive-cm")
2380                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2381                                     (assoc-ref inputs "texlive-knuth-lib")
2382                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2383              ;; ...and find all tex files in this environment.
2384              (setenv "TEXINPUTS"
2385                      (string-append
2386                       (getcwd) ":"
2387                       (string-join
2388                        (map (match-lambda ((_ . dir) dir)) inputs)
2389                        "//:")))
2390
2391              ;; Generate tex.fmt.
2392              (let ((where "source/luatex/hyph-utf8"))
2393                (mkdir-p where)
2394                (with-directory-excursion where
2395                  (invoke "tex" "-ini"
2396                          (string-append (assoc-ref inputs "texlive-tex-plain")
2397                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2398          (add-before 'build 'build-loaders-and-converters
2399            (lambda* (#:key outputs #:allow-other-keys)
2400              (let* ((root (string-append (assoc-ref outputs "out")
2401                                          "/share/texmf-dist"))
2402                     (conv
2403                      (string-append root
2404                                     "/tex/generic/hyph-utf8/conversions")))
2405
2406                ;; Build converters
2407                (mkdir-p conv)
2408                (with-directory-excursion "source/generic/hyph-utf8"
2409                  (substitute* "generate-converters.rb"
2410                    (("\\$path_root=File.*")
2411                     (string-append "$path_root=\"" root "\"\n"))
2412                    ;; Avoid error with newer Ruby.
2413                    (("#1\\{%") "#1{%%"))
2414                  (invoke "ruby" "generate-converters.rb"))
2415                #t)))
2416          (replace 'install
2417            (lambda* (#:key source outputs #:allow-other-keys)
2418              (let ((doc (assoc-ref outputs "doc"))
2419                    (out (assoc-ref outputs "out")))
2420                (mkdir-p doc)
2421                (copy-recursively
2422                 (string-append source "/doc")
2423                 (string-append doc "/doc"))
2424                (install-file
2425                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2426                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2427              #t)))))
2428     (native-inputs
2429      `(("ruby" ,ruby)
2430        ("texlive-bin" ,texlive-bin)
2431        ;; The following packages are needed for build "tex.fmt", which we need
2432        ;; for a working "tex".
2433        ("texlive-tex-plain" ,texlive-tex-plain)
2434        ("texlive-cm" ,texlive-cm)
2435        ("texlive-knuth-lib" ,texlive-knuth-lib)
2436        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2437     (home-page "https://ctan.org/pkg/hyph-utf8")
2438     (synopsis "Hyphenation patterns expressed in UTF-8")
2439     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2440 hyphenation patterns in UTF-8 format, whereas older systems require
2441 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2442 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2443 etc).  The present package offers a collection of conversions of existing
2444 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2445 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2446 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2447 converters, will completely supplant the older patterns.")
2448     ;; Individual files each have their own license.  Most of these files are
2449     ;; independent hyphenation patterns.
2450     (license (list license:lppl1.0+
2451                    license:lppl1.2+
2452                    license:lppl1.3
2453                    license:lppl1.3+
2454                    license:lppl1.3a+
2455                    license:lgpl2.1
2456                    license:lgpl2.1+
2457                    license:lgpl3+
2458                    license:gpl2+
2459                    license:gpl3+
2460                    license:mpl1.1
2461                    license:asl2.0
2462                    license:expat
2463                    license:bsd-3
2464                    license:cc0
2465                    license:public-domain
2466                    license:wtfpl2))))
2467
2468 (define-public texlive-generic-hyph-utf8
2469   (deprecated-package "texlive-generic-hyph-utf8" texlive-hyph-utf8))
2470
2471 (define-public texlive-dehyph-exptl
2472   (package
2473     (inherit (simple-texlive-package
2474               "texlive-dehyph-exptl"
2475               (list "/tex/generic/dehyph-exptl/"
2476                     "/doc/generic/dehyph-exptl/")
2477               (base32
2478                "1fnqc63gz8gvdyfz45bx8dxn1r1rwrypahs3bqd2vlc8ff76xp86")
2479               #:trivial? #t))
2480     (propagated-inputs
2481      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2482        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2483     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2484     (synopsis "Hyphenation patterns for German")
2485     (description "The package provides experimental hyphenation patterns for
2486 the German language, covering both traditional and reformed orthography.  The
2487 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2488 bundle.")
2489     ;; Hyphenation patterns are under the Expat license; documentation is
2490     ;; under LPPL.
2491     (license (list license:expat license:lppl))))
2492
2493 (define-public texlive-generic-dehyph-exptl
2494   (deprecated-package "texlive-generic-dehyph-exptl" texlive-dehyph-exptl))
2495
2496 (define-public texlive-ukrhyph
2497   (package
2498     (inherit (simple-texlive-package
2499               "texlive-ukrhyph"
2500               (list "/doc/generic/ukrhyph/"
2501                     "/tex/generic/ukrhyph/")
2502               (base32
2503                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2504               #:trivial? #t))
2505     (home-page "https://www.ctan.org/pkg/ukrhyph")
2506     (synopsis "Hyphenation patterns for Ukrainian")
2507     (description "The package provides a range of hyphenation patterns for
2508 Ukrainian, depending on the encoding of the output font including the standard
2509 T2A.")
2510     (license license:lppl)))
2511
2512 (define-public texlive-ruhyphen
2513   (let ((template (simple-texlive-package
2514                    "texlive-ruhyphen"
2515                    (list "/source/generic/ruhyphen/"
2516                          "/tex/generic/ruhyphen/")
2517                    (base32
2518                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2519                    #:trivial? #t)))
2520     (package
2521       (inherit template)
2522       (arguments
2523        (substitute-keyword-arguments (package-arguments template)
2524          ((#:phases phases)
2525           `(modify-phases ,phases
2526              (replace 'build
2527                (lambda _
2528                  (let ((cwd (getcwd)))
2529                    ;; Remove generated files.
2530                    (for-each delete-file
2531                              (find-files "tex/generic/ruhyphen/"
2532                                          "^cyry.*.tex$"))
2533                    (substitute* "source/generic/ruhyphen/Makefile"
2534                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2535                    (with-directory-excursion "tex/generic/ruhyphen"
2536                      (invoke "make" "-f"
2537                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2538       (native-inputs
2539        `(("coreutils" ,coreutils)
2540          ("gawk" ,gawk)
2541          ("sed" ,sed)
2542          ("grep" ,grep)
2543          ("perl" ,perl)))
2544       (home-page "https://www.ctan.org/pkg/ruhyphen")
2545       (synopsis "Hyphenation patterns for Russian")
2546       (description "The package provides a collection of Russian hyphenation
2547 patterns supporting a number of Cyrillic font encodings, including T2,
2548 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2549       (license license:lppl))))
2550
2551 (define-public texlive-kpathsea
2552   (package
2553     (inherit (simple-texlive-package
2554               "texlive-kpathsea"
2555               (list "/web2c/amiga-pl.tcx"
2556                     "/web2c/cp1250cs.tcx"
2557                     "/web2c/cp1250pl.tcx"
2558                     "/web2c/cp1250t1.tcx"
2559                     "/web2c/cp227.tcx"
2560                     "/web2c/cp852-cs.tcx"
2561                     "/web2c/cp852-pl.tcx"
2562                     "/web2c/cp8bit.tcx"
2563                     "/web2c/empty.tcx"
2564                     "/web2c/fmtutil.cnf"
2565                     "/web2c/il1-t1.tcx"
2566                     "/web2c/il2-cs.tcx"
2567                     "/web2c/il2-pl.tcx"
2568                     "/web2c/il2-t1.tcx"
2569                     "/web2c/kam-cs.tcx"
2570                     "/web2c/kam-t1.tcx"
2571                     "/web2c/macce-pl.tcx"
2572                     "/web2c/macce-t1.tcx"
2573                     "/web2c/maz-pl.tcx"
2574                     "/web2c/mktex.cnf"
2575                     "/web2c/mktex.opt"
2576                     "/web2c/mktexdir"
2577                     "/web2c/mktexdir.opt"
2578                     "/web2c/mktexnam"
2579                     "/web2c/mktexnam.opt"
2580                     "/web2c/mktexupd"
2581                     "/web2c/natural.tcx"
2582                     "/web2c/tcvn-t5.tcx"
2583                     "/web2c/viscii-t5.tcx")
2584               (base32
2585                "1prvxq211hqfss1bhiykazqfcy298lsz3x8lbmbyrh9c8grnj4ip")
2586               #:trivial? #t))
2587     (home-page "https://www.tug.org/texlive/")
2588     (synopsis "Files related to the path searching library for TeX")
2589     (description "Kpathsea is a library and utility programs which provide
2590 path searching facilities for TeX file types, including the self-locating
2591 feature required for movable installations, layered on top of a general search
2592 mechanism.  This package provides supporting files.")
2593     (license license:lgpl3+)))
2594
2595 (define-public texlive-latexconfig
2596   (package
2597     (inherit (simple-texlive-package
2598               "texlive-latexconfig"
2599               (list "/tex/latex/latexconfig/")
2600               (base32
2601                "10ynmd8b9b9l1wl1mva23yz4zir53p6r5z31s39wmxz19pj12qvx")
2602               #:trivial? #t))
2603     (home-page "https://www.tug.org/")
2604     (synopsis "Configuration files for LaTeX-related formats")
2605     (description "The package provides configuration files for LaTeX-related
2606 formats.")
2607     (license license:lppl)))
2608
2609 (define-public texlive-latex-base
2610   (let ((template (simple-texlive-package
2611                    "texlive-latex-base"
2612                    (list "/doc/latex/base/"
2613                          "/source/latex/base/"
2614                          ;; Almost all files in /tex/latex/base are generated, but
2615                          ;; these are not:
2616                          "/tex/latex/base/idx.tex"
2617                          "/tex/latex/base/lablst.tex"
2618                          "/tex/latex/base/ltnews.cls"
2619                          "/tex/latex/base/ltxcheck.tex"
2620                          "/tex/latex/base/ltxguide.cls"
2621                          "/tex/latex/base/minimal.cls"
2622                          "/tex/latex/base/sample2e.tex"
2623                          "/tex/latex/base/small2e.tex"
2624                          "/tex/latex/base/testpage.tex"
2625                          "/tex/latex/base/texsys.cfg")
2626                    (base32
2627                     "11bcjmn0n7sv7g6r8v6nxl4x1pw0famqmq0v0pbjyz04akhvfvry")
2628                    #:trivial? #t)))
2629     (package
2630       (inherit template)
2631       (arguments
2632        (substitute-keyword-arguments (package-arguments template)
2633          ((#:modules modules '())
2634           '((guix build gnu-build-system)
2635             (guix build utils)
2636             (ice-9 match)
2637             (srfi srfi-26)))
2638          ((#:phases phases)
2639           `(modify-phases ,phases
2640              ;; The literal tab in the dtx file is translated to the string
2641              ;; "^^I" in the generated Lua file, which causes a syntax error.
2642              (add-after 'unpack 'fix-lua-sources
2643                (lambda _
2644                  (substitute* "source/latex/base/ltluatex.dtx"
2645                    (("  ") "  "))
2646                  #t))
2647              (replace 'build
2648                (lambda* (#:key inputs #:allow-other-keys)
2649                  ;; Find required fonts
2650                  (setenv "TFMFONTS"
2651                          (string-join
2652                           (map (match-lambda
2653                                  ((pkg-name . dir)
2654                                   (string-append
2655                                    (assoc-ref inputs pkg-name)
2656                                    "/share/texmf-dist/fonts/tfm/public"
2657                                    dir)))
2658                                '(("texlive-etex" . "/etex")
2659                                  ("texlive-cm" . "/cm")
2660                                  ("texlive-fonts-latex" . "/latex-fonts")
2661                                  ("texlive-knuth-lib" . "/knuth-lib")))
2662                           ":"))
2663                  (let ((cwd (getcwd)))
2664                    (setenv "TEXINPUTS"
2665                            (string-append
2666                             cwd "//:"
2667                             cwd "/source/latex/base//:"
2668                             cwd "/build:"
2669                             (string-join
2670                              (map (match-lambda ((_ . dir) dir)) inputs)
2671                              "//:"))))
2672
2673                  ;; This is the actual build step.
2674                  (mkdir "build")
2675                  (invoke "tex" "-ini" "-interaction=scrollmode"
2676                          "-output-directory=build" "unpack.ins")
2677
2678                  ;; XXX: We can't build all formats at this point, nor are they
2679                  ;; part of the LaTeX base, so we disable them.  Actually, we
2680                  ;; should be running this all in a profile hook, so that only
2681                  ;; selected formats and hyphenation patterns are included, but it
2682                  ;; takes long and TeX Live isn't designed to be modular like
2683                  ;; that.  Everything operates on a shared directory, which we
2684                  ;; would only have at profile generation time.
2685                  (let ((disabled-formats
2686                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2687                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2688                           "platex-dev eptex" "uplatex-dev euptex"
2689                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2690                           "luacsplain luatex" "optex luatex"
2691                           ,@(if (string-prefix? "powerpc64le"
2692                                                 (or (%current-target-system)
2693                                                     (%current-system)))
2694                               '("luajittex") '())
2695                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2696                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2697                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2698                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2699                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2700                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2701                    (mkdir "web2c")
2702                    (install-file (string-append
2703                                   (assoc-ref inputs "texlive-kpathsea")
2704                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2705                                  "web2c")
2706                    (make-file-writable "web2c/fmtutil.cnf")
2707                    (substitute* "web2c/fmtutil.cnf"
2708                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2709                       (string-append "#! " m))
2710                      (("translate-file=cp227")
2711                       (format #f "translate-file=~a/share/texmf-dist/web2c/cp227"
2712                               (assoc-ref inputs "texlive-kpathsea")))))
2713                  (invoke "fmtutil-sys" "--all"
2714                          "--fmtdir=web2c"
2715                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2716                  ;; We don't actually want to install it.
2717                  (delete-file "web2c/fmtutil.cnf")
2718                  #t))
2719              (add-after 'install 'install-more
2720                (lambda* (#:key inputs outputs #:allow-other-keys)
2721                  (let* ((out (assoc-ref outputs "out"))
2722                         (root (string-append out "/share/texmf-dist"))
2723                         (target (string-append root "/tex/latex/base"))
2724                         (web2c (string-append root "/web2c"))
2725                         (makeindex (string-append root "/makeindex/latex")))
2726                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2727
2728                    ;; The usedir directive in docstrip.ins is ignored, so these
2729                    ;; two files end up in the wrong place.  Move them.
2730                    (mkdir-p makeindex)
2731                    (for-each (lambda (file)
2732                                (install-file file makeindex)
2733                                (delete-file file))
2734                              '("build/gglo.ist"
2735                                "build/gind.ist"))
2736                    (for-each (cut install-file <> target)
2737                              (find-files "build" ".*"))
2738                    (for-each (cut install-file <> web2c)
2739                              (find-files "web2c" ".*"))
2740                    #t)))))))
2741       (native-inputs
2742        `(("texlive-bin" ,texlive-bin)
2743          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2744          ("texlive-tex-plain" ,texlive-tex-plain)
2745          ("texlive-kpathsea" ,texlive-kpathsea)
2746          ("texlive-cm" ,texlive-cm)
2747          ("texlive-fonts-latex" ,texlive-fonts-latex)
2748          ("texlive-knuth-lib" ,texlive-knuth-lib)
2749          ("texlive-luatexconfig"
2750           ,(texlive-origin
2751             "texlive-luatexconfig" (number->string %texlive-revision)
2752             (list "/tex/generic/config/luatex-unicode-letters.tex"
2753                   "/tex/generic/config/luatexiniconfig.tex"
2754                   "/web2c/texmfcnf.lua")
2755             (base32
2756              "0pk0ckwd5p58nqmhlajhbgxynym25jmhv48xm5ns540r996k0g2r")))))
2757       (propagated-inputs
2758        `(("texlive-dehyph-exptl" ,texlive-dehyph-exptl)
2759          ("texlive-etex" ,texlive-etex)
2760          ("texlive-hyph-utf8" ,texlive-hyph-utf8)
2761          ("texlive-hyphen-base" ,texlive-hyphen-base)
2762          ("texlive-hyphen-afrikaans" ,texlive-hyphen-afrikaans)
2763          ("texlive-hyphen-ancientgreek" ,texlive-hyphen-ancientgreek)
2764          ("texlive-hyphen-armenian" ,texlive-hyphen-armenian)
2765          ("texlive-hyphen-basque" ,texlive-hyphen-basque)
2766          ("texlive-hyphen-belarusian" ,texlive-hyphen-belarusian)
2767          ("texlive-hyphen-bulgarian" ,texlive-hyphen-bulgarian)
2768          ("texlive-hyphen-catalan" ,texlive-hyphen-catalan)
2769          ("texlive-hyphen-chinese" ,texlive-hyphen-chinese)
2770          ("texlive-hyphen-churchslavonic" ,texlive-hyphen-churchslavonic)
2771          ("texlive-hyphen-coptic" ,texlive-hyphen-coptic)
2772          ("texlive-hyphen-croatian" ,texlive-hyphen-croatian)
2773          ("texlive-hyphen-czech" ,texlive-hyphen-czech)
2774          ("texlive-hyphen-danish" ,texlive-hyphen-danish)
2775          ("texlive-hyphen-dutch" ,texlive-hyphen-dutch)
2776          ("texlive-hyphen-english" ,texlive-hyphen-english)
2777          ("texlive-hyphen-esperanto" ,texlive-hyphen-esperanto)
2778          ("texlive-hyphen-estonian" ,texlive-hyphen-estonian)
2779          ("texlive-hyphen-ethiopic" ,texlive-hyphen-ethiopic)
2780          ("texlive-hyphen-finnish" ,texlive-hyphen-finnish)
2781          ("texlive-hyphen-french" ,texlive-hyphen-french)
2782          ("texlive-hyphen-friulan" ,texlive-hyphen-friulan)
2783          ("texlive-hyphen-galician" ,texlive-hyphen-galician)
2784          ("texlive-hyphen-georgian" ,texlive-hyphen-georgian)
2785          ("texlive-hyphen-german" ,texlive-hyphen-german)
2786          ("texlive-hyphen-greek" ,texlive-hyphen-greek)
2787          ("texlive-hyphen-hungarian" ,texlive-hyphen-hungarian)
2788          ("texlive-hyphen-icelandic" ,texlive-hyphen-icelandic)
2789          ("texlive-hyphen-indic" ,texlive-hyphen-indic)
2790          ("texlive-hyphen-indonesian" ,texlive-hyphen-indonesian)
2791          ("texlive-hyphen-interlingua" ,texlive-hyphen-interlingua)
2792          ("texlive-hyphen-irish" ,texlive-hyphen-irish)
2793          ("texlive-hyphen-italian" ,texlive-hyphen-italian)
2794          ("texlive-hyphen-kurmanji" ,texlive-hyphen-kurmanji)
2795          ("texlive-hyphen-latin" ,texlive-hyphen-latin)
2796          ("texlive-hyphen-latvian" ,texlive-hyphen-latvian)
2797          ("texlive-hyphen-lithuanian" ,texlive-hyphen-lithuanian)
2798          ("texlive-hyphen-macedonian" ,texlive-hyphen-macedonian)
2799          ("texlive-hyphen-mongolian" ,texlive-hyphen-mongolian)
2800          ("texlive-hyphen-norwegian" ,texlive-hyphen-norwegian)
2801          ("texlive-hyphen-occitan" ,texlive-hyphen-occitan)
2802          ("texlive-hyphen-pali" ,texlive-hyphen-pali)
2803          ("texlive-hyphen-piedmontese" ,texlive-hyphen-piedmontese)
2804          ("texlive-hyphen-polish" ,texlive-hyphen-polish)
2805          ("texlive-hyphen-portuguese" ,texlive-hyphen-portuguese)
2806          ("texlive-hyphen-romanian" ,texlive-hyphen-romanian)
2807          ("texlive-hyphen-romansh" ,texlive-hyphen-romansh)
2808          ("texlive-hyphen-russian" ,texlive-hyphen-russian)
2809          ("texlive-hyphen-sanskrit" ,texlive-hyphen-sanskrit)
2810          ("texlive-hyphen-serbian" ,texlive-hyphen-serbian)
2811          ("texlive-hyphen-slovak" ,texlive-hyphen-slovak)
2812          ("texlive-hyphen-slovenian" ,texlive-hyphen-slovenian)
2813          ("texlive-hyphen-spanish" ,texlive-hyphen-spanish)
2814          ("texlive-hyphen-swedish" ,texlive-hyphen-swedish)
2815          ("texlive-hyphen-thai" ,texlive-hyphen-thai)
2816          ("texlive-hyphen-turkish" ,texlive-hyphen-turkish)
2817          ("texlive-hyphen-turkmen" ,texlive-hyphen-turkmen)
2818          ("texlive-hyphen-ukrainian" ,texlive-hyphen-ukrainian)
2819          ("texlive-hyphen-uppersorbian" ,texlive-hyphen-uppersorbian)
2820          ("texlive-hyphen-welsh" ,texlive-hyphen-welsh)
2821          ("texlive-unicode-data" ,texlive-unicode-data)
2822          ("texlive-ukrhyph" ,texlive-ukrhyph)
2823          ("texlive-ruhyphen" ,texlive-ruhyphen)
2824          ("texlive-latexconfig" ,texlive-latexconfig)))
2825       (home-page "https://www.ctan.org/pkg/latex-base")
2826       (synopsis "Base sources of LaTeX")
2827       (description
2828        "This bundle comprises the source of LaTeX itself, together with several
2829 packages which are considered \"part of the kernel\".  This bundle, together
2830 with the required packages, constitutes what every LaTeX distribution should
2831 contain.")
2832       (license license:lppl1.3c+))))
2833
2834 (define-public texlive-latex-atveryend
2835   (package
2836     (inherit (simple-texlive-package
2837               "texlive-latex-atveryend"
2838               '("/doc/latex/atveryend/README.md"
2839                 "/tex/latex/atveryend/")
2840               (base32
2841                "1gz5ssxjlqa53a8blsmdk2qjahzc910ldh26xjxfxgqnqb03rqx7")
2842               #:trivial? #t))
2843     (home-page "https://www.ctan.org/pkg/atveryend")
2844     (synopsis "Hooks at the very end of a document")
2845     (description
2846      "This LaTeX packages provides two hooks for @code{\\end@{document@}
2847 that are executed after the hook of @code{\\AtEndDocument}:
2848 @code{\\AfterLastShipout} can be used for code that is to be executed right
2849 after the last @code{\\clearpage} before the @file{.aux} file is closed.
2850 @code{\\AtVeryEndDocument} is used for code after closing and final reading
2851 of the @file{.aux} file.")
2852     (license license:lppl1.3c+)))
2853
2854 (define-public texlive-latex-auxhook
2855   (package
2856     (inherit (simple-texlive-package
2857               "texlive-latex-auxhook"
2858               '("/doc/latex/auxhook/README.md"
2859                 "/tex/latex/auxhook/")
2860               (base32
2861                "1xh445shr00rh43nnz03xh8k2mdrxgsr03lllqpgvwhm6yzsydkf")
2862               #:trivial? #t))
2863     (home-page "https://www.ctan.org/pkg/auxhook")
2864     (synopsis "Hooks for auxiliary files")
2865     (description
2866      "This package provides hooks for adding code at the beginning of
2867 @file{.aux} files.")
2868     (license license:lppl1.3c+)))
2869
2870 (define-public texlive-latex-epstopdf-pkg
2871   (package
2872     (inherit (simple-texlive-package
2873               "texlive-latex-epstopdf-pkg"
2874               '("/doc/latex/epstopdf-pkg/"
2875                 "/tex/latex/epstopdf-pkg/")
2876               (base32
2877                "0zl6jiyp2cvvyqx3lwxdkcvvnkqgbwj4issq07cagf61gljq6fns")
2878               #:trivial? #t))
2879     (home-page "https://www.ctan.org/pkg/epstopdf-pkg")
2880     (synopsis "Call @command{epstopdf} \"on the fly\"")
2881     (description
2882      "The package adds support for EPS files in the @code{graphicx} package
2883 when running under pdfTeX.  If an EPS graphic is detected, the package
2884 spawns a process to convert the EPS to PDF, using the script
2885 @command{epstopdf}.")
2886     (license license:lppl1.3c+)))
2887
2888 (define-public texlive-latex-filecontents
2889   (package
2890     (name "texlive-latex-filecontents")
2891     (version (number->string %texlive-revision))
2892     (source (origin
2893               (method svn-fetch)
2894               (uri (texlive-ref "latex" "filecontents"))
2895               (file-name (string-append name "-" version "-checkout"))
2896               (sha256
2897                (base32
2898                 "1cmfigg5jx3hmdyh4gv8kwxi7dg076ldkxmr46s05xvhzjig1z9x"))))
2899     (build-system texlive-build-system)
2900     (arguments '(#:tex-directory "latex/filecontents"))
2901     (home-page "https://www.ctan.org/pkg/filecontents")
2902     (synopsis "Extended filecontents and filecontents* environments")
2903     (description
2904      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2905 enable a LaTeX source file to generate external files as it runs through
2906 LaTeX.  However, there are two limitations of these environments: they refuse
2907 to overwrite existing files, and they can only be used in the preamble of a
2908 document.  The filecontents package removes these limitations, letting you
2909 overwrite existing files and letting you use @code{filecontents} /
2910 @code{filecontents*} anywhere.")
2911     (license license:lppl1.3c+)))
2912
2913 (define-public texlive-epsf
2914   (package
2915     (inherit (simple-texlive-package
2916               "texlive-epsf"
2917               (list "/doc/generic/epsf/"
2918                     "/tex/generic/epsf/")
2919               (base32
2920                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
2921               #:trivial? #t))
2922     (home-page "https://www.ctan.org/pkg/epsf")
2923     (synopsis "Simple macros for EPS inclusion")
2924     (description
2925      "This package provides the original (and now obsolescent) graphics
2926 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2927 particular).  For LaTeX users, the package is nowadays (rather strongly)
2928 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2929 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2930 users, via its Plain TeX version.)")
2931     (license license:public-domain)))
2932
2933 (define-public texlive-generic-epsf
2934   (deprecated-package "texlive-generic-epsf" texlive-epsf))
2935
2936 (define-public texlive-latex-fancyvrb
2937   (package
2938     (inherit (simple-texlive-package
2939               "texlive-latex-fancyvrb"
2940               (list "/doc/latex/fancyvrb/README"
2941                     "/tex/latex/fancyvrb/")
2942               (base32
2943                "005ylzlysmvy21rwkbnrf0hnp5bmsjsj11hydg1d9dnq9ffv2s1h")
2944               #:trivial? #t))
2945     (home-page "https://www.ctan.org/pkg/fancyvrb")
2946     (synopsis "Sophisticated verbatim text")
2947     (description
2948      "This package provides tools for the flexible handling of verbatim text
2949 including: verbatim commands in footnotes; a variety of verbatim environments
2950 with many parameters; ability to define new customized verbatim environments;
2951 save and restore verbatim text and environments; write and read files in
2952 verbatim mode; build \"example\" environments (showing both result and
2953 verbatim source).")
2954     (license license:lppl1.0+)))
2955
2956 (define-public texlive-graphics-def
2957   (package
2958     (inherit (simple-texlive-package
2959               "texlive-graphics-def"
2960               (list "/doc/latex/graphics-def/README.md"
2961                     "/tex/latex/graphics-def/")
2962               (base32
2963                "125lm2m9813p29yl7am21kgqdpigyqvrjarg73jpaczifbbbqklf")
2964               #:trivial? #t))
2965     (propagated-inputs
2966      `(("texlive-latex-epstopdf-pkg" ,texlive-latex-epstopdf-pkg)))
2967     (home-page "https://www.ctan.org/pkg/latex-graphics")
2968     (synopsis "Color and graphics option files")
2969     (description
2970      "This bundle is a combined distribution consisting of @file{dvips.def},
2971 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
2972 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
2973 packages.")
2974     (license license:lppl1.3c+)))
2975
2976 (define-public texlive-graphics-cfg
2977   (package
2978     (inherit (simple-texlive-package
2979               "texlive-graphics-cfg"
2980               (list "/doc/latex/graphics-cfg/README.md"
2981                     "/tex/latex/graphics-cfg/")
2982               (base32
2983                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
2984               #:trivial? #t))
2985     (home-page "https://www.ctan.org/pkg/latex-graphics")
2986     (synopsis "Sample configuration files for LaTeX color and graphics")
2987     (description
2988      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
2989 set default \"driver\" options for the color and graphics packages.")
2990     (license license:public-domain)))
2991
2992 (define-public texlive-latex-graphics
2993   (package
2994     (name "texlive-latex-graphics")
2995     (version (number->string %texlive-revision))
2996     (source (origin
2997               (method svn-fetch)
2998               (uri (texlive-ref "latex" "graphics"))
2999               (file-name (string-append name "-" version "-checkout"))
3000               (sha256
3001                (base32
3002                 "0asln498brkd1miyhc7029fjx7gcj6vbbas5aan6w289ac4yz54h"))))
3003     (build-system texlive-build-system)
3004     (arguments '(#:tex-directory "latex/graphics"))
3005     (propagated-inputs
3006      `(("texlive-graphics-cfg" ,texlive-graphics-cfg)
3007        ("texlive-graphics-def" ,texlive-graphics-def)))
3008     (home-page "https://www.ctan.org/pkg/latex-graphics")
3009     (synopsis "LaTeX standard graphics bundle")
3010     (description
3011      "This is a collection of LaTeX packages for producing color, including
3012 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
3013 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
3014 keyval, and lscape.")
3015     (license license:lppl1.3c+)))
3016
3017 (define-public texlive-latex-hycolor
3018   (package
3019     (inherit (simple-texlive-package
3020               "texlive-latex-hycolor"
3021               (list "/doc/latex/hycolor/README.md"
3022                     "/tex/latex/hycolor/")
3023               (base32
3024                "026lfb4l7b3q8g6zc68siqandhb1x98cbycn7njknqva6s99aiqn")
3025               #:trivial? #t))
3026     (home-page "https://www.ctan.org/pkg/latex-graphics")
3027     (synopsis "Color for hyperref and bookmark")
3028     (description
3029      "This package provides the code for the @code{color} option that is
3030 used by @code{hyperref} and @code{bookmark}.")
3031     (license license:lppl1.3c+)))
3032
3033 (define-public texlive-xcolor
3034   (let ((template (simple-texlive-package
3035                    "texlive-xcolor"
3036                    (list "/doc/latex/xcolor/"
3037                          "/source/latex/xcolor/")
3038                    (base32
3039                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
3040     (package
3041       (inherit template)
3042       (arguments
3043        (substitute-keyword-arguments (package-arguments template)
3044          ((#:tex-directory _ #t)
3045           "latex/xcolor")
3046          ((#:phases phases)
3047           `(modify-phases ,phases
3048              (add-after 'unpack 'chdir
3049                (lambda _ (chdir "source/latex/xcolor") #t))
3050              (add-after 'install 'move-files
3051                (lambda* (#:key outputs #:allow-other-keys)
3052                  (let ((share (string-append (assoc-ref outputs "out")
3053                                              "/share/texmf-dist")))
3054                    (mkdir-p (string-append share "/dvips/xcolor"))
3055                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
3056                                 (string-append share "/dvips/xcolor/xcolor.pro"))
3057                    #t)))))))
3058       (home-page "https://www.ctan.org/pkg/xcolor")
3059       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
3060       (description
3061        "The package starts from the basic facilities of the colorcolor package,
3062 and provides easy driver-independent access to several kinds of color tints,
3063 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
3064 document-wide target color model and offers complete tools for conversion
3065 between eight color models.  Additionally, there is a command for alternating
3066 row colors plus repeated non-aligned material (like horizontal lines) in
3067 tables.")
3068       (license license:lppl1.2+))))
3069
3070 (define-public texlive-latex-xcolor
3071   (deprecated-package "texlive-latex-xcolor" texlive-xcolor))
3072
3073 (define-public texlive-xmltex
3074   (let ((template (simple-texlive-package
3075                    "texlive-xmltex"
3076                    (list
3077                     "/doc/otherformats/xmltex/"
3078                     "/tex/xmltex/")
3079                    (base32
3080                     "023gv9axq05vwqz50fnkig24dzahwlc4raks2s8xc4pzrv2dv1zy"))))
3081     (package
3082       (inherit template)
3083       (arguments
3084        (substitute-keyword-arguments (package-arguments template)
3085          ((#:tex-directory _ #t)
3086           "tex/xmltex/base")
3087          ((#:phases phases '%standard-phases)
3088           `(modify-phases ,phases
3089              (add-before 'install 'generate-formats
3090                (lambda* (#:key inputs #:allow-other-keys)
3091                  (mkdir "web2c")
3092                  (for-each (lambda (f)
3093                              (copy-file f (basename f)))
3094                            (find-files "tex" "\\.(ini|tex)$"))
3095                  (invoke "fmtutil-sys" "--byfmt" "xmltex"
3096                          "--fmtdir=web2c")
3097                  (invoke "fmtutil-sys" "--byfmt" "pdfxmltex"
3098                          "--fmtdir=web2c")))
3099              (add-after 'install 'install-formats-and-wrappers
3100                (lambda* (#:key inputs outputs #:allow-other-keys)
3101                  (let* ((out (assoc-ref outputs "out"))
3102                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3103                         (pdftex (string-append texlive-bin "/bin/pdftex"))
3104                         (web2c (string-append out "/share/texmf-dist/web2c")))
3105                    (mkdir-p web2c)
3106                    (copy-recursively "web2c" web2c)
3107                    ;; Create convenience command wrappers.
3108                    (mkdir-p (string-append out "/bin"))
3109                    (symlink pdftex (string-append out "/bin/xmltex"))
3110                    (symlink pdftex (string-append out "/bin/pdfxmltex"))
3111                    #t)))))))
3112       (propagated-inputs
3113        ;; The following fonts are propagated as a texlive-updmap.cfg as the font
3114        ;; maps need to be recreated for the fonts to be usable.  They are
3115        ;; required by xmltex through mlnames.sty and unicode.sty.
3116        `(("texlive" ,(texlive-updmap.cfg
3117                       (list
3118                        texlive-amsfonts
3119                        texlive-babel
3120                        texlive-courier
3121                        texlive-helvetic
3122                        texlive-hyperref
3123                        texlive-symbol
3124                        texlive-tipa
3125                        texlive-times
3126                        texlive-zapfding
3127                        ;; The following fonts, while not required, are used if
3128                        ;; available:
3129                        texlive-stmaryrd
3130                        texlive-wasy)))))
3131       (native-inputs
3132        `(("texlive-tex-ini-files" ,texlive-tex-ini-files)))
3133       (home-page "https://www.ctan.org/pkg/xmltex/")
3134       (synopsis "Support for parsing XML documents")
3135       (description "The package provides an implementation of a parser for
3136 documents matching the XML 1.0 and XML Namespace Recommendations.  Element and
3137 attribute names, as well as character data, may use any characters allowed in
3138 XML, using UTF-8 or a suitable 8-bit encoding.")
3139       (license license:lppl1.0+))))        ;per xmltex/base/readme.txt
3140
3141 (define-public texlive-hyperref
3142   (let ((template (simple-texlive-package
3143                    "texlive-hyperref"
3144                    (list "/doc/latex/hyperref/"
3145                          "/source/latex/hyperref/"
3146                          ;; These files are not generated from the sources
3147                          "/tex/latex/hyperref/minitoc-hyper.sty"
3148                          "/tex/latex/hyperref/ntheorem-hyper.sty"
3149                          "/tex/latex/hyperref/xr-hyper.sty")
3150                    (base32
3151                     "1d9myrrwf9zr62j5vp9q4drxs7rj4b06wq04imrnzban5s4gaq6v"))))
3152     (package
3153       (inherit template)
3154       (arguments
3155        (substitute-keyword-arguments (package-arguments template)
3156          ((#:tex-directory _ #t)
3157           "latex/hyperref")
3158          ((#:phases phases)
3159           `(modify-phases ,phases
3160              (add-after 'unpack 'chdir
3161                (lambda _ (chdir "source/latex/hyperref") #t))))))
3162       (propagated-inputs
3163        `(("texlive-generic-atbegshi" ,texlive-generic-atbegshi)
3164          ("texlive-generic-bitset" ,texlive-generic-bitset)
3165          ("texlive-generic-etexcmds" ,texlive-generic-etexcmds)
3166          ("texlive-generic-gettitlestring" ,texlive-generic-gettitlestring)
3167          ("texlive-generic-iftex" ,texlive-generic-iftex)
3168          ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
3169          ("texlive-generic-intcalc" ,texlive-generic-intcalc)
3170          ("texlive-generic-kvdefinekeys" ,texlive-generic-kvdefinekeys)
3171          ("texlive-generic-kvsetkeys" ,texlive-generic-kvsetkeys)
3172          ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)
3173          ("texlive-generic-pdfescape" ,texlive-generic-pdfescape)
3174          ("texlive-latex-auxhook" ,texlive-latex-auxhook)
3175          ("texlive-latex-atveryend" ,texlive-latex-atveryend)
3176          ("texlive-latex-hycolor" ,texlive-latex-hycolor)
3177          ("texlive-latex-kvoptions" ,texlive-latex-kvoptions)
3178          ("texlive-latex-letltxmacro" ,texlive-latex-letltxmacro)
3179          ("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)
3180          ("texlive-latex-refcount" ,texlive-latex-refcount)
3181          ("texlive-latex-rerunfilecheck" ,texlive-latex-rerunfilecheck)
3182          ("texlive-latex-url" ,texlive-latex-url)))
3183       (home-page "https://www.ctan.org/pkg/hyperref")
3184       (synopsis "Extensive support for hypertext in LaTeX")
3185       (description
3186        "The @code{hyperref} package is used to handle cross-referencing commands
3187 in LaTeX to produce hypertext links in the document.  The package provides
3188 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
3189 embedded @code{pdfmark} commands for processing by Acrobat
3190 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
3191 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
3192 pdf and HTML backends.  The package is distributed with the @code{backref} and
3193 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
3194       (license license:lppl1.3+))))
3195
3196 (define-public texlive-latex-hyperref
3197   (deprecated-package "texlive-latex-hyperref" texlive-hyperref))
3198
3199 (define-public texlive-oberdiek
3200   (package
3201     (name "texlive-oberdiek")
3202     (version (number->string %texlive-revision))
3203     (source (origin
3204               (method svn-fetch)
3205               (uri (texlive-ref "latex" "oberdiek"))
3206               (file-name (string-append name "-" version "-checkout"))
3207               (sha256
3208                (base32
3209                 "1ff6yjchdmn7lyllfrnxygjr2ipkrjbb1rs5iyryn47rc3r8mpmk"))))
3210     (build-system texlive-build-system)
3211     (arguments
3212      '(#:tex-directory "latex/oberdiek"
3213        #:build-targets '("oberdiek.ins")
3214        #:phases
3215        (modify-phases %standard-phases
3216          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
3217          (add-after 'unpack 'do-not-process-ifpdf.ins
3218            (lambda _
3219              (substitute* "oberdiek.ins"
3220                (("ifpdf.ins") "ifpdf.dtx"))
3221              #t)))))
3222     (propagated-inputs
3223      `(("texlive-generic-iftex" ,texlive-generic-iftex)))
3224     (home-page "https://www.ctan.org/pkg/oberdiek")
3225     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
3226     (description
3227      "The bundle comprises various LaTeX packages, providing among others:
3228 better accessibility support for PDF files; extensible chemists reaction
3229 arrows; record information about document class(es) used; and many more.")
3230     (license license:lppl1.3+)))
3231
3232 (define-public texlive-latex-oberdiek
3233   (deprecated-package "texlive-latex-oberdiek" texlive-oberdiek))
3234
3235 (define-public texlive-latex-rerunfilecheck
3236   (package
3237     (inherit (simple-texlive-package
3238               "texlive-latex-rerunfilecheck"
3239               '("/doc/latex/rerunfilecheck/"
3240                 "/tex/latex/rerunfilecheck/")
3241               (base32
3242                "1myz0d5bxhxvl4220ikywh921qld8n324kk9kscqbc5iw4063g56")
3243               #:trivial? #t))
3244     (propagated-inputs
3245      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
3246        ("texlive-generic-uniquecounter" ,texlive-generic-uniquecounter)
3247        ("texlive-latex-atveryend" ,texlive-latex-atveryend)
3248        ("texlive-latex-kvoptions" ,texlive-latex-kvoptions)
3249        ("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)))
3250     (home-page "https://www.ctan.org/pkg/rerunfilecheck")
3251     (synopsis "Checksum based rerun checks on auxiliary files")
3252     (description
3253      "This package provides additional rerun warnings if some auxiliary
3254 files have changed.  It is based on MD5 checksum, provided by pdfTeX.")
3255     (license license:lppl1.3c+)))
3256
3257 (define-public texlive-latex-tools
3258   (package
3259     (name "texlive-latex-tools")
3260     (version (number->string %texlive-revision))
3261     (source (origin
3262               (method svn-fetch)
3263               (uri (texlive-ref "latex" "tools"))
3264               (file-name (string-append name "-" version "-checkout"))
3265               (sha256
3266                (base32
3267                 "1p92bg1wdlg28m7xbdipx8rxavvpbmsx8zy845bk2rdqhc9gbhkl"))))
3268     (build-system texlive-build-system)
3269     (arguments
3270      '(#:tex-directory "latex/tools"
3271        #:build-targets '("tools.ins")
3272        #:phases (modify-phases %standard-phases
3273                   (add-after 'install 'provide-array-2016-10-06.sty
3274                     (lambda* (#:key outputs #:allow-other-keys)
3275                       ;; XXX: array.sty does:
3276                       ;;  "DeclareRelease{}{2016-10-06}{array-2016-10-06.sty}"
3277                       ;; ...which causes some users (hypre) to look for that
3278                       ;; file specifically.  Provide it.
3279                       (with-directory-excursion (string-append
3280                                                  (assoc-ref outputs "out")
3281                                                  "/share/texmf-dist/tex"
3282                                                  "/latex/tools")
3283                         (symlink "array.sty" "array-2016-10-06.sty")))))))
3284     (home-page "https://www.ctan.org/pkg/latex-tools")
3285     (synopsis "LaTeX standard tools bundle")
3286     (description
3287      "This package is a collection of (variously) simple tools provided as
3288 part of the LaTeX required tools distribution, comprising the following
3289 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
3290 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
3291 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
3292 xr, and xspace.")
3293     (license license:lppl1.3+)))
3294
3295 (define-public texlive-url
3296   (package
3297     (inherit (simple-texlive-package
3298               "texlive-url"
3299               (list "/doc/latex/url/"
3300                     "/tex/latex/url/")
3301               (base32
3302                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
3303               #:trivial? #t))
3304     (home-page "https://www.ctan.org/pkg/url")
3305     (synopsis "Verbatim with URL-sensitive line breaks")
3306     (description "The command @code{\\url} is a form of verbatim command that
3307 allows linebreaks at certain characters or combinations of characters, accepts
3308 reconfiguration, and can usually be used in the argument to another command.
3309 The command is intended for email addresses, hypertext links,
3310 directories/paths, etc., which normally have no spaces, so by default the
3311 package ignores spaces in its argument.  However, a package option allows
3312 spaces, which is useful for operating systems where spaces are a common part
3313 of file names.")
3314     ;; The license header states that it is under LPPL version 2 or later, but
3315     ;; the latest version is 1.3c.
3316     (license license:lppl1.3c+)))
3317
3318 (define-public texlive-latex-url
3319   (deprecated-package "texlive-latex-url" texlive-url))
3320
3321 (define-public texlive-tetex
3322   (package
3323     (inherit (simple-texlive-package
3324               "texlive-tetex"
3325               (list "/dvips/tetex/"
3326                     "/fonts/enc/dvips/tetex/"
3327                     "/fonts/map/dvips/tetex/")
3328               (base32
3329                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
3330               #:trivial? #t))
3331     (home-page "https://www.ctan.org/pkg/tetex")
3332     (synopsis "Font maps originally from teTeX")
3333     (description "This package provides font maps that were originally part of
3334 the now obsolete teTeX distributions but are still used at the core of the TeX
3335 Live distribution.")
3336     (license license:public-domain)))
3337
3338 (define-public texlive-latex-l3kernel
3339   (package
3340     (name "texlive-latex-l3kernel")
3341     (version (number->string %texlive-revision))
3342     (source (origin
3343               (method svn-fetch)
3344               (uri (texlive-ref "latex" "l3kernel"))
3345               (file-name (string-append name "-" version "-checkout"))
3346               (sha256
3347                (base32
3348                 "0w82d5a4d3rc950ms6ymj4mpw5ndz6qs5x53szcfgzgjxsns9l4w"))))
3349     (build-system texlive-build-system)
3350     (arguments
3351      '(#:tex-directory "latex/l3kernel"))
3352     (home-page "https://www.ctan.org/pkg/l3kernel")
3353     (synopsis "LaTeX3 programmers’ interface")
3354     (description
3355      "The l3kernel bundle provides an implementation of the LaTeX3
3356 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
3357 interface provides the foundation on which the LaTeX3 kernel and other future
3358 code are built: it is an API for TeX programmers.  The packages are set up so
3359 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
3360     (license license:lppl1.3c+)))
3361
3362 (define-public texlive-latex-l3packages
3363   (package
3364     (name "texlive-latex-l3packages")
3365     (version (number->string %texlive-revision))
3366     (source (origin
3367               (method svn-fetch)
3368               (uri (texlive-ref "latex" "l3packages"))
3369               (file-name (string-append name "-" version "-checkout"))
3370               (sha256
3371                (base32
3372                 "15m3ly55gj8hk5xrkpw5bkj0ddwkk4v7qxa6sl3rkymdka1xl3cc"))))
3373     (build-system texlive-build-system)
3374     (arguments
3375      '(#:tex-directory "latex/l3packages"
3376        ;; build-targets must be specified manually since they are in
3377        ;; sub-directories.
3378        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
3379        #:phases
3380        (modify-phases %standard-phases
3381          ;; All package sources are in sub-directories, so we need to add them
3382          ;; to TEXINPUTS.
3383          (add-after 'unpack 'set-TEXINPUTS
3384            (lambda _
3385              (let ((cwd (getcwd)))
3386                (setenv "TEXINPUTS"
3387                        (string-append cwd "/l3keys2e:"
3388                                       cwd "/xparse:"
3389                                       cwd "/xfrac:"
3390                                       cwd "/xfp:"
3391                                       cwd "/xtemplate"
3392                                       ;; The terminating ":" is required to include the
3393                                       ;; l3kernel input as well.
3394                                       ":")))
3395              #t)))
3396        ))
3397     (propagated-inputs
3398      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
3399     (home-page "https://www.ctan.org/pkg/l3packages")
3400     (synopsis "High-level LaTeX3 concepts")
3401     (description
3402      "This bundle holds prototype implementations of concepts for a LaTeX
3403 designer interface, to be used with the experimental LaTeX kernel as
3404 programming tools and kernel support.  Packages provided in this release are:
3405
3406 @enumerate
3407 @item l3keys2e, which makes the facilities of the kernel module l3keys
3408   available for use by LaTeX 2e packages;
3409 @item xfrac, which provides flexible splitlevel fractions;
3410 @item xparse, which provides a high-level interface for declaring document
3411   commands; and
3412 @item xtemplate, which provides a means of defining generic functions using a
3413   key-value syntax.
3414 @end enumerate\n")
3415     (license license:lppl1.3c+)))
3416
3417 (define-public texlive-fontspec
3418   (let ((template (simple-texlive-package
3419                    "texlive-fontspec"
3420                    (list "/doc/latex/fontspec/"
3421                          "/source/latex/fontspec/"
3422                          "/tex/latex/fontspec/fontspec.cfg")
3423                    (base32
3424                     "06rms8dw1j67v3rgv6xmfykdmgbxi5rp78yxc782cy1sw07blgsg"))))
3425     (package
3426       (inherit template)
3427       (arguments
3428        (substitute-keyword-arguments (package-arguments template)
3429          ((#:tex-directory _ #t)
3430           "latex/fontspec")
3431          ((#:phases phases)
3432           `(modify-phases ,phases
3433              (add-after 'unpack 'chdir
3434                (lambda _ (chdir "source/latex/fontspec/") #t))))))
3435       (propagated-inputs
3436        `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
3437       (home-page "https://www.ctan.org/pkg/fontspec")
3438       (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3439       (description
3440        "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3441 automatic and unified interface to feature-rich AAT and OpenType fonts through
3442 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3443 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3444       (license license:lppl1.3+))))
3445
3446 (define-public texlive-latex-fontspec
3447   (deprecated-package "texlive-latex-fontspec" texlive-fontspec))
3448
3449 (define-public texlive-l3build
3450   (let ((template (simple-texlive-package
3451                    "texlive-l3build"
3452                    (list "/doc/latex/l3build/"
3453                          "/doc/man/man1/l3build.1"
3454                          "/scripts/l3build/"
3455                          "/tex/latex/l3build/"
3456                          ;; TODO: The dtx file builds only the documentation.
3457                          ;; We avoid this for a simpler package definition,
3458                          ;; but it may be possible to exclude
3459                          ;; /doc/latex/l3build and the man page in the future.
3460                          "/source/latex/l3build/")
3461                    (base32
3462                     "0hqb0f5rpj3mfmxfyn8cgxrm1j5ij466a9y23s0xxpmv11ma5i0i")
3463                    #:trivial? #t)))
3464     (package
3465       (inherit template)
3466       (arguments
3467        (substitute-keyword-arguments (package-arguments template)
3468          ((#:phases phases)
3469           `(modify-phases ,phases
3470              (add-after 'install 'patch-shebangs-again
3471                (lambda* (#:key inputs outputs #:allow-other-keys)
3472                  ;; XXX: Since the 'patch-shebangs' phase cannot change the
3473                  ;; original source files patch the shebangs again here.
3474                  (let* ((coreutils (assoc-ref inputs "coreutils"))
3475                         (texlive-bin (assoc-ref inputs "texlive-bin"))
3476                         (path (list (string-append coreutils "/bin")
3477                                     (string-append texlive-bin "/bin"))))
3478                    (for-each (lambda (file)
3479                                (format #t "~a~%" file)
3480                                (patch-shebang file path))
3481                              (find-files (assoc-ref outputs "out")))
3482                    #t)))))))
3483       (inputs
3484        `(("coreutils" ,coreutils)
3485          ("texlive-bin" ,texlive-bin)))
3486       (home-page "https://github.com/latex3/luaotfload")
3487       (synopsis "Testing and building system for LaTeX")
3488       (description
3489        "The l3build module is designed to support the development of
3490 high-quality LaTeX code by providing: a unit testing system, automated
3491 typesetting of code sources, and a reliable packaging system for CTAN
3492 releases.  The bundle consists of a Lua script to run the tasks and a
3493 @code{.tex} file which provides the testing environment.")
3494       (license license:lppl1.3c+))))
3495
3496 ;; The SVN directory contains little more than a dtx file that generates three
3497 ;; of the many lua files that should be installed as part of this package.
3498 ;; This is why we take the release from GitHub instead.
3499 (define-public texlive-luatex-lualibs
3500   (package
3501     (name "texlive-luatex-lualibs")
3502     (version "2.5")
3503     (source (origin
3504               (method url-fetch)
3505               (uri (string-append "https://github.com/lualatex/lualibs/"
3506                                   "releases/download/v"
3507                                   version "/lualibs.zip"))
3508               (file-name (string-append name "-" version ".zip"))
3509               (sha256
3510                (base32
3511                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
3512     (build-system gnu-build-system)
3513     (arguments
3514      `(#:make-flags
3515        (list (string-append "DESTDIR="
3516                             (assoc-ref %outputs "out")
3517                             "/share/texmf-dist"))
3518        #:phases
3519        (modify-phases %standard-phases
3520          (delete 'configure))))
3521     (native-inputs
3522      `(("texlive-bin" ,texlive-bin)
3523        ("unzip" ,unzip)
3524        ("zip" ,zip)))
3525     (home-page "https://github.com/lualatex/lualibs")
3526     (synopsis "Lua modules for general programming (in the (La)TeX world)")
3527     (description
3528      "Lualibs is a collection of Lua modules useful for general programming.
3529 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3530 this bundle for use independent of ConTeXt.")
3531     ;; GPL version 2 only
3532     (license license:gpl2)))
3533
3534 ;; TODO: We should be able to build this from the sources on Github with
3535 ;; texlive-l3build, but I haven't been able to get it to work.
3536 (define-public texlive-luaotfload
3537   (let ((template (simple-texlive-package
3538                    "texlive-luaotfload"
3539                    (list "/doc/luatex/luaotfload/"
3540                          "/doc/man/man1/luaotfload-tool.1"
3541                          "/doc/man/man5/luaotfload.conf.5"
3542                          "/source/luatex/luaotfload/fontloader-reference-load-order.lua"
3543                          "/source/luatex/luaotfload/fontloader-reference-load-order.tex"
3544                          "/scripts/luaotfload/luaotfload-tool.lua"
3545                          "/tex/luatex/luaotfload/")
3546                    (base32
3547                     "0a07m8gckkhzj30rjglj4abpx6pqhl9bx4vq2ak29k0wa3s9rm76")
3548                    #:trivial? #t)))
3549     (package
3550       (inherit template)
3551       (propagated-inputs
3552        `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3553       (home-page "https://github.com/lualatex/luaotfload")
3554       (synopsis "OpenType font loader for LuaTeX")
3555       (description
3556        "Luaotfload is an adaptation of the ConTeXt font loading system for the
3557 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3558 features accessible using an extended font request syntax while providing
3559 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3560 loading fonts by their proper names instead of file names.")
3561       ;; GPL version 2 only
3562       (license license:gpl2))))
3563
3564 (define-public texlive-luatex-luaotfload
3565   (deprecated-package "texlive-luatex-luaotfload" texlive-luaotfload))
3566
3567 (define-public texlive-latex-amsmath
3568   (package
3569     (name "texlive-latex-amsmath")
3570     (version (number->string %texlive-revision))
3571     (source (origin
3572               (method svn-fetch)
3573               (uri (texlive-ref "latex" "amsmath"))
3574               (file-name (string-append name "-" version "-checkout"))
3575               (sha256
3576                (base32
3577                 "1jx4sd35iwcr5qpvnirshp4rdffqq09k6sbmhwxi8kkir4x5hkmc"))))
3578     (build-system texlive-build-system)
3579     (arguments '(#:tex-directory "latex/amsmath"))
3580     (home-page "https://www.ctan.org/pkg/amsmath")
3581     (synopsis "AMS mathematical facilities for LaTeX")
3582     (description
3583      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3584 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3585 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3586 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3587 symbols), @code{amsopnamsopn} (for operator names) and
3588 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3589 This package is part of the LaTeX required distribution; however, several
3590 contributed packages add still further to its appeal; examples are
3591 @code{empheqempheq}, which provides functions for decorating and highlighting
3592 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3593 definitions.")
3594     (license license:lppl1.3c+)))
3595
3596 (define-public texlive-amscls
3597   (let ((template (simple-texlive-package
3598                    "texlive-amscls"
3599                    (list "/doc/latex/amscls/"
3600                          "/source/latex/amscls/"
3601                          "/bibtex/bst/amscls/")
3602                    (base32
3603                     "1mv96i5372257zaciv06n1wwa7v09q0fa9pbq9kck826a0syidvs"))))
3604     (package
3605       (inherit template)
3606       (arguments
3607        (substitute-keyword-arguments (package-arguments template)
3608          ((#:tex-directory _ #t)
3609           "latex/amscls")
3610          ((#:phases phases)
3611           `(modify-phases ,phases
3612              (add-after 'unpack 'chdir
3613                (lambda _ (chdir "source/latex/amscls/") #t))))))
3614       (home-page "https://www.ctan.org/pkg/amscls")
3615       (synopsis "AMS document classes for LaTeX")
3616       (description
3617        "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3618 articles for the AMS), @code{amsbookamsbook} (for books) and
3619 @code{amsprocamsproc} (for proceedings), together with some supporting
3620 material.  The material is made available as part of the AMS-LaTeX
3621 distribution.")
3622       (license license:lppl1.3c+))))
3623
3624 (define-public texlive-latex-amscls
3625   (deprecated-package "texlive-latex-amscls" texlive-amscls))
3626
3627 (define-public texlive-babel
3628   (let ((template (simple-texlive-package
3629                    "texlive-babel"
3630                    (list "/doc/latex/babel/"
3631                          "/source/latex/babel/"
3632                          "/makeindex/babel/")
3633                    (base32
3634                     "0xjj4h48vdb9ydyg13c5jyfi4vm39117c8jv2gjrvjw89h0djbp1"))))
3635     (package
3636       (inherit template)
3637       (arguments
3638        (substitute-keyword-arguments (package-arguments template)
3639          ((#:tex-directory _ #t)
3640           "generic/babel")
3641          ((#:phases phases)
3642           `(modify-phases ,phases
3643              (add-after 'unpack 'chdir
3644                (lambda _ (chdir "source/latex/babel/") #t))
3645              ;; This package tries to produce babel.aux twice but refuses to
3646              ;; overwrite the first one.
3647              (add-before 'build 'fix-ins
3648                (lambda _
3649                  (substitute* "babel.ins"
3650                    (("askonceonly") "askforoverwritefalse"))
3651                  #t))
3652              (add-after 'install 'install-locales
3653                (lambda* (#:key outputs #:allow-other-keys)
3654                  (let ((locale-directory
3655                         (string-append (assoc-ref outputs "out")
3656                                        "/share/texmf-dist/tex/generic/babel/locale/")))
3657                    (mkdir-p locale-directory)
3658                    (invoke "unzip" "locale.zip" "-d"
3659                            locale-directory))))))))
3660       (native-inputs
3661        `(("unzip" ,unzip)))
3662       (home-page "https://www.ctan.org/pkg/babel")
3663       (synopsis "Multilingual support for Plain TeX or LaTeX")
3664       (description
3665        "The package manages culturally-determined typographical (and other)
3666 rules, and hyphenation patterns for a wide range of languages.  A document may
3667 select a single language to be supported, or it may select several, in which
3668 case the document may switch from one language to another in a variety of
3669 ways.  Babel uses contributed configuration files that provide the detail of
3670 what has to be done for each language.  Users of XeTeX are advised to use the
3671 polyglossia package rather than Babel.")
3672       (license license:lppl1.3+))))
3673
3674 (define-public texlive-latex-babel
3675   (deprecated-package "texlive-latex-babel" texlive-babel))
3676
3677 (define-public texlive-generic-babel-english
3678   (package
3679     (name "texlive-generic-babel-english")
3680     (version (number->string %texlive-revision))
3681     (source (origin
3682               (method svn-fetch)
3683               (uri (texlive-ref "generic" "babel-english"))
3684               (file-name (string-append name "-" version "-checkout"))
3685               (sha256
3686                (base32
3687                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3688     (build-system texlive-build-system)
3689     (arguments '(#:tex-directory "generic/babel-english"))
3690     (home-page "https://www.ctan.org/pkg/babel-english")
3691     (synopsis "Babel support for English")
3692     (description
3693      "This package provides the language definition file for support of
3694 English in @code{babel}.  Care is taken to select British hyphenation patterns
3695 for British English and Australian text, and default (\"american\") patterns
3696 for Canadian and USA text.")
3697     (license license:lppl1.3+)))
3698
3699 (define-public texlive-generic-babel-german
3700   (package
3701     (name "texlive-generic-babel-german")
3702     (version (number->string %texlive-revision))
3703     (source (origin
3704               (method svn-fetch)
3705               (uri (texlive-ref "generic" "babel-german"))
3706               (file-name (string-append name "-" version "-checkout"))
3707               (sha256
3708                (base32
3709                 "129f9w41cb6yyrr6kpv3zz9ml6334hyq1wcz7j9jn47p0hlxqfk8"))))
3710     (build-system texlive-build-system)
3711     (arguments '(#:tex-directory "generic/babel-german"))
3712     (home-page "https://www.ctan.org/pkg/babel-german")
3713     (synopsis "Babel support for German")
3714     (description
3715      "This package provides the language definition file for support of German
3716 in @code{babel}.  It provides all the necessary macros, definitions and
3717 settings to typeset German documents.  The bundle includes support for the
3718 traditional and reformed German orthography as well as for the Austrian and
3719 Swiss varieties of German.")
3720     (license license:lppl1.3+)))
3721
3722 (define-public texlive-babel-swedish
3723   (let ((template (simple-texlive-package
3724                    "texlive-babel-swedish"
3725                    (list "/source/generic/babel-swedish/")
3726                    (base32
3727                     "0swdg2l5i7cbcvy4q4xgsnwwnbxiyvs6f5b72kiw7mjn24v27g8f"))))
3728     (package
3729       (inherit template)
3730       (arguments
3731        (substitute-keyword-arguments (package-arguments template)
3732          ((#:tex-directory _ '())
3733           "generic/babel-swedish")
3734          ((#:build-targets _ '())
3735           ''("swedish.ins")) ; TODO: use dtx and build documentation
3736          ((#:phases phases)
3737           `(modify-phases ,phases
3738              (add-after 'unpack 'chdir
3739                (lambda _ (chdir "source/generic/babel-swedish")))))))
3740       (home-page "https://www.ctan.org/pkg/babel-swedish")
3741       (synopsis "Babel support for Swedish")
3742       (description "This package provides the language definition file for
3743 support of Swedish in @code{babel}.  It provides all the necessary macros,
3744 definitions and settings to typeset Swedish documents.")
3745       (license license:lppl1.3c+))))
3746
3747 (define-public texlive-latex-cyrillic
3748   (package
3749     (name "texlive-latex-cyrillic")
3750     (version (number->string %texlive-revision))
3751     (source (origin
3752               (method svn-fetch)
3753               (uri (texlive-ref "latex" "cyrillic"))
3754               (file-name (string-append name "-" version "-checkout"))
3755               (sha256
3756                (base32
3757                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3758     (build-system texlive-build-system)
3759     (arguments
3760      '(#:tex-directory "latex/cyrillic"))
3761     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3762     (synopsis "Support for Cyrillic fonts in LaTeX")
3763     (description
3764      "This bundle of macros files provides macro support (including font
3765 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3766 T2* and X2 encodings. These encodings cover (between them) pretty much every
3767 language that is written in a Cyrillic alphabet.")
3768     (license license:lppl1.3c+)))
3769
3770 (define-public texlive-psnfss
3771   (let ((template (simple-texlive-package
3772                    "texlive-psnfss"
3773                    (list "/doc/latex/psnfss/"
3774                          "/source/latex/psnfss/"
3775                          "/fonts/map/dvips/psnfss/"
3776
3777                          ;; Only the .sty files are generated from the sources.
3778                          "/tex/latex/psnfss/8rbch.fd"
3779                          "/tex/latex/psnfss/8rpag.fd"
3780                          "/tex/latex/psnfss/8rpbk.fd"
3781                          "/tex/latex/psnfss/8rpcr.fd"
3782                          "/tex/latex/psnfss/8rphv.fd"
3783                          "/tex/latex/psnfss/8rpnc.fd"
3784                          "/tex/latex/psnfss/8rppl.fd"
3785                          "/tex/latex/psnfss/8rptm.fd"
3786                          "/tex/latex/psnfss/8rput.fd"
3787                          "/tex/latex/psnfss/8rpzc.fd"
3788                          "/tex/latex/psnfss/omlbch.fd"
3789                          "/tex/latex/psnfss/omlpag.fd"
3790                          "/tex/latex/psnfss/omlpbk.fd"
3791                          "/tex/latex/psnfss/omlpcr.fd"
3792                          "/tex/latex/psnfss/omlphv.fd"
3793                          "/tex/latex/psnfss/omlpnc.fd"
3794                          "/tex/latex/psnfss/omlppl.fd"
3795                          "/tex/latex/psnfss/omlptm.fd"
3796                          "/tex/latex/psnfss/omlptmcm.fd"
3797                          "/tex/latex/psnfss/omlput.fd"
3798                          "/tex/latex/psnfss/omlpzc.fd"
3799                          "/tex/latex/psnfss/omlzplm.fd"
3800                          "/tex/latex/psnfss/omlzpple.fd"
3801                          "/tex/latex/psnfss/omlztmcm.fd"
3802                          "/tex/latex/psnfss/omsbch.fd"
3803                          "/tex/latex/psnfss/omspag.fd"
3804                          "/tex/latex/psnfss/omspbk.fd"
3805                          "/tex/latex/psnfss/omspcr.fd"
3806                          "/tex/latex/psnfss/omsphv.fd"
3807                          "/tex/latex/psnfss/omspnc.fd"
3808                          "/tex/latex/psnfss/omsppl.fd"
3809                          "/tex/latex/psnfss/omsptm.fd"
3810                          "/tex/latex/psnfss/omsput.fd"
3811                          "/tex/latex/psnfss/omspzc.fd"
3812                          "/tex/latex/psnfss/omspzccm.fd"
3813                          "/tex/latex/psnfss/omszplm.fd"
3814                          "/tex/latex/psnfss/omszpple.fd"
3815                          "/tex/latex/psnfss/omsztmcm.fd"
3816                          "/tex/latex/psnfss/omxpsycm.fd"
3817                          "/tex/latex/psnfss/omxzplm.fd"
3818                          "/tex/latex/psnfss/omxzpple.fd"
3819                          "/tex/latex/psnfss/omxztmcm.fd"
3820                          "/tex/latex/psnfss/ot1bch.fd"
3821                          "/tex/latex/psnfss/ot1pag.fd"
3822                          "/tex/latex/psnfss/ot1pbk.fd"
3823                          "/tex/latex/psnfss/ot1pcr.fd"
3824                          "/tex/latex/psnfss/ot1phv.fd"
3825                          "/tex/latex/psnfss/ot1pnc.fd"
3826                          "/tex/latex/psnfss/ot1ppl.fd"
3827                          "/tex/latex/psnfss/ot1pplj.fd"
3828                          "/tex/latex/psnfss/ot1pplx.fd"
3829                          "/tex/latex/psnfss/ot1ptm.fd"
3830                          "/tex/latex/psnfss/ot1ptmcm.fd"
3831                          "/tex/latex/psnfss/ot1put.fd"
3832                          "/tex/latex/psnfss/ot1pzc.fd"
3833                          "/tex/latex/psnfss/ot1zplm.fd"
3834                          "/tex/latex/psnfss/ot1zpple.fd"
3835                          "/tex/latex/psnfss/ot1ztmcm.fd"
3836                          "/tex/latex/psnfss/t1bch.fd"
3837                          "/tex/latex/psnfss/t1pag.fd"
3838                          "/tex/latex/psnfss/t1pbk.fd"
3839                          "/tex/latex/psnfss/t1pcr.fd"
3840                          "/tex/latex/psnfss/t1phv.fd"
3841                          "/tex/latex/psnfss/t1pnc.fd"
3842                          "/tex/latex/psnfss/t1ppl.fd"
3843                          "/tex/latex/psnfss/t1pplj.fd"
3844                          "/tex/latex/psnfss/t1pplx.fd"
3845                          "/tex/latex/psnfss/t1ptm.fd"
3846                          "/tex/latex/psnfss/t1put.fd"
3847                          "/tex/latex/psnfss/t1pzc.fd"
3848                          "/tex/latex/psnfss/ts1bch.fd"
3849                          "/tex/latex/psnfss/ts1pag.fd"
3850                          "/tex/latex/psnfss/ts1pbk.fd"
3851                          "/tex/latex/psnfss/ts1pcr.fd"
3852                          "/tex/latex/psnfss/ts1phv.fd"
3853                          "/tex/latex/psnfss/ts1pnc.fd"
3854                          "/tex/latex/psnfss/ts1ppl.fd"
3855                          "/tex/latex/psnfss/ts1pplj.fd"
3856                          "/tex/latex/psnfss/ts1pplx.fd"
3857                          "/tex/latex/psnfss/ts1ptm.fd"
3858                          "/tex/latex/psnfss/ts1put.fd"
3859                          "/tex/latex/psnfss/ts1pzc.fd"
3860                          "/tex/latex/psnfss/ufplm.fd"
3861                          "/tex/latex/psnfss/ufplmbb.fd"
3862                          "/tex/latex/psnfss/upsy.fd"
3863                          "/tex/latex/psnfss/upzd.fd")
3864                    (base32
3865                     "1ql4gidwf5m5gwcwwmx7vj60lj4xygw02pm5mzin49nlwsa1vbnv"))))
3866     (package
3867       (inherit template)
3868       (arguments
3869        (substitute-keyword-arguments (package-arguments template)
3870          ((#:tex-directory _ #t)
3871           "latex/psnfss")
3872          ((#:phases phases)
3873           `(modify-phases ,phases
3874              (add-after 'unpack 'chdir
3875                (lambda _
3876                  (chdir "source/latex/psnfss") #t))))))
3877       (native-inputs
3878        `(("texlive-cm" ,texlive-cm)))
3879       (home-page "https://www.ctan.org/pkg/psnfss")
3880       (synopsis "Font support for common PostScript fonts")
3881       (description
3882        "The PSNFSS collection includes a set of files that provide a complete
3883 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3884 PostScript fonts.  The base set of text fonts covered by PSNFSS includes the
3885 AvantGarde, Bookman, Courier, Helvetica, New Century Schoolbook, Palatino,
3886 Symbol, Times Roman and Zapf Dingbats fonts.  In addition, the fonts Bitstream
3887 Charter and Adobe Utopia are covered.  Separate packages are provided to load
3888 each font for use as the main text font.  The package @code{helvet} allows
3889 Helvetica to be loaded with its size scaled to something more appropriate for
3890 use as a Sans-Serif font to match Times, while @code{pifont} provides the
3891 means to select single glyphs from symbol fonts.  The bundle as a whole is
3892 part of the LaTeX required set of packages.")
3893       (license license:lppl1.2+))))
3894
3895 (define-public texlive-latex-psnfss
3896   (deprecated-package "texlive-latex-psnfss" texlive-psnfss))
3897
3898 ;; For user profiles
3899 (define-public texlive-base
3900   (let ((default-packages
3901           (list texlive-bin
3902                 texlive-dvips
3903                 texlive-fontname
3904                 texlive-cm
3905                 texlive-cm-super ; to avoid bitmap fonts
3906                 texlive-fonts-latex
3907                 texlive-metafont
3908                 texlive-latex-base
3909                 texlive-kpathsea       ;for mktex.opt
3910                 ;; LaTeX packages from the "required" set.
3911                 texlive-latex-amsmath
3912                 texlive-amscls
3913                 texlive-babel
3914                 texlive-generic-babel-english
3915                 texlive-latex-cyrillic
3916                 texlive-latex-graphics
3917                 texlive-psnfss
3918                 texlive-latex-tools
3919                 texlive-tetex)))
3920     (package
3921       (name "texlive-base")
3922       (version (number->string %texlive-revision))
3923       (source #f)
3924       (build-system trivial-build-system)
3925       (arguments
3926        '(#:builder
3927          (begin (mkdir (assoc-ref %outputs "out")))))
3928       (propagated-inputs
3929        (map (lambda (package)
3930               (list (package-name package) package))
3931             default-packages))
3932       (home-page (package-home-page texlive-bin))
3933       (synopsis "TeX Live base packages")
3934       (description "This is a very limited subset of the TeX Live distribution.
3935 It includes little more than the required set of LaTeX packages.")
3936       (license (fold (lambda (package result)
3937                        (match (package-license package)
3938                          ((lst ...)
3939                           (append lst result))
3940                          ((? license:license? license)
3941                           (cons license result))))
3942                      '()
3943                      default-packages)))))
3944
3945 ;;; TODO: Add a TeX Live profile hook computing fonts maps (and others?)
3946 ;;; configuration from the packages in the profile, similar to what's done
3947 ;;; below.
3948 (define-public texlive-updmap.cfg
3949   (lambda* (#:optional (packages '()))
3950     "Return a 'texlive-updmap.cfg' package which contains the fonts map
3951 configuration of a base set of packages plus PACKAGES."
3952     (let ((default-packages (match (package-propagated-inputs texlive-base)
3953                               (((labels packages) ...) packages))))
3954       (package
3955         (version (number->string %texlive-revision))
3956         (source (origin
3957                   (method url-fetch)
3958                   (uri (string-append "https://tug.org/svn/texlive/tags/"
3959                                       %texlive-tag
3960                                       "/Master/texmf-dist/web2c/updmap.cfg"
3961                                       "?revision=" version))
3962                   (file-name "updmap.cfg")
3963                   (sha256
3964                    (base32
3965                     "1q3l7yx5sng080ibfb8z3rdah0hhq170j6xw8z1w8i4w9m37lp94"))))
3966         (name "texlive-updmap.cfg")
3967         (build-system copy-build-system)
3968         (arguments
3969          '(#:modules ((guix build copy-build-system)
3970                       (guix build utils)
3971                       (ice-9 popen)
3972                       (ice-9 textual-ports))
3973            #:install-plan '(("updmap.cfg" "share/texmf-config/web2c/")
3974                             ("map" "share/texmf-dist/fonts/map"))
3975            #:phases
3976            (modify-phases %standard-phases
3977              (add-before 'install 'regenerate-updmap.cfg
3978                (lambda _
3979                  (make-file-writable "updmap.cfg")
3980
3981                  ;; Disable unavailable map files.
3982                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
3983                                           "--syncwithtrees"
3984                                           "--nohash"
3985                                           "--cnffile" "updmap.cfg")))
3986                    (display "Y\n" port)
3987                    (when (not (zero? (status:exit-val (close-pipe port))))
3988                      (error "failed to filter updmap.cfg")))
3989
3990                  ;; Set TEXMFSYSVAR to a sane and writable value; updmap fails
3991                  ;; if it cannot create its log file there.
3992                  (setenv "TEXMFSYSVAR" (getcwd))
3993
3994                  ;; Generate maps.
3995                  (invoke "updmap-sys"
3996                          "--cnffile"           "updmap.cfg"
3997                          "--dvipdfmxoutputdir" "map/dvipdfmx/updmap/"
3998                          "--dvipsoutputdir"    "map/dvips/updmap/"
3999                          "--pdftexoutputdir"   "map/pdftex/updmap/"))))))
4000         (propagated-inputs (map (lambda (package)
4001                                   (list (package-name package) package))
4002                                 (append default-packages packages)))
4003         (home-page (package-home-page texlive-bin))
4004         (synopsis "TeX Live fonts map configuration")
4005         (description "This package contains the fonts map configuration file
4006 generated for the base TeX Live packages as well as, optionally, user-provided
4007 ones.")
4008         (license (delete-duplicates
4009                   (fold (lambda (package result)
4010                           (match (package-license package)
4011                             ((lst ...)
4012                              (append lst result))
4013                             ((? license:license? license)
4014                              (cons license result))))
4015                         '()
4016                         (append default-packages packages))))))))
4017
4018 ;;; Deprecated.
4019 (define texlive-union texlive-updmap.cfg)
4020
4021 ;; For use in package definitions only
4022 (define-public texlive-tiny
4023   (package
4024     (inherit (texlive-updmap.cfg))
4025     (name "texlive-tiny")
4026     (description "This is a very limited subset of the TeX Live distribution.
4027 It includes little more than the required set of LaTeX packages.")))
4028
4029 (define-public texlive-tipa
4030   (package
4031     (inherit (simple-texlive-package
4032               "texlive-tipa"
4033               (list "/tex4ht/ht-fonts/alias/tipa/"
4034                     "/doc/fonts/tipa/"
4035                     "/fonts/map/dvips/tipa/"
4036                     "/fonts/source/public/tipa/"
4037                     "/fonts/tfm/public/tipa/"
4038                     "/fonts/type1/public/tipa/"
4039                     "/tex/latex/tipa/")
4040               (base32
4041                "0cqzf8vb10b8jw99m9gflskxa4c3rpiznxglix6chl5lai5sgw44")
4042               #:trivial? #t))
4043     (home-page "https://www.ctan.org/pkg/tipa")
4044     (synopsis "Fonts and macros for IPA phonetics characters")
4045     (description "These fonts are considered the \"ultimate answer\" to IPA
4046 typesetting.  The encoding of these 8-bit fonts has been registered as LaTeX
4047 standard encoding T3, and the set of addendum symbols as encoding
4048 TS3. \"Times-like\" Adobe Type 1 versions are provided for both the T3 and the
4049 TS3 fonts.")
4050     (license license:lppl)))
4051
4052 (define-public texlive-latex-amsrefs
4053   (package
4054     (name "texlive-latex-amsrefs")
4055     (version (number->string %texlive-revision))
4056     (source (origin
4057               (method svn-fetch)
4058               (uri (texlive-ref "latex" "amsrefs"))
4059               (file-name (string-append name "-" version "-checkout"))
4060               (sha256
4061                (base32
4062                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
4063     (build-system texlive-build-system)
4064     (arguments '(#:tex-directory "latex/amsrefs"))
4065     (home-page "https://www.ctan.org/pkg/amsrefs")
4066     (synopsis "LaTeX-based replacement for BibTeX")
4067     (description
4068      "Amsrefs is a LaTeX package for bibliographies that provides an archival
4069 data format similar to the format of BibTeX database files, but adapted to
4070 make direct processing by LaTeX easier.  The package can be used either in
4071 conjunction with BibTeX or as a replacement for BibTeX.")
4072     (license license:lppl1.3+)))
4073
4074 (define-public texlive-latex-bigfoot
4075   (package
4076     (name "texlive-latex-bigfoot")
4077     (version (number->string %texlive-revision))
4078     (source (origin
4079               (method svn-fetch)
4080               (uri (texlive-ref "latex" "bigfoot"))
4081               (file-name (string-append name "-" version "-checkout"))
4082               (sha256
4083                (base32
4084                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
4085     (build-system texlive-build-system)
4086     (arguments
4087      '(#:tex-directory "latex/bigfoot"
4088        #:phases
4089        (modify-phases %standard-phases
4090          (add-after 'unpack 'remove-generated-file
4091            (lambda _
4092              (for-each delete-file (find-files "." "\\.drv$"))
4093              #t)))))
4094     (home-page "https://www.ctan.org/pkg/bigfoot")
4095     (synopsis "Footnotes for critical editions")
4096     (description
4097      "This package aims to provide a one-stop solution to requirements for
4098 footnotes.  It offers: Multiple footnote apparatus superior to that of
4099 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
4100 into a single paragraph (this choice may be selected per footnote series);
4101 Things you might have expected (such as @code{\\verb}-like material in
4102 footnotes, and color selections over page breaks) now work.  Note that the
4103 majority of the bigfoot package's interface is identical to that of
4104 @code{manyfoot}; users should seek information from that package's
4105 documentation.  The bigfoot bundle also provides the @code{perpage} and
4106 @code{suffix} packages.")
4107     (license license:gpl2+)))
4108
4109 (define-public texlive-latex-blindtext
4110   (package
4111     (name "texlive-latex-blindtext")
4112     (version (number->string %texlive-revision))
4113     (source (origin
4114               (method svn-fetch)
4115               (uri (texlive-ref "latex" "blindtext"))
4116               (file-name (string-append name "-" version "-checkout"))
4117               (sha256
4118                (base32
4119                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
4120     (build-system texlive-build-system)
4121     (arguments '(#:tex-directory "latex/blindtext"))
4122     (home-page "https://www.ctan.org/pkg/blindtext")
4123     (synopsis "Producing 'blind' text for testing")
4124     (description
4125      "The package provides the commands @code{\\blindtext} and
4126 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
4127 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
4128 an entire random document with sections, lists, mathematics, etc.  The package
4129 supports three languages, @code{english}, @code{(n)german} and @code{latin};
4130 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
4131 ipsum\" text, see the @code{lipsum} package).")
4132     (license license:lppl)))
4133
4134 (define-public texlive-latex-dinbrief
4135   (package
4136     (name "texlive-latex-dinbrief")
4137     (version (number->string %texlive-revision))
4138     (source (origin
4139               (method svn-fetch)
4140               (uri (texlive-ref "latex" "dinbrief"))
4141               (file-name (string-append name "-" version "-checkout"))
4142               (sha256
4143                (base32
4144                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
4145     (build-system texlive-build-system)
4146     (arguments
4147      '(#:tex-directory "latex/dinbrief"
4148        #:phases
4149        (modify-phases %standard-phases
4150          (add-after 'unpack 'remove-generated-file
4151            (lambda _
4152              (delete-file "dinbrief.drv")
4153              #t))
4154          (add-after 'unpack 'fix-encoding-error
4155            (lambda _
4156              (with-fluids ((%default-port-encoding "ISO-8859-1"))
4157                (substitute* "dinbrief.dtx"
4158                  (("zur Verf.+ung. In der Pr\"aambel")
4159                   "zur Verf\"ung. In der Pr\"aambel")))
4160              #t)))))
4161     (home-page "https://www.ctan.org/pkg/dinbrief")
4162     (synopsis "German letter DIN style")
4163     (description
4164      "This package implements a document layout for writing letters according
4165 to the rules of DIN (Deutsches Institut für Normung, German standardisation
4166 institute).  A style file for LaTeX 2.09 (with limited support of the
4167 features) is part of the package.  Since the letter layout is based on a
4168 German standard, the user guide is written in German, but most macros have
4169 English names from which the user can recognize what they are used for.  In
4170 addition there are example files showing how letters may be created with the
4171 package.")
4172     (license license:lppl)))
4173
4174 (define-public texlive-latex-draftwatermark
4175   (package
4176     (name "texlive-latex-draftwatermark")
4177     (version (number->string %texlive-revision))
4178     (source (origin
4179               (method svn-fetch)
4180               (uri (texlive-ref "latex" "draftwatermark"))
4181               (file-name (string-append name "-" version "-checkout"))
4182               (sha256
4183                (base32
4184                 "0alshj9d2cdssqfawhyqmgsvqysmn7dgfk8bc59ni1bii3ydm2zm"))))
4185     (build-system texlive-build-system)
4186     (arguments '(#:tex-directory "latex/draftwatermark"))
4187     (home-page "https://www.ctan.org/pkg/draftwatermark")
4188     (synopsis "Put a grey textual watermark on document pages")
4189     (description
4190      "This package provides a means to add a textual, light grey watermark on
4191 every page or on the first page of a document.  Typical usage may consist in
4192 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
4193 package performs a similar function to that of @code{draftcopy}, but its
4194 implementation is output device independent, and made very simple by relying
4195 on everypage.")
4196     (license license:lppl1.3+)))
4197
4198 (define-public texlive-latex-environ
4199   (package
4200     (name "texlive-latex-environ")
4201     (version (number->string %texlive-revision))
4202     (source (origin
4203               (method svn-fetch)
4204               (uri (texlive-ref "latex" "environ"))
4205               (file-name (string-append name "-" version "-checkout"))
4206               (sha256
4207                (base32
4208                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
4209     (build-system texlive-build-system)
4210     (arguments '(#:tex-directory "latex/environ"))
4211     (home-page "https://www.ctan.org/pkg/environ")
4212     (synopsis "New interface for environments in LaTeX")
4213     (description
4214      "This package provides the @code{\\collect@@body} command (as in
4215 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
4216 for collecting the body text of an environment.  These commands are used to
4217 define a new author interface to creating new environments.")
4218     (license license:lppl)))
4219
4220 (define-public texlive-latex-eqparbox
4221   (package
4222     (name "texlive-latex-eqparbox")
4223     (version (number->string %texlive-revision))
4224     (source (origin
4225               (method svn-fetch)
4226               (uri (texlive-ref "latex" "eqparbox"))
4227               (file-name (string-append name "-" version "-checkout"))
4228               (sha256
4229                (base32
4230                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
4231     (build-system texlive-build-system)
4232     (arguments '(#:tex-directory "latex/eqparbox"))
4233     (home-page "https://www.ctan.org/pkg/eqparbox")
4234     (synopsis "Create equal-widthed parboxes")
4235     (description
4236      "LaTeX users sometimes need to ensure that two or more blocks of text
4237 occupy the same amount of horizontal space on the page.  To that end, the
4238 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
4239 just like @code{\\parbox}, except that instead of specifying a width, one
4240 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
4241 where they are in the document---will stretch to fit the widest
4242 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
4243 for a variety of alignment purposes, as is evidenced by the examples in
4244 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
4245 also provided.")
4246     (license license:lppl1.3+)))
4247
4248 (define-public texlive-latex-etoc
4249   (package
4250     (inherit (simple-texlive-package
4251               "texlive-latex-etoc"
4252               '("/doc/latex/etoc/README.md"
4253                 "/doc/latex/etoc/etoc.pdf"
4254                 "/tex/latex/etoc/")
4255               (base32
4256                "0i4fgqzqajirjyih6gbx890l17y648mdfqm09v3iz4af0dz4mbdy")
4257               #:trivial? #t))
4258     (home-page "https://www.ctan.org/pkg/etoc")
4259     (synopsis "Completely customisable TOCs")
4260     (description
4261      "This package gives the user complete control of how the entries of
4262 the table of contents should be constituted from the name, number, and page
4263 number of each sectioning unit.  The layout is controlled by the definition
4264 of ‘line styles’ for each sectioning level used in the document.
4265
4266 The package provides its own custom line styles (which may be used as
4267 examples), and continues to support the standard formatting inherited from
4268 the LaTeX document classes, but the package can also allow the user to
4269 delegate the details to packages dealing with list making environments (such
4270 as enumitem).  The package’s default global style typesets tables of contents
4271 in a multi-column format, with either a standard heading, or a ruled title
4272 (optionally with a frame around the table).
4273
4274 The @code{\\tableofcontents} command may be used arbitrarily many times in
4275 the same document, while @code{\\localtableofcontents} provides a ‘local’
4276 table of contents.")
4277     (license license:lppl1.3c+)))
4278
4279 (define-public texlive-latex-expdlist
4280   (package
4281     (name "texlive-latex-expdlist")
4282     (version (number->string %texlive-revision))
4283     (source (origin
4284               (method svn-fetch)
4285               (uri (texlive-ref "latex" "expdlist"))
4286               (file-name (string-append name "-" version "-checkout"))
4287               (sha256
4288                (base32
4289                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
4290     (build-system texlive-build-system)
4291     (arguments
4292      '(#:tex-directory "latex/expdlist"
4293        #:phases
4294        (modify-phases %standard-phases
4295          (add-after 'unpack 'remove-generated-file
4296            (lambda _
4297              (for-each delete-file
4298                        (find-files "." "\\.drv$"))
4299              #t)))))
4300     (home-page "https://www.ctan.org/pkg/expdlist")
4301     (synopsis "Expanded description environments")
4302     (description
4303      "The package provides additional features for the LaTeX
4304 @code{description} environment, including adjustable left margin.  The package
4305 also allows the user to \"break\" a list (for example, to interpose a comment)
4306 without affecting the structure of the list (this works for @code{itemize} and
4307 @code{enumerate} lists, and numbered lists remain in sequence).")
4308     (license license:lppl)))
4309
4310 (define-public texlive-filemod
4311   (package
4312     (inherit (simple-texlive-package
4313               "texlive-filemod"
4314               (list "/doc/latex/filemod/"
4315                     "/tex/latex/filemod/"
4316                     "/tex/generic/filemod/")
4317               (base32
4318                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
4319               #:trivial? #t))
4320     (home-page "https://www.ctan.org/pkg/filemod")
4321     (synopsis "Provide file modification times, and compare them")
4322     (description
4323      "This package provides macros to read and compare the modification dates
4324 of files.  The files may be @code{.tex} files, images or other files (as long
4325 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
4326 of pdfLaTeX to find the file modification date as PDF date string, parses the
4327 string and returns the value to the user.  The package will also work for DVI
4328 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
4329 mode.  The functionality is provided by purely expandable macros or by faster
4330 but non-expandable ones.")
4331     (license license:lppl1.3+)))
4332
4333 (define-public texlive-latex-filemod
4334   (deprecated-package "texlive-latex-filemod" texlive-filemod))
4335
4336 (define-public texlive-latex-hanging
4337   (package
4338     (inherit (simple-texlive-package
4339               "texlive-latex-hanging"
4340               '("/tex/latex/hanging/")
4341               (base32
4342                "0s86yaxyfv9zxf4svwg9s13by9vrw38apfg0hsfchsimsdd6gsbb")
4343               #:trivial? #t))
4344     (home-page "https://www.ctan.org/pkg/hanging")
4345     (synopsis "Typeset hanging paragraphs")
4346     (description
4347      "The @code{hanging} package facilitates the typesetting of hanging
4348 paragraphs.  The package also enables typesetting with hanging punctuation,
4349 by making punctuation characters active.")
4350     (license license:lppl1.3c+)))
4351
4352 (define-public texlive-latex-ifplatform
4353   (package
4354     (name "texlive-latex-ifplatform")
4355     (version (number->string %texlive-revision))
4356     (source (origin
4357               (method svn-fetch)
4358               (uri (texlive-ref "latex" "ifplatform"))
4359               (file-name (string-append name "-" version "-checkout"))
4360               (sha256
4361                (base32
4362                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
4363     (build-system texlive-build-system)
4364     (arguments '(#:tex-directory "latex/ifplatform"))
4365     (home-page "https://www.ctan.org/pkg/ifplatform")
4366     (synopsis "Conditionals to test which platform is being used")
4367     (description
4368      "This package uses the (La)TeX extension @code{-shell-escape} to
4369 establish whether the document is being processed on a Windows or on a
4370 Unix-like system, or on Cygwin (Unix environment over a Windows system).
4371 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
4372 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
4373 on a Unix-like system, which may be used to distinguish between various
4374 classes of systems.")
4375     (license license:lppl)))
4376
4377 (define-public texlive-latex-natbib
4378   (package
4379     (name "texlive-latex-natbib")
4380     (version (number->string %texlive-revision))
4381     (source (origin
4382               (method svn-fetch)
4383               (uri (texlive-ref "latex" "natbib"))
4384               (file-name (string-append name "-" version "-checkout"))
4385               (sha256
4386                (base32
4387                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
4388     (build-system texlive-build-system)
4389     (arguments '(#:tex-directory "latex/natbib"))
4390     (home-page "https://www.ctan.org/pkg/natbib")
4391     (synopsis "Flexible bibliography support")
4392     (description
4393      "This bundle provides a package that implements both author-year and
4394 numbered references, as well as much detailed of support for other
4395 bibliography use.  Also provided are versions of the standard BibTeX styles
4396 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
4397 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
4398 designed from the start to be compatible with @code{natbib}.")
4399     (license license:lppl)))
4400
4401 (define-public texlive-latex-newunicodechar
4402   (package
4403     (inherit (simple-texlive-package
4404               "texlive-latex-newunicodechar"
4405               '("/doc/latex/newunicodechar/" "/tex/latex/newunicodechar/")
4406               (base32
4407                "0pwx3ylhvk5hxjnalas00grrbwla79j424i27hrm0zgflq7wsbrj")
4408               #:trivial? #t))
4409     (home-page "https://www.ctan.org/pkg/newunicodechar")
4410     (synopsis "Definitions of the meaning of Unicode characters")
4411     (description
4412      "This package provides a friendly interface for defining the meaning of
4413 Unicode characters.  The document should be processed by (pdf)LaTeX with the
4414 Unicode option of @code{inputenc} or @code{inputenx}, or by XeLaTeX/LuaLaTeX.")
4415     (license license:lppl1.3c+)))
4416
4417 (define-public texlive-latex-pdftexcmds
4418   (package
4419     (inherit (simple-texlive-package
4420               "texlive-latex-pdftexcmds"
4421               '("/doc/latex/pdftexcmds/"
4422                 "/tex/latex/pdftexcmds/")
4423               (base32
4424                "0kqav8jri789698wxwr2ww8ssn74fvw3agrv677nz5qyq5zmix8h")
4425               #:trivial? #t))
4426     (propagated-inputs
4427      `(("texlive-generic-iftex" ,texlive-generic-iftex)
4428        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
4429        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
4430     (home-page "https://www.ctan.org/pkg/pdftexcmds")
4431     (synopsis "LuaTeX support for pdfTeX utility functions")
4432     (description
4433      "This package makes a number of utility functions from pdfTeX
4434 available for luaTeX by reimplementing them using Lua.")
4435     (license license:lppl1.3c+)))
4436
4437 (define-public texlive-latex-psfrag
4438   (package
4439     (name "texlive-latex-psfrag")
4440     (version (number->string %texlive-revision))
4441     (source (origin
4442               (method svn-fetch)
4443               (uri (texlive-ref "latex" "psfrag"))
4444               (file-name (string-append name "-" version "-checkout"))
4445               (sha256
4446                (base32
4447                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
4448     (build-system texlive-build-system)
4449     (arguments '(#:tex-directory "latex/psfrag"))
4450     (home-page "https://www.ctan.org/pkg/psfrag")
4451     (synopsis "Replace strings in encapsulated PostScript figures")
4452     (description
4453      "This package allows LaTeX constructions (equations, picture
4454 environments, etc.) to be precisely superimposed over Encapsulated PostScript
4455 figures, using your own favorite drawing tool to create an EPS figure and
4456 placing simple text \"tags\" where each replacement is to be placed, with
4457 PSfrag automatically removing these tags from the figure and replacing them
4458 with a user specified LaTeX construction, properly aligned, scaled, and/or
4459 rotated.")
4460     (license (license:fsf-free "file://psfrag.dtx"))))
4461
4462 (define-public texlive-pstool
4463   (package
4464     (inherit (simple-texlive-package
4465               "texlive-pstool"
4466               (list "/doc/latex/pstool/"
4467                     "/tex/latex/pstool/")
4468               (base32
4469                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
4470               #:trivial? #t))
4471     (propagated-inputs
4472      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
4473        ("texlive-latex-filemod" ,texlive-latex-filemod)
4474        ("texlive-latex-graphics" ,texlive-latex-graphics)
4475        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
4476        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
4477        ("texlive-oberdiek" ,texlive-oberdiek)
4478        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
4479        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
4480        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
4481        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
4482     (home-page "https://www.ctan.org/pkg/pstool")
4483     (synopsis "Process PostScript graphics within pdfLaTeX documents")
4484     (description
4485      "This is a package for processing PostScript graphics with @code{psfrag}
4486 labels within pdfLaTeX documents.  Every graphic is compiled individually,
4487 drastically speeding up compilation time when only a single figure needs
4488 re-processing.")
4489     (license license:lppl)))
4490
4491 (define-public texlive-latex-pstool
4492   (deprecated-package "texlive-latex-pstool" texlive-pstool))
4493
4494 (define-public texlive-latex-refcount
4495   (package
4496     (inherit (simple-texlive-package
4497               "texlive-latex-refcount"
4498               (list "/doc/latex/refcount/"
4499                     "/tex/latex/refcount/")
4500               (base32
4501                "0pkmqj2qihndlv3ks33xzqw91q46jx79r3aygj68d8dflyddi583")
4502               #:trivial? #t))
4503     (home-page "https://www.ctan.org/pkg/refcount")
4504     (synopsis "Counter operations with label references")
4505     (description
4506      "This package provides the @code{\\setcounterref} and
4507 @code{\\addtocounterref} commands which use the section (or other) number
4508 from the reference as the value to put into the counter.  It also provides
4509 @code{\\setcounterpageref} and @code{\\addtocounterpageref} that do the
4510 corresponding thing with the page reference of the label.")
4511     (license license:lppl1.3c+)))
4512
4513 (define-public texlive-seminar
4514   (package
4515     (inherit (simple-texlive-package
4516               "texlive-seminar"
4517               (list "/doc/latex/seminar/"
4518                     "/tex/latex/seminar/")
4519               (base32
4520                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
4521               #:trivial? #t))
4522     (home-page "https://www.ctan.org/pkg/seminar")
4523     (synopsis "Make overhead slides")
4524     ;; TODO: This package may need fancybox and xcomment at runtime.
4525     (description
4526      "This package provides a class that produces overhead
4527 slides (transparencies), with many facilities.  Seminar is not nowadays
4528 reckoned a good basis for a presentation — users are advised to use more
4529 recent classes such as powerdot or beamer, both of which are tuned to
4530 21st-century presentation styles.")
4531     (license license:lppl1.2+)))
4532
4533 (define-public texlive-latex-seminar
4534   (deprecated-package "texlive-latex-seminar" texlive-seminar))
4535
4536 (define-public texlive-latex-stackengine
4537   (package
4538     (inherit (simple-texlive-package
4539               "texlive-latex-stackengine"
4540               (list "/doc/latex/stackengine/"
4541                     "/tex/latex/stackengine/")
4542               (base32
4543                "1rbw3dmb6kl3wlnpxacr8cmp2ivac1kpnb33k7r5s3lp1q59ck38")
4544               #:trivial? #t))
4545     (home-page "https://www.ctan.org/pkg/stackengine")
4546     (synopsis "Customised stacking of objects")
4547     (description
4548      "The package provides a versatile way to stack objects vertically in a
4549 variety of customizable ways.  A number of useful macros are provided, all
4550 of which make use of the @code{stackengine} core.")
4551     (license license:lppl1.3+)))
4552
4553 (define-public texlive-latex-tocloft
4554   (package
4555     (inherit (simple-texlive-package
4556               "texlive-latex-tocloft"
4557               '("/doc/latex/tocloft/" "/tex/latex/tocloft/")
4558               (base32
4559                "0mg3hpzq7wpm6mnnvb0rp3wby56zyxkyai8d2h3f4vk93zrc6awk")
4560               #:trivial? #t))
4561     (home-page "https://www.ctan.org/pkg/tocloft")
4562     (synopsis "Control table of contents")
4563     (description
4564      "This package provides control over the typography of the
4565 @dfn{Table of Contents}, @dfn{List of Figures} and @dfn{List of Tables},
4566 and the ability to create new ‘List of ...’. The ToC @code{\\parskip} may
4567 be changed. ")
4568     (license license:lppl1.3c+)))
4569
4570 (define-public texlive-latex-trimspaces
4571   (package
4572     (name "texlive-latex-trimspaces")
4573     (version (number->string %texlive-revision))
4574     (source (origin
4575               (method svn-fetch)
4576               (uri (texlive-ref "latex" "trimspaces"))
4577               (file-name (string-append name "-" version "-checkout"))
4578               (sha256
4579                (base32
4580                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
4581     (build-system texlive-build-system)
4582     (arguments
4583      '(#:tex-directory "latex/trimspaces"
4584        #:tex-format "latex"
4585        #:phases
4586        (modify-phases %standard-phases
4587          (add-after 'unpack 'fix-bug
4588            (lambda _
4589              ;; The "ins" file refers to the wrong source file.
4590              (substitute* "trimspaces.ins"
4591                (("pstool.tex") "trimspaces.tex"))
4592              #t)))))
4593     (inputs
4594      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
4595     (home-page "https://www.ctan.org/pkg/trimspaces")
4596     (synopsis "Trim spaces around an argument or within a macro")
4597     (description
4598      "This very short package allows you to expandably remove spaces around a
4599 token list (commands are provided to remove spaces before, spaces after, or
4600 both); or to remove surrounding spaces within a macro definition, or to define
4601 space-stripped macros.")
4602     (license license:lppl)))
4603
4604 (define-public texlive-latex-capt-of
4605   (package
4606     (name "texlive-latex-capt-of")
4607     (version (number->string %texlive-revision))
4608     (source (origin
4609               (method svn-fetch)
4610               (uri (svn-reference
4611                     (url (string-append "svn://www.tug.org/texlive/tags/"
4612                                         %texlive-tag "/Master/texmf-dist/"
4613                                         "/tex/latex/capt-of"))
4614                     (revision %texlive-revision)))
4615               (file-name (string-append name "-" version "-checkout"))
4616               (sha256
4617                (base32
4618                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
4619     (build-system trivial-build-system)
4620     (arguments
4621      `(#:modules ((guix build utils))
4622        #:builder
4623        (begin
4624          (use-modules (guix build utils))
4625          (let ((target (string-append (assoc-ref %outputs "out")
4626                                       "/share/texmf-dist/tex/latex/capt-of")))
4627            (mkdir-p target)
4628            (copy-recursively (assoc-ref %build-inputs "source") target)
4629            #t))))
4630     (home-page "https://www.ctan.org/pkg/capt-of")
4631     (synopsis "Captions on more than floats")
4632     (description
4633      "This package defines a command @code{\\captionof} for putting a caption
4634 to something that's not a float.")
4635     (license license:lppl)))
4636
4637 (define-public texlive-doi
4638   (package
4639     (inherit (simple-texlive-package
4640               "texlive-doi"
4641               (list "/doc/latex/doi/README.md"
4642                     "/tex/latex/doi/")
4643               (base32
4644                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
4645               #:trivial? #t))
4646     (home-page "https://www.ctan.org/pkg/doi")
4647     (synopsis "Create correct hyperlinks for DOI numbers")
4648     (description
4649      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
4650 elected to use nasty characters in their DOI numbering scheme (@code{<},
4651 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
4652 upset LaTeX, or your PDF reader.  This package contains a single user-level
4653 command @code{\\doi{}}, which takes a DOI number, and creates a correct
4654 hyperlink to the target of the DOI.")
4655     ;; Any version of the LPPL.
4656     (license license:lppl1.3+)))
4657
4658 (define-public texlive-latex-doi
4659   (deprecated-package "texlive-latex-doi" texlive-doi))
4660
4661 (define-public texlive-etoolbox
4662   (package
4663     (inherit (simple-texlive-package
4664               "texlive-etoolbox"
4665               (list "/doc/latex/etoolbox/"
4666                     "/tex/latex/etoolbox/")
4667               (base32
4668                "1w9mycfa0lx9whjzfybx58608phcrfk33w3igy566qv23a1z9rzc")
4669               #:trivial? #t))
4670     (home-page "https://www.ctan.org/pkg/etoolbox")
4671     (synopsis "e-TeX tools for LaTeX")
4672     (description
4673      "This package is a toolbox of programming facilities geared primarily
4674 towards LaTeX class and package authors.  It provides LaTeX frontends to some
4675 of the new primitives provided by e-TeX as well as some generic tools which
4676 are not strictly related to e-TeX but match the profile of this package.  The
4677 package provides functions that seem to offer alternative ways of implementing
4678 some LaTeX kernel commands; nevertheless, the package will not modify any part
4679 of the LaTeX kernel.")
4680     (license license:lppl1.3+)))
4681
4682 (define-public texlive-latex-etoolbox
4683   (deprecated-package "texlive-latex-etoolbox" texlive-etoolbox))
4684
4685 (define-public texlive-latex-fncychap
4686   (package
4687     (name "texlive-latex-fncychap")
4688     (version (number->string %texlive-revision))
4689     (source (origin
4690               (method svn-fetch)
4691               (uri (svn-reference
4692                     (url (string-append "svn://www.tug.org/texlive/tags/"
4693                                         %texlive-tag "/Master/texmf-dist/"
4694                                         "/tex/latex/fncychap"))
4695                     (revision %texlive-revision)))
4696               (file-name (string-append name "-" version "-checkout"))
4697               (sha256
4698                (base32
4699                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
4700     (build-system trivial-build-system)
4701     (arguments
4702      `(#:modules ((guix build utils))
4703        #:builder
4704        (begin
4705          (use-modules (guix build utils))
4706          (let ((target (string-append (assoc-ref %outputs "out")
4707                                       "/share/texmf-dist/tex/latex/fncychap")))
4708            (mkdir-p target)
4709            (copy-recursively (assoc-ref %build-inputs "source") target)
4710            #t))))
4711     (home-page "https://www.ctan.org/pkg/fncychap")
4712     (synopsis "Seven predefined chapter heading styles")
4713     (description
4714      "This package provides seven predefined chapter heading styles.  Each
4715 style can be modified using a set of simple commands.  Optionally one can
4716 modify the formatting routines in order to create additional chapter
4717 headings.")
4718     (license license:lppl1.3+)))
4719
4720 (define-public texlive-latex-framed
4721   (package
4722     (name "texlive-latex-framed")
4723     (version (number->string %texlive-revision))
4724     (source (origin
4725               (method svn-fetch)
4726               (uri (svn-reference
4727                     (url (string-append "svn://www.tug.org/texlive/tags/"
4728                                         %texlive-tag "/Master/texmf-dist/"
4729                                         "/tex/latex/framed"))
4730                     (revision %texlive-revision)))
4731               (file-name (string-append name "-" version "-checkout"))
4732               (sha256
4733                (base32
4734                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4735     (build-system trivial-build-system)
4736     (arguments
4737      `(#:modules ((guix build utils))
4738        #:builder
4739        (begin
4740          (use-modules (guix build utils))
4741          (let ((target (string-append (assoc-ref %outputs "out")
4742                                       "/share/texmf-dist/tex/latex/framed")))
4743            (mkdir-p target)
4744            (copy-recursively (assoc-ref %build-inputs "source") target)
4745            #t))))
4746     (home-page "https://www.ctan.org/pkg/framed")
4747     (synopsis "Framed or shaded regions that can break across pages")
4748     (description
4749      "The package creates three environments: @code{framed}, which puts an
4750 ordinary frame box around the region, @code{shaded}, which shades the region,
4751 and @code{leftbar}, which places a line at the left side.  The environments
4752 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4753 title that is “attached” to the environment); breaks are also allowed in the
4754 course of the framed/shaded matter.  There is also a command
4755 @code{\\MakeFramed} to make your own framed-style environments.")
4756     ;; The header states: "These macros may be freely transmitted, reproduced,
4757     ;; or modified for any purpose provided that this notice is left intact."
4758     (license (license:fsf-free "file://framed.sty"))))
4759
4760 (define-public texlive-latex-g-brief
4761   (package
4762     (name "texlive-latex-g-brief")
4763     (version (number->string %texlive-revision))
4764     (source (origin
4765               (method svn-fetch)
4766               (uri (texlive-ref "latex" "g-brief"))
4767               (file-name (string-append name "-" version "-checkout"))
4768               (sha256
4769                (base32
4770                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
4771     (build-system texlive-build-system)
4772     (arguments
4773      '(#:tex-directory "latex/g-brief"
4774        #:phases
4775        (modify-phases %standard-phases
4776          (add-after 'unpack 'remove-generated-file
4777            (lambda _
4778              (delete-file "g-brief.drv")
4779              #t)))))
4780     (home-page "https://www.ctan.org/pkg/g-brief")
4781     (synopsis "Letter document class")
4782     (description
4783      "This package is designed for formatting formless letters in German; it
4784 can also be used for English (by those who can read the documentation).  There
4785 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4786 \"old\" and a \"new\" version of g-brief.")
4787     (license license:lppl)))
4788
4789 (define-public texlive-latex-galois
4790   (package
4791     (name "texlive-latex-galois")
4792     (version (number->string %texlive-revision))
4793     (source (origin
4794               (method svn-fetch)
4795               (uri (texlive-ref "latex" "galois"))
4796               (file-name (string-append name "-" version "-checkout"))
4797               (sha256
4798                (base32
4799                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4800     (build-system texlive-build-system)
4801     (arguments '(#:tex-directory "latex/galois"))
4802     (home-page "https://www.ctan.org/pkg/galois")
4803     (synopsis "Typeset Galois connections")
4804     (description
4805      "The package deals with connections in two-dimensional style, optionally
4806 in colour.")
4807     (license license:lppl)))
4808
4809 (define-public texlive-latex-gcite
4810   (package
4811     (name "texlive-latex-gcite")
4812     (version (number->string %texlive-revision))
4813     (source (origin
4814               (method svn-fetch)
4815               (uri (texlive-ref "latex" "gcite"))
4816               (file-name (string-append name "-" version "-checkout"))
4817               (sha256
4818                (base32
4819                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4820     (build-system texlive-build-system)
4821     (arguments '(#:tex-directory "latex/gcite"))
4822     (home-page "https://www.ctan.org/pkg/gcite")
4823     (synopsis "Citations in a reader-friendly style")
4824     (description
4825      "The package allows citations in the German style, which is considered by
4826 many to be particularly reader-friendly.  The citation provides a small amount
4827 of bibliographic information in a footnote on the page where each citation is
4828 made.  It combines a desire to eliminate unnecessary page-turning with the
4829 look-up efficiency afforded by numeric citations.  The package makes use of
4830 BibLaTeX, and is considered experimental.")
4831     (license license:lppl1.3+)))
4832
4833 (define-public texlive-latex-geometry
4834   (package
4835     (name "texlive-latex-geometry")
4836     (version (number->string %texlive-revision))
4837     (source (origin
4838               (method svn-fetch)
4839               (uri (texlive-ref "latex" "geometry"))
4840               (file-name (string-append name "-" version "-checkout"))
4841               (sha256
4842                (base32
4843                 "0a9nrmiwksnpa6iaapirqid974ai56qgin2n4h9mggy9v8gp7r71"))))
4844     (build-system texlive-build-system)
4845     (arguments '(#:tex-directory "latex/geometry"))
4846     (propagated-inputs
4847      `(("texlive-oberdiek" ,texlive-oberdiek))) ;for ifpdf
4848     (home-page "https://www.ctan.org/pkg/geometry")
4849     (synopsis "Flexible and complete interface to document dimensions")
4850     (description
4851      "This package provides an easy and flexible user interface to customize
4852 page layout, implementing auto-centering and auto-balancing mechanisms so that
4853 the users have only to give the least description for the page layout.  The
4854 package knows about all the standard paper sizes, so that the user need not
4855 know what the nominal \"real\" dimensions of the paper are, just its standard
4856 name (such as a4, letter, etc.).  An important feature is the package's
4857 ability to communicate the paper size it's set up to the output.")
4858     (license license:lppl)))
4859
4860 (define-public texlive-latex-mdwtools
4861   (package
4862     (name "texlive-latex-mdwtools")
4863     (version (number->string %texlive-revision))
4864     (source (origin
4865               (method svn-fetch)
4866               (uri (texlive-ref "latex" "mdwtools"))
4867               (file-name (string-append name "-" version "-checkout"))
4868               (sha256
4869                (base32
4870                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4871     (build-system texlive-build-system)
4872     (arguments '(#:tex-directory "latex/mdwtools"))
4873     (home-page "https://www.ctan.org/pkg/mdwtools")
4874     (synopsis "Miscellaneous tools by Mark Wooding")
4875     (description
4876      "This collection of tools includes: @code{atsupport} for short commands
4877 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4878 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4879 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4880 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4881 array environments; verbatim handling; and syntax diagrams.")
4882     (license license:gpl3+)))
4883
4884 (define-public texlive-latex-polyglossia
4885   (package
4886     (name "texlive-latex-polyglossia")
4887     (version (number->string %texlive-revision))
4888     (source (origin
4889               (method svn-fetch)
4890               (uri (texlive-ref "latex" "polyglossia"))
4891               (file-name (string-append name "-" version "-checkout"))
4892               (sha256
4893                (base32
4894                 "0c3hrki9pmhz4iall0436wrlrg6qkb1fsdfhz9hv7ysxryr2gihj"))))
4895     (build-system texlive-build-system)
4896     (arguments '(#:tex-directory "latex/polyglossia"))
4897     (home-page "https://www.ctan.org/pkg/polyglossia")
4898     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4899     (description
4900      "This package provides a complete Babel replacement for users of LuaLaTeX
4901 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4902     (license license:lppl1.3+)))
4903
4904 (define-public texlive-latex-supertabular
4905   (package
4906     (name "texlive-latex-supertabular")
4907     (version (number->string %texlive-revision))
4908     (source (origin
4909               (method svn-fetch)
4910               (uri (texlive-ref "latex" "supertabular"))
4911               (file-name (string-append name "-" version "-checkout"))
4912               (sha256
4913                (base32
4914                 "19fd0bqxjkzc16bza3w20pnsc90gbhbllm244b3h6sink4dlnn54"))))
4915     (build-system texlive-build-system)
4916     (arguments '(#:tex-directory "latex/supertabular"))
4917     (home-page "https://www.ctan.org/pkg/supertabular")
4918     (synopsis "Multi-page tables package")
4919     (description
4920      "This package was a predecessor of @code{longtable}; the newer
4921 package (designed on quite different principles) is easier to use and more
4922 flexible, in many cases, but supertabular retains its usefulness in a few
4923 situations where longtable has problems.")
4924     (license license:lppl1.3+)))
4925
4926 (define-public texlive-tex-texinfo
4927   (package
4928     (name "texlive-tex-texinfo")
4929     (version (number->string %texlive-revision))
4930     (source (origin
4931               (method svn-fetch)
4932               (uri (svn-reference
4933                     (url (string-append "svn://www.tug.org/texlive/tags/"
4934                                         %texlive-tag "/Master/texmf-dist/"
4935                                         "/tex/texinfo"))
4936                     (revision %texlive-revision)))
4937               (file-name (string-append name "-" version "-checkout"))
4938               (sha256
4939                (base32
4940                 "1ngzgiy8wd3b9gnbx802x90xa179xxm7vf5jhfdkpgrfxwlycfby"))))
4941     (build-system trivial-build-system)
4942     (arguments
4943      `(#:modules ((guix build utils))
4944        #:builder
4945        (begin
4946          (use-modules (guix build utils))
4947          (let ((target (string-append (assoc-ref %outputs "out")
4948                                       "/share/texmf-dist/tex/texinfo")))
4949            (mkdir-p target)
4950            (copy-recursively (assoc-ref %build-inputs "source") target)
4951            #t))))
4952     (home-page "https://www.ctan.org/pkg/texinfo")
4953     (synopsis "TeX macros to handle Texinfo files")
4954     (description
4955      "Texinfo is the preferred format for documentation in the GNU project;
4956 the format may be used to produce online or printed output from a single
4957 source.  The Texinfo macros may be used to produce printable output using TeX;
4958 other programs in the distribution offer online interactive use (with
4959 hypertext linkages in some cases).")
4960     (license license:gpl3+)))
4961
4962 (define-public texlive-latex-upquote
4963   (package
4964     (name "texlive-latex-upquote")
4965     (version (number->string %texlive-revision))
4966     (source (origin
4967               (method svn-fetch)
4968               (uri (texlive-ref "latex" "upquote"))
4969               (file-name (string-append name "-" version "-checkout"))
4970               (sha256
4971                (base32
4972                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
4973     (build-system texlive-build-system)
4974     (arguments '(#:tex-directory "latex/upquote"))
4975     (home-page "https://www.ctan.org/pkg/upquote")
4976     (synopsis "Show \"realistic\" quotes in verbatim")
4977     (description
4978      "Typewriter-style fonts are best for program listings, but Computer
4979 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
4980 single quotes.  Other fonts, and most programming languages, print @code{`} as
4981 a grave accent and @code{'} upright; @code{'} is used both to open and to
4982 close quoted strings.  The package switches the typewriter font to Computer
4983 Modern Typewriter in OT1 encoding, and modifies the behaviour of
4984 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
4985 in the expected way.  It does this regardless of other fonts or encodings in
4986 use, so long as the package is loaded after the other fonts were.  The package
4987 does not affect @code{\\tt}, @code{\\texttt}, etc.")
4988     (license license:lppl1.2+)))
4989
4990 (define-public texlive-latex-anysize
4991   (package
4992     (name "texlive-latex-anysize")
4993     (version (number->string %texlive-revision))
4994     (source (origin
4995               (method svn-fetch)
4996               (uri (svn-reference
4997                     (url (string-append "svn://www.tug.org/texlive/tags/"
4998                                         %texlive-tag "/Master/texmf-dist/"
4999                                         "/tex/latex/anysize"))
5000                     (revision %texlive-revision)))
5001               (file-name (string-append name "-" version "-checkout"))
5002               (sha256
5003                (base32
5004                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
5005     (build-system trivial-build-system)
5006     (arguments
5007      `(#:modules ((guix build utils))
5008        #:builder
5009        (begin
5010          (use-modules (guix build utils))
5011          (let ((target (string-append (assoc-ref %outputs "out")
5012                                       "/share/texmf-dist/tex/latex/anysize")))
5013            (mkdir-p target)
5014            (copy-recursively (assoc-ref %build-inputs "source") target)
5015            #t))))
5016     (home-page "https://www.ctan.org/pkg/anysize")
5017     (synopsis "Simple package to set up document margins")
5018     (description
5019      "This is a simple package to set up document margins.  This package is
5020 considered obsolete; alternatives are the @code{typearea} package from the
5021 @code{koma-script} bundle, or the @code{geometry} package.")
5022     (license license:public-domain)))
5023
5024 (define-public texlive-latex-appendix
5025   (package
5026     (name "texlive-latex-appendix")
5027     (version (number->string %texlive-revision))
5028     (source (origin
5029               (method svn-fetch)
5030               (uri (texlive-ref "latex" "appendix"))
5031               (file-name (string-append name "-" version "-checkout"))
5032               (sha256
5033                (base32
5034                 "1gc2brr2rs495w7qi6spdva1xrza94x7a36dncjdkghnsq8r92h4"))))
5035     (build-system texlive-build-system)
5036     (arguments '(#:tex-directory "latex/appendix"))
5037     (home-page "https://www.ctan.org/pkg/appendix")
5038     (synopsis "Extra control of appendices")
5039     (description
5040      "The appendix package provides various ways of formatting the titles of
5041 appendices.  Also (sub)appendices environments are provided that can be used,
5042 for example, for per chapter/section appendices.  An @code{appendices}
5043 environment is provided which can be used instead of the @code{\\appendix}
5044 command.")
5045     (license license:lppl)))
5046
5047 (define-public texlive-latex-bookmark
5048   (package
5049     (inherit (simple-texlive-package
5050               "texlive-latex-bookmark"
5051               (list "/doc/latex/bookmark/"
5052                     "/tex/latex/bookmark/")
5053               (base32
5054                "1vl1rrydh5jh78llp4i5r1hvznghm9gddwcnfnzwlgp9z67gybh1")
5055               #:trivial? #t))
5056     (home-page "https://www.ctan.org/pkg/bookmark")
5057     (synopsis "Bookmark (outline) organization for hyperref")
5058     (description
5059      "This package implements a new bookmark (outline) organization for the
5060 @code{hyperref} package.  Bookmark properties such as style and color.  Other
5061 action types are available (URI, GoToR, Named).")
5062     (license license:lppl1.3c+)))
5063
5064 (define-public texlive-latex-changebar
5065   (package
5066     (name "texlive-latex-changebar")
5067     (version (number->string %texlive-revision))
5068     (source (origin
5069               (method svn-fetch)
5070               (uri (texlive-ref "latex" "changebar"))
5071               (file-name (string-append name "-" version "-checkout"))
5072               (sha256
5073                (base32
5074                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
5075     (build-system texlive-build-system)
5076     (arguments '(#:tex-directory "latex/changebar"))
5077     (home-page "https://www.ctan.org/pkg/changebar")
5078     (synopsis "Generate changebars in LaTeX documents")
5079     (description
5080      "Identify areas of text to be marked with changebars with the
5081 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
5082 package uses @code{drivers} to place the bars; the available drivers can work
5083 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
5084 drivers, and VTeX and pdfTeX.")
5085     (license license:lppl)))
5086
5087 (define-public texlive-latex-cmap
5088   (package
5089     (name "texlive-latex-cmap")
5090     (version (number->string %texlive-revision))
5091     (source (origin
5092               (method svn-fetch)
5093               (uri (svn-reference
5094                     (url (string-append "svn://www.tug.org/texlive/tags/"
5095                                         %texlive-tag "/Master/texmf-dist/"
5096                                         "/tex/latex/cmap"))
5097                     (revision %texlive-revision)))
5098               (file-name (string-append name "-" version "-checkout"))
5099               (sha256
5100                (base32
5101                 "1s1rv6zgw105w2j6ffhnk914qrix87y1ndzri1q72g2kbr91zlbg"))))
5102     (build-system trivial-build-system)
5103     (arguments
5104      `(#:modules ((guix build utils))
5105        #:builder
5106        (begin
5107          (use-modules (guix build utils))
5108          (let ((target (string-append (assoc-ref %outputs "out")
5109                                       "/share/texmf-dist/tex/latex/cmap")))
5110            (mkdir-p target)
5111            (copy-recursively (assoc-ref %build-inputs "source") target)
5112            #t))))
5113     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
5114 Master/texmf-dist/tex/latex/cmap/")
5115     (synopsis "CMap support for PDF files")
5116     (description
5117      "This package embeds CMap tables into PDF files to make search and
5118 copy-and-paste functions work properly.")
5119     (license license:lppl)))
5120
5121 (define-public texlive-latex-colortbl
5122   (package
5123     (name "texlive-latex-colortbl")
5124     (version (number->string %texlive-revision))
5125     (source (origin
5126               (method svn-fetch)
5127               (uri (texlive-ref "latex" "colortbl"))
5128               (file-name (string-append name "-" version "-checkout"))
5129               (sha256
5130                (base32
5131                 "1qa0mh0fy9hcvfsmprv6q50q0qzdjjfbxi3axap26z6zg3qj68bc"))))
5132     (build-system texlive-build-system)
5133     (arguments '(#:tex-directory "latex/colortbl"))
5134     (home-page "https://www.ctan.org/pkg/colortbl")
5135     (synopsis "Add colour to LaTeX tables")
5136     (description
5137      "This package allows rows, columns, and even individual cells in LaTeX
5138 tables to be coloured.")
5139     (license license:lppl)))
5140
5141 (define-public texlive-latex-fancybox
5142   (package
5143     (name "texlive-latex-fancybox")
5144     (version (number->string %texlive-revision))
5145     (source (origin
5146               (method svn-fetch)
5147               (uri (svn-reference
5148                     (url (string-append "svn://www.tug.org/texlive/tags/"
5149                                         %texlive-tag "/Master/texmf-dist/"
5150                                         "/tex/latex/fancybox"))
5151                     (revision %texlive-revision)))
5152               (file-name (string-append name "-" version "-checkout"))
5153               (sha256
5154                (base32
5155                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
5156     (build-system trivial-build-system)
5157     (arguments
5158      `(#:modules ((guix build utils))
5159        #:builder
5160        (begin
5161          (use-modules (guix build utils))
5162          (let ((target (string-append (assoc-ref %outputs "out")
5163                                       "/share/texmf-dist/tex/latex/fancybox")))
5164            (mkdir-p target)
5165            (copy-recursively (assoc-ref %build-inputs "source") target)
5166            #t))))
5167     (home-page "https://www.ctan.org/pkg/fancybox")
5168     (synopsis "Variants of \\fbox and other games with boxes")
5169     (description
5170      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
5171 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
5172 using box macros and flexible verbatim macros.  You can box mathematics,
5173 floats, center, flushleft, and flushright, lists, and pages.")
5174     (license license:lppl1.2+)))
5175
5176 (define-public texlive-latex-fancyhdr
5177   (package
5178     (name "texlive-latex-fancyhdr")
5179     (version (number->string %texlive-revision))
5180     (source (origin
5181               (method svn-fetch)
5182               (uri (svn-reference
5183                     (url (string-append "svn://www.tug.org/texlive/tags/"
5184                                         %texlive-tag "/Master/texmf-dist/"
5185                                         "/tex/latex/fancyhdr"))
5186                     (revision %texlive-revision)))
5187               (file-name (string-append name "-" version "-checkout"))
5188               (sha256
5189                (base32
5190                 "0hrwspqkqfahxyzzsnjyrxlgxj06zw1f3636gx76pvl4xhvdj1cj"))))
5191     (build-system trivial-build-system)
5192     (arguments
5193      `(#:modules ((guix build utils))
5194        #:builder
5195        (begin
5196          (use-modules (guix build utils))
5197          (let ((target (string-append (assoc-ref %outputs "out")
5198                                       "/share/texmf-dist/tex/latex/fancyhdr")))
5199            (mkdir-p target)
5200            (copy-recursively (assoc-ref %build-inputs "source") target)
5201            #t))))
5202     (home-page "https://www.ctan.org/pkg/fancyhdr")
5203     (synopsis "Extensive control of page headers and footers in LaTeX2e")
5204     (description
5205      "The package provides extensive facilities, both for constructing headers
5206 and footers, and for controlling their use (for example, at times when LaTeX
5207 would automatically change the heading style in use).")
5208     (license license:lppl)))
5209
5210 (define-public texlive-latex-float
5211   (package
5212     (name "texlive-latex-float")
5213     (version (number->string %texlive-revision))
5214     (source (origin
5215               (method svn-fetch)
5216               (uri (texlive-ref "latex" "float"))
5217               (file-name (string-append name "-" version "-checkout"))
5218               (sha256
5219                (base32
5220                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
5221     (build-system texlive-build-system)
5222     (arguments '(#:tex-directory "latex/float"))
5223     (home-page "https://www.ctan.org/pkg/float")
5224     (synopsis "Improved interface for floating objects")
5225     (description
5226      "This package improves the interface for defining floating objects such
5227 as figures and tables.  It introduces the boxed float, the ruled float and the
5228 plaintop float.  You can define your own floats and improve the behaviour of
5229 the old ones.  The package also provides the @code{H} float modifier option of
5230 the obsolete @code{here} package.  You can select this as automatic default
5231 with @code{\\floatplacement{figure}{H}}.")
5232     (license license:lppl)))
5233
5234 (define-public texlive-latex-footmisc
5235   (package
5236     (name "texlive-latex-footmisc")
5237     (version (number->string %texlive-revision))
5238     (source (origin
5239               (method svn-fetch)
5240               (uri (texlive-ref "latex" "footmisc"))
5241               (file-name (string-append name "-" version "-checkout"))
5242               (sha256
5243                (base32
5244                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
5245     (build-system texlive-build-system)
5246     (arguments '(#:tex-directory "latex/footmisc"))
5247     (home-page "https://www.ctan.org/pkg/footmisc")
5248     (synopsis "Range of footnote options")
5249     (description
5250      "This is a collection of ways to change the typesetting of footnotes.
5251 The package provides means of changing the layout of the footnotes themselves,
5252 a way to number footnotes per page, to make footnotes disappear in a
5253 \"moving\" argument, and to deal with multiple references to footnotes from
5254 the same place.  The package also has a range of techniques for labelling
5255 footnotes with symbols rather than numbers.")
5256     (license license:lppl1.3+)))
5257
5258 (define-public texlive-latex-letltxmacro
5259   (package
5260     (inherit (simple-texlive-package
5261               "texlive-latex-letltxmacro"
5262               (list "/doc/latex/letltxmacro/"
5263                     "/tex/latex/letltxmacro/")
5264               (base32
5265                "0yy1m1jiyxq2pssp0pidaa2swx6lyxw3zwpm2r8m0v2r3lvsyyxx")
5266               #:trivial? #t))
5267     (home-page "https://www.ctan.org/pkg/letltxmacro")
5268     (synopsis "Let assignment for macros")
5269     (description
5270      "TeX’s @code{\\let} assignment does not work for LaTeX macros with
5271 optional arguments, or for macros that are defined as robust macros by
5272 @code{\\DeclareRobustCommand}.  This package defines @code{\\LetLtxMacro}
5273 that also takes care of the involved internal macros.")
5274     (license license:lppl1.3c+)))
5275
5276 (define-public texlive-latex-listings
5277   (package
5278     (name "texlive-latex-listings")
5279     (version (number->string %texlive-revision))
5280     (source (origin
5281               (method svn-fetch)
5282               (uri (texlive-ref "latex" "listings"))
5283               (file-name (string-append name "-" version "-checkout"))
5284               (sha256
5285                (base32
5286                 "082zri3gp8s6p2difhk1pbix2vzmvsf6fmld2z78v35xwk3fiya0"))))
5287     (build-system texlive-build-system)
5288     (arguments
5289      '(#:tex-directory "latex/listings"
5290        #:build-targets '("listings.ins")))
5291     (home-page "https://www.ctan.org/pkg/listings")
5292     (synopsis "Typeset source code listings using LaTeX")
5293     (description
5294      "The package enables the user to typeset programs (programming code)
5295 within LaTeX; the source code is read directly by TeX---no front-end processor
5296 is needed.  Keywords, comments and strings can be typeset using different
5297 styles.  Support for @code{hyperref} is provided.")
5298     (license license:lppl1.3+)))
5299
5300 (define-public texlive-latex-jknapltx
5301   (package
5302     (name "texlive-latex-jknapltx")
5303     (version (number->string %texlive-revision))
5304     (source (origin
5305               (method svn-fetch)
5306               (uri (svn-reference
5307                     (url (string-append "svn://www.tug.org/texlive/tags/"
5308                                         %texlive-tag "/Master/texmf-dist/"
5309                                         "/tex/latex/jknapltx"))
5310                     (revision %texlive-revision)))
5311               (file-name (string-append name "-" version "-checkout"))
5312               (sha256
5313                (base32
5314                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
5315     (build-system trivial-build-system)
5316     (arguments
5317      `(#:modules ((guix build utils))
5318        #:builder
5319        (begin
5320          (use-modules (guix build utils))
5321          (let ((target (string-append (assoc-ref %outputs "out")
5322                                       "/share/texmf-dist/tex/latex/jknapltx")))
5323            (mkdir-p target)
5324            (copy-recursively (assoc-ref %build-inputs "source") target)
5325            #t))))
5326     (home-page "https://www.ctan.org/pkg/jknappen")
5327     (synopsis "Miscellaneous packages by Joerg Knappen")
5328     (description
5329      "This package provides miscellaneous macros by Joerg Knappen, including:
5330 represent counters in greek; Maxwell's non-commutative division;
5331 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
5332 @code{inputenc} definition files that allow verbatim input in the respective
5333 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
5334 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
5335 transliterate semitic languages; patches to make (La)TeX formulae embeddable
5336 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
5337     (license license:gpl2)))
5338
5339 (define-public texlive-latex-kvoptions
5340   (package
5341     (inherit (simple-texlive-package
5342               "texlive-latex-kvoptions"
5343               (list "/doc/latex/kvoptions/"
5344                     "/tex/latex/kvoptions/")
5345               (base32
5346                "04v733njj6ynf1prj5rxljqbjq925jyycdprc78n7g01knn13wgr")
5347               #:trivial? #t))
5348     (propagated-inputs
5349      `(("texlive-generic-kvsetkeys" ,texlive-generic-kvsetkeys)
5350        ("texlive-generic-ltxcmds" ,texlive-generic-ltxcmds)))
5351     (home-page "https://www.ctan.org/pkg/kvoptions")
5352     (synopsis "Key/value format for package options")
5353     (description
5354      "This package provides facilities for using key-value format in
5355 package options.")
5356     (license license:lppl1.3c+)))
5357
5358 (define-public texlive-fonts-ec
5359   (package
5360     (name "texlive-fonts-ec")
5361     (version (number->string %texlive-revision))
5362     (source (origin
5363               (method svn-fetch)
5364               (uri (svn-reference
5365                     (url (string-append "svn://www.tug.org/texlive/tags/"
5366                                         %texlive-tag "/Master/texmf-dist/"
5367                                         "/fonts/source/jknappen/ec/"))
5368                     (revision %texlive-revision)))
5369               (file-name (string-append name "-" version "-checkout"))
5370               (sha256
5371                (base32
5372                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
5373     (build-system gnu-build-system)
5374     (arguments
5375      `(#:modules ((guix build gnu-build-system)
5376                   (guix build utils)
5377                   (srfi srfi-1)
5378                   (srfi srfi-26))
5379        #:tests? #f                      ; no tests
5380        #:phases
5381        (modify-phases %standard-phases
5382          (delete 'configure)
5383          (replace 'build
5384            (lambda* (#:key inputs #:allow-other-keys)
5385              (let ((mf (assoc-ref inputs "texlive-metafont")))
5386                ;; Tell mf where to find mf.base
5387                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5388                ;; Tell mf where to look for source files
5389                (setenv "MFINPUTS"
5390                        (string-append (getcwd) ":"
5391                                       mf "/share/texmf-dist/metafont/base:"
5392                                       (assoc-ref inputs "texlive-cm")
5393                                       "/share/texmf-dist/fonts/source/public/cm")))
5394              (mkdir "build")
5395              (for-each (lambda (font)
5396                          (format #t "building font ~a\n" font)
5397                          (invoke "mf" "-progname=mf"
5398                                  "-output-directory=build"
5399                                  (string-append "\\"
5400                                                 "mode:=ljfour; "
5401                                                 "mag:=1; "
5402                                                 "batchmode; "
5403                                                 "input " (basename font ".mf"))))
5404                        (find-files "." "[0-9]+\\.mf$"))
5405              #t))
5406          (replace 'install
5407            (lambda* (#:key outputs #:allow-other-keys)
5408              (let* ((out (assoc-ref outputs "out"))
5409                     (tfm (string-append
5410                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
5411                     (mf  (string-append
5412                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
5413                (for-each (cut install-file <> tfm)
5414                          (find-files "build" "\\.*"))
5415                (for-each (cut install-file <> mf)
5416                          (find-files "." "\\.mf"))
5417                #t))))))
5418     (native-inputs
5419      `(("texlive-bin" ,texlive-bin)
5420        ("texlive-metafont" ,texlive-metafont)
5421        ("texlive-cm" ,texlive-cm)))
5422     (home-page "https://www.ctan.org/pkg/ec")
5423     (synopsis "Computer modern fonts in T1 and TS1 encodings")
5424     (description
5425      "The EC fonts are European Computer Modern Fonts, supporting the complete
5426 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
5427 These fonts are intended to be stable with no changes being made to the tfm
5428 files.  The set also contains a Text Companion Symbol font, called @code{tc},
5429 featuring many useful characters needed in text typesetting, for example
5430 oldstyle digits, currency symbols (including the newly created Euro symbol),
5431 the permille sign, copyright, trade mark and servicemark as well as a copyleft
5432 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
5433 EC fonts supersede the preliminary version released as the DC fonts.  The
5434 fonts are available in (traced) Adobe Type 1 format, as part of the
5435 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
5436 set, Latin Modern, is not actually a direct development of the EC set, and
5437 differs from the EC in a number of particulars.")
5438     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
5439 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
5440
5441 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
5442 ;; fails with obscure TeX-typical error messages.
5443 (define-public texlive-ae
5444   (package
5445     (inherit (simple-texlive-package
5446               "texlive-ae"
5447               (list "/doc/fonts/ae/"
5448                     "/source/fonts/ae/"
5449                     "/fonts/tfm/public/ae/"
5450                     "/fonts/vf/public/ae/"
5451                     "/tex/latex/ae/")
5452               (base32
5453                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
5454               #:trivial? #t))
5455     (home-page "https://www.ctan.org/pkg/ae")
5456     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
5457     (description
5458      "This package provides a set of virtual fonts which emulates T1 coded
5459 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
5460 stands for \"Almost European\".  The main use of the package was to produce
5461 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
5462 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
5463 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
5464     (license license:lppl1.3+)))
5465
5466 (define-public texlive-inconsolata
5467   (package
5468     (inherit (simple-texlive-package
5469               "texlive-inconsolata"
5470               (list "/doc/fonts/inconsolata/"
5471                     "/fonts/enc/dvips/inconsolata/"
5472                     "/fonts/map/dvips/inconsolata/"
5473                     "/fonts/opentype/public/inconsolata/"
5474                     "/fonts/tfm/public/inconsolata/"
5475                     "/fonts/type1/public/inconsolata/"
5476                     "/tex/latex/inconsolata/")
5477               (base32
5478                "19lvma52vk7x8d7j4s9ymjwm3w2k08860fh6dkzn76scgpdm4wlb")
5479               #:trivial? #t))
5480     (home-page "https://www.ctan.org/pkg/inconsolata")
5481     (synopsis "Monospaced font with support files for use with TeX")
5482     (description
5483      "Inconsolata is a monospaced font designed by Raph Levien.  This package
5484 contains the font (in both Adobe Type 1 and OpenType formats) in regular and
5485 bold weights, with additional glyphs and options to control slashed zero,
5486 upright quotes and a shapelier lower-case L, plus metric files for use with
5487 TeX, and LaTeX font definition and other relevant files.")
5488     (license (list license:lppl1.3+
5489                    license:silofl1.1
5490                    license:asl2.0))))
5491
5492 (define-public texlive-times
5493   (package
5494     (inherit (simple-texlive-package
5495               "texlive-times"
5496               (list "/dvips/times/"
5497                     "/fonts/afm/adobe/times/"
5498                     "/fonts/afm/urw/times/"
5499                     "/fonts/tfm/adobe/times/"
5500                     "/fonts/tfm/urw35vf/times/"
5501                     "/fonts/type1/urw/times/"
5502                     "/fonts/vf/adobe/times/"
5503                     "/fonts/vf/urw35vf/times/"
5504                     "/fonts/map/dvips/times/"
5505                     "/tex/latex/times/")
5506               (base32
5507                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
5508               #:trivial? #t))
5509     (home-page "https://ctan.org/pkg/urw-base35")
5510     (synopsis "URW Base 35 font pack for LaTeX")
5511     (description
5512      "This package provides a drop-in replacements for the Times font from
5513 Adobe's basic set.")
5514     ;; No license version specified.
5515     (license license:gpl3+)))
5516
5517 (define-public texlive-fonts-adobe-times
5518   (deprecated-package "texlive-fonts-adobe-times" texlive-times))
5519
5520 (define-public texlive-palatino
5521   (package
5522     (inherit (simple-texlive-package
5523               "texlive-palatino"
5524               (list "/dvips/palatino/"
5525                     "/fonts/afm/adobe/palatino/"
5526                     "/fonts/afm/urw/palatino/"
5527                     "/fonts/tfm/adobe/palatino/"
5528                     "/fonts/tfm/urw35vf/palatino/"
5529                     "/fonts/type1/urw/palatino/"
5530                     "/fonts/vf/adobe/palatino/"
5531                     "/fonts/vf/urw35vf/palatino/"
5532
5533                     "/fonts/map/dvips/palatino/"
5534                     "/tex/latex/palatino/")
5535               (base32
5536                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
5537               #:trivial? #t))
5538     (home-page "https://ctan.org/pkg/urw-base35")
5539     (synopsis "URW Base 35 font pack for LaTeX")
5540     (description
5541      "This package provides a drop-in replacements for the Palatino font from
5542 Adobe's basic set.")
5543     ;; No license version specified.
5544     (license license:gpl3+)))
5545
5546 (define-public texlive-fonts-adobe-palatino
5547   (deprecated-package "texlive-fonts-adobe-palatino" texlive-palatino))
5548
5549 (define-public texlive-zapfding
5550   (package
5551     (inherit (simple-texlive-package
5552               "texlive-zapfding"
5553               (list "/dvips/zapfding/"
5554                     "/fonts/afm/adobe/zapfding/"
5555                     "/fonts/afm/urw/zapfding/"
5556                     "/fonts/tfm/adobe/zapfding/"
5557                     "/fonts/tfm/urw35vf/zapfding/"
5558                     "/fonts/type1/urw/zapfding/"
5559                     "/fonts/map/dvips/zapfding/"
5560                     "/tex/latex/zapfding/")
5561               (base32
5562                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
5563               #:trivial? #t))
5564     (home-page "https://ctan.org/pkg/urw-base35")
5565     (synopsis "URW Base 35 font pack for LaTeX")
5566     (description
5567      "This package provides a drop-in replacements for the Zapfding font from
5568 Adobe's basic set.")
5569     ;; No license version specified.
5570     (license license:gpl3+)))
5571
5572 (define-public texlive-fonts-adobe-zapfding
5573   (deprecated-package "texlive-fonts-adobe-zapfding" texlive-zapfding))
5574
5575 (define-public texlive-fonts-rsfs
5576   (package
5577     (name "texlive-fonts-rsfs")
5578     (version (number->string %texlive-revision))
5579     (source (origin
5580               (method svn-fetch)
5581               (uri (svn-reference
5582                     (url (string-append "svn://www.tug.org/texlive/tags/"
5583                                         %texlive-tag "/Master/texmf-dist/"
5584                                         "/fonts/source/public/rsfs/"))
5585                     (revision %texlive-revision)))
5586               (file-name (string-append name "-" version "-checkout"))
5587               (sha256
5588                (base32
5589                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
5590     (build-system gnu-build-system)
5591     (arguments
5592      `(#:modules ((guix build gnu-build-system)
5593                   (guix build utils)
5594                   (srfi srfi-1)
5595                   (srfi srfi-26))
5596        #:tests? #f                      ; no tests
5597        #:phases
5598        (modify-phases %standard-phases
5599          (delete 'configure)
5600          (replace 'build
5601            (lambda* (#:key inputs #:allow-other-keys)
5602              (let ((mf (assoc-ref inputs "texlive-metafont")))
5603                ;; Tell mf where to find mf.base
5604                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5605                ;; Tell mf where to look for source files
5606                (setenv "MFINPUTS"
5607                        (string-append (getcwd) ":"
5608                                       mf "/share/texmf-dist/metafont/base:"
5609                                       (assoc-ref inputs "texlive-cm")
5610                                       "/share/texmf-dist/fonts/source/public/cm")))
5611              (mkdir "build")
5612              (for-each (lambda (font)
5613                          (format #t "building font ~a\n" font)
5614                          (invoke "mf" "-progname=mf"
5615                                  "-output-directory=build"
5616                                  (string-append "\\"
5617                                                 "mode:=ljfour; "
5618                                                 "mag:=1; "
5619                                                 "batchmode; "
5620                                                 "input " (basename font ".mf"))))
5621                        (find-files "." "[0-9]+\\.mf$"))
5622              #t))
5623          (replace 'install
5624            (lambda* (#:key outputs #:allow-other-keys)
5625              (let* ((out (assoc-ref outputs "out"))
5626                     (tfm (string-append
5627                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
5628                     (mf  (string-append
5629                           out "/share/texmf-dist/fonts/source/public/rsfs")))
5630                (for-each (cut install-file <> tfm)
5631                          (find-files "build" "\\.*"))
5632                (for-each (cut install-file <> mf)
5633                          (find-files "." "\\.mf"))
5634                #t))))))
5635     (native-inputs
5636      `(("texlive-bin" ,texlive-bin)
5637        ("texlive-metafont" ,texlive-metafont)
5638        ("texlive-cm" ,texlive-cm)))
5639     (home-page "https://www.ctan.org/pkg/rsfs")
5640     (synopsis "Ralph Smith's Formal Script font")
5641     (description
5642      "The fonts provide uppercase formal script letters for use as symbols in
5643 scientific and mathematical typesetting (in contrast to the informal script
5644 fonts such as that used for the calligraphic symbols in the TeX maths symbol
5645 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
5646 format.  LaTeX support, for using these fonts in mathematics, is available via
5647 one of the packages @code{calrsfs} and @code{mathrsfs}.")
5648     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
5649
5650 (define-public texlive-latex-eso-pic
5651   (package
5652     (name "texlive-latex-eso-pic")
5653     (version (number->string %texlive-revision))
5654     (source (origin
5655               (method svn-fetch)
5656               (uri (texlive-ref "latex" "eso-pic"))
5657               (file-name (string-append name "-" version "-checkout"))
5658               (sha256
5659                (base32
5660                 "0y2y08kr3w6asm9lblj9yywqmhaal36fq71zzcbfsc7cvwf641q7"))))
5661     (build-system texlive-build-system)
5662     (arguments '(#:tex-directory "latex/eso-pic"))
5663     (home-page "https://www.ctan.org/pkg/eso-pic")
5664     (synopsis "Add picture commands (or backgrounds) to every page")
5665     (description
5666      "The package adds one or more user commands to LaTeX's @code{shipout}
5667 routine, which may be used to place the output at fixed positions.  The
5668 @code{grid} option may be used to find the correct places.")
5669     (license license:lppl1.3+)))
5670
5671 (define-public texlive-latex-eepic
5672   (package
5673     (name "texlive-latex-eepic")
5674     (version (number->string %texlive-revision))
5675     (source (origin
5676               (method svn-fetch)
5677               (uri (svn-reference
5678                     (url (string-append "svn://www.tug.org/texlive/tags/"
5679                                         %texlive-tag "/Master/texmf-dist/"
5680                                         "/tex/latex/eepic"))
5681                     (revision %texlive-revision)))
5682               (file-name (string-append name "-" version "-checkout"))
5683               (sha256
5684                (base32
5685                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
5686     (build-system trivial-build-system)
5687     (arguments
5688      `(#:modules ((guix build utils))
5689        #:builder
5690        (begin
5691          (use-modules (guix build utils))
5692          (let ((target (string-append (assoc-ref %outputs "out")
5693                                       "/share/texmf-dist/tex/latex/eepic")))
5694            (mkdir-p target)
5695            (copy-recursively (assoc-ref %build-inputs "source") target)
5696            #t))))
5697     (home-page "https://www.ctan.org/pkg/eepic")
5698     (synopsis "Extensions to epic and the LaTeX drawing tools")
5699     (description
5700      "Extensions to @code{epic} and the LaTeX picture drawing environment,
5701 include the drawing of lines at any slope, the drawing of circles in any
5702 radii, and the drawing of dotted and dashed lines much faster with much less
5703 TeX memory, and providing several new commands for drawing ellipses, arcs,
5704 splines, and filled circles and ellipses.  The package uses @code{tpic}
5705 @code{\\special} commands.")
5706     (license license:public-domain)))
5707
5708 (define-public texlive-latex-enumitem
5709   (package
5710     (name "texlive-latex-enumitem")
5711     (version (number->string %texlive-revision))
5712     (source (origin
5713               (method svn-fetch)
5714               (uri (svn-reference
5715                     (url (string-append "svn://www.tug.org/texlive/tags/"
5716                                         %texlive-tag "/Master/texmf-dist/"
5717                                         "/tex/latex/enumitem"))
5718                     (revision %texlive-revision)))
5719               (file-name (string-append name "-" version "-checkout"))
5720               (sha256
5721                (base32
5722                 "1j8svflnx9w897mdavyf1f0n256wh4bbclrhv5vx7b501gmlbp7d"))))
5723     (build-system trivial-build-system)
5724     (arguments
5725      `(#:modules ((guix build utils))
5726        #:builder
5727        (begin
5728          (use-modules (guix build utils))
5729          (let ((target (string-append (assoc-ref %outputs "out")
5730                                       "/share/texmf-dist/tex/latex/enumitem")))
5731            (mkdir-p target)
5732            (copy-recursively (assoc-ref %build-inputs "source") target)
5733            #t))))
5734     (home-page "https://www.ctan.org/pkg/enumitem")
5735     (synopsis "Customize basic list environments")
5736     (description
5737      "This package is intended to ease customizing the three basic list
5738 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5739 extends their syntax to allow an optional argument where a set of parameters
5740 in the form @code{key=value} are available, for example:
5741 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5742     (license license:lppl1.3+)))
5743
5744 (define-public texlive-latex-multirow
5745   (package
5746     (name "texlive-latex-multirow")
5747     (version (number->string %texlive-revision))
5748     (source (origin
5749               (method svn-fetch)
5750               (uri (texlive-ref "latex" "multirow"))
5751               (file-name (string-append name "-" version "-checkout"))
5752               (sha256
5753                (base32
5754                 "1bfpl8mr4h3p46649wb7pdkc3l44r8fqbv89abb3jj0zh8c10928"))))
5755     (build-system texlive-build-system)
5756     (arguments '(#:tex-directory "latex/multirow"))
5757     (home-page "https://www.ctan.org/pkg/multirow")
5758     (synopsis "Create tabular cells spanning multiple rows")
5759     (description
5760      "The package provides tools for creating tabular cells spanning multiple
5761 rows.  It has a lot of flexibility, including an option for specifying an
5762 entry at the \"natural\" width of its text.")
5763     (license license:lppl1.3+)))
5764
5765 (define-public texlive-latex-overpic
5766   (package
5767     (name "texlive-latex-overpic")
5768     (version (number->string %texlive-revision))
5769     (source (origin
5770               (method svn-fetch)
5771               (uri (svn-reference
5772                     (url (string-append "svn://www.tug.org/texlive/tags/"
5773                                         %texlive-tag "/Master/texmf-dist/"
5774                                         "/tex/latex/overpic"))
5775                     (revision %texlive-revision)))
5776               (file-name (string-append name "-" version "-checkout"))
5777               (sha256
5778                (base32
5779                 "1ygsr0rsdabj61zask3346xrwiphz5i6f1nfb9k4d3234psh09kb"))))
5780     (build-system trivial-build-system)
5781     (arguments
5782      `(#:modules ((guix build utils))
5783        #:builder
5784        (begin
5785          (use-modules (guix build utils))
5786          (let ((target (string-append (assoc-ref %outputs "out")
5787                                       "/share/texmf-dist/tex/latex/overpic")))
5788            (mkdir-p target)
5789            (copy-recursively (assoc-ref %build-inputs "source") target)
5790            #t))))
5791     (home-page "https://www.ctan.org/pkg/overpic")
5792     (synopsis "Combine LaTeX commands over included graphics")
5793     (description
5794      "The @code{overpic} environment is a cross between the LaTeX
5795 @code{picture} environment and the @code{\\includegraphics} command of
5796 @code{graphicx}.  The resulting picture environment has the same dimensions as
5797 the included graphic.  LaTeX commands can be placed on the graphic at defined
5798 positions; a grid for orientation is available.")
5799     (license license:lppl1.0+)))
5800
5801 (define-public texlive-latex-parskip
5802   (package
5803     (name "texlive-latex-parskip")
5804     (version (number->string %texlive-revision))
5805     (source (origin
5806               (method svn-fetch)
5807               (uri (svn-reference
5808                     (url (string-append "svn://www.tug.org/texlive/tags/"
5809                                         %texlive-tag "/Master/texmf-dist/"
5810                                         "/tex/latex/parskip"))
5811                     (revision %texlive-revision)))
5812               (file-name (string-append name "-" version "-checkout"))
5813               (sha256
5814                (base32
5815                 "12kdsrr55lp0s4xl279gh6mi9gw909vmd96p10dvhbazgxn3ccxs"))))
5816     (build-system trivial-build-system)
5817     (arguments
5818      `(#:modules ((guix build utils))
5819        #:builder
5820        (begin
5821          (use-modules (guix build utils))
5822          (let ((target (string-append (assoc-ref %outputs "out")
5823                                       "/share/texmf-dist/tex/latex/parskip")))
5824            (mkdir-p target)
5825            (copy-recursively (assoc-ref %build-inputs "source") target)
5826            #t))))
5827     (home-page "https://www.ctan.org/pkg/parskip")
5828     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5829     (description
5830      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5831 that is untidy; this package (though it is no substitute for a properly
5832 designed class) helps alleviate this untidiness.")
5833     (license license:lppl)))
5834
5835 (define-public texlive-latex-pdfpages
5836   (package
5837     (name "texlive-latex-pdfpages")
5838     (version (number->string %texlive-revision))
5839     (source (origin
5840               (method svn-fetch)
5841               (uri (texlive-ref "latex" "pdfpages"))
5842               (file-name (string-append name "-" version "-checkout"))
5843               (sha256
5844                (base32
5845                 "1r1g9lb6bqjrahqmdkazsnifcyxgkp8r33za2h60h50jfvrab66f"))))
5846     (build-system texlive-build-system)
5847     (arguments '(#:tex-directory "latex/pdfpages"))
5848     (home-page "https://www.ctan.org/pkg/pdfpages")
5849     (synopsis "Include PDF documents in LaTeX")
5850     (description
5851      "This package simplifies the inclusion of external multi-page PDF
5852 documents in LaTeX documents.  Pages may be freely selected and it is possible
5853 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5854 hypertext features like hyperlinks and article threads are provided.  The
5855 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5856 use this package to insert PostScript files, in addition to PDF files.")
5857     (license license:lppl1.3+)))
5858
5859 (define-public texlive-stmaryrd
5860   (let ((template (simple-texlive-package
5861                    "texlive-stmaryrd"
5862                    (list "/fonts/afm/public/stmaryrd/"
5863                          "/fonts/map/dvips/stmaryrd/"
5864                          "/fonts/source/public/stmaryrd/"
5865                          "/fonts/tfm/public/stmaryrd/"
5866                          "/fonts/type1/public/stmaryrd/"
5867                          "/source/fonts/stmaryrd/"
5868                          "/doc/fonts/stmaryrd/")
5869                    (base32
5870                     "0yn0yl6x1z9ab5gb56lhvkqabd2agz3ggxifwxkiysrj5780j29z"))))
5871     (package
5872       (inherit template)
5873       (arguments (substitute-keyword-arguments (package-arguments template)
5874                    ((#:tex-directory _ #t)
5875                     "latex/stmaryrd")
5876                    ((#:phases phases)
5877                     `(modify-phases ,phases
5878                        (add-after 'unpack 'chdir
5879                          (lambda _
5880                            (chdir "source/fonts/stmaryrd")
5881                            #t))
5882                        (add-after 'chdir 'patch-ins
5883                          (lambda _
5884                            (substitute* "stmaryrd.ins"
5885                              (("^%% LaTeX2e.*") "\\input docstrip\n")
5886                              (("fontdef\\}\\}" line)
5887                               (string-append line "\n\\endbatchfile")))
5888                            #t))))))
5889       (home-page "https://www.ctan.org/pkg/stmaryrd")
5890       (synopsis "St Mary Road symbols for theoretical computer science")
5891       (description
5892        "The fonts were originally distributed as Metafont sources only, but
5893 Adobe Type 1 versions are also now available.  Macro support is provided for
5894 use under LaTeX; the package supports the @code{only} option (provided by the
5895 @code{somedefs} package) to restrict what is loaded, for those who don't need
5896 the whole font.")
5897       (license license:lppl))))
5898
5899 (define-public texlive-fonts-stmaryrd
5900   (deprecated-package "texlive-fonts-stmaryrd" texlive-stmaryrd))
5901
5902 (define-public texlive-latex-subfigure
5903   (package
5904     (name "texlive-latex-subfigure")
5905     (version (number->string %texlive-revision))
5906     (source (origin
5907               (method svn-fetch)
5908               (uri (texlive-ref "latex" "subfigure"))
5909               (file-name (string-append name "-" version "-checkout"))
5910               (sha256
5911                (base32
5912                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5913     (build-system texlive-build-system)
5914     (arguments '(#:tex-directory "latex/subfigure"))
5915     (home-page "https://www.ctan.org/pkg/subfigure")
5916     (synopsis "Figures divided into subfigures")
5917     (description
5918      "This (deprecated) package provides support for the manipulation and
5919 reference of small or \"sub\" figures and tables within a single figure or
5920 table environment.  It is convenient to use this package when your subfigures
5921 are to be separately captioned, referenced, or are to be included in the
5922 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
5923 used inside a figure environment for each subfigure.  An optional first
5924 argument is used as the caption for that subfigure.  The package is now
5925 considered obsolete: it was superseded by @code{subfig}, but users may find
5926 the more recent @code{subcaption} package more satisfactory.")
5927     (license license:lppl)))
5928
5929 (define-public texlive-latex-tabulary
5930   (package
5931     (name "texlive-latex-tabulary")
5932     (version (number->string %texlive-revision))
5933     (source (origin
5934               (method svn-fetch)
5935               (uri (texlive-ref "latex" "tabulary"))
5936               (file-name (string-append name "-" version "-checkout"))
5937               (sha256
5938                (base32
5939                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
5940     (build-system texlive-build-system)
5941     (arguments '(#:tex-directory "latex/tabulary"))
5942     (home-page "https://www.ctan.org/pkg/tabulary")
5943     (synopsis "Tabular with variable width columns balanced")
5944     (description
5945      "The package defines a @code{tabular*}-like environment, @code{tabulary},
5946 taking a \"total width\" argument as well as the column specifications.  The
5947 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
5948 variable width columns (@code{\\raggedright}, @code{\\centering},
5949 @code{\\raggedleft}, and normally justified).  In contrast to
5950 @code{tabularx}'s @code{X} columns, the width of each column is weighted
5951 according to the natural width of the widest cell in the column.")
5952     (license license:lppl)))
5953
5954 (define-public texlive-latex-threeparttable
5955   (package
5956     (name "texlive-latex-threeparttable")
5957     (version (number->string %texlive-revision))
5958     (source (origin
5959               (method svn-fetch)
5960               (uri (svn-reference
5961                     (url (string-append "svn://www.tug.org/texlive/tags/"
5962                                         %texlive-tag "/Master/texmf-dist/"
5963                                         "/tex/latex/threeparttable"))
5964                     (revision %texlive-revision)))
5965               (file-name (string-append name "-" version "-checkout"))
5966               (sha256
5967                (base32
5968                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
5969     (build-system trivial-build-system)
5970     (arguments
5971      `(#:modules ((guix build utils))
5972        #:builder
5973        (begin
5974          (use-modules (guix build utils))
5975          (let ((target (string-append (assoc-ref %outputs "out")
5976                                       "/share/texmf-dist/tex/latex/threeparttable")))
5977            (mkdir-p target)
5978            (copy-recursively (assoc-ref %build-inputs "source") target)
5979            #t))))
5980     (home-page "https://www.ctan.org/pkg/threeparttable")
5981     (synopsis "Tables with captions and notes all the same width")
5982     (description
5983      "This package facilitates tables with titles (captions) and notes.  The
5984 title and notes are given a width equal to the body of the table (a
5985 @code{tabular} environment).  By itself, a @code{threeparttable} does not
5986 float, but you can put it in a @code{table} or a @code{table*} or some other
5987 environment.")
5988     (license (license:fsf-free "file://threeparttable.sty"))))
5989
5990 (define-public texlive-txfonts
5991   (package
5992     (inherit (simple-texlive-package
5993               "texlive-txfonts"
5994               (list "/doc/fonts/txfonts/"
5995
5996                     "/fonts/afm/public/txfonts/"
5997                     "/fonts/tfm/public/txfonts/"
5998                     "/fonts/type1/public/txfonts/"
5999                     "/fonts/vf/public/txfonts/"
6000
6001                     "/fonts/map/dvips/txfonts/"
6002                     "/fonts/enc/dvips/txfonts/"
6003                     "/tex/latex/txfonts/")
6004               (base32
6005                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
6006               #:trivial? #t))
6007     (home-page "https://www.ctan.org/pkg/txfonts")
6008     (synopsis "Times-like fonts in support of mathematics")
6009     (description
6010      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
6011 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
6012 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
6013 providing all the symbols of the Computer Modern and AMS fonts, including all
6014 the Greek capital letters from CMR; and additional maths fonts of various
6015 other symbols.
6016
6017 The set is complemented by a sans-serif set of text fonts, based on
6018 Helvetica/NimbusSanL, and a monospace set.
6019
6020 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
6021 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
6022     ;; Any version of the GPL with font exception.
6023     (license license:gpl3+)))
6024
6025 (define-public texlive-fonts-txfonts
6026   (deprecated-package "texlive-fonts-txfonts" texlive-txfonts))
6027
6028 (define-public texlive-fonts-iwona
6029   (package
6030     (name "texlive-fonts-iwona")
6031     (version "0.995b")
6032     (source (origin
6033               (method url-fetch)
6034               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
6035                                   (string-map (lambda (c)
6036                                                 (if (char=? c #\.)
6037                                                     #\_ c))
6038                                               version)
6039                                   ".zip"))
6040               (sha256
6041                (base32
6042                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
6043     (build-system trivial-build-system)
6044     (arguments
6045      `(#:modules ((guix build utils))
6046        #:builder
6047        (begin
6048          (use-modules (guix build utils))
6049          (let ((target (string-append (assoc-ref %outputs "out")
6050                                       "/share/texmf-dist/"))
6051                (unzip  (string-append (assoc-ref %build-inputs "unzip")
6052                                       "/bin/unzip")))
6053            (invoke unzip (assoc-ref %build-inputs "source"))
6054            (mkdir-p target)
6055            (copy-recursively "iwona" target)
6056            #t))))
6057     (native-inputs
6058      `(("unzip" ,unzip)))
6059     (home-page "http://jmn.pl/en/kurier-i-iwona/")
6060     (synopsis "Sans-serif typeface for TeX")
6061     (description "Iwona is a two-element sans-serif typeface. It was created
6062 as an alternative version of the Kurier typeface, which was designed in 1975
6063 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
6064 supervision of Roman Tomaszewski.  Kurier was designed for linotype
6065 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
6066 alternative version of the Kurier fonts.  The difference lies in the absence
6067 of ink traps which typify the Kurier font.")
6068     (license license:gfl1.0)))
6069
6070 (define-public texlive-jknappen
6071   (package
6072     (inherit (simple-texlive-package
6073               "texlive-jknappen"
6074               (list "/fonts/source/jknappen/"
6075                     "/fonts/tfm/jknappen/"
6076                     "/tex4ht/ht-fonts/alias/jknappen/"
6077                     "/tex4ht/ht-fonts/unicode/jknappen/")
6078               (base32
6079                "0xvy3c845jc7iw1h9rcm1r2yvm1ni1sm9r9k9j2cfc82xy43rwij")
6080               #:trivial? #t))
6081     (home-page "https://www.ctan.org/pkg/jknappen")
6082     (synopsis "Miscellaneous packages by Jörg Knappen")
6083     (description
6084      "This package contains a collection of macros by Jörg Knappen:
6085 @table @code
6086 @item greekctr
6087 New counterstyles @code{\\greek} and @code{\\Greek}.
6088 @item holtpolt
6089 Non-commutative fractions
6090 @item latin1jk
6091 @itemx latin2jk
6092 @itemx latin3jk
6093 Inputenc definition files that allow verbatim input in the respective ISO
6094 Latin codes.
6095 @item mathbol
6096 Blackboard bold fonts for use in maths.
6097 @item mathrsfs
6098 Mathematical script letters, as traditionally used in physics for Lagrangian,
6099 Hamiltonian, path integral measures, etc.
6100 @item parboxx
6101 New alignment options for parboxen at top and bottom of the box.
6102 @item sans
6103 Interchanges the roles of sans serif and roman fonts throughout the document.
6104 @item semtrans
6105 Support for special latin letters and diacritics used in transliteration of
6106 semitic languages
6107 @item smartmn
6108 Intelligent hyphen/minus, which guesses whether to render as hyphen or minus.
6109 @item sgmlcmpt
6110 Commands replacing the characters <, >, and &.
6111 @item tccompat
6112 A compatibility package for users of the older versions of the textcomp package.
6113 @item young
6114 Simple Young tableaux.
6115 @end table")
6116     (license license:gpl2)))                    ;per the 00readme_txt file.
6117
6118 (define-public texlive-jadetex
6119   (let ((template (simple-texlive-package
6120                    "texlive-jadetex"
6121                    (list "/doc/man/man1/jadetex.1"
6122                          "/doc/man/man1/jadetex.man1.pdf"
6123                          "/doc/man/man1/pdfjadetex.1"
6124                          "/doc/man/man1/pdfjadetex.man1.pdf"
6125                          "/source/jadetex/base/"
6126                          ;; The following files are not generated from
6127                          ;; sources.
6128                          "/tex/jadetex/base/jadetex.ini"
6129                          "/tex/jadetex/base/pdfjadetex.ini"
6130                          "/tex/jadetex/base/uentities.sty")
6131                    (base32
6132                     "03chyc3vjqgxcj985gy4k0bd0lf1n4a6sgbhc7k84jparjk3hx4i"))))
6133     (package
6134       (inherit template)
6135       (arguments
6136        (substitute-keyword-arguments (package-arguments template)
6137          ((#:tex-directory _ #t)
6138           "jadetex/base")
6139          ((#:phases phases)
6140           `(modify-phases ,phases
6141              (add-after 'unpack 'unify-source-directory
6142                (lambda _
6143                  (chdir "source/jadetex/base")
6144                  (for-each (lambda (f)
6145                              (copy-file f (basename f)))
6146                            (find-files "../../../tex/jadetex/base"))
6147                  #t))
6148              (add-after 'build 'generate-formats
6149                (lambda* (#:key inputs #:allow-other-keys)
6150                  (mkdir "web2c")
6151                  (for-each (lambda (f)
6152                              (symlink f (basename f)))
6153                            (find-files "build"))
6154                  (invoke "fmtutil-sys" "--byfmt" "jadetex"
6155                          "--fmtdir=web2c")
6156                  (invoke "fmtutil-sys" "--byfmt" "pdfjadetex"
6157                          "--fmtdir=web2c")))
6158              (add-after 'install 'install-formats-and-wrappers
6159                (lambda* (#:key inputs outputs #:allow-other-keys)
6160                  (let* ((out (assoc-ref outputs "out"))
6161                         (texlive-bin (assoc-ref inputs "texlive-bin"))
6162                         (pdftex (string-append texlive-bin "/bin/pdftex"))
6163                         (web2c (string-append out "/share/texmf-dist/web2c")))
6164                    (mkdir-p web2c)
6165                    (copy-recursively "web2c" web2c)
6166                    ;; Create convenience command wrappers.
6167                    (mkdir-p (string-append out "/bin"))
6168                    (symlink pdftex (string-append out "/bin/jadetex"))
6169                    (symlink pdftex (string-append out "/bin/pdfjadetex"))
6170                    #t)))))))
6171       (propagated-inputs
6172        ;; Propagate the texlive-updmap.cfg input used by xmltex, which provides the
6173        ;; required fonts for its use.
6174        `(("texlive-xmltex" ,texlive-xmltex)
6175          ("texlive-kpathsea" ,texlive-kpathsea))) ;for fmtutil.cnf template
6176       (native-inputs
6177        `(("texlive-cm" ,texlive-cm)     ;for cmex10 and others
6178          ("texlive-fonts-latex" ,texlive-fonts-latex) ;for lasy6
6179          ;; The t1cmr.fd file of texlive-latex-base refers to the ecrm font,
6180          ;; provided by the jknappen package collection.
6181          ("texlive-jknappen" ,texlive-jknappen)
6182          ("texlive-generic-ulem" ,texlive-generic-ulem)
6183          ("texlive-hyperref" ,texlive-hyperref)
6184          ("texlive-latex-colortbl" ,texlive-latex-colortbl)
6185          ("texlive-latex-fancyhdr" ,texlive-latex-fancyhdr)
6186          ("texlive-latex-graphics" ,texlive-latex-graphics) ;for color.sty
6187          ("texlive-latex-tools" ,texlive-latex-tools)       ;for array.sty
6188          ("texlive-marvosym" ,texlive-marvosym)
6189          ("texlive-tex-ini-files" ,texlive-tex-ini-files))) ;for pdftexconfig
6190       (home-page "https://www.ctan.org/pkg/jadetex/")
6191       (synopsis "TeX macros to produce TeX output using OpenJade")
6192       (description "JadeTeX is a companion package to the OpenJade DSSSL
6193 processor.  OpenJade applies a DSSSL stylesheet to an SGML or XML document.
6194 The output of this process can be in a number of forms, including a set of
6195 high level LaTeX macros.  It is the task of the JadeTeX package to transform
6196 these macros into DVI/PostScript (using the @command{jadetex} command) or
6197 Portable Document Format (PDF) form (using the @command{pdfjadetex}
6198 command).")
6199       ;; The license text is found at the header of the jadetex.dtx file.
6200       (license license:expat))))
6201
6202 (define-public texlive-libertine
6203   (package
6204     (inherit (simple-texlive-package
6205               "texlive-libertine"
6206               (list "/doc/fonts/libertine/"
6207
6208                     "/fonts/enc/dvips/libertine/"
6209                     "/fonts/map/dvips/libertine/"
6210                     "/fonts/opentype/public/libertine/"
6211                     "/fonts/tfm/public/libertine/"
6212                     "/fonts/type1/public/libertine/"
6213                     "/fonts/vf/public/libertine/"
6214
6215                     "/tex/latex/libertine/")
6216               (base32
6217                "1d5r80isyvs2v3i8pzlhsn7ns6bn8ldkbs82g25widraixlhg6yg")
6218               #:trivial? #t))
6219     (home-page "https://www.ctan.org/pkg/libertine")
6220     (synopsis "Use Linux Libertine and Biolinum fonts with LaTeX")
6221     (description
6222      "The package provides the Libertine and Biolinum fonts in both Type 1 and
6223 OTF styles, together with support macros for their use.  Monospaced and
6224 display fonts, and the \"keyboard\" set are also included, in OTF style, only.
6225 The @code{mweights} package is used to manage the selection of font weights.
6226 The package supersedes both the @code{libertineotf} and the
6227 @code{libertine-legacy} packages.")
6228     (license (list license:gpl2+        ; with font exception
6229                    license:silofl1.1
6230                    license:lppl))))
6231
6232 (define-public texlive-dejavu
6233   (package
6234     (inherit (simple-texlive-package
6235               "texlive-dejavu"
6236               (list "/doc/fonts/dejavu/"
6237
6238                     "/fonts/enc/dvips/dejavu/"
6239                     "/fonts/map/dvips/dejavu/"
6240
6241                     "/fonts/afm/public/dejavu/"
6242                     "/fonts/tfm/public/dejavu/"
6243                     "/fonts/truetype/public/dejavu/"
6244                     "/fonts/type1/public/dejavu/"
6245                     "/fonts/vf/public/dejavu/"
6246
6247                     "/tex/latex/dejavu/")
6248               (base32
6249                "0y4qf5jl0xncah9nkcaalmy69wwq02n3j895zp71n2p0nfi24aka")
6250               #:trivial? #t))
6251     (home-page "https://www.ctan.org/pkg/libertine")
6252     (synopsis "LaTeX support for the DejaVu fonts")
6253     (description
6254      "The package contains LaTeX support for the DejaVu fonts, which are
6255 derived from the Vera fonts but contain more characters and styles.  The fonts
6256 are included in the original TrueType format, and in converted Type 1 format.
6257 The (currently) supported encodings are: OT1, T1, IL2, TS1, T2*, X2, QX, and
6258 LGR.  The package doesn't (currently) support mathematics.")
6259     (license license:lppl)))
6260
6261 (define-public texlive-latex-titlesec
6262   (package
6263     (name "texlive-latex-titlesec")
6264     (version (number->string %texlive-revision))
6265     (source (origin
6266               (method svn-fetch)
6267               (uri (svn-reference
6268                     (url (string-append "svn://www.tug.org/texlive/tags/"
6269                                         %texlive-tag "/Master/texmf-dist/"
6270                                         "/tex/latex/titlesec"))
6271                     (revision %texlive-revision)))
6272               (file-name (string-append name "-" version "-checkout"))
6273               (sha256
6274                (base32
6275                 "1kw7dvxvdfbf31zw0n8r0g5xak3vcdf25n33fqw93j59zpc5nvbl"))))
6276     (build-system trivial-build-system)
6277     (arguments
6278      `(#:modules ((guix build utils))
6279        #:builder
6280        (begin
6281          (use-modules (guix build utils))
6282          (let ((target (string-append (assoc-ref %outputs "out")
6283                                       "/share/texmf-dist/tex/latex/titlesec")))
6284            (mkdir-p target)
6285            (copy-recursively (assoc-ref %build-inputs "source") target)
6286            #t))))
6287     (home-page "https://www.ctan.org/pkg/titlesec")
6288     (synopsis "Select alternative section titles")
6289     (description
6290      "This package provides an interface to sectioning commands for selection
6291 from various title styles, e.g. for marginal titles and to change the font of
6292 all headings with a single command, also providing simple one-step page
6293 styles.  It also includes a package to change the page styles when there are
6294 floats in a page.  You may assign headers/footers to individual floats, too.")
6295     (license license:lppl)))
6296
6297 (define-public texlive-latex-type1cm
6298   (package
6299     (name "texlive-latex-type1cm")
6300     (version (number->string %texlive-revision))
6301     (source (origin
6302               (method svn-fetch)
6303               (uri (texlive-ref "latex" "type1cm"))
6304               (file-name (string-append name "-" version "-checkout"))
6305               (sha256
6306                (base32
6307                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
6308     (build-system texlive-build-system)
6309     (arguments '(#:tex-directory "latex/type1cm"))
6310     (home-page "https://www.ctan.org/pkg/type1cm")
6311     (synopsis "Arbitrary size font selection in LaTeX")
6312     (description
6313      "LaTeX, by default, restricts the sizes at which you can use its default
6314 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
6315 specified by Knuth).  The @code{type1cm} package removes this restriction;
6316 this is particularly useful when using scalable versions of the CM
6317 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
6318 PCTeX, etc.).  In fact, since modern distributions will automatically generate
6319 any bitmap font you might need, @code{type1cm} has wider application than just
6320 those using scalable versions of the fonts.  Note that the LaTeX distribution
6321 now contains a package @code{fix-cm},f which performs the task of
6322 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
6323 @code{ec} fonts.")
6324     (license license:lppl)))
6325
6326 (define-public texlive-lh
6327   (let ((template (simple-texlive-package
6328                    "texlive-lh"
6329                    (list "/doc/fonts/lh/"
6330                          "/source/fonts/lh/"
6331                          "/source/latex/lh/"
6332                          "/fonts/source/lh/"
6333                          "/tex/plain/lh/")
6334                    (base32
6335                     "0vw75i52asi5sssp8k9r8dy4ihvqbvmbsl3dini3ls8cky15lz37"))))
6336     (package
6337       (inherit template)
6338       (arguments
6339        (substitute-keyword-arguments (package-arguments template)
6340          ((#:tex-directory _ #t)
6341           "latex/lh")
6342          ((#:build-targets _ '())
6343           ''("nfssfox.ins" "lcyfonts.ins" "ot2fonts.ins" "t2ccfonts.ins"))
6344          ((#:phases phases)
6345           `(modify-phases ,phases
6346              (add-after 'unpack 'chdir
6347                (lambda _ (chdir "source/latex/lh") #t))))))
6348       (home-page "https://www.ctan.org/pkg/lh")
6349       (synopsis "Cyrillic fonts that support LaTeX standard encodings")
6350       (description
6351        "The LH fonts address the problem of the wide variety of alphabets that
6352 are written with Cyrillic-style characters.  The fonts are the original basis
6353 of the set of T2* and X2 encodings that are now used when LaTeX users need to
6354 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
6355 offered through the latex-cyrillic and t2 bundles, and the package itself
6356 offers support for other (more traditional) encodings.  The fonts, in the
6357 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
6358 CM-Super family of fonts.  The package also offers its own LaTeX support for
6359 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
6360       (license license:lppl))))
6361
6362 (define-public texlive-latex-lh
6363   (deprecated-package "texlive-latex-lh" texlive-lh))
6364
6365 (define-public texlive-marvosym
6366   (package
6367     (inherit (simple-texlive-package
6368               "texlive-marvosym"
6369               (list "/doc/fonts/marvosym/"
6370                     "/fonts/afm/public/marvosym/"
6371                     "/fonts/map/dvips/marvosym/"
6372                     "/fonts/tfm/public/marvosym/"
6373                     "/fonts/truetype/public/marvosym/"
6374                     "/fonts/type1/public/marvosym/"
6375                     "/tex/latex/marvosym/")
6376               (base32
6377                "0m3bbg06cia8ni86fjhvb7x4a5qcxgnpqcvicfms91w2px9ysc46")
6378               #:trivial? #t))
6379     (home-page "https://martinvogel.de/blog/index.php?\
6380 /archives/131-Marvosym.ttf.html")
6381     (synopsis "Martin Vogel's Symbols (marvosym) font")
6382     (description "The Martin Vogel’s Symbols fonts (marvosym) contains the
6383 Euro currency symbol as defined by the European commission, along with symbols
6384 for structural engineering, symbols for steel cross-sections, astronomy
6385 signs (sun, moon, planets), the 12 signs of the zodiac, scissor symbols, CE
6386 sign and others.  This package contains both the original TrueType font and
6387 the derived Type 1 font, together with support files for TeX (LaTeX).")
6388     (license (list license:lppl          ;for TeX support files
6389                    license:silofl1.1)))) ;for fonts
6390
6391 (define-public texlive-metapost
6392   (package
6393     (name "texlive-metapost")
6394     (version (number->string %texlive-revision))
6395     (source (origin
6396               (method svn-fetch)
6397               (uri (svn-reference
6398                     (url (string-append "svn://www.tug.org/texlive/tags/"
6399                                         %texlive-tag "/Master/texmf-dist/"
6400                                         "/metapost"))
6401                     (revision %texlive-revision)))
6402               (file-name (string-append name "-" version "-checkout"))
6403               (sha256
6404                (base32
6405                 "01ghqyaxxkfscs9jjgnx65hmvqllfzgxc0r5vwpqs7y1h97y6cgc"))))
6406     (build-system trivial-build-system)
6407     (arguments
6408      `(#:modules ((guix build utils))
6409        #:builder
6410        (begin
6411          (use-modules (guix build utils))
6412          (let ((target (string-append (assoc-ref %outputs "out")
6413                                       "/share/texmf-dist/metapost")))
6414            (mkdir-p target)
6415            (copy-recursively (assoc-ref %build-inputs "source") target)
6416            #t))))
6417     (home-page "https://www.ctan.org/pkg/metapost")
6418     (synopsis "Create scalable illustrations")
6419     (description
6420      "MetaPost uses a language based on that of Metafont to produce precise
6421 technical illustrations.  Its output is scalable PostScript or SVG, rather
6422 than the bitmaps Metafont creates.")
6423     (license license:lppl)))
6424
6425 (define-public texlive-latex-acmart
6426   (package
6427     (name "texlive-latex-acmart")
6428     (version "1.60")
6429     (source (origin
6430               (method svn-fetch)
6431               (uri (texlive-ref "latex" "acmart"))
6432               (sha256
6433                (base32
6434                 "1avk9wl7hmgxvv8axd134wl6l8khvw7chw568nc8q70xwiwcqcpk"))
6435               (file-name (string-append name "-" version "-checkout"))))
6436     (build-system texlive-build-system)
6437     (arguments '(#:tex-directory "latex/acmart"))
6438     (home-page "https://www.ctan.org/pkg/acmart")
6439     (synopsis "Class for typesetting publications of ACM")
6440     (description
6441      "This package provides a class for typesetting publications of the
6442 Association for Computing Machinery (ACM).")
6443     (license license:lppl1.3+)))
6444
6445 (define-public texlive-latex-varwidth
6446   (package
6447     (name "texlive-latex-varwidth")
6448     (version (number->string %texlive-revision))
6449     (source (origin
6450               (method svn-fetch)
6451               (uri (svn-reference
6452                     (url (string-append "svn://www.tug.org/texlive/tags/"
6453                                         %texlive-tag "/Master/texmf-dist/"
6454                                         "/tex/latex/varwidth"))
6455                     (revision %texlive-revision)))
6456               (file-name (string-append name "-" version "-checkout"))
6457               (sha256
6458                (base32
6459                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
6460     (build-system trivial-build-system)
6461     (arguments
6462      `(#:modules ((guix build utils))
6463        #:builder
6464        (begin
6465          (use-modules (guix build utils))
6466          (let ((target (string-append (assoc-ref %outputs "out")
6467                                       "/share/texmf-dist/tex/latex/varwidth")))
6468            (mkdir-p target)
6469            (copy-recursively (assoc-ref %build-inputs "source") target)
6470            #t))))
6471     (home-page "https://www.ctan.org/pkg/varwidth")
6472     (synopsis "Variable-width minipage")
6473     (description
6474      "The @code{varwidth} environment is superficially similar to
6475 @code{minipage}, but the specified width is just a maximum value — the box may
6476 get a narrower “natural” width.")
6477     (license license:lppl)))
6478
6479 (define-public texlive-wasy
6480   (package
6481     (inherit (simple-texlive-package
6482               "texlive-wasy"
6483               (list "/fonts/source/public/wasy/"
6484                     "/fonts/tfm/public/wasy/"
6485                     "/tex/plain/wasy/"
6486                     "/doc/fonts/wasy/")
6487               (base32
6488                "1swzxgld3lndi5q0q6zkwbw06ndh13fvp04as7zpwyhh646s0hbx")
6489               #:trivial? #t))
6490     (home-page "https://www.ctan.org/pkg/wasy")
6491     (synopsis "Waldi symbol fonts")
6492     (description "This package provides the @code{wasy} (Waldi symbol) fonts,
6493 in the Metafont and Adobe Type 1 formats.  Support under LaTeX is provided by
6494 the @code{wasysym} package.")
6495     (license license:public-domain)))
6496
6497 (define-public texlive-wasysym
6498   (package
6499     (name "texlive-wasysym")
6500     (version (number->string %texlive-revision))
6501     (source (origin
6502               (method svn-fetch)
6503               (uri (texlive-ref "latex" "wasysym"))
6504               (file-name (string-append name "-" version "-checkout"))
6505               (sha256
6506                (base32
6507                 "0zxcf0pfqf439cfwl0r5dd93b0v4pbiih36n2pwshdlvnmy0nr50"))))
6508     (build-system texlive-build-system)
6509     (arguments '(#:tex-directory "latex/wasysym"))
6510     (home-page "https://www.ctan.org/pkg/wasysym")
6511     (synopsis "LaTeX support file to use the @code{wasy} fonts")
6512     (description
6513      "The @code{wasy} (Waldi Symbol) font by Roland Waldi provides many glyphs like
6514 male and female symbols and astronomical symbols, as well as the complete
6515 @code{lasy} font set and other odds and ends.  The @code{wasysym} package
6516 implements an easy to use interface for these symbols.")
6517     (license license:lppl)))
6518
6519 (define-public texlive-latex-wasysym
6520   (deprecated-package "texlive-latex-wasysym" texlive-wasysym))
6521
6522 (define-public texlive-latex-wrapfig
6523   (package
6524     (name "texlive-latex-wrapfig")
6525     (version (number->string %texlive-revision))
6526     (source (origin
6527               (method svn-fetch)
6528               (uri (svn-reference
6529                     (url (string-append "svn://www.tug.org/texlive/tags/"
6530                                         %texlive-tag "/Master/texmf-dist/"
6531                                         "/tex/latex/wrapfig"))
6532                     (revision %texlive-revision)))
6533               (file-name (string-append name "-" version "-checkout"))
6534               (sha256
6535                (base32
6536                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
6537     (build-system trivial-build-system)
6538     (arguments
6539      `(#:modules ((guix build utils))
6540        #:builder
6541        (begin
6542          (use-modules (guix build utils))
6543          (let ((target (string-append (assoc-ref %outputs "out")
6544                                       "/share/texmf-dist/tex/latex/wrapfig")))
6545            (mkdir-p target)
6546            (copy-recursively (assoc-ref %build-inputs "source") target)
6547            #t))))
6548     (home-page "https://www.ctan.org/pkg/wrapfig")
6549     (synopsis "Produces figures which text can flow around")
6550     (description
6551      "This package allows figures or tables to have text wrapped around them.
6552 It does not work in combination with list environments, but can be used in a
6553 @code{parbox} or @code{minipage}, and in two-column format.")
6554     (license license:lppl)))
6555
6556 (define-public texlive-latex-ucs
6557   (package
6558     (name "texlive-latex-ucs")
6559     (version (number->string %texlive-revision))
6560     (source (origin
6561               (method svn-fetch)
6562               (uri (svn-reference
6563                     (url (string-append "svn://www.tug.org/texlive/tags/"
6564                                         %texlive-tag "/Master/texmf-dist/"
6565                                         "/tex/latex/ucs"))
6566                     (revision %texlive-revision)))
6567               (file-name (string-append name "-" version "-checkout"))
6568               (sha256
6569                (base32
6570                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
6571     (build-system trivial-build-system)
6572     (arguments
6573      `(#:modules ((guix build utils))
6574        #:builder
6575        (begin
6576          (use-modules (guix build utils))
6577          (let ((target (string-append (assoc-ref %outputs "out")
6578                                       "/share/texmf-dist/tex/latex/ucs")))
6579            (mkdir-p target)
6580            (copy-recursively (assoc-ref %build-inputs "source") target)
6581            #t))))
6582     (home-page "https://www.ctan.org/pkg/ucs")
6583     (synopsis "Extended UTF-8 input encoding support for LaTeX")
6584     (description
6585      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
6586 together with a large number of support files.  The @code{utf8x.def}
6587 definition file for use with @code{inputenc} covers a wider range of Unicode
6588 characters than does @code{utf8.def} in the LaTeX distribution.  The package
6589 provides facilities for efficient use of its large sets of Unicode characters.
6590 Glyph production may be controlled by various options, which permits use of
6591 non-ASCII characters when coding mathematical formulae.  Note that the bundle
6592 previously had an alias “unicode”; that alias has now been withdrawn, and no
6593 package of that name now exists.")
6594     (license license:lppl1.3+)))
6595
6596 (define-public texlive-latex-preview
6597   (package
6598     (name "texlive-latex-preview")
6599     (version (number->string %texlive-revision))
6600     (source (origin
6601               (method svn-fetch)
6602               (uri (texlive-ref "latex" "preview"))
6603               (file-name (string-append name "-" version "-checkout"))
6604               (sha256
6605                (base32
6606                 "1mcp0x3snhx9phhfxqwn6d12b84vi049ljd1l11ianp3i4kad6ls"))))
6607     (build-system texlive-build-system)
6608     (arguments
6609      '(#:tex-directory "latex/preview"
6610        #:phases
6611        (modify-phases %standard-phases
6612          (add-after 'unpack 'remove-generated-file
6613            (lambda _
6614              (delete-file "preview.drv")
6615              #t)))))
6616     (home-page "https://www.ctan.org/pkg/preview")
6617     (synopsis "Extract bits of a LaTeX source for output")
6618     (description
6619      "The main purpose of the preview package is the extraction of selected
6620 elements from a LaTeX source, like formulas or graphics, into separate
6621 pages of a DVI file.  A flexible and convenient interface allows it to
6622 specify what commands and constructs should be extracted.  This works
6623 with DVI files postprocessed by either Dvips and Ghostscript or
6624 dvipng, but it also works when you are using PDFTeX for generating PDF
6625 files.")
6626     (license license:gpl3+)))
6627
6628 (define-public texlive-latex-acronym
6629   (package
6630     (name "texlive-latex-acronym")
6631     (version (number->string %texlive-revision))
6632     (source (origin
6633               (method svn-fetch)
6634               (uri (texlive-ref "latex" "acronym"))
6635               (file-name (string-append name "-" version "-checkout"))
6636               (sha256
6637                (base32
6638                 "0dl3dliz0vwds3804s1kxaj0ghd721v2c6hws9ghx0bjky09yxbx"))))
6639     (build-system texlive-build-system)
6640     (arguments '(#:tex-directory "latex/acronym"))
6641     (home-page "https://www.ctan.org/pkg/acronym")
6642     (synopsis "Expand acronyms at least once")
6643     (description
6644      "This package ensures that all acronyms used in the text are spelled out
6645 in full at least once.  It also provides an environment to build a list of
6646 acronyms used.  The package is compatible with PDF bookmarks.  The package
6647 requires the suffix package, which in turn requires that it runs under
6648 e-TeX.")
6649     (license license:lppl1.3+)))
6650
6651 (define-public texlive-pdftex
6652   (package
6653     (inherit (simple-texlive-package
6654               "texlive-pdftex"
6655               (list "/doc/pdftex/"
6656                     "/doc/man/man1/pdfetex.1"
6657                     "/doc/man/man1/pdftex.1"
6658
6659                     "/fonts/map/dvips/dummy-space/dummy-space.map"
6660                     "/fonts/tfm/public/pdftex/dummy-space.tfm"
6661                     "/fonts/type1/public/pdftex/dummy-space.pfb"
6662                     "/scripts/simpdftex/simpdftex"
6663
6664                     "/tex/generic/config/pdftex-dvi.tex"
6665                     "/tex/generic/pdftex/")
6666               (base32
6667                "181krzhxs61s62fr6gz7x08c57rbgc2b8i2pr7r8hr6f706ywp26")
6668               #:trivial? #t))
6669     (home-page "https://www.ctan.org/pkg/pdftex")
6670     (synopsis "TeX extension for direct creation of PDF")
6671     (description
6672      "This package provides an extension of TeX which can be configured to
6673 directly generate PDF documents instead of DVI.")
6674     (license license:gpl2+)))
6675
6676 (define-public texlive-generic-pdftex
6677   (deprecated-package "texlive-generic-pdftex" texlive-pdftex))
6678
6679 (define texlive-texmf
6680   (package
6681    (name "texlive-texmf")
6682    (version "20200406")
6683    (source texlive-texmf-src)
6684    (build-system gnu-build-system)
6685    (inputs
6686     `(("texlive-bin" ,texlive-bin)
6687       ("lua" ,lua)
6688       ("perl" ,perl)
6689       ("python" ,python)
6690       ("ruby" ,ruby)
6691       ("tcsh" ,tcsh)))
6692    (arguments
6693     `(#:modules ((guix build gnu-build-system)
6694                  (guix build utils)
6695                  (srfi srfi-26))
6696
6697       ;; This package takes 4 GiB, which we can't afford to distribute from
6698       ;; our servers.
6699       #:substitutable? #f
6700
6701       #:phases
6702         (modify-phases (map (cut assq <> %standard-phases)
6703                             '(set-paths unpack patch-source-shebangs))
6704           (add-after 'unpack 'unset-environment-variables
6705             (lambda _
6706               (unsetenv "TEXMF")
6707               (unsetenv "TEXMFCNF")
6708               #t))
6709           (add-after 'patch-source-shebangs 'install
6710             (lambda* (#:key outputs #:allow-other-keys)
6711               (let ((share (string-append (assoc-ref outputs "out") "/share")))
6712                 (mkdir-p share)
6713                 (invoke "mv" "texmf-dist" share))))
6714           (add-after 'install 'texmf-config
6715             (lambda* (#:key inputs outputs #:allow-other-keys)
6716               (let* ((out (assoc-ref outputs "out"))
6717                      (share (string-append out "/share"))
6718                      (texmfroot (string-append share "/texmf-dist/web2c"))
6719                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
6720                      (texlive-bin (assoc-ref inputs "texlive-bin"))
6721                      (texbin (string-append texlive-bin "/bin"))
6722                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
6723                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
6724                 (substitute* texmfcnf
6725                   (("TEXMFROOT = \\$SELFAUTOPARENT")
6726                    (string-append "TEXMFROOT = " share))
6727                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
6728                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
6729                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
6730                 ;; Register paths in texmfcnf.lua, needed for context.
6731                 (substitute* (string-append texmfroot "/texmfcnf.lua")
6732                   (("selfautodir:") out)
6733                   (("selfautoparent:") (string-append share "/")))
6734                 ;; Set path to TeXLive Perl modules
6735                 (setenv "PERL5LIB"
6736                         (string-append (getenv "PERL5LIB") ":" tlpkg))
6737                 ;; Configure the texmf-dist tree; inspired from
6738                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
6739                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
6740                 (setenv "TEXMFCNF" texmfroot)
6741                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
6742                 (invoke "mktexlsr")
6743                 (invoke "fmtutil-sys" "--all")))))))
6744    (properties `((max-silent-time . 9600))) ; don't time out while grafting
6745    (synopsis "TeX Live, a package of the TeX typesetting system")
6746    (description
6747     "TeX Live provides a comprehensive TeX document production system.
6748 It includes all the major TeX-related programs, macro packages, and fonts
6749 that are free software, including support for many languages around the
6750 world.
6751
6752 This package contains the complete tree of texmf-dist data.")
6753    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6754    (home-page "https://www.tug.org/texlive/")))
6755
6756 (define-public texlive
6757   (package
6758    (name "texlive")
6759    (version "20200406")
6760    (source #f)
6761    (build-system trivial-build-system)
6762    (inputs `(("bash" ,bash-minimal)     ;for wrap-program
6763              ("texlive-bin" ,texlive-bin)
6764              ("texlive-texmf" ,texlive-texmf)))
6765    (native-search-paths
6766     (list (search-path-specification
6767            (variable "TEXMFLOCAL")
6768            (files '("share/texmf-local")))))
6769    (arguments
6770     `(#:modules ((guix build utils))
6771       #:builder
6772         ;; Build the union of texlive-bin and texlive-texmf, but take the
6773         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
6774         (begin
6775           (use-modules (guix build utils))
6776           (let ((out (assoc-ref %outputs "out"))
6777                 (bin (assoc-ref %build-inputs "texlive-bin"))
6778                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
6779                 (bash (assoc-ref %build-inputs "bash")))
6780                (mkdir out)
6781                (with-directory-excursion out
6782                  (for-each
6783                    (lambda (name)
6784                      (symlink (string-append bin "/" name) name))
6785                    '("include" "lib"))
6786                  (mkdir "bin")
6787                  (with-directory-excursion "bin"
6788                    (setenv "PATH" (string-append bash "/bin"))
6789                    (for-each
6790                      (lambda (name)
6791                        (symlink name (basename name))
6792                        (wrap-program
6793                          (basename name)
6794                          `("TEXMFCNF" =
6795                            (,(string-append texmf "/share/texmf-dist/web2c")))))
6796                      (find-files (string-append bin "/bin/") "")))
6797                  (mkdir "share")
6798                  (with-directory-excursion "share"
6799                    (for-each
6800                      (lambda (name)
6801                        (symlink (string-append bin "/share/" name) name))
6802                      '("info" "man" "tlpkg"))
6803                    (for-each
6804                      (lambda (name)
6805                        (symlink (string-append texmf "/share/" name) name))
6806                      '("texmf-dist" "texmf-var"))))
6807                #t))))
6808    (synopsis "TeX Live, a package of the TeX typesetting system")
6809    (description
6810     "TeX Live provides a comprehensive TeX document production system.
6811 It includes all the major TeX-related programs, macro packages, and fonts
6812 that are free software, including support for many languages around the
6813 world.
6814
6815 This package contains the complete TeX Live distribution.")
6816    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6817    (home-page "https://www.tug.org/texlive/")))
6818
6819 (define-public perl-text-bibtex
6820   (package
6821     (name "perl-text-bibtex")
6822     (version "0.85")
6823     (source
6824      (origin
6825        (method url-fetch)
6826        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
6827                            version ".tar.gz"))
6828        (sha256
6829         (base32
6830          "036kxgbn1jf70pfm2lmjlzjwnhbkd888fp5lyvmkjpdd15gla18h"))))
6831     (build-system perl-build-system)
6832     (arguments
6833      `(#:phases
6834        (modify-phases %standard-phases
6835          (add-after 'unpack 'add-output-directory-to-rpath
6836            (lambda* (#:key outputs #:allow-other-keys)
6837              (substitute* "inc/MyBuilder.pm"
6838                (("-Lbtparse" line)
6839                 (string-append "-Wl,-rpath="
6840                                (assoc-ref outputs "out") "/lib " line)))
6841              #t))
6842          (add-after 'unpack 'install-libraries-to-/lib
6843            (lambda* (#:key outputs #:allow-other-keys)
6844              (substitute* "Build.PL"
6845                (("lib64") "lib"))
6846              #t)))))
6847     (native-inputs
6848      `(("perl-capture-tiny" ,perl-capture-tiny)
6849        ("perl-config-autoconf" ,perl-config-autoconf)
6850        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6851        ("perl-module-build" ,perl-module-build)))
6852     (home-page "https://metacpan.org/release/Text-BibTeX")
6853     (synopsis "Interface to read and parse BibTeX files")
6854     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
6855 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
6856 at many different levels: you may work with BibTeX entries as simple field to
6857 string mappings, or get at the original form of the data as a list of simple
6858 values (strings, macros, or numbers) pasted together.")
6859     (license license:perl-license)))
6860
6861 (define-public biber
6862   (package
6863     ;; Note: When updating Biber, make sure it matches our BibLaTeX version by
6864     ;; checking the Biber/BibLaTeX compatibility matrix in the BibLaTeX manual
6865     ;; at <https://ctan.org/pkg/biblatex>.
6866     (name "biber")
6867     (version "2.12")
6868     (source (origin
6869               (method git-fetch)
6870               (uri (git-reference
6871                     (url "https://github.com/plk/biber/")
6872                     (commit (string-append "v" version))))
6873               (file-name (git-file-name name version))
6874               ;; TODO: Patch awaiting inclusion upstream (see:
6875               ;; https://github.com/plk/biber/issues/239).
6876               (patches (search-patches "biber-fix-encoding-write.patch"
6877                                        "biber-sortinithash.patch"))
6878               (sha256
6879                (base32
6880                 "1g1hi6zvf2hmrjly1sidjaxy5440gfqm4p7p3n7kayshnjsmlskx"))))
6881     (build-system perl-build-system)
6882     (arguments
6883      `(#:phases
6884        (modify-phases %standard-phases
6885          (add-after 'install 'wrap-programs
6886            (lambda* (#:key outputs #:allow-other-keys)
6887              (let* ((out (assoc-ref outputs "out"))
6888                     (perl5lib (getenv "PERL5LIB")))
6889                (wrap-program (string-append out "/bin/biber")
6890                  `("PERL5LIB" ":" prefix
6891                    (,(string-append perl5lib ":" out
6892                                     "/lib/perl5/site_perl")))))
6893              #t)))))
6894     (inputs
6895      `(("perl-autovivification" ,perl-autovivification)
6896        ("perl-class-accessor" ,perl-class-accessor)
6897        ("perl-data-dump" ,perl-data-dump)
6898        ("perl-data-compare" ,perl-data-compare)
6899        ("perl-data-uniqid" ,perl-data-uniqid)
6900        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
6901        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
6902        ("perl-file-slurper" ,perl-file-slurper)
6903        ("perl-ipc-cmd" ,perl-ipc-cmd)
6904        ("perl-ipc-run3" ,perl-ipc-run3)
6905        ("perl-list-allutils" ,perl-list-allutils)
6906        ("perl-list-moreutils" ,perl-list-moreutils)
6907        ("perl-mozilla-ca" ,perl-mozilla-ca)
6908        ("perl-regexp-common" ,perl-regexp-common)
6909        ("perl-log-log4perl" ,perl-log-log4perl)
6910        ;; We cannot use perl-unicode-collate here, because otherwise the
6911        ;; hardcoded hashes in the tests would differ.  See
6912        ;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
6913        ;;("perl-unicode-collate" ,perl-unicode-collate)
6914        ("perl-unicode-normalize" ,perl-unicode-normalize)
6915        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
6916        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
6917        ("perl-encode-jis2k" ,perl-encode-jis2k)
6918        ("perl-encode-hanextra" ,perl-encode-hanextra)
6919        ("perl-xml-libxml" ,perl-xml-libxml)
6920        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
6921        ("perl-xml-libxslt" ,perl-xml-libxslt)
6922        ("perl-xml-writer" ,perl-xml-writer)
6923        ("perl-sort-key" ,perl-sort-key)
6924        ("perl-text-csv" ,perl-text-csv)
6925        ("perl-text-csv-xs" ,perl-text-csv-xs)
6926        ("perl-text-roman" ,perl-text-roman)
6927        ("perl-uri" ,perl-uri)
6928        ("perl-text-bibtex" ,perl-text-bibtex)
6929        ("perl-libwww" ,perl-libwww)
6930        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
6931        ("perl-business-isbn" ,perl-business-isbn)
6932        ("perl-business-issn" ,perl-business-issn)
6933        ("perl-business-ismn" ,perl-business-ismn)
6934        ("perl-lingua-translit" ,perl-lingua-translit)))
6935     (native-inputs
6936      `(("perl-config-autoconf" ,perl-config-autoconf)
6937        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6938        ("perl-module-build" ,perl-module-build)
6939        ;; for tests
6940        ("perl-file-which" ,perl-file-which)
6941        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
6942        ("perl-test-differences" ,perl-test-differences)))
6943     (home-page "http://biblatex-biber.sourceforge.net/")
6944     (synopsis "Backend for the BibLaTeX citation management tool")
6945     (description "Biber is a BibTeX replacement for users of biblatex.  Among
6946 other things it comes with full Unicode support.")
6947     (license license:artistic2.0)))
6948
6949 (define-public rubber
6950   (package
6951     (name "rubber")
6952     (version "1.5.1")
6953     (source (origin
6954               (method url-fetch)
6955               (uri (list (string-append "https://launchpad.net/rubber/trunk/"
6956                                         version "/+download/rubber-"
6957                                         version ".tar.gz")
6958                          (string-append "http://ebeffara.free.fr/pub/rubber-"
6959                                         version ".tar.gz")))
6960               (sha256
6961                (base32
6962                 "178dmrp0mza5gqjiqgk6dqs0c10s0c517pk6k9pjbam86vf47a1p"))))
6963     (build-system python-build-system)
6964     (arguments
6965      '(#:tests? #f ; no `check' target
6966        #:phases
6967        (modify-phases %standard-phases
6968          (delete 'build)
6969          (replace 'install
6970            (lambda* (#:key outputs #:allow-other-keys)
6971              ;; texlive is required to build the PDF documentation; do not
6972              ;; build it.
6973              (invoke "python" "setup.py" "build" "--pdf=False" "install"
6974                      (string-append "--prefix=" (assoc-ref outputs "out"))))))))
6975     (native-inputs `(("texinfo" ,texinfo)))
6976     (home-page "https://launchpad.net/rubber")
6977     (synopsis "Wrapper for LaTeX and friends")
6978     (description
6979      "Rubber is a program whose purpose is to handle all tasks related to the
6980 compilation of LaTeX documents.  This includes compiling the document itself,
6981 of course, enough times so that all references are defined, and running BibTeX
6982 to manage bibliographic references.  Automatic execution of dvips to produce
6983 PostScript documents is also included, as well as usage of pdfLaTeX to produce
6984 PDF documents.")
6985     (license license:gpl2+)))
6986
6987 (define-public texmaker
6988   (package
6989     (name "texmaker")
6990     (version "5.0.4")
6991     (source (origin
6992               (method url-fetch)
6993               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
6994                                   version ".tar.bz2"))
6995               (sha256
6996                (base32
6997                 "1qnh5g8zkjpjmw2l8spcynpfgs3wpcfcla5ms2kkgvkbdlzspqqx"))))
6998     (build-system gnu-build-system)
6999     (arguments
7000      `(#:phases
7001        (modify-phases %standard-phases
7002          ;; Qt has its own configuration utility.
7003          (replace 'configure
7004            (lambda* (#:key outputs #:allow-other-keys)
7005              (let ((out (assoc-ref outputs "out")))
7006                (invoke "qmake"
7007                        (string-append "PREFIX=" out)
7008                        (string-append "DESKTOPDIR=" out "/share/applications")
7009                        (string-append "ICONDIR=" out "/share/pixmaps")
7010                        (string-append "METAINFODIR=" out "/share/metainfo")
7011                        "texmaker.pro")))))))
7012     (inputs
7013      `(("poppler-qt5" ,poppler-qt5)
7014        ("qtbase" ,qtbase)
7015        ("qtscript" ,qtscript)
7016        ("qtwebkit" ,qtwebkit)
7017        ("zlib" ,zlib)))
7018     (native-inputs
7019      `(("pkg-config" ,pkg-config)))
7020     (home-page "http://www.xm1math.net/texmaker/")
7021     (synopsis "LaTeX editor")
7022     (description "Texmaker is a program that integrates many tools needed to
7023 develop documents with LaTeX, in a single application.")
7024     (license license:gpl2+)))
7025
7026 (define-public teximpatient
7027   (package
7028     (name "teximpatient")
7029     (version "2.4")
7030     (source (origin
7031               (method url-fetch/tarbomb)
7032               (uri (string-append "mirror://gnu/" name "/" name "-"
7033                                   version ".tar.gz"))
7034               (sha256
7035                (base32
7036                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
7037     (build-system gnu-build-system)
7038     (arguments
7039      `(#:tests? #f ; there are none
7040        #:phases
7041        (modify-phases %standard-phases
7042          (add-after 'unpack 'fix-packaging-error
7043            (lambda* (#:key inputs #:allow-other-keys)
7044              ;; This file should have been part of the tarball.
7045              (install-file (car
7046                             (find-files
7047                              (assoc-ref inputs "automake")
7048                              "^install-sh$"))
7049                            ".")
7050              ;; Remove generated file.
7051              (delete-file "book.pdf")
7052              #t)))))
7053     (native-inputs
7054      `(("texlive" ,(texlive-updmap.cfg (list texlive-amsfonts
7055                                         texlive-fonts-adobe-palatino
7056                                         texlive-fonts-adobe-zapfding
7057                                         texlive-knuth-lib
7058                                         texlive-fonts-mflogo-font
7059                                         texlive-pdftex)))
7060        ("automake" ,automake)))
7061     (home-page "https://www.gnu.org/software/teximpatient/")
7062     (synopsis "Book on TeX, plain TeX and Eplain")
7063     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
7064 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
7065 and Karl Berry.")
7066     (license license:fdl1.3+)))
7067
7068 (define-public lyx
7069   (package
7070     (name "lyx")
7071     (version "2.3.6.1")
7072     (source (origin
7073               (method url-fetch)
7074               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
7075                                   (version-major+minor version) ".x/"
7076                                   "lyx-" version ".tar.xz"))
7077               (sha256
7078                (base32
7079                 "0y7sx804ral14py5jwmb3icvyd6rsw806dfclw0qx28r6iix5gn6"))
7080               (modules '((guix build utils)))
7081               (snippet
7082                '(begin
7083                   (delete-file-recursively "3rdparty")
7084                   #t))))
7085     (build-system qt-build-system)
7086     (arguments
7087      `(#:configure-flags `("-DLYX_USE_QT=QT5"
7088                            "-DLYX_EXTERNAL_BOOST=1"
7089                            "-DLYX_INSTALL=1"
7090                            "-DLYX_RELEASE=1"
7091                            "-DLYX_PROGRAM_SUFFIX=OFF"
7092                            ,(string-append "-DLYX_INSTALL_PREFIX="
7093                                            (assoc-ref %outputs "out")))
7094        #:phases
7095        (modify-phases %standard-phases
7096          (add-after 'unpack 'patch-python
7097            (lambda* (#:key inputs #:allow-other-keys)
7098              (substitute* '("lib/configure.py"
7099                             "src/support/ForkedCalls.cpp"
7100                             "src/support/Systemcall.cpp"
7101                             "src/support/os.cpp"
7102                             "src/support/filetools.cpp")
7103                (("\"python ")
7104                 (string-append "\""
7105                                (assoc-ref inputs "python")
7106                                "/bin/python3 ")))
7107              #t))
7108          (add-after 'unpack 'add-missing-test-file
7109            (lambda _
7110              ;; Create missing file that would cause tests to fail.
7111              (with-output-to-file "src/tests/check_layout.cmake"
7112                (const #t))
7113              #t)))))
7114     (inputs
7115      `(("boost" ,boost)
7116        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
7117        ("libx11" ,libx11)
7118        ("mythes" ,mythes)
7119        ("python" ,python)
7120        ("qtbase" ,qtbase)
7121        ("qtsvg" ,qtsvg)
7122        ("zlib" ,zlib)))
7123     (propagated-inputs
7124      `(("texlive" ,(texlive-updmap.cfg (list texlive-fonts-ec)))))
7125     (native-inputs
7126      `(("python" ,python)
7127        ("pkg-config" ,pkg-config)))
7128     (home-page "https://www.lyx.org/")
7129     (synopsis "Document preparation system with GUI")
7130     (description "LyX is a document preparation system.  It excels at letting
7131 you create complex technical and scientific articles with mathematics,
7132 cross-references, bibliographies, indexes, etc.  It is very good for working
7133 with documents of any length in which the usual processing abilities are
7134 required: automatic sectioning and pagination, spell checking and so forth.")
7135     (license license:gpl2+)))
7136
7137 (define-public texlive-latex-media9
7138   (package
7139     (name "texlive-latex-media9")
7140     (version (number->string %texlive-revision))
7141     (source (origin
7142               (method svn-fetch)
7143               (uri (svn-reference
7144                     (url (string-append "svn://www.tug.org/texlive/tags/"
7145                                         %texlive-tag "/Master/texmf-dist/"
7146                                         "/tex/latex/media9"))
7147                     (revision %texlive-revision)))
7148               (file-name (string-append name "-" version "-checkout"))
7149               (sha256
7150                (base32
7151                 "0ganz4r78zmvq0s3w9d59pc2qh9pv0akv21f57yc3d5yyb520p6x"))))
7152     (build-system trivial-build-system)
7153     (arguments
7154      `(#:modules ((guix build utils))
7155        #:builder
7156        (begin
7157          (use-modules (guix build utils))
7158          (let ((target (string-append (assoc-ref %outputs "out")
7159                                       "/share/texmf-dist/tex/latex/media9")))
7160            (mkdir-p target)
7161            (copy-recursively (assoc-ref %build-inputs "source") target)
7162            #t))))
7163     (home-page "https://www.ctan.org/pkg/media9")
7164     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
7165     (description
7166      "The package provides an interface to embed interactive Flash (SWF) and 3D
7167 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
7168 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
7169 compatibility.  Playback of multimedia files uses the built-in Flash Player of
7170 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
7171 supports the efficient H.264 codec for video compression.
7172
7173 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
7174 specification.  It replaces the now obsolete @code{movie15} package.")
7175     (license license:lppl)))
7176
7177 (define-public texlive-latex-ocgx2
7178   (package
7179     (name "texlive-latex-ocgx2")
7180     (version (number->string %texlive-revision))
7181     (source (origin
7182               (method svn-fetch)
7183               (uri (svn-reference
7184                     (url (string-append "svn://www.tug.org/texlive/tags/"
7185                                         %texlive-tag "/Master/texmf-dist/"
7186                                         "/tex/latex/ocgx2"))
7187                     (revision %texlive-revision)))
7188               (file-name (string-append name "-" version "-checkout"))
7189               (sha256
7190                (base32
7191                 "0x7v3ih7k9hqfcnya0wchks63b67yngi21a6343vlwzdqn84mbyp"))))
7192     (build-system trivial-build-system)
7193     (arguments
7194      `(#:modules ((guix build utils))
7195        #:builder
7196        (begin
7197          (use-modules (guix build utils))
7198          (let ((target (string-append (assoc-ref %outputs "out")
7199                                       "/share/texmf-dist/tex/latex/ogcx2")))
7200            (mkdir-p target)
7201            (copy-recursively (assoc-ref %build-inputs "source") target)
7202            #t))))
7203     (home-page "https://www.ctan.org/pkg/ocgx2")
7204     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
7205     (description
7206      "This package provides OCG (Optional Content Groups) support within a PDF
7207 document.
7208
7209 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
7210 @code{ocg-p} packages and adds support for all known engines and back-ends
7211 including:
7212
7213 @itemize
7214 @item LaTeX → dvips → @code{ps2pdf}/Distiller
7215 @item (Xe)LaTeX(x) → @code{dvipdfmx}
7216 @item pdfLaTeX and LuaLaTeX .
7217 @end itemize
7218
7219 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
7220     (license license:lppl)))
7221
7222 (define-public texlive-latex-ms
7223   (package
7224     (name "texlive-latex-ms")
7225     (version (number->string %texlive-revision))
7226     (source (origin
7227               (method svn-fetch)
7228               (uri (texlive-ref "latex" "ms"))
7229               (file-name (string-append name "-" version "-checkout"))
7230               (sha256
7231                (base32
7232                 "07zqxynjh3qnnb4fxx5bhw4r21dbsrhanrq38ag62acr876l7agm"))))
7233     (build-system texlive-build-system)
7234     (arguments
7235      '(#:tex-directory "latex/ms"
7236        #:tex-format "latex"))
7237     (home-page "https://ctan.org/pkg/ms")
7238     (synopsis "Various LATEX packages by Martin Schröder")
7239     (description
7240      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
7241
7242 @itemize
7243 @item @command{count1to}, make use of fixed TEX counters;
7244 @item @command{everysel}, set commands to execute every time a font is selected;
7245 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
7246 @item @command{multitoc}, typeset the table of contents in multiple columns;
7247 @item @command{prelim2e}, mark typeset pages as preliminary; and
7248 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
7249 @end itemize\n")
7250     (license license:lppl1.3c+)))
7251
7252 (define-public texlive-latex-needspace
7253   (package
7254     (name "texlive-latex-needspace")
7255     (version (number->string %texlive-revision))
7256     (source (origin
7257               (method svn-fetch)
7258               (uri (texlive-ref "latex" "needspace"))
7259               (file-name (string-append name "-" version "-checkout"))
7260               (sha256
7261                (base32
7262                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
7263     (build-system texlive-build-system)
7264     (arguments
7265      '(#:tex-directory "latex/needspace"
7266        #:tex-format "latex"))
7267     (inputs
7268      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7269     (home-page "https://www.ctan.org/pkg/needspace")
7270     (synopsis "Insert pagebreak if not enough space")
7271     (description
7272      "Provides commands to disable pagebreaking within a given vertical
7273 space.  If there is not enough space between the command and the bottom of the
7274 page, a new page will be started.")
7275     (license license:lppl)))
7276
7277 (define-public texlive-latex-changepage
7278   (package
7279     (name "texlive-latex-changepage")
7280     (version (number->string %texlive-revision))
7281     (source
7282      (origin
7283        (method svn-fetch)
7284        (uri (texlive-ref "latex" "changepage"))
7285        (file-name (string-append name "-" version "-checkout"))
7286        (sha256
7287         (base32
7288          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
7289     (build-system texlive-build-system)
7290     (arguments
7291      '(#:tex-directory "latex/changepage"
7292        #:tex-format "latex"))
7293     (inputs
7294      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
7295     (home-page "https://www.ctan.org/pkg/changepage")
7296     (synopsis "Margin adjustment and detection of odd/even pages")
7297     (description
7298      "The package provides commands to change the page layout in the middle of
7299 a document, and to robustly check for typesetting on odd or even pages.
7300 Instructions for use are at the end of the file.  The package is an extraction
7301 of code from the @code{memoir} class, whose user interface it shares.")
7302     (license license:lppl1.3+)))
7303
7304 (define-public texlive-latex-eukdate
7305   (package
7306     (name "texlive-latex-eukdate")
7307     (version (number->string %texlive-revision))
7308     (source
7309      (origin
7310        (method svn-fetch)
7311        (uri (svn-reference
7312              (url (string-append "svn://www.tug.org/texlive/tags/"
7313                                  %texlive-tag "/Master/texmf-dist/"
7314                                  "/tex/latex/eukdate"))
7315              (revision %texlive-revision)))
7316        (file-name (string-append name "-" version "-checkout"))
7317        (sha256
7318         (base32
7319          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
7320     (build-system trivial-build-system)
7321     (arguments
7322      `(#:modules ((guix build utils))
7323        #:builder
7324        (begin
7325          (use-modules (guix build utils))
7326          (let ((target (string-append (assoc-ref %outputs "out")
7327                                       "/share/texmf-dist/tex/latex/eukdate")))
7328            (mkdir-p target)
7329            (copy-recursively (assoc-ref %build-inputs "source") target)
7330            #t))))
7331     (home-page "https://www.ctan.org/pkg/eukdate")
7332     (synopsis "UK format dates, with weekday")
7333     (description
7334      "The package is used to change the format of @code{\\today}’s date,
7335 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
7336 is preferred in many parts of the world, as distinct from that which is used in
7337 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
7338     (license license:lppl)))
7339
7340 (define-public texlive-generic-ulem
7341   (package
7342     (name "texlive-generic-ulem")
7343     (version (number->string %texlive-revision))
7344     (source
7345      (origin
7346        (method svn-fetch)
7347        (uri (svn-reference
7348              (url (string-append "svn://www.tug.org/texlive/tags/"
7349                                  %texlive-tag "/Master/texmf-dist/"
7350                                  "/tex/generic/ulem"))
7351              (revision %texlive-revision)))
7352        (file-name (string-append name "-" version "-checkout"))
7353        (sha256
7354         (base32
7355          "161ka7sckiakcr1fgydxpc580sr16vp4sp3avjl2v9jn1pd2pwp0"))))
7356     (build-system trivial-build-system)
7357     (arguments
7358      `(#:modules ((guix build utils))
7359        #:builder
7360        (begin
7361          (use-modules (guix build utils))
7362          (let ((target (string-append (assoc-ref %outputs "out")
7363                                       "/share/texmf-dist/tex/generic/ulem")))
7364            (mkdir-p target)
7365            (copy-recursively (assoc-ref %build-inputs "source") target)
7366            #t))))
7367     (home-page "https://www.ctan.org/pkg/ulem")
7368     (synopsis "Underline text in TeX")
7369     (description
7370      "The package provides an @code{\\ul} (underline) command which will break
7371 over line ends; this technique may be used to replace @code{\\em} (both in that
7372 form and as the @code{\\emph} command), so as to make output look as if it comes
7373 from a typewriter.  The package also offers double and wavy underlining, and
7374 striking out (line through words) and crossing out (/// over words).")
7375     (license license:lppl1.3c+)))
7376
7377 (define-public texlive-latex-pgf
7378   (package
7379     (name "texlive-latex-pgf")
7380     (version (number->string %texlive-revision))
7381     (source
7382      (origin
7383        (method svn-fetch)
7384        (uri (svn-reference
7385              (url (string-append "svn://www.tug.org/texlive/tags/"
7386                                  %texlive-tag "/Master/texmf-dist/"
7387                                  "/tex/latex/pgf"))
7388              (revision %texlive-revision)))
7389        (file-name (string-append name "-" version "-checkout"))
7390        (sha256
7391         (base32
7392          "1hxivv4iq4ji1rz34fdx3hf9i0dj3a8336w1pa87jyavbl07n5g7"))))
7393     (build-system trivial-build-system)
7394     (native-inputs
7395      `(("texlive-latex-pgf-generic"
7396         ,(origin
7397            (method svn-fetch)
7398            (uri (svn-reference
7399              (url (string-append "svn://www.tug.org/texlive/tags/"
7400                                  %texlive-tag "/Master/texmf-dist/"
7401                                  "/tex/generic/pgf"))
7402              (revision %texlive-revision)))
7403            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
7404            (sha256
7405             (base32
7406              "1gh1vm8hkfgz1kw1cdws9hbw9llzw6n7w0v7z763am5amd3cyhhm"))))))
7407     (propagated-inputs
7408      `(("texlive-latex-xcolor" ,texlive-latex-xcolor)))
7409     (arguments
7410      `(#:modules ((guix build utils))
7411        #:builder
7412        (begin
7413          (use-modules (guix build utils))
7414          (let ((target-generic (string-append (assoc-ref %outputs "out")
7415                                               "/share/texmf-dist/tex/generic/pgf"))
7416                (target-latex (string-append (assoc-ref %outputs "out")
7417                                             "/share/texmf-dist/tex/latex/pgf")))
7418            (mkdir-p target-generic)
7419            (mkdir-p target-latex)
7420            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
7421            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
7422            #t))))
7423     (home-page "https://www.ctan.org/pkg/tikz")
7424     (synopsis "Create PostScript and PDF graphics in TeX")
7425     (description
7426      "PGF is a macro package for creating graphics.  It is platform- and
7427 format-independent and works together with the most important TeX backend
7428 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
7429 called TikZ.
7430
7431 Its usage is similar to pstricks and the standard picture environment.  PGF
7432 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
7433 produce either PostScript or PDF output.")
7434     (license license:lppl1.3c+)))
7435
7436 (define-public texlive-latex-koma-script
7437   (package
7438     (name "texlive-latex-koma-script")
7439     (version (number->string %texlive-revision))
7440     (source (origin
7441               (method svn-fetch)
7442               (uri (svn-reference
7443                     (url (string-append "svn://www.tug.org/texlive/tags/"
7444                                         %texlive-tag "/Master/texmf-dist/"
7445                                         "/tex/latex/koma-script"))
7446                     (revision %texlive-revision)))
7447               (file-name (string-append name "-" version "-checkout"))
7448               (sha256
7449                (base32
7450                 "18bfdfhdfc7nxr29wvcmp08wgq6f3fc7yysg1sgzgsqrffr1viwa"))))
7451     (build-system trivial-build-system)
7452     (arguments
7453      `(#:modules ((guix build utils))
7454        #:builder
7455        (begin
7456          (use-modules (guix build utils)
7457                       (ice-9 match))
7458          (let ((root (string-append (assoc-ref %outputs "out")
7459                                     "/share/texmf-dist/"))
7460                (pkgs '(("source" . "tex/latex/koma-script"))))
7461            (for-each (match-lambda
7462                        ((pkg . dir)
7463                         (let ((target (string-append root dir)))
7464                           (mkdir-p target)
7465                           (copy-recursively (assoc-ref %build-inputs pkg)
7466                                             target))))
7467                      pkgs)
7468            #t))))
7469     (home-page "https://www.ctan.org/pkg/koma-script")
7470     (synopsis "Bundle of versatile classes and packages")
7471     (description
7472      "The KOMA-Script bundle provides replacements for the article, report, and
7473 book classes with emphasis on typography and versatility.  There is also a
7474 letter class.
7475
7476 The bundle also offers:
7477
7478 @itemize
7479 @item a package for calculating type areas in the way laid down by the
7480 typographer Jan Tschichold,
7481 @item packages for easily changing and defining page styles,
7482 @item a package scrdate for getting not only the current date but also the name
7483 of the day, and
7484 @item a package scrtime for getting the current time.
7485 @end itemize
7486
7487 All these packages may be used not only with KOMA-Script classes but also with
7488 the standard classes.
7489
7490 Since every package has its own version number, the version number quoted only
7491 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
7492 typearea (which are the main parts of the bundle).")
7493     (license license:lppl1.3+)))
7494
7495 (define-public texlive-generic-atbegshi
7496   (package
7497     (inherit (simple-texlive-package
7498               "texlive-generic-atbegshi"
7499               '("/doc/latex/atbegshi/"
7500                 "/tex/generic/atbegshi/")
7501               (base32
7502                "184fr5kd3wl44ix63lwb3ll7dhiikkyw1czbnzrl4am4rx0zh4d8")
7503               #:trivial? #t))
7504     (home-page "https://www.ctan.org/pkg/atbegshi")
7505     (synopsis "Execute commands at @code{\\shipout} time")
7506     (description
7507      "This package is a modern reimplementation of package @code{everyshi},
7508 providing various commands to be executed before a @code{\\shipout} command.
7509 It makes use of e-TeX’s facilities if they are available.  The package may
7510 be used either with LaTeX or with plain TeX.")
7511     (license license:lppl1.3c+)))
7512
7513 (define-public texlive-generic-bigintcalc
7514   (package
7515     (inherit (simple-texlive-package
7516               "texlive-generic-bigintcalc"
7517               '("/doc/latex/bigintcalc/README.md"
7518                 "/tex/generic/bigintcalc/")
7519               (base32
7520                "19grk4p1dh566hgpzhnjyjnrw57hpjijcpr7ci401n9jszcc1xkz")
7521               #:trivial? #t))
7522     (propagated-inputs
7523      `(("texlive-latex-pdftexcmds" ,texlive-latex-pdftexcmds)))
7524     (home-page "https://www.ctan.org/pkg/bigintcalc")
7525     (synopsis "Integer calculations on very large numbers")
7526     (description
7527      "This package provides expandable arithmetic operations with big
7528 integers that can exceed TeX's number limits.")
7529     (license license:lppl1.3c+)))
7530
7531 (define-public texlive-generic-bitset
7532   (package
7533     (inherit (simple-texlive-package
7534               "texlive-generic-bitset"
7535               '("/doc/latex/bitset/README.md"
7536                 "/tex/generic/bitset/")
7537               (base32
7538                "0inj6qpzizvsbxdfsaijnl4iq976kyrnchnm3gc1kc2w389zrn1l")
7539               #:trivial? #t))
7540     (propagated-inputs
7541      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
7542        ("texlive-generic-intcalc" ,texlive-generic-intcalc)
7543        ("texlive-generic-bigintcalc" ,texlive-generic-bigintcalc)))
7544     (home-page "https://www.ctan.org/pkg/bitset")
7545     (synopsis "Handle bit-vector datatype")
7546     (description
7547      "This package defines and implements the data type bit set, a vector
7548 of bits.  The size of the vector may grow dynamically.  Individual bits
7549 can be manipulated.")
7550     (license license:lppl1.3c+)))
7551
7552 (define-public texlive-generic-etexcmds
7553   (package
7554     (inherit (simple-texlive-package
7555               "texlive-generic-etexcmds"
7556               '("/doc/latex/etexcmds/README.md"
7557                 "/tex/generic/etexcmds/")
7558               (base32
7559                "11y6pnlq13bp0ybi7c82g8ds8085zv1zaslgqv3dzhgi3dklpc0c")
7560               #:trivial? #t))
7561     (propagated-inputs
7562      `(("texlive-generic-infwarerr" ,texlive-generic-infwarerr)
7563        ("texlive-generic-iftex" ,texlive-generic-iftex)))
7564     (home-page "https://www.ctan.org/pkg/etexcmds")
7565     (synopsis "Avoid name clashes with e-TeX commands")
7566     (description
7567      "New primitive commands are introduced in e-TeX; sometimes the names
7568 collide with existing macros.  This package solves the name clashes by
7569 adding a prefix to e-TeX’s commands.  For example, ε-TeX’s
7570 @code{\\unexpanded} is provided as @code{\\etex@unexpanded}.")
7571     (license license:lppl1.3c+)))
7572
7573 (define-public texlive-generic-gettitlestring
7574   (package
7575     (inherit (simple-texlive-package
7576               "texlive-generic-gettitlestring"
7577               '("/doc/latex/gettitlestring/"
7578                 "/tex/generic/gettitlestring/")
7579               (base32
7580                "1p4hg9mac03rzvj9dw0ws3zdh55fy1ns954f912algw9f2aq4xgp")
7581               #:trivial? #t))
7582     (home-page "https://www.ctan.org/pkg/gettitlestring")
7583     (synopsis "Clean up title references")
7584     (description
7585      "This package provides commands for cleaning up the title string
7586 (such as removing @code{\\label} commands) for packages that typeset such
7587 strings.")
7588     (license license:lppl1.3c+)))
7589
7590 (define-public texlive-generic-infwarerr
7591   (package
7592     (inherit (simple-texlive-package
7593               "texlive-generic-infwarerr"
7594               '("/tex/generic/infwarerr/")
7595               (base32
7596                "19nlrbfmqbkjrrx9x75s9nd6crg1lzimb2fr3hfblaivj6lx8p4r")
7597               #:trivial? #t))
7598     (home-page "https://www.ctan.org/pkg/infwarerr")
7599     (synopsis "Information/warning/error macros")
7600     (description
7601      "This package provides a complete set of macros for information,
7602 warning and error messages.  Under LaTeX, the commands are wrappers for
7603 the corresponding LaTeX commands; under Plain TeX they are available as
7604 complete implementations.")
7605     (license license:lppl1.3c+)))
7606
7607 (define-public texlive-generic-intcalc
7608   (package
7609     (inherit (simple-texlive-package
7610               "texlive-generic-intcalc"
7611               '("/tex/generic/intcalc/")
7612               (base32
7613                "0llrnayqwdqxi91yh7panbbiljina3bynv2hxhi6sssaw3pyd92l")
7614               #:trivial? #t))
7615     (home-page "https://www.ctan.org/pkg/intcalc")
7616     (synopsis "Expandable arithmetic operations with integers")
7617     (description
7618      "This package provides expandable arithmetic operations with integers,
7619 using the e-TeX extension @code{\\numexpr} if it is available.")
7620     (license license:lppl1.3c+)))
7621
7622 (define-public texlive-generic-kvdefinekeys
7623   (package
7624     (inherit (simple-texlive-package
7625               "texlive-generic-kvdefinekeys"
7626               '("/tex/generic/kvdefinekeys/")
7627               (base32
7628                "12nn74skhwiszbdhawqds31caz6d59a5pjmwar0r8lmk4f1jr3xh")
7629               #:trivial? #t))
7630     (home-page "https://www.ctan.org/pkg/kvdefinekeys")
7631     (synopsis "Define keys for use in the @code{kvsetkeys} package")
7632     (description
7633      "This package provides the @code{\\kv@define@key} (analogous to
7634 keyval’s @code{\\define@key}, to define keys for use by @code{kvsetkeys}.")
7635     (license license:lppl1.3c+)))
7636
7637 (define-public texlive-generic-kvsetkeys
7638   (package
7639     (inherit (simple-texlive-package
7640               "texlive-generic-kvsetkeys"
7641               '("/tex/generic/kvsetkeys/")
7642               (base32
7643                "149vpmv4vms269dzq4sghlngg380sasvxnb3sx9rfs7d9j0finvi")
7644               #:trivial? #t))
7645     (home-page "https://www.ctan.org/pkg/kvsetkeys")
7646     (synopsis "Key value parser with default handler support")
7647     (description
7648      "This package provides @code{\\kvsetkeys}, a variant of @code{\\setkeys}
7649 from the @code{keyval} package.  Users can specify a handler that deals with
7650 unknown options.  Active commas and equal signs may be used, and only one
7651 level of curly braces are removed from the values.")
7652     (license license:lppl1.3c+)))
7653
7654 (define-public texlive-generic-listofitems
7655   (package
7656     (name "texlive-generic-listofitems")
7657     (version (number->string %texlive-revision))
7658     (source (origin
7659               (method svn-fetch)
7660               (uri (svn-reference
7661                     (url (string-append "svn://www.tug.org/texlive/tags/"
7662                                         %texlive-tag "/Master/texmf-dist/"
7663                                         "/tex/generic/listofitems"))
7664                     (revision %texlive-revision)))
7665               (file-name (string-append name "-" version "-checkout"))
7666               (sha256
7667                (base32
7668                 "1wnbnfrhi6hgqa78jsw6hljzi03i5x99mlr5n2419hgws52hk67y"))))
7669     (build-system trivial-build-system)
7670     (arguments
7671      `(#:modules ((guix build utils))
7672        #:builder
7673        (begin
7674          (use-modules (guix build utils))
7675          (let ((target (string-append (assoc-ref %outputs "out")
7676                                       "/share/texmf-dist/tex/generic/listofitems")))
7677            (mkdir-p target)
7678            (copy-recursively (assoc-ref %build-inputs "source") target)
7679            #t))))
7680     (home-page "https://www.ctan.org/pkg/listofitems")
7681     (synopsis "Grab items in lists using user-specified separation character")
7682     (description
7683      "This package allows one to capture all the items of a list, for which
7684 the parsing character has been selected by the user, and to access any of
7685 these items with a simple syntax.")
7686     (license license:lppl1.3c+)))
7687
7688 (define-public texlive-generic-ltxcmds
7689   (package
7690     (inherit (simple-texlive-package
7691               "texlive-generic-ltxcmds"
7692               '("/tex/generic/ltxcmds/")
7693               (base32
7694                "0mdzy76sbc3pmas5zqxn35w9xcg4v7j4p31jcjm9f4hzm27y974a")
7695               #:trivial? #t))
7696     (home-page "https://www.ctan.org/pkg/ltxcmds")
7697     (synopsis "LaTeX kernel commands extracted for general use")
7698     (description
7699      "This package exports some utility macros from the LaTeX kernel into
7700 a separate namespace and also makes them available for other formats such
7701 as plain TeX.")
7702     (license license:lppl1.3c+)))
7703
7704 (define-public texlive-generic-pdfescape
7705   (package
7706     (inherit (simple-texlive-package
7707               "texlive-generic-pdfescape"
7708               '("/tex/generic/pdfescape/")
7709               (base32
7710                "1vbdjmm9bi9ngzz2z1b8jnf6nzf9xsaj5pvyswg13y4dr00mnz6n")
7711               #:trivial? #t))
7712     (home-page "https://www.ctan.org/pkg/pdfescape")
7713     (synopsis "pdfTeX's escape features for plain TeX")
7714     (description
7715      "This package implements pdfTeX's escape features (@code{\\pdfescapehex},
7716 @code{\\pdfunescapehex}, @code{\\pdfescapename}, @code{\\pdfescapestring})
7717 using TeX or e-TeX.")
7718     (license license:lppl1.3c+)))
7719
7720 (define-public texlive-generic-uniquecounter
7721   (package
7722     (inherit (simple-texlive-package
7723               "texlive-generic-uniquecounter"
7724               '("/doc/latex/uniquecounter/"
7725                 "/tex/generic/uniquecounter/")
7726               (base32
7727                "1bjh8vwiqlkmjqndnh4xp116524x4m3hdcyq2s231jiqy8il8dcc")
7728               #:trivial? #t))
7729     (propagated-inputs
7730      `(("texlive-generic-bigintcalc" ,texlive-generic-bigintcalc)
7731        ("texlive-generic-infwarerr" ,texlive-generic-infwarerr)))
7732     (home-page "https://www.ctan.org/pkg/uniquecounter")
7733     (synopsis "Unlimited unique counter")
7734     (description
7735      "This package provides a kind of counter that provides unique number
7736 values.  Several counters can be created with different names.  The numeric
7737 values are not limited.")
7738     (license license:lppl1.3c+)))
7739
7740 (define-public texlive-latex-readarray
7741   (package
7742     (name "texlive-latex-readarray")
7743     (version (number->string %texlive-revision))
7744     (source (origin
7745               (method svn-fetch)
7746               (uri (svn-reference
7747                     (url (string-append "svn://www.tug.org/texlive/tags/"
7748                                         %texlive-tag "/Master/texmf-dist/"
7749                                         "/tex/latex/readarray"))
7750                     (revision %texlive-revision)))
7751               (file-name (string-append name "-" version "-checkout"))
7752               (sha256
7753                (base32
7754                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
7755     (build-system trivial-build-system)
7756     (arguments
7757      `(#:modules ((guix build utils))
7758        #:builder
7759        (begin
7760          (use-modules (guix build utils))
7761          (let ((target (string-append (assoc-ref %outputs "out")
7762                                       "/share/texmf-dist/tex/latex/readarray")))
7763            (mkdir-p target)
7764            (copy-recursively (assoc-ref %build-inputs "source") target)
7765            #t))))
7766     (propagated-inputs
7767      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
7768     (home-page "https://www.ctan.org/pkg/readarray")
7769     (synopsis "Read, store and recall array-formatted data")
7770     (description
7771      "This package allows the user to input formatted data into elements of a
7772 2-D or 3-D array and to recall that data at will by individual cell number.
7773 The data can be but need not be numerical in nature.  It can be, for example,
7774 formatted text.")
7775     (license license:lppl1.3)))
7776
7777 (define-public texlive-latex-verbatimbox
7778   (package
7779     (name "texlive-latex-verbatimbox")
7780     (version (number->string %texlive-revision))
7781     (source (origin
7782               (method svn-fetch)
7783               (uri (svn-reference
7784                     (url (string-append "svn://www.tug.org/texlive/tags/"
7785                                         %texlive-tag "/Master/texmf-dist/"
7786                                         "/tex/latex/verbatimbox"))
7787                     (revision %texlive-revision)))
7788               (file-name (string-append name "-" version "-checkout"))
7789               (sha256
7790                (base32
7791                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
7792     (build-system trivial-build-system)
7793     (arguments
7794      `(#:modules ((guix build utils))
7795        #:builder
7796        (begin
7797          (use-modules (guix build utils))
7798          (let ((target (string-append (assoc-ref %outputs "out")
7799                                       "/share/texmf-dist/tex/latex/verbatimbox")))
7800            (mkdir-p target)
7801            (copy-recursively (assoc-ref %build-inputs "source") target)
7802            #t))))
7803     (propagated-inputs
7804      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
7805     (home-page "https://www.ctan.org/pkg/verbatimbox")
7806     (synopsis "Deposit verbatim text in a box")
7807     (description
7808      "The package provides a @code{verbbox} environment to place its contents
7809 into a globally available box, or into a box specified by the user.  The
7810 global box may then be used in a variety of situations (for example, providing
7811 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
7812 in places where the standard @code{verbatim} environment (which is based on a
7813 @code{trivlist}) may not appear.")
7814     (license license:lppl1.3+)))
7815
7816 (define-public texlive-latex-examplep
7817   (package
7818     (name "texlive-latex-examplep")
7819     (version (number->string %texlive-revision))
7820     (source (origin
7821               (method svn-fetch)
7822               (uri (svn-reference
7823                     (url (string-append "svn://www.tug.org/texlive/tags/"
7824                                         %texlive-tag "/Master/texmf-dist/"
7825                                         "/tex/latex/examplep"))
7826                     (revision %texlive-revision)))
7827               (file-name (string-append name "-" version "-checkout"))
7828               (sha256
7829                (base32
7830                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
7831     (build-system trivial-build-system)
7832     (arguments
7833      `(#:modules ((guix build utils))
7834        #:builder
7835        (begin
7836          (use-modules (guix build utils))
7837          (let ((target (string-append (assoc-ref %outputs "out")
7838                                       "/share/texmf-dist/tex/latex/examplep")))
7839            (mkdir-p target)
7840            (copy-recursively (assoc-ref %build-inputs "source") target)
7841            #t))))
7842     (home-page "https://www.ctan.org/pkg/examplep")
7843     (synopsis "Verbatim phrases and listings in LaTeX")
7844     (description
7845      "Examplep provides sophisticated features for typesetting verbatim source
7846 code listings, including the display of the source code and its compiled LaTeX
7847 or METAPOST output side-by-side, with automatic width detection and enabled
7848 page breaks (in the source), without the need for specifying the source twice.
7849 Special care is taken that section, page and footnote numbers do not interfere
7850 with the main document.  For typesetting short verbatim phrases, a replacement
7851 for the @code{\\verb} command is also provided in the package, which can be
7852 used inside tables and moving arguments such as footnotes and section
7853 titles.")
7854     ;; No version of the GPL is specified.
7855     (license license:gpl3+)))
7856
7857 (define-public texlive-xypic
7858   (let ((template (simple-texlive-package
7859                    "texlive-xypic"
7860                    (list "/doc/generic/xypic/"
7861                          "/dvips/xypic/xy389dict.pro"
7862                          "/fonts/enc/dvips/xypic/"
7863                          "/fonts/map/dvips/xypic/xypic.map"
7864
7865                          "/fonts/source/public/xypic/"
7866                          "/fonts/afm/public/xypic/"
7867                          "/fonts/tfm/public/xypic/"
7868                          "/fonts/type1/public/xypic/"
7869                          "/tex/generic/xypic/")
7870                    (base32
7871                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
7872                    #:trivial? #t)))
7873     (package
7874       (inherit template)
7875       (arguments
7876        (substitute-keyword-arguments (package-arguments template)
7877          ((#:phases phases)
7878           `(modify-phases ,phases
7879              (delete 'reset-gzip-timestamps)))))
7880       (home-page "https://www.ctan.org/pkg/xypic")
7881       (synopsis "Flexible diagramming macros")
7882       (description "This is a package for typesetting a variety of graphs and
7883 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
7884 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
7885 @code{diag} package, which was previously distributed stand-alone.")
7886       (license license:gpl3+))))
7887
7888 (define-public texlive-fonts-xypic
7889   (deprecated-package "texlive-fonts-xypic" texlive-xypic))
7890
7891 (define-public texlive-generic-xypic
7892   (deprecated-package "texblive-generic-xypic" texlive-xypic))
7893
7894 (define-public texlive-bibtex
7895   (package
7896     (name "texlive-bibtex")
7897     (version (number->string %texlive-revision))
7898     (source
7899      (origin
7900        (method svn-fetch)
7901        (uri (svn-reference
7902              (url (string-append "svn://www.tug.org/texlive/tags/"
7903                                  %texlive-tag "/Master/texmf-dist/"
7904                                  "/bibtex"))
7905              (revision %texlive-revision)))
7906        (file-name (string-append name "-" version "-checkout"))
7907        (sha256
7908         (base32
7909          "056q9sg3bn8j70laspwdvh7fr3635l7vv3762h6rq79a58g3bya4"))))
7910     (build-system trivial-build-system)
7911     (arguments
7912      `(#:modules ((guix build utils))
7913        #:builder
7914        (begin
7915          (use-modules (guix build utils))
7916          (let ((target (string-append (assoc-ref %outputs "out")
7917                                       "/share/texmf-dist/bibtex")))
7918            (mkdir-p target)
7919            (copy-recursively (assoc-ref %build-inputs "source") target)
7920            #t))))
7921     (home-page "https://www.ctan.org/pkg/bibtex")
7922     (synopsis "Process bibliographies for LaTeX")
7923     (description
7924      "BibTeX allows the user to store his citation data in generic form, while
7925 printing citations in a document in the form specified by a BibTeX style, to
7926 be specified in the document itself (one often needs a LaTeX citation-style
7927 package, such as @command{natbib} as well).")
7928     (license license:knuth)))
7929
7930 (define-public texlive-charter
7931   (package
7932     (inherit (simple-texlive-package
7933               "texlive-charter"
7934               (list "/doc/fonts/charter/readme.charter"
7935                     "/fonts/afm/bitstrea/charter/"
7936                     "/fonts/tfm/bitstrea/charter/"
7937                     "/fonts/type1/bitstrea/charter/"
7938                     "/fonts/vf/bitstrea/charter/")
7939               (base32
7940                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
7941               #:trivial? #t))
7942     (home-page "https://www.ctan.org/pkg/charter")
7943     (synopsis "Charter fonts for TeX")
7944     (description "This package provides a copy of the Charter Type-1 fonts
7945 which Bitstream contributed to the X consortium, renamed for use with TeX.
7946 Support for use with LaTeX is available in @code{freenfss}, part of
7947 @command{psnfss}. ")
7948     (license (license:non-copyleft
7949               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
7950
7951 (define-public texlive-fonts-charter
7952   (deprecated-package "texlive-fonts-charter" texlive-charter))
7953
7954 (define-public texlive-context-base
7955   (package
7956     (name "texlive-context-base")
7957     (version (number->string %texlive-revision))
7958     (source (origin
7959               (method svn-fetch)
7960               (uri (svn-reference
7961                     (url (string-append "svn://www.tug.org/texlive/tags/"
7962                                         %texlive-tag "/Master/texmf-dist/"
7963                                         "/tex/context/base"))
7964                     (revision %texlive-revision)))
7965               (file-name (string-append name "-" version "-checkout"))
7966               (sha256
7967                (base32
7968                 "145klhcf1i1n9rldjxccd3gkjxwp3i36601xlhch8kyf64rrgybk"))))
7969     (build-system trivial-build-system)
7970     (arguments
7971      `(#:modules ((guix build utils))
7972        #:builder
7973        (begin
7974          (use-modules (guix build utils))
7975          (let ((target (string-append (assoc-ref %outputs "out")
7976                                       "/share/texmf-dist/tex/context/case")))
7977            (mkdir-p target)
7978            (copy-recursively (assoc-ref %build-inputs "source") target)
7979            #t))))
7980     (home-page "https://www.ctan.org/pkg/context")
7981     (synopsis "Full featured, parameter driven macro package for TeX")
7982     (description "A full featured, parameter driven macro package, which fully
7983 supports advanced interactive documents.  See the ConTeXt garden for a wealth
7984 of support information.")
7985     (license license:gpl2+)))
7986
7987 (define-public texlive-context
7988   (package
7989     (inherit (simple-texlive-package
7990               "texlive-context"
7991               (list "/doc/context/"
7992                     ;; XXX Omitting /doc/man/man1/*.pdf
7993                     "/bibtex/bst/context/mkii/"
7994                     "/context/data/"
7995
7996                     "/fonts/afm/hoekwater/context/contnav.afm"
7997                     "/fonts/cid/fontforge/Adobe-CNS1-4.cidmap"
7998                     "/fonts/cid/fontforge/Adobe-GB1-4.cidmap"
7999                     "/fonts/cid/fontforge/Adobe-Identity-0.cidmap"
8000                     "/fonts/cid/fontforge/Adobe-Japan1-5.cidmap"
8001                     "/fonts/cid/fontforge/Adobe-Japan1-6.cidmap"
8002                     "/fonts/cid/fontforge/Adobe-Japan2-0.cidmap"
8003                     "/fonts/cid/fontforge/Adobe-Korea1-2.cidmap"
8004                     "/fonts/enc/dvips/context/"
8005                     "/fonts/map/dvips/context/"
8006                     "/fonts/map/luatex/context/"
8007                     "/fonts/map/pdftex/context/"
8008                     "/fonts/misc/xetex/fontmapping/context/"
8009                     "/fonts/tfm/hoekwater/context/contnav.tfm"
8010                     "/fonts/type1/hoekwater/context/"
8011
8012                     "/metapost/context/"
8013                     "/scripts/context/"
8014                     "/tex/context/"
8015
8016                     "/tex/generic/context/luatex/"
8017                     "/tex/generic/context/ppchtex/"
8018                     "/tex/latex/context/")
8019               (base32
8020                "0krbxj0cjyy9b6xv5xx670rh8y3pxbqziljjj80qbdwixk1lf01q")
8021               #:trivial? #t))
8022     (home-page "https://www.ctan.org/pkg/context")
8023     (synopsis "ConTeXt macro package")
8024     (description "ConTeXt is a full featured, parameter driven macro package,
8025 which fully supports advanced interactive documents.  See the ConTeXt garden
8026 for a wealth of support information.")
8027     ;; The GPL applies to all code; alternatively, the LaTeX license may be used.
8028     ;; The CC-BY-SA license applies to all documentation.
8029     (license (list license:lppl1.3c+
8030                    license:gpl2+
8031                    license:cc-by-sa4.0))))
8032
8033 (define-public texlive-beamer
8034   (package
8035     (inherit (simple-texlive-package
8036               "texlive-beamer"
8037               (list "/doc/latex/beamer/"
8038                     "/tex/latex/beamer/")
8039               (base32
8040                "1yw9ixmjc0h1nqxsvd8lvibdggcysx25001pzzixg1b00l2jf242")
8041               #:trivial? #t))
8042     (propagated-inputs
8043      `(("texlive-latex-hyperref" ,texlive-latex-hyperref)
8044        ("texlive-oberdiek" ,texlive-oberdiek)
8045        ("texlive-latex-etoolbox" ,texlive-latex-etoolbox)
8046        ("texlive-latex-pgf" ,texlive-latex-pgf)))
8047     (home-page "https://www.ctan.org/pkg/beamer")
8048     (synopsis "LaTeX class for producing presentations and slides")
8049     (description "The beamer LaTeX class can be used for producing slides.
8050 The class works in both PostScript and direct PDF output modes, using the
8051 @code{pgf} graphics system for visual effects.  Content is created in the
8052 @code{frame} environment, and each frame can be made up of a number of slides
8053 using a simple notation for specifying material to appear on each slide within
8054 a frame.  Short versions of title, authors, institute can also be specified as
8055 optional parameters.  Whole frame graphics are supported by plain frames.  The
8056 class supports @code{figure} and @code{table} environments, transparency
8057 effects, varying slide transitions and animations.")
8058     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
8059     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
8060     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
8061
8062 (define-public texlive-latex-beamer
8063   (deprecated-package "texlive-latex-beamer" texlive-beamer))
8064
8065 (define-public texlive-latex-xmpincl
8066   (package
8067     (name "texlive-latex-xmpincl")
8068     (version (number->string %texlive-revision))
8069     (source
8070      (origin
8071        (method svn-fetch)
8072        (uri (texlive-ref "latex" "xmpincl"))
8073        (file-name (string-append name "-" version "-checkout"))
8074        (sha256
8075         (base32
8076          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
8077     (build-system texlive-build-system)
8078     (arguments '(#:tex-directory "latex/xmpincl"))
8079     (home-page "http://www.ctan.org/pkg/xmpincl")
8080     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
8081     (description
8082      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
8083 digital material to enhance the workflow in publication.  The essence is that
8084 the metadata is stored in an XML file, and this XML stream is then embedded in
8085 the file to which it applies.")
8086     (license license:gpl3+)))
8087
8088 (define-public texlive-pdfx
8089   (let ((template (simple-texlive-package
8090                    "texlive-pdfx"
8091                    (list "/doc/latex/pdfx/"
8092                          "/source/latex/pdfx/"
8093                          "/tex/latex/pdfx/")
8094                    (base32
8095                     "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
8096     (package
8097       (inherit template)
8098       (arguments
8099        (substitute-keyword-arguments (package-arguments template)
8100          ((#:tex-directory _ #t)
8101           "latex/pdfx")
8102          ((#:phases phases)
8103           `(modify-phases ,phases
8104              (add-after 'unpack 'delete-generated-file
8105                (lambda _
8106                  ;; Generate this file from sources
8107                  (delete-file "tex/latex/pdfx/pdfx.sty")
8108                  #t))
8109              (add-after 'delete-generated-file 'chdir
8110                (lambda _ (chdir "source/latex/pdfx") #t))
8111              (add-after 'chdir 'fix-encoding
8112                (lambda _
8113                  (substitute* "pdfx.dtx"
8114                    (("    .+umaczy") "umaczy"))
8115                  #t))))))
8116       (propagated-inputs
8117        `(("texlive-pdftex" ,texlive-pdftex)))
8118       (home-page "https://www.ctan.org/pkg/pdfx")
8119       (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
8120       (description
8121        "This package helps LaTeX users to create PDF/X, PDF/A and other
8122 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
8123       (license license:lppl1.2+))))
8124
8125 (define-public texlive-latex-pdfx
8126   (deprecated-package "texlive-latex-pdfx" texlive-pdfx))
8127
8128 (define-public texlive-ydoc
8129   (let ((template (simple-texlive-package
8130                    "texlive-ydoc"
8131                    (list "/doc/latex/ydoc/"
8132                          "/source/latex/ydoc/")
8133                    (base32
8134                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
8135                    #:trivial? #f)))
8136     (package
8137       (inherit template)
8138       (outputs '("out" "doc"))
8139       (arguments
8140        (substitute-keyword-arguments (package-arguments template)
8141          ((#:tex-directory _ #t)
8142           "latex/ydoc")
8143          ((#:build-targets _ #t)
8144           ''("ydoc.dtx"))
8145          ((#:phases phases)
8146           `(modify-phases ,phases
8147              (add-after 'unpack 'chdir
8148                (lambda _ (chdir "source/latex/ydoc") #t))
8149              (add-after 'copy-files 'move-files
8150                (lambda* (#:key inputs outputs #:allow-other-keys)
8151                  (let ((source (assoc-ref inputs "source"))
8152                        (doc (string-append (assoc-ref outputs "doc")
8153                                            "/share/texmf-dist/doc")))
8154                    (copy-recursively (string-append source "/doc")  doc))))))))
8155       (home-page "http://www.ctan.org/pkg/ydoc")
8156       (synopsis "Macros for documentation of LaTeX classes and packages")
8157       (description "The package provides macros and environments to document
8158 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
8159 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
8160 provide a different layout and more modern styles (using the @code{xcolor},
8161 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
8162 not (yet) be used with other packages, since the implementation might
8163 change.")
8164       (license license:lppl1.3+))))
8165
8166 (define-public texlive-pstricks
8167   (let ((template (simple-texlive-package
8168                    "texlive-pstricks"
8169                    (list "/doc/generic/pstricks/"
8170                          "/dvips/pstricks/"
8171                          "/tex/generic/pstricks/"
8172                          "/tex/latex/pstricks/")
8173                    (base32
8174                     "0sdq0ij83vg154205n1cps9yirr45240dfcly4bms2cqc789bk5a")
8175                    #:trivial? #t)))
8176     (package
8177       (inherit template)
8178       (arguments
8179        (substitute-keyword-arguments (package-arguments template)
8180          ((#:phases phases)
8181           `(modify-phases ,phases
8182              (delete 'reset-gzip-timestamps)))))
8183       (home-page "http://www.ctan.org/pkg/pstricks")
8184       (synopsis "PostScript macros for TeX")
8185       (description "PSTricks offers an extensive collection of macros for
8186 generating PostScript that is usable with most TeX macro formats, including
8187 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
8188 graphics, pie charts, rotation, trees and overlays.  It has many special
8189 features, including a wide variety of graphics (picture drawing) macros, with
8190 a flexible interface and with colour support.  There are macros for colouring
8191 or shading the cells of tables.")
8192       (license license:lppl1.3+))))
8193
8194 (define-public texlive-pst-text
8195   (let ((template (simple-texlive-package
8196                    "texlive-pst-text"
8197                    (list "/doc/generic/pst-text/"
8198                          "/dvips/pst-text/pst-text.pro"
8199                          "/tex/generic/pst-text/"
8200                          "/tex/latex/pst-text/")
8201                    (base32
8202                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
8203                    #:trivial? #t)))
8204     (package
8205       (inherit template)
8206       (propagated-inputs
8207        `(("texlive-pstricks" ,texlive-pstricks)))
8208       (home-page "http://www.ctan.org/pkg/pst-text")
8209       (synopsis "Text and character manipulation in PSTricks")
8210       (description "Pst-text is a PSTricks based package for plotting text along
8211 a different path and manipulating characters.  It includes the functionality
8212 of the old package @code{pst-char}.")
8213       (license license:lppl))))
8214
8215 (define-public texlive-marginnote
8216   (let ((template (simple-texlive-package
8217                    "texlive-marginnote"
8218                    (list "/source/latex/marginnote/marginnote.dtx")
8219                    (base32
8220                     "152bwxhnssj40rr72r6cfirvqbnc0h7xnagfrbz58v2xck53qhg1"))))
8221     (package
8222       (inherit template)
8223       (home-page "http://www.ctan.org/pkg/marginnote")
8224       (arguments
8225        (substitute-keyword-arguments (package-arguments template)
8226          ((#:tex-directory _ '())
8227           "latex/marginnote")
8228          ((#:build-targets _ '())
8229           ''("marginnote.dtx"))
8230          ((#:phases phases)
8231           `(modify-phases ,phases
8232              (add-after 'unpack 'chdir
8233                (lambda _ (chdir "source/latex/marginnote") #t))))))
8234       (synopsis "Notes in the margin")
8235       (description "This package provides the command @code{\\marginnote} that
8236 may be used instead of @code{\\marginpar} at almost every place where
8237 @code{\\marginpar} cannot be used, e.g., inside floats, footnotes, or in
8238 frames made with the @code{framed} package.")
8239       (license license:lppl1.3c+))))
8240
8241 (define-public texlive-generic-iftex
8242   (let ((template (simple-texlive-package
8243                    "texlive-generic-iftex"
8244                    (list "/doc/generic/iftex/"
8245                          "/tex/generic/iftex/")
8246                    (base32
8247                     "147xa5kl4kjs05nj8v3kd7dpr5xkz3xp3gdvjih32ccd7527f5vp")
8248                    #:trivial? #t)))
8249     (package
8250       (inherit template)
8251       (home-page "http://www.ctan.org/pkg/iftex")
8252       (synopsis "Determine the currently used TeX engine")
8253       (description "This package, which works both for Plain TeX and for
8254 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
8255 conditionals for testing which engine is being used for typesetting.  The
8256 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
8257 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
8258 LuaTeX (respectively) is not the engine in use.")
8259       (license license:lppl1.3+))))
8260
8261 (define-public texlive-iftex
8262   (deprecated-package "texlive-iftex" texlive-generic-iftex))
8263
8264 (define-public texlive-generic-ifxetex
8265   (deprecated-package "texlive-generic-ifxetex" texlive-generic-iftex))
8266
8267 (define-public texlive-tools
8268   (let ((template (simple-texlive-package
8269                    "texlive-tools"
8270                    (list "/doc/latex/tools/"
8271                          "/source/latex/tools/")
8272                    (base32
8273                     "1860bll28mr8nhbdfx073mj87vgg3gpc62v8bk9q0kq8pg0wsx1a"))))
8274     (package
8275       (inherit template)
8276       (arguments
8277        (substitute-keyword-arguments (package-arguments template)
8278          ((#:tex-directory _ '())
8279           "latex/tools")
8280          ((#:build-targets _ '())
8281           ''("tools.ins"))
8282          ((#:phases phases)
8283           `(modify-phases ,phases
8284              (add-after 'unpack 'chdir
8285                (lambda _ (chdir "source/latex/tools") #t))))))
8286       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
8287       (synopsis "LaTeX standard tools bundle")
8288       (description "This package provides a collection of simple tools that
8289 are part of the LaTeX required tools distribution, comprising the packages:
8290 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
8291 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
8292 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
8293 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
8294 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
8295 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
8296       (license license:lppl1.3+))))
8297
8298 (define-public texlive-latex-xkeyval
8299   (package
8300     (name "texlive-latex-xkeyval")
8301     (version (number->string %texlive-revision))
8302     (source (origin
8303               (method svn-fetch)
8304               (uri (texlive-ref "latex" "xkeyval"))
8305               (file-name (string-append name "-" version "-checkout"))
8306               (sha256
8307                (base32
8308                 "0wancavix39j240pd8m9cgmwsijwx6jd6n54v8wg0x2rk5m44myp"))))
8309     (build-system texlive-build-system)
8310     (arguments
8311      '(#:tex-directory "latex/xkeyval"
8312        #:build-targets '("xkeyval.dtx")
8313        #:tex-format "latex" ; won't build with luatex
8314        #:phases
8315        (modify-phases %standard-phases
8316          ;; This package cannot be built out of tree as it expects to find
8317          ;; built files in the working directory.
8318          (add-before 'build 'fix-build
8319            (lambda _
8320              (setenv "TEXINPUTS"
8321                      (string-append (getcwd) "/build:"))
8322              (substitute* "xkeyval.dtx"
8323                (("usepackage\\{xcolor\\}")
8324                 "usepackage[dvips]{xcolor}"))
8325              #t))
8326          ;; FIXME: We don't have a package for this font yet.
8327          (add-after 'unpack 'remove-dependency-on-fourier
8328            (lambda _
8329              (substitute* "xkeyval.dtx"
8330                (("\\\\usepackage\\{fourier\\}") ""))
8331              #t))
8332          (add-after 'install 'move-files
8333            (lambda* (#:key outputs #:allow-other-keys)
8334              (let* ((out (assoc-ref outputs "out"))
8335                     (share (string-append out "/share/texmf-dist"))
8336                     (source (string-append share "/tex/latex/xkeyval/"))
8337                     (target (string-append share "/tex/generic/xkeyval/")))
8338                (mkdir-p target)
8339                (for-each (lambda (file)
8340                            (rename-file (string-append source file)
8341                                         (string-append target file)))
8342                          '("keyval.tex"
8343                            "pst-xkey.tex"
8344                            "xkeyval.tex"
8345                            "xkvex1.tex"
8346                            "xkvex2.tex"
8347                            "xkvex3.tex"
8348                            "xkvex4.tex"
8349                            "xkvtxhdr.tex"
8350                            "xkvutils.tex"))
8351                #t))))))
8352     (native-inputs
8353      `(("texlive-latex-base" ,texlive-latex-base)
8354        ("texlive-cm" ,texlive-cm)
8355        ("texlive-lm" ,texlive-lm)
8356        ("texlive-url" ,texlive-url)
8357        ("texlive-graphics-def" ,texlive-graphics-def)
8358        ("texlive-xcolor" ,texlive-xcolor)
8359        ("texlive-latex-footmisc" ,texlive-latex-footmisc)
8360        ("texlive-latex-listings" ,texlive-latex-listings)
8361        ("texlive-generic-iftex" ,texlive-generic-iftex)
8362        ("texlive-pstricks" ,texlive-pstricks)
8363        ("texlive-pst-text" ,texlive-pst-text)
8364        ("texlive-tools" ,texlive-tools)
8365        ("texlive-latex-pgf" ,texlive-latex-pgf)))
8366     (home-page "http://www.ctan.org/pkg/xkeyval")
8367     (synopsis "Extension of the keyval package")
8368     (description
8369      "This package is an extension of the keyval package and offers additional
8370 macros for setting keys and declaring and setting class or package options.
8371 The package allows the programmer to specify a prefix to the name of the
8372 macros it defines for keys, and to define families of key definitions; these
8373 all help use in documents where several packages define their own sets of
8374 keys.")
8375     (license license:lppl1.3+)))
8376
8377 (define-public texlive-standalone
8378   (package
8379     (name "texlive-standalone")
8380     (version (number->string %texlive-revision))
8381     (source
8382      (origin
8383        (method svn-fetch)
8384        (uri (texlive-ref "latex" "standalone"))
8385        (file-name (string-append name "-" version "-checkout"))
8386        (sha256
8387         (base32
8388          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
8389     (build-system texlive-build-system)
8390     (arguments '(#:tex-directory "latex/standalone"))
8391     (propagated-inputs
8392      `(("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8393     (native-inputs
8394      `(("texlive-ydoc" ,texlive-ydoc)))
8395     (home-page "http://www.ctan.org/pkg/standalone")
8396     (synopsis "Compile TeX pictures stand-alone or as part of a document")
8397     (description "A class and package is provided which allows TeX pictures or
8398 other TeX code to be compiled standalone or as part of a main document.
8399 Special support for pictures with beamer overlays is also provided.  The
8400 package is used in the main document and skips extra preambles in sub-files.
8401 The class may be used to simplify the preamble in sub-files.  By default the
8402 @code{preview} package is used to display the typeset code without margins.
8403 The behaviour in standalone mode may adjusted using a configuration file
8404 @code{standalone.cfg} to redefine the standalone environment.")
8405     (license license:lppl1.3+)))
8406
8407 (define-public texlive-siunitx
8408   (package
8409     (name "texlive-siunitx")
8410     (version (number->string %texlive-revision))
8411     (source (texlive-origin
8412              name version
8413              (list "/source/latex/siunitx/siunitx.dtx"
8414                    "/doc/latex/siunitx/README.md")
8415              (base32
8416               "05kl7yid2npp2gbfshnv2xd08w81fkh5h2n5wd9xcpbhlqjzx9sj")))
8417     (build-system texlive-build-system)
8418     (arguments
8419      '(#:tex-directory "latex/siunitx"
8420        #:build-targets '("siunitx.dtx")
8421        #:phases
8422        (modify-phases %standard-phases
8423          (add-after 'unpack 'chdir
8424            (lambda _ (chdir "source/latex/siunitx") #t)))))
8425     (propagated-inputs
8426      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
8427        ("texlive-latex-l3packages" ,texlive-latex-l3packages)))
8428     (home-page "http://www.ctan.org/pkg/siunitx")
8429     (synopsis "Comprehensive SI units package")
8430     (description
8431      "Typesetting values with units requires care to ensure that the combined
8432 mathematical meaning of the value plus unit combination is clear.  In
8433 particular, the SI units system lays down a consistent set of units with rules
8434 on how they are to be used.  However, different countries and publishers have
8435 differing conventions on the exact appearance of numbers (and units).  A
8436 number of LaTeX packages have been developed to provide consistent application
8437 of the various rules.  The @code{siunitx} package takes the best from the
8438 existing packages, and adds new features and a consistent interface.  A number
8439 of new ideas have been incorporated, to fill gaps in the existing provision.
8440 The package also provides backward-compatibility with @code{SIunits},
8441 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
8442 package to handle all of the possible unit-related needs of LaTeX users.")
8443     (license license:lppl1.3c)))
8444
8445 (define-public texlive-booktabs
8446   (package
8447     (name "texlive-booktabs")
8448     (version (number->string %texlive-revision))
8449     (source
8450      (origin
8451        (method svn-fetch)
8452        (uri (texlive-ref "latex" "booktabs"))
8453        (file-name (string-append name "-" version "-checkout"))
8454        (sha256
8455         (base32
8456          "1mycxzl761p2zzmva8xsjbxbvrxx3vhi5p160mh9kiqwhrs5biz5"))))
8457     (build-system texlive-build-system)
8458     (arguments '(#:tex-directory "latex/booktabs"))
8459     (home-page "http://www.ctan.org/pkg/booktabs")
8460     (synopsis "Publication quality tables in LaTeX")
8461     (description
8462      "This package enhances the quality of tables in LaTeX, providing extra
8463 commands as well as behind-the-scenes optimisation.  Guidelines are given as
8464 to what constitutes a good table in this context.  The package offers
8465 @code{longtable} compatibility.")
8466     (license license:lppl1.3+)))
8467
8468 (define-public texlive-csquotes
8469   (let ((template (simple-texlive-package
8470                    "texlive-csquotes"
8471                    (list "/doc/latex/csquotes/"
8472                          "/tex/latex/csquotes/")
8473                    (base32
8474                     "1k7riymar0xx41n03p6yscrsjr2mzmzzkqihh2yv4lixd1nd7l8j")
8475                    #:trivial? #t)))
8476     (package
8477       (inherit template)
8478       (propagated-inputs
8479        `(("texlive-etoolbox" ,texlive-etoolbox)))
8480       (home-page "https://www.ctan.org/pkg/csquotes")
8481       (synopsis "Context sensitive quotation facilities")
8482       (description "This package provides advanced facilities for inline and
8483 display quotations.  It is designed for a wide range of tasks ranging from the
8484 most simple applications to the more complex demands of formal quotations.
8485 The facilities include commands, environments, and user-definable 'smart
8486 quotes' which dynamically adjust to their context.  Quotation marks are
8487 switched automatically if quotations are nested and they can be adjusted to
8488 the current language if the babel package is available.  There are additional
8489 facilities designed to cope with the more specific demands of academic
8490 writing, especially in the humanities and the social sciences.  All quote
8491 styles as well as the optional active quotes are freely configurable.")
8492       (license license:lppl1.3c+))))
8493
8494 (define-public texlive-logreq
8495   (let ((template (simple-texlive-package
8496                    "texlive-logreq"
8497                    (list "/doc/latex/logreq/"
8498                          "/tex/latex/logreq/")
8499                    (base32
8500                     "13difccs3cxlkqlnhw286yb0c7mifrxfd402a2x5wwxv0m1kgfqd")
8501                    #:trivial? #t)))
8502     (package
8503       (inherit template)
8504       (propagated-inputs
8505        `(("texlive-etoolbox" ,texlive-etoolbox)))
8506       (home-page "https://www.ctan.org/pkg/logreq")
8507       (synopsis "Support for automation of the LaTeX workflow")
8508       (description "The package helps to automate a typical LaTeX
8509 workflow that involves running LaTeX several times and running tools
8510 such as BibTeX or makeindex.  It will log requests like \"please rerun
8511 LaTeX\" or \"please run BibTeX on file X\" to an external file in a
8512 machine-readable format.  Compiler scripts and integrated LaTeX
8513 editing environments may parse this file to determine the next steps
8514 in the workflow.  In sum, the package will do two things:
8515
8516 @enumerate
8517 @item
8518 enable package authors to use LaTeX commands to issue requests, and
8519
8520 @item
8521 collect all requests from all packages and write them to an external
8522 XML file.
8523 @end enumerate\n")
8524       (license license:lppl1.3c))))
8525
8526 (define-public texlive-biblatex
8527   (let ((template (simple-texlive-package
8528                    "texlive-biblatex"
8529                    (list "/doc/latex/biblatex/"
8530                          "/tex/latex/biblatex/")
8531                    (base32
8532                     "0bq15ynx84v3ppz5ar1k321k1ck85x2p0irgxgzjh1lna9h6w7v0")
8533                    #:trivial? #t)))
8534     (package
8535       (inherit template)
8536       (propagated-inputs
8537        `(("texlive-logreq" ,texlive-logreq)
8538          ("texlive-url" ,texlive-url)))
8539       (home-page "https://www.ctan.org/pkg/biblatex")
8540       (synopsis "Sophisticated bibliographies in LaTeX")
8541       (description "BibLaTeX is a complete reimplementation of the
8542 bibliographic facilities provided by LaTeX.  Formatting of the
8543 bibliography is entirely controlled by LaTeX macros, facilitating the
8544 design of new bibliography and citation styles.  BibLaTeX uses its own
8545 data backend program \"biber\" to read and process the bibliographic
8546 data.  With biber, the range of features provided by biblatex
8547 includes:
8548
8549 @enumerate
8550 @item
8551 full unicode support,
8552
8553 @item
8554 customisable bibliography labels,
8555
8556 @item
8557 multiple bibliographies in the same document, and
8558
8559 @item
8560 subdivided bibliographies, such as bibliographies per chapter or
8561 section.
8562 @end enumerate\n")
8563       (license license:lppl1.3c))))
8564
8565 (define-public texlive-todonotes
8566   (let ((template (simple-texlive-package
8567                    "texlive-todonotes"
8568                    (list "/doc/latex/todonotes/"
8569                          "/tex/latex/todonotes/")
8570                    (base32
8571                     "0lvxsskz4bdfxhd59hf77kiq8k4nh2spb66vc6hifdgi21z8r8wm")
8572                    #:trivial? #t)))
8573     (package
8574       (inherit template)
8575       (propagated-inputs
8576        `(("texlive-latex-pgf" ,texlive-latex-pgf)
8577          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
8578       (home-page "http://www.ctan.org/pkg/todonotes")
8579       (synopsis "Marking things to do in a LaTeX document")
8580       (description "The @code{todonotes} package lets the user mark
8581 things to do later, in a simple and visually appealing way.  The
8582 package takes several options to enable customization and finetuning
8583 of the visual appearance.")
8584       (license license:lppl1.3+))))
8585
8586 (define-public texlive-units
8587   (let ((template (simple-texlive-package
8588                    "texlive-units"
8589                    (list "/doc/latex/units/"
8590                          "/tex/latex/units/")
8591                    (base32
8592                     "1ia1vzy8dp7pdvmawwnmh9lmkajmpnnh62dixrjpb6mnxq118bfd")
8593                    #:trivial? #t)))
8594     (package
8595       (inherit template)
8596       (home-page "http://www.ctan.org/pkg/units")
8597       (synopsis "Typeset physical units and fractions")
8598       (description "@code{units} is a package for typesetting physical
8599 units in a standard-looking way.  The package is based upon
8600 @code{nicefrac}, a package for typing fractions.  @code{nicefrac} is
8601 included in the @code{units} bundle.")
8602       (license license:gpl3+))))
8603
8604 (define-public texlive-microtype
8605   (let ((template (simple-texlive-package
8606                    "texlive-microtype"
8607                    (list "/doc/latex/microtype/"
8608                          "/tex/latex/microtype/")
8609                    (base32
8610                     "1yig4i0alqrb1a6hhhlh5y0y4dzpznh698j0cb9632m2cd3aghwz")
8611                    #:trivial? #t)))
8612     (package
8613       (inherit template)
8614       (home-page "http://www.ctan.org/pkg/microtype")
8615       (synopsis "Subliminal refinements towards typographical perfection")
8616       (description "@code{microtype} provides a LaTeX interface to the
8617 micro-typographic extensions that were introduced by pdfTeX and have
8618 since propagated to XeTeX and LuaTeX: most prominently character
8619 protrusion and font expansion, the adjustment of kerning and interword
8620 spacing, hyphenatable letterspacing and the possibility to disable all
8621 or selected ligatures.  These features may be applied to customisable
8622 sets of fonts.  All micro-typographic aspects of the fonts can be
8623 configured in a straight-forward and flexible way.  Settings for
8624 various fonts are provided.  An alternative package
8625 @code{letterspace}, which also works with plain TeX, is included in
8626 the bundle.")
8627       (license license:lppl1.3c))))
8628
8629 (define-public texlive-caption
8630   (let ((template (simple-texlive-package
8631                    "texlive-caption"
8632                    (list "/doc/latex/caption/"
8633                          "/tex/latex/caption/")
8634                    (base32
8635                     "11wnakgbqbpqvc6rr1j0s7qw5jvkhf3miizax4l73i87a90gxk6b")
8636                    #:trivial? #t)))
8637     (package
8638       (inherit template)
8639       (home-page "http://www.ctan.org/pkg/caption")
8640       (synopsis "Customising captions in floating environments")
8641       (description "The @code{caption} package provides many ways to
8642 customise the captions in floating environments like figure and table.
8643 Facilities include rotating captions, sideways captions and continued
8644 captions (for tables or figures that come in several parts).  A list
8645 of compatibility notes, for other packages, is provided in the
8646 documentation.  The package also provides the \"caption outside
8647 float\" facility, in the same way that simpler packages like
8648 @code{capt-ofcapt-of} do.  The package supersedes @code{caption2}.
8649 Packages @code{bicaption}, @code{ltcaption}, @code{newfloat},
8650 @code{subcaption} and @code{totalcount} are included in the bundle.")
8651       (license license:lppl1.3+))))
8652
8653 (define-public texlive-symbol
8654   (package
8655     (inherit (simple-texlive-package
8656               "texlive-symbol"
8657               (list "/dvips/symbol/"
8658                     "/fonts/afm/adobe/symbol/"
8659                     "/fonts/afm/urw/symbol/"
8660                     "/fonts/tfm/adobe/symbol/"
8661                     "/fonts/tfm/urw35vf/symbol/"
8662                     "/fonts/type1/urw/symbol/"
8663                     "/fonts/map/dvips/symbol/"
8664                     "/tex/latex/symbol/")
8665               (base32
8666                "01xiygb88xwi7rfvh1zrlxzi5pqb5fvylws5zzszg379iz4pyzwj")
8667               #:trivial? #t))
8668     (home-page "https://ctan.org/pkg/urw-base35")
8669     (synopsis "URW Base 35 font pack for LaTeX")
8670     (description "This package provides a drop-in replacement for the
8671 Symbol font from Adobe's basic set.")
8672     (license license:gpl2)))
8673
8674 (define-public texlive-mathpazo
8675   (package
8676     (inherit (simple-texlive-package
8677               "texlive-mathpazo"
8678               (list "/doc/latex/mathpazo/"
8679                     "/fonts/afm/public/mathpazo/"
8680                     "/fonts/tfm/public/mathpazo/"
8681                     "/fonts/type1/public/mathpazo/"
8682                     "/fonts/vf/public/mathpazo/")
8683               (base32
8684                "02in6hdnbnkz216mpy8g6fk3wmlls8nh5982vmg37vhbj77lk0rh")
8685               #:trivial? #t))
8686     (home-page "http://www.ctan.org/pkg/mathpazo")
8687     (synopsis "Fonts to typeset mathematics to match Palatino")
8688     (description "The Pazo Math fonts are a family of PostScript fonts
8689 suitable for typesetting mathematics in combination with the Palatino
8690 family of text fonts.  The Pazo Math family is made up of five fonts
8691 provided in Adobe Type 1 format.  These contain glyphs that are
8692 usually not available in Palatino and for which Computer Modern looks
8693 odd when combined with Palatino.  These glyphs include the uppercase
8694 Greek alphabet in upright and slanted shapes, the lowercase Greek
8695 alphabet in slanted shape, several mathematical glyphs and the
8696 uppercase letters commonly used to represent various number sets.
8697 LaTeX macro support is provided in package @code{psnfss}.")
8698     (license license:gpl3+)))
8699
8700 (define-public texlive-fpl
8701   (package
8702     (inherit (simple-texlive-package
8703               "texlive-fpl"
8704               (list "/doc/fonts/fpl/"
8705                     "/source/fonts/fpl/"
8706                     "/fonts/afm/public/fpl/"
8707                     "/fonts/type1/public/fpl/")
8708               (base32
8709                "02gkl516z9kn8xqs269pdkqn37sxm8ib0pcs43s4rs2rhyyl5z68")
8710               #:trivial? #t))
8711     (home-page "https://www.ctan.org/pkg/fpl")
8712     (synopsis "SC and OsF fonts for URW Palladio L")
8713     (description "The FPL Fonts provide a set of SC/OsF fonts for URW
8714 Palladio L which are compatible with the Palatino SC/OsF fonts from
8715 Adobe.  LaTeX use is enabled by the mathpazo package, which is part of
8716 the @code{psnfss} distribution.")
8717     ;; Either LPPL version 1.0 or later, or GPL version 2
8718     (license (list license:lppl1.0+ license:gpl2))))
8719
8720 (define-public texlive-arev
8721   (package
8722     (inherit (simple-texlive-package
8723               "texlive-arev"
8724               (list "/doc/fonts/arev/"
8725                     "/fonts/afm/public/arev/"
8726                     "/fonts/enc/dvips/arev/"
8727                     "/fonts/map/dvips/arev/"
8728                     "/fonts/tfm/public/arev/"
8729                     "/fonts/type1/public/arev/"
8730                     "/fonts/vf/public/arev/"
8731                     "/tex/latex/arev/")
8732               (base32
8733                "15wkgc48r52mjpymv6l7j9bl99kwxbvg3g1mi3qyq7nfm799dkxy")
8734               #:trivial? #t))
8735     (home-page "https://www.ctan.org/pkg/arev")
8736     (synopsis "Fonts and LaTeX support files for Arev Sans")
8737     (description "The @code{arev} package provides type 1 fonts,
8738 virtual fonts and LaTeX packages for using Arev Sans in both text and
8739 mathematics.  Arev Sans is a derivative of Bitstream Vera Sans, adding
8740 support for Greek and Cyrillic characters and a few variant letters
8741 appropriate for mathematics.  The font is primarily used in LaTeX for
8742 presentations, particularly when using a computer projector.  Arev
8743 Sans has large x-height, \"open letters\", wide spacing and thick
8744 stems.  The style is very similar to the SliTeX font lcmss but
8745 heavier.  Arev is one of a very small number of sans-font mathematics
8746 support packages.  Others are cmbright, hvmath and kerkis.")
8747     (license (list license:silofl1.1 ;for Arev Sans
8748                    license:lppl1.3a  ;for TeX support files
8749                    license:gpl2))))  ;for ams-mdbch.sty
8750
8751 (define-public texlive-mathdesign
8752   (package
8753     (inherit (simple-texlive-package
8754               "texlive-mathdesign"
8755               (list "/doc/fonts/mathdesign/"
8756                     "/dvips/mathdesign/"
8757                     "/fonts/enc/dvips/mathdesign/"
8758                     "/fonts/map/dvips/mathdesign/"
8759                     "/fonts/tfm/public/mathdesign/"
8760                     "/fonts/type1/public/mathdesign/"
8761                     "/fonts/vf/public/mathdesign/"
8762                     "/tex/latex/mathdesign/")
8763               (base32
8764                "0jcby2sd0l3ank2drxc0qcf5d1cwa8idzh4g91h4nxk8zrzxj8nr")
8765               #:trivial? #t))
8766     (home-page "https://www.ctan.org/pkg/mathdesign")
8767     (synopsis "Mathematical fonts to fit with particular text fonts")
8768     (description "The Math Design project offers free mathematical
8769 fonts that match with existing text fonts.  To date, three free font
8770 families are available: Adobe Utopia, URW Garamond and Bitstream
8771 Charter.  Mathdesign covers the whole LaTeX glyph set including AMS
8772 symbols.  Both roman and bold versions of these symbols can be used.
8773 Moreover, there is a choice between three greek fonts (two of them
8774 created by the Greek Font Society).")
8775     (license license:gpl2+)))
8776
8777 (define-public texlive-bera
8778   (package
8779     (inherit (simple-texlive-package
8780               "texlive-bera"
8781               (list "/doc/fonts/bera/"
8782                     "/fonts/afm/public/bera/"
8783                     "/fonts/map/dvips/bera/"
8784                     "/fonts/tfm/public/bera/"
8785                     "/fonts/type1/public/bera/"
8786                     "/fonts/vf/public/bera/"
8787                     "/tex/latex/bera/")
8788               (base32
8789                "1pkmhhr6ah44xhipjr7nianv03hr4w4bn45xcvp264yw6ymqzqwr")
8790               #:trivial? #t))
8791     (home-page "https://www.ctan.org/pkg/bera")
8792     (synopsis "Bera fonts")
8793     (description "The @code{bera} package contains the Bera Type 1
8794 fonts and files to use the fonts with LaTeX.  Bera is a set of three
8795 font families: Bera Serif (a slab-serif Roman), Bera Sans (a Frutiger
8796 descendant) and Bera Mono (monospaced/typewriter).  The Bera family is
8797 a repackaging, for use with TeX, of the Bitstream Vera family.")
8798     (license license:silofl1.1)))
8799
8800 (define-public texlive-fourier
8801   (package
8802     (inherit (simple-texlive-package
8803               "texlive-fourier"
8804               (list "/doc/fonts/fourier/"
8805                     "/fonts/afm/public/fourier/"
8806                     "/fonts/map/dvips/fourier/"
8807                     "/fonts/tfm/public/fourier/"
8808                     "/fonts/type1/public/fourier/"
8809                     "/fonts/vf/public/fourier/"
8810                     "/tex/latex/fourier/")
8811               (base32
8812                "04d575nd4yvl58g9dfab9mrjxiv4792bdkz4bjvlkx6x257vlfzn")
8813               #:trivial? #t))
8814     (home-page "https://www.ctan.org/pkg/fourier")
8815     (synopsis "Utopia fonts for LaTeX documents")
8816     (description "Fourier-GUTenberg is a LaTeX typesetting system
8817 which uses Adobe Utopia as its standard base font.  Fourier-GUTenberg
8818 provides all complementary typefaces needed to allow Utopia based TeX
8819 typesetting including an extensive mathematics set and several other
8820 symbols.  The system is absolutely stand-alone; apart from Utopia and
8821 Fourier no other typefaces are required.  Utopia is a registered
8822 trademark of Adobe Systems Incorporated.")
8823     (license license:lppl)))
8824
8825 (define-public texlive-utopia
8826   (package
8827     (inherit (simple-texlive-package
8828               "texlive-utopia"
8829               (list "/doc/fonts/utopia/"
8830                     "/fonts/afm/adobe/utopia/"
8831                     "/fonts/tfm/adobe/utopia/"
8832                     "/fonts/type1/adobe/utopia/"
8833                     "/fonts/vf/adobe/utopia/")
8834               (base32
8835                "113wgkfz4z0ls2grxxfj17l42a1yv9r5ipcd0156xnfsrqvqzxfc")
8836               #:trivial? #t))
8837     (home-page "https://www.ctan.org/pkg/utopia")
8838     (synopsis "Adobe Utopia fonts")
8839     (description "The Adobe Standard Encoding set of the Utopia font
8840 family, as contributed to the X Consortium.  The set comprises upright
8841 and italic shapes in medium and bold weights.  Macro support and
8842 matching maths fonts are provided by the @code{fourier} and
8843 @code{mathdesign} font packages.")
8844     (license (license:fsf-free
8845               "http://mirrors.ctan.org/fonts/utopia/README"))))
8846
8847 (define-public texlive-fontaxes
8848   (package
8849     (name "texlive-fontaxes")
8850     (version "1.0e")
8851     (source
8852      (origin
8853        (method svn-fetch)
8854        (uri (texlive-ref "latex" "fontaxes"))
8855        (file-name (string-append name "-" version "-checkout"))
8856        (sha256
8857         (base32
8858          "19mhp9l7cjw0sbq55c9lz0l2pffkyhyir3i63jqynifjmglbgkl7"))))
8859     (build-system texlive-build-system)
8860     (arguments '(#:tex-directory "latex/fontaxes"))
8861     (home-page "http://www.ctan.org/pkg/fontaxes")
8862     (synopsis "Additional font axes for LaTeX")
8863     (description "The @code{fontaxes} package adds several new font
8864 axes on top of LaTeX's New Font Selection Scheme (NFSS).  In
8865 particular, it splits the shape axis into a primary and a secondary
8866 shape axis and it adds three new axes to deal with the different
8867 figure versions offered by many professional fonts.")
8868     (license license:lppl1.3+)))
8869
8870 (define-public texlive-mweights
8871   (package
8872     (inherit (simple-texlive-package
8873               "texlive-mweights"
8874               (list "/doc/latex/mweights/"
8875                     "/tex/latex/mweights/")
8876               (base32
8877                "12493g3yz06mhiybnphqbp49fjzy36clzw63b74mkfhsg1pq7h1b")
8878               #:trivial? #t))
8879     (home-page "https://www.ctan.org/pkg/mweights")
8880     (synopsis "Support for multiple-weight font packages")
8881     (description "Many font families available for use with LaTeX are
8882 available at multiple weights.  Many Type 1-oriented support packages
8883 for such fonts re-define the standard @code{\\mddefault} or
8884 @code{\\bfdefault} macros.  This can create difficulties if the weight
8885 desired for one font family is not available for another font family,
8886 or if it differs from the weight desired for another font family.  The
8887 @code{mweights} package provides a solution to these difficulties.")
8888     (license license:lppl)))
8889
8890 (define-public texlive-cabin
8891   (package
8892     (inherit (simple-texlive-package
8893               "texlive-cabin"
8894               (list "/doc/fonts/cabin/"
8895                     "/fonts/enc/dvips/cabin/"
8896                     "/fonts/map/dvips/cabin/"
8897                     "/fonts/opentype/impallari/cabin/"
8898                     "/fonts/tfm/impallari/cabin/"
8899                     "/fonts/type1/impallari/cabin/"
8900                     "/fonts/vf/impallari/cabin/"
8901                     "/tex/latex/cabin/")
8902               (base32
8903                "0878gc4aqs9168kfb1j3js7rrxvf9lrxwfqzc9cag1cjy60nqljy")
8904               #:trivial? #t))
8905     (home-page "https://www.ctan.org/pkg/cabin")
8906     (synopsis "Humanist Sans Serif font with LaTeX support")
8907     (description "Cabin is a humanist sans with four weights, true
8908 italics and small capitals.  According to its designer, Pablo
8909 Impallari, Cabin was inspired by the typefaces of Edward Johnston and
8910 Eric Gill.  Cabin incorporates modern proportions, optical adjustments
8911 and some elements of the geometric sans.  @code{cabin.sty} supports
8912 use of the font under LaTeX, pdfLaTeX, XeLaTeX and LuaLaTeX.  It uses
8913 the @code{mweights} package to manage the user's view of all those
8914 font weights.  An @code{sfdefault} option is provided to enable Cabin
8915 as the default text font.  The @code{fontaxes} package is required for
8916 use with [pdf]LaTeX.")
8917     (license (list license:silofl1.1 ;for Cabin
8918                    license:lppl))))  ;for support files
8919
8920 (define-public texlive-newtx
8921   (package
8922     (inherit (simple-texlive-package
8923               "texlive-newtx"
8924               (list "/doc/fonts/newtx/"
8925                     "/fonts/afm/public/newtx/"
8926                     "/fonts/enc/dvips/newtx/"
8927                     "/fonts/map/dvips/newtx/"
8928                     "/fonts/opentype/public/newtx/"
8929                     "/fonts/tfm/public/newtx/"
8930                     "/fonts/type1/public/newtx/"
8931                     "/fonts/vf/public/newtx/"
8932                     "/tex/latex/newtx/")
8933               (base32
8934                "0fa90qz8px369yk0x1nhmq4901rvnclx06ijb4ir57f2324rrg8d")
8935               #:trivial? #t))
8936     (home-page "https://www.ctan.org/pkg/newtx")
8937     (synopsis "Repackaging of the TX fonts with improved metrics")
8938     (description "The @code{newtx} bundle splits
8939 @code{txfonts.sty} (from the TX fonts distribution) into two
8940 independent packages, @code{newtxtext.sty} and @code{newtxmath.sty},
8941 each with fixes and enhancements.  @code{newtxmath}'s metrics have
8942 been re-evaluated to provide a less tight appearance and to provide a
8943 @code{libertine} option that substitutes Libertine italic and Greek
8944 letters for the existing math italic and Greek glyphs, making a
8945 mathematics package that matches Libertine text quite well.")
8946     (license license:lppl1.3)))
8947
8948 (define-public texlive-xcharter
8949   (package
8950     (inherit (simple-texlive-package
8951               "texlive-xcharter"
8952               (list "/doc/fonts/xcharter/"
8953                     "/fonts/afm/public/xcharter/"
8954                     "/fonts/enc/dvips/xcharter/"
8955                     "/fonts/map/dvips/xcharter/"
8956                     "/fonts/opentype/public/xcharter/"
8957                     "/fonts/tfm/public/xcharter/"
8958                     "/fonts/type1/public/xcharter/"
8959                     "/fonts/vf/public/xcharter/"
8960                     "/tex/latex/xcharter/")
8961               (base32
8962                "1qlid98lg0wcdq6hpk9kl2cl139pxcw6y8x8mfah2j95wq1i64lm")
8963               #:trivial? #t))
8964     (home-page "https://www.ctan.org/pkg/xcharter")
8965     (synopsis "Extension of the Bitstream Charter fonts")
8966     (description "@code{xcharter} repackages Bitstream Charter with an
8967 extended set of features.  The extension provides small caps, oldstyle
8968 figures and superior figures in all four styles, accompanied by LaTeX
8969 font support files.  The fonts themselves are provided in both Adobe
8970 Type 1 and OTF formats, with supporting files as necessary.")
8971     (license (list (license:fsf-free
8972                     "http://mirrors.ctan.org/fonts/xcharter/README")
8973                    license:lppl1.3))))
8974
8975 (define-public texlive-ly1
8976   (package
8977     (inherit (simple-texlive-package
8978               "texlive-ly1"
8979               (list "/doc/fonts/ly1/"
8980                     "/fonts/enc/dvips/ly1/"
8981                     "/fonts/map/dvips/ly1/"
8982                     "/fonts/tfm/adobe/ly1/"
8983                     "/fonts/vf/adobe/ly1/"
8984                     "/tex/latex/ly1/")
8985               (base32
8986                "0wjyw0risgvrq97zfciglwy1f4msvfslln6pz0q8yzzx8wsv3zgq")
8987               #:trivial? #t))
8988     (home-page "https://www.ctan.org/pkg/ly1")
8989     (synopsis "Support for LY1 LaTeX encoding")
8990     (description "The legacy @emph{texnansi} (TeX and ANSI) encoding
8991 is known in the LaTeX scheme of things as @emph{LY1} encoding.  The
8992 @code{ly1} bundle includes metrics and LaTeX macros to use the three
8993 basic Adobe Type 1 fonts (Times, Helvetica and Courier) in LaTeX using
8994 LY1 encoding.")
8995     (license license:lppl1.0+)))
8996
8997 (define-public texlive-sectsty
8998   (let ((template (simple-texlive-package
8999                    "texlive-sectsty"
9000                    (list "/doc/latex/sectsty/"
9001                          "/source/latex/sectsty/")
9002                    (base32
9003                     "08m90j7cg6w46vnwgsp10clpj4l6c9a6l8dad20q3mnd32l84hbl"))))
9004     (package
9005       (inherit template)
9006       (arguments
9007        (substitute-keyword-arguments (package-arguments template)
9008          ((#:tex-directory _ '())
9009           "latex/sectsty")
9010          ((#:build-targets _ '())
9011           ''("sectsty.ins"))
9012          ((#:tex-format _ "latex") "latex")
9013          ((#:phases phases)
9014           `(modify-phases ,phases
9015              (add-after 'unpack 'chdir
9016                (lambda _ (chdir "source/latex/sectsty")))))))
9017       (home-page "https://www.ctan.org/pkg/sectsty")
9018       (synopsis "Control sectional headers")
9019       (description "This is a LaTeX2ε package to help change the style of any or
9020 all of LaTeX's sectional headers in the article, book, or report classes.
9021 Examples include the addition of rules above or below a section title. ")
9022       (license license:lppl1.2+))))
9023
9024 (define-public texlive-morefloats
9025   (let ((template (simple-texlive-package
9026                    "texlive-morefloats"
9027                    (list "/doc/latex/morefloats/"
9028                          "/source/latex/morefloats/")
9029                    (base32
9030                     "0n0405fjxyjlbjspzfvhl0wjkwiqicj3hk8fa0g7agw72wlxscpl"))))
9031     (package
9032       (inherit template)
9033       (arguments
9034        (substitute-keyword-arguments (package-arguments template)
9035          ((#:tex-directory _ '())
9036           "latex/morefloats")
9037          ((#:build-targets _ '())
9038           ''("morefloats.ins"))
9039          ((#:phases phases)
9040           `(modify-phases ,phases
9041              (add-after 'unpack 'chdir
9042                (lambda _ (chdir "source/latex/morefloats")))))))
9043       (home-page "https://www.ctan.org/pkg/morefloats")
9044       (synopsis "Increase the number of simultaneous LaTeX floats")
9045       (description "LaTeX can, by default, only cope with 18 outstanding floats;
9046 any more, and you get the error “too many unprocessed floats”.  This package
9047 releases the limit; TeX itself imposes limits (which are independent of the
9048 help offered by e-TeX).
9049
9050 However, if your floats can’t be placed anywhere, extending the number of
9051 floats merely delays the arrival of the inevitable error message.")
9052       (license license:lppl1.3c+))))
9053
9054 (define-public texlive-ifmtarg
9055   (let ((template (simple-texlive-package
9056                    "texlive-ifmtarg"
9057                    (list "/doc/latex/ifmtarg/"
9058                          "/source/latex/ifmtarg/")
9059                    (base32
9060                     "0cwjn4bhq9zyfxr1595hgyc1d7rcsf9lva55x98q81xy5xrrmrb2"))))
9061     (package
9062       (inherit template)
9063       (arguments
9064        (substitute-keyword-arguments (package-arguments template)
9065          ((#:tex-directory _ '())
9066           "latex/ifmtarg")
9067          ((#:build-targets _ '())
9068           ''("ifmtarg.ins"))
9069          ((#:tex-format _ "latex") "latex")
9070          ((#:phases phases)
9071           `(modify-phases ,phases
9072              (add-after 'unpack 'chdir
9073                (lambda _ (chdir "source/latex/ifmtarg")))))))
9074       (inputs
9075        `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
9076       (home-page "https://www.ctan.org/pkg/ifmtarg")
9077       (synopsis "If-then-else command for processing potentially empty arguments")
9078       (description "This package provides a command for the LaTeX programmer for
9079 testing whether an argument is empty.")
9080       (license license:lppl1.3c+))))
9081
9082 (define-public texlive-pagenote
9083   (let ((template (simple-texlive-package
9084                    "texlive-pagenote"
9085                    (list "/doc/latex/pagenote/"
9086                          "/source/latex/pagenote/")
9087                    (base32
9088                     "0cqfqrfvnzq7ldaf255hcvi8xsfx8h7iha3hs8p9gdi3cfzbcmjm"))))
9089     (package
9090       (inherit template)
9091       (arguments
9092        (substitute-keyword-arguments (package-arguments template)
9093          ((#:tex-directory _ '())
9094           "latex/pagenote")
9095          ((#:build-targets _ '())
9096           ''("pagenote.ins"))
9097          ((#:phases phases)
9098           `(modify-phases ,phases
9099              (add-after 'unpack 'chdir
9100                (lambda _ (chdir "source/latex/pagenote")))))))
9101       (propagated-inputs
9102        `(("texlive-ifmtarg" ,texlive-ifmtarg)))
9103       (home-page "https://www.ctan.org/pkg/pagenote")
9104       (synopsis "Notes at end of document")
9105       (description "The pagenote package provides tagged notes on a separate
9106 page (also known as ‘end notes’).")
9107       (license license:lppl1.3c+))))
9108
9109 (define-public texlive-titling
9110   (let ((template (simple-texlive-package
9111                    "texlive-titling"
9112                    (list "/doc/latex/titling/"
9113                          "/source/latex/titling/")
9114                    (base32
9115                     "0pc3806kc9p2dizdghis0p0b00xs0gmlh2nmf94f5wasz5mkw6bk"))))
9116     (package
9117       (inherit template)
9118       (arguments
9119        (substitute-keyword-arguments (package-arguments template)
9120          ((#:tex-directory _ '())
9121           "latex/titling")
9122          ((#:build-targets _ '())
9123           ''("titling.ins"))
9124          ((#:tex-format _ "latex") "latex")
9125          ((#:phases phases)
9126           `(modify-phases ,phases
9127              (add-after 'unpack 'chdir
9128                (lambda _ (chdir "source/latex/titling")))))))
9129       (native-inputs
9130        `(("texlive-cm" ,texlive-cm)))
9131       (home-page "https://www.ctan.org/pkg/titling")
9132       (synopsis "Control typesetting of the \\maketitle command")
9133       (description "The @code{titling} package provides control over the
9134 typesetting of the @code{\\maketitle} command and @code{\\thanks} commands,
9135 and makes the \title, @code{\\author} and @code{\\date} information
9136 permanently available.  Multiple titles are allowed in a single document.  New
9137 titling elements can be added and a @code{titlepage} title can be centered on
9138 a physical page.")
9139       (license license:lppl))))
9140
9141 (define-public texlive-ifoddpage
9142   (let ((template (simple-texlive-package
9143                    "texlive-ifoddpage"
9144                    (list "/source/latex/ifoddpage/")
9145                    (base32
9146                     "14x0haj3xjsk9dn2djg117sl7x5nbwgbivhjj3ichnxlgrlf1bis"))))
9147     (package
9148       (inherit template)
9149       (arguments
9150        (substitute-keyword-arguments (package-arguments template)
9151          ((#:tex-directory _ '())
9152           "latex/ifoddpage")
9153          ((#:build-targets _ '())
9154           ''("ifoddpage.ins"))
9155          ((#:phases phases)
9156           `(modify-phases ,phases
9157              (add-after 'unpack 'chdir
9158                (lambda _ (chdir "source/latex/ifoddpage")))))))
9159       (native-inputs
9160        `(("texlive-ydoc" ,texlive-ydoc)))
9161       (home-page "https://www.ctan.org/pkg/ifoddpage")
9162       (synopsis "Determine if the current page is odd or even")
9163       (description "This package provides an @code{\\ifoddpage} conditional to
9164 determine if the current page is odd or even.  The macro @code{\\checkoddpage}
9165 must be used directly before to check the page number using a label.  Two
9166 compiler runs are therefore required to achieve correct results.  In addition,
9167 the conditional @code{\\ifoddpageoronside} is provided which is also true in
9168 @code{oneside} mode where all pages use the odd page layout.")
9169       (license license:lppl1.3))))
9170
9171 (define-public texlive-storebox
9172   (let ((template (simple-texlive-package
9173                    "texlive-storebox"
9174                    (list "/source/latex/storebox/")
9175                    (base32
9176                     "1ybpjfrria57fwvr9kriiw6y76ivwvsyb6ayp0bi750smsv8k5n1"))))
9177     (package
9178       (inherit template)
9179       (arguments
9180        (substitute-keyword-arguments (package-arguments template)
9181          ((#:tex-directory _ '())
9182           "latex/storebox")
9183          ((#:build-targets _ '())
9184           ''("storebox.ins"))
9185          ((#:phases phases)
9186           `(modify-phases ,phases
9187              (add-after 'unpack 'chdir
9188                (lambda _ (chdir "source/latex/storebox")))))))
9189       (native-inputs
9190        `(("texlive-ydoc" ,texlive-ydoc)))
9191       (home-page "https://www.ctan.org/pkg/storebox")
9192       (synopsis "Storing information for reuse")
9193       (description "The package provides \"store boxes\" whose user interface
9194 matches that of normal LaTeX \"save boxes\", except that the content of a
9195 store box appears at most once in the output PDF file, however often it is
9196 used.  The present version of the package supports pdfLaTeX and LuaLaTeX; when
9197 DVI is output, store boxes behave the same as save boxes.")
9198       (license license:lppl1.3))))
9199
9200 (define-public texlive-collectbox
9201   (let ((template (simple-texlive-package
9202                    "texlive-collectbox"
9203                    (list "/source/latex/collectbox/")
9204                    (base32
9205                     "1k0bbphvr20k9hgpr3dv869h9ygxx3g8vjapkc63nq8i13crpsvz"))))
9206     (package
9207       (inherit template)
9208       (arguments
9209        (substitute-keyword-arguments (package-arguments template)
9210          ((#:tex-directory _ '())
9211           "latex/collectbox")
9212          ((#:build-targets _ '())
9213           ''("collectbox.ins"))
9214          ((#:phases phases)
9215           `(modify-phases ,phases
9216              (add-after 'unpack 'chdir
9217                (lambda _ (chdir "source/latex/collectbox")))))))
9218       (native-inputs
9219        `(("texlive-ydoc" ,texlive-ydoc)))
9220       (home-page "https://www.ctan.org/pkg/collectbox")
9221       (synopsis "Collect and process macro arguments as boxes")
9222       (description "The package provides macros to collect and process a macro
9223 argument (i.e., something which looks like a macro argument) as a horizontal
9224 box rather than as a real macro argument.  The \"arguments\" are stored as if
9225 they had been saved by @code{\\savebox} or by the @code{lrbox} environment.
9226 Grouping tokens @code{\\bgroup} and @code{\\egroup} may be used, which allows
9227 the user to have the beginning and end of a group in different macro
9228 invocations, or to place them in the begin and end code of an environment.
9229 Arguments may contain verbatim material or other special use of characters.
9230 The macros were designed for use within other macros.")
9231       (license license:lppl1.3))))
9232
9233 (define-public texlive-adjustbox
9234   (let ((template (simple-texlive-package
9235                    "texlive-adjustbox"
9236                    (list "/doc/latex/adjustbox/"
9237                          "/source/latex/adjustbox/")
9238                    (base32
9239                     "14vd0yd50bky2pbbjkn59q1aglnqpdhh8vwjdyan0jkzljsr2ch8"))))
9240     (package
9241       (inherit template)
9242       (arguments
9243        (substitute-keyword-arguments (package-arguments template)
9244          ((#:tex-directory _ '())
9245           "latex/adjustbox")
9246          ((#:build-targets _ '())
9247           ''("adjustbox.ins"))
9248          ((#:phases phases)
9249           `(modify-phases ,phases
9250              (add-after 'unpack 'chdir
9251                (lambda _ (chdir "source/latex/adjustbox")))))))
9252       (native-inputs
9253        `(("texlive-ydoc" ,texlive-ydoc)))
9254       (propagated-inputs
9255        `(("texlive-latex-pgf" ,texlive-latex-pgf)
9256          ("texlive-latex-varwidth" ,texlive-latex-varwidth)
9257          ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)
9258          ("texlive-collectbox" ,texlive-collectbox)
9259          ("texlive-ifoddpage" ,texlive-ifoddpage)
9260          ("texlive-storebox" ,texlive-storebox)))
9261       (home-page "https://www.ctan.org/pkg/adjustbox")
9262       (synopsis "Graphics package-alike macros for “general” boxes")
9263       (description "The package provides several macros to adjust boxed
9264 content.  One purpose is to supplement the standard @code{graphics} package,
9265 which defines the macros @code{\\resizebox}, @code{\\scalebox} and
9266 @code{\\rotatebox} , with the macros @code{\\trimbox} and @code{\\clipbox}.
9267 The main feature is the general @code{\\adjustbox} macro which extends the
9268 @code{key=value} interface of @code{\\includegraphics} from the
9269 @code{graphics} package and applies it to general text content.  Additional
9270 provided box macros are @code{\\lapbox}, @code{\\marginbox},
9271 @code{\\minsizebox}, @code{\\maxsizebox} and @code{\\phantombox}.")
9272       (license license:lppl1.3))))
9273
9274 (define-public texlive-tcolorbox
9275   (let ((template (simple-texlive-package
9276                    "texlive-tcolorbox"
9277                    (list "/doc/latex/tcolorbox/"
9278                          "/tex/latex/tcolorbox/")
9279                    (base32
9280                     "1swhagdj0a39ssifp29a36ldrjqmx8w92dqsgsjpal6lhksvzn2w")
9281                    #:trivial? #true)))
9282     (package
9283       (inherit template)
9284       (propagated-inputs
9285        `(("texlive-etoolbox" ,texlive-etoolbox)
9286          ("texlive-latex-environ" ,texlive-latex-environ)
9287          ("texlive-latex-pgf" ,texlive-latex-pgf)
9288          ("texlive-latex-tools" ,texlive-latex-tools)))
9289       (home-page "https://www.ctan.org/pkg/tcolorbox")
9290       (synopsis "Colored boxes, for LaTeX examples and theorems, etc")
9291       (description "This package provides an environment for colored and
9292 framed text boxes with a heading line.  Optionally, such a box may be split in
9293 an upper and a lower part; thus the package may be used for the setting of
9294 LaTeX examples where one part of the box displays the source code and the
9295 other part shows the output.  Another common use case is the setting of
9296 theorems.  The package supports saving and reuse of source code and text
9297 parts.")
9298       (license license:lppl1.3c+))))
9299
9300 (define-public texlive-eurosym
9301   (let ((template (simple-texlive-package
9302                    "texlive-eurosym"
9303                    (list "/doc/fonts/eurosym/"
9304                          "/fonts/map/dvips/eurosym/"
9305                          "/fonts/source/public/eurosym/"
9306                          "/fonts/tfm/public/eurosym/"
9307                          "/fonts/type1/public/eurosym/"
9308                          "/tex/latex/eurosym/eurosym.sty")
9309                    (base32
9310                     "0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")
9311                    #:trivial? #true)))
9312     (package
9313       (inherit template)
9314       (home-page "https://www.ctan.org/pkg/eurosym")
9315       (synopsis "METAFONT and macros for Euro sign")
9316       (description "This package provides the European currency symbol for the
9317 Euro implemented in METAFONT, using the official European Commission
9318 dimensions, and providing several shapes (normal, slanted, bold, outline).
9319 The package also includes a LaTeX package which defines the macro,
9320 pre-compiled font files, and documentation.")
9321       (license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING")))))
9322
9323 (define-public texlive-kastrup
9324   (package
9325     (name "texlive-kastrup")
9326     (version (number->string %texlive-revision))
9327     (source
9328      (origin
9329        (method svn-fetch)
9330        (uri (texlive-ref "generic" "kastrup"))
9331        (file-name (string-append name "-" version "-checkout"))
9332        (sha256
9333         (base32
9334          "1kkshc48brkq2nx3rlbv78a2130izykbf33ri1q2shqr8pjfmmq8"))))
9335     (build-system texlive-build-system)
9336     (arguments
9337      '(#:tex-directory "generic/kastrup"
9338        #:phases
9339        (modify-phases %standard-phases
9340          (add-after 'unpack 'remove-generated-file
9341            (lambda _
9342              (delete-file "binhex.drv")
9343              #t)))))
9344     (home-page "http://www.ctan.org/pkg/binhex")
9345     (synopsis "Convert numbers into binary, octal and hexadecimal")
9346     (description "The @code{kastrup} package provides the
9347 @emph{binhex.tex} file.  This file provides expandable macros for both
9348 fixed-width and minimum-width numbers to bases 2, 4, 8 and 16.  All
9349 constructs TeX accepts as arguments to its @code{\\number} primitive
9350 are valid as arguments for the macros.  The package may be used under
9351 LaTeX and plain TeX.")
9352     (license (license:fsf-free "file:/binhex.dtx"))))