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 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 Ricardo Wurmus <rekado@elephly.net>
  10 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
  11 ;;; Copyright © 2017, 2020 Marius Bakke <mbakke@fastmail.com>
  12 ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
  13 ;;; Copyright © 2018 Danny Milosavljevic <dannym+a@scratchpost.org>
  14 ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
  15 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  16 ;;;
  17 ;;; This file is part of GNU Guix.
  18 ;;;
  19 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  20 ;;; under the terms of the GNU General Public License as published by
  21 ;;; the Free Software Foundation; either version 3 of the License, or (at
  22 ;;; your option) any later version.
  23 ;;;
  24 ;;; GNU Guix is distributed in the hope that it will be useful, but
  25 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  26 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27 ;;; GNU General Public License for more details.
  28 ;;;
  29 ;;; You should have received a copy of the GNU General Public License
  30 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  31
  32 (define-module (gnu packages tex)
  33   #:use-module ((guix licenses) #:prefix license:)
  34   #:use-module (guix packages)
  35   #:use-module (guix download)
  36   #:use-module (guix build-system cmake)
  37   #:use-module (guix build-system gnu)
  38   #:use-module (guix build-system perl)
  39   #:use-module (guix build-system trivial)
  40   #:use-module (guix build-system texlive)
  41   #:use-module (guix utils)
  42   #:use-module (guix git-download)
  43   #:use-module (guix svn-download)
  44   #:use-module (gnu packages)
  45   #:use-module (gnu packages algebra)
  46   #:use-module (gnu packages autotools)
  47   #:use-module (gnu packages bash)
  48   #:use-module (gnu packages boost)
  49   #:use-module (gnu packages compression)
  50   #:use-module (gnu packages fontutils)
  51   #:use-module (gnu packages gd)
  52   #:use-module (gnu packages ghostscript)
  53   #:use-module (gnu packages graphviz)
  54   #:use-module (gnu packages gtk)
  55   #:use-module (gnu packages icu4c)
  56   #:use-module (gnu packages image)
  57   #:use-module (gnu packages libreoffice)
  58   #:use-module (gnu packages lua)
  59   #:use-module (gnu packages multiprecision)
  60   #:use-module (gnu packages pdf)
  61   #:use-module (gnu packages perl)
  62   #:use-module (gnu packages perl-check)
  63   #:use-module (gnu packages pkg-config)
  64   #:use-module (gnu packages python)
  65   #:use-module (gnu packages python-xyz)
  66   #:use-module (gnu packages qt)
  67   #:use-module (gnu packages ruby)
  68   #:use-module (gnu packages shells)
  69   #:use-module (gnu packages base)
  70   #:use-module (gnu packages gawk)
  71   #:use-module (gnu packages web)
  72   #:use-module (gnu packages xml)
  73   #:use-module (gnu packages xorg)
  74   #:use-module (gnu packages xdisorg)
  75   #:use-module (gnu packages texinfo)
  76   #:use-module (ice-9 ftw)
  77   #:use-module (ice-9 match)
  78   #:use-module ((srfi srfi-1) #:hide (zip)))
  79
  80 (define* (simple-texlive-package name locations hash
  81                                  #:key trivial?)
  82   "Return a template for a simple TeX Live package with the given NAME,
  83 downloading from a list of LOCATIONS in the TeX Live repository, and expecting
  84 the provided output HASH.  If TRIVIAL? is provided, all files will simply be
  85 copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
  86   (define with-documentation?
  87     (and trivial?
  88          (any (lambda (location)
  89                 (string-prefix? "/doc" location))
  90               locations)))
  91   (package
  92     (name name)
  93     (version (number->string %texlive-revision))
  94     (source (texlive-origin name version
  95                             locations hash))
  96     (outputs (if with-documentation?
  97                  '("out" "doc")
  98                  '("out")))
  99     (build-system (if trivial?
 100                       gnu-build-system
 101                       texlive-build-system))
 102     (arguments
 103      (let ((copy-files
 104             `(lambda* (#:key outputs inputs #:allow-other-keys)
 105                (let (,@(if with-documentation?
 106                            `((doc (string-append (assoc-ref outputs "doc")
 107                                                  "/share/texmf-dist/")))
 108                            '())
 109                      (out (string-append (assoc-ref outputs "out")
 110                                          "/share/texmf-dist/")))
 111                  ,@(if with-documentation?
 112                        '((mkdir-p doc)
 113                          (copy-recursively
 114                           (string-append (assoc-ref inputs "source") "/doc")
 115                           (string-append doc "/doc")))
 116                        '())
 117                  (mkdir-p out)
 118                  (copy-recursively (assoc-ref inputs "source") out)
 119                  ,@(if with-documentation?
 120                        '((delete-file-recursively (string-append out "/doc")))
 121                        '())
 122                  #t))))
 123        (if trivial?
 124            `(#:tests? #f
 125              #:phases
 126              (modify-phases %standard-phases
 127                (delete 'configure)
 128                (replace 'build (const #t))
 129                (replace 'install ,copy-files)))
 130            `(#:phases
 131              (modify-phases %standard-phases
 132                (add-after 'install 'copy-files ,copy-files))))))
 133     (home-page #f)
 134     (synopsis #f)
 135     (description #f)
 136     (license #f)))
 137
 138 (define hyph-utf8-scripts
 139   (origin
 140     (method svn-fetch)
 141     (uri (texlive-ref "generic" "hyph-utf8"))
 142     (file-name (string-append "hyph-utf8-scripts-"
 143                               (number->string %texlive-revision)
 144                               "-checkout"))
 145     (sha256
 146      (base32
 147       "0lk7shx768sxvgr85y8bnmmnj8x4bbkgpxrz3z8jp8avi33prw83"))))
 148
 149 (define (texlive-hyphen-package name code locations hash)
 150   "Return a TeX Live hyphenation package with the given NAME, using source
 151 files from LOCATIONS with expected checksum HASH.  CODE is not currently in use."
 152   (let ((parent (simple-texlive-package
 153                  name locations hash #:trivial? #t)))
 154     (package
 155       (inherit parent)
 156       (arguments
 157        (substitute-keyword-arguments (package-arguments parent)
 158          ((#:phases phases)
 159           `(modify-phases ,phases
 160              (replace 'build
 161                (lambda* (#:key inputs outputs #:allow-other-keys)
 162                  (let* ((out (assoc-ref outputs "out"))
 163                         (root (string-append out "/share/texmf-dist"))
 164                         (patterns
 165                          (string-append root "/tex/generic/hyph-utf8/patterns/txt/"))
 166                         (loaders
 167                          (string-append root "/tex/generic/hyph-utf8/loadhyph"))
 168                         (ptex
 169                          (string-append root "/tex/generic/hyph-utf8/patterns/ptex"))
 170                         (quote
 171                          (string-append root "/tex/generic/hyph-utf8/patterns/quote")))
 172                    (mkdir "scripts")
 173                    (copy-recursively
 174                     (assoc-ref inputs "hyph-utf8-scripts") "scripts")
 175
 176                    ;; Prepare target directories
 177                    (mkdir-p patterns)
 178                    (mkdir-p loaders)
 179                    (mkdir-p ptex)
 180                    (mkdir-p quote)
 181
 182                    ;; Generate plain patterns
 183                    (with-directory-excursion "scripts"
 184                      (substitute* "lib/tex/hyphen/path.rb"
 185                        (("^([[:blank:]]+)TeXROOT = .*" _ indent)
 186                         (string-append indent "TeXROOT = \""
 187                                        (getcwd) "/..\"\n")))
 188
 189                      (substitute* "generate-plain-patterns.rb"
 190                        ;; Ruby 2 does not need this.
 191                        (("require 'unicode'") "")
 192                        ;; Write directly to the output directory
 193                        (("File\\.join\\(PATH::TXT")
 194                         (string-append "File.join(\"" patterns "\""))
 195                        (("File\\.join\\(PATH::QUOTE")
 196                         (string-append "File.join(\"" quote "\"")))
 197                      (invoke "ruby" "generate-plain-patterns.rb")
 198
 199                      ;; Build pattern loaders
 200                      (substitute* "generate-pattern-loaders.rb"
 201                        (("File\\.join\\(PATH::LOADER")
 202                         (string-append "File.join(\"" loaders "\"")))
 203
 204                      (invoke "ruby" "generate-pattern-loaders.rb")
 205
 206                      ;; Build ptex patterns
 207                      (substitute* "generate-ptex-patterns.rb"
 208                        (("File\\.join\\(PATH::PTEX")
 209                         (string-append "File.join(\"" ptex "\"")))
 210                      (invoke "ruby" "generate-ptex-patterns.rb")))))))))
 211       (native-inputs
 212        `(("ruby" ,ruby)
 213          ("ruby-hydra" ,ruby-hydra)
 214          ("hyph-utf8-scripts" ,hyph-utf8-scripts)))
 215       (home-page "https://ctan.org/pkg/hyph-utf8"))))
 216
 217 (define texlive-extra-src
 218   (origin
 219     (method url-fetch)
 220     (uri "ftp://tug.org/historic/systems/texlive/2019/texlive-20190410-extra.tar.xz")
 221     (sha256 (base32
 222              "13ncf2an4nlqv18lki6y2p6pcsgs1i54zqkhfwprax5j53bk70j8"))))
 223
 224 (define texlive-texmf-src
 225   (origin
 226     (method url-fetch)
 227     (uri "ftp://tug.org/historic/systems/texlive/2019/texlive-20190410-texmf.tar.xz")
 228     (sha256 (base32
 229              "00n4qh9fj8v9zzy3y488hpfq1g3dnnh72y4yjsaikfcqpi59gv62"))))
 230
 231 (define-public texlive-bin
 232   (package
 233    (name "texlive-bin")
 234    (version "20190410")
 235    (source
 236     (origin
 237       (method url-fetch)
 238       (uri (string-append "ftp://tug.org/historic/systems/texlive/2019/"
 239                           "texlive-" version "-source.tar.xz"))
 240       (sha256
 241        (base32
 242         "1dfps39q6bdr1zsbp9p74mvalmy3bycihv19sb9c6kg30kprz8nj"))
 243       (patches
 244        (let ((arch-patch
 245               (lambda (name revision hash)
 246                 (origin
 247                   (method url-fetch)
 248                   (uri (string-append "https://git.archlinux.org/svntogit/packages.git"
 249                                       "/plain/trunk/" name "?h=packages/texlive-bin"
 250                                       "&id=" revision))
 251                   (file-name (string-append "texlive-bin-" name))
 252                   (sha256 (base32 hash)))))
 253              (arch-revision "49d7fe25e5ea63f136ebc20270c1d8fc9b00041c"))
 254          (list
 255           (arch-patch "pdftex-poppler0.76.patch" arch-revision
 256                       "03vc88dz37mjjyaspzv0fik2fp5gp8qv82114869akd1dhszbaax")
 257           (search-patch "texlive-bin-poppler-0.83.patch")
 258           (arch-patch "texlive-poppler-0.84.patch" arch-revision
 259                       "1ia6cr99krk4ipx4hdi2qdb98bh2h26mckjlpxdzrjnfhlnghksa")
 260           (search-patch "texlive-bin-poppler-0.86.patch"))))
 261       (modules '((guix build utils)
 262                  (ice-9 ftw)))
 263       (snippet
 264        '(begin
 265           (with-directory-excursion "libs"
 266             (let ((preserved-directories '("." ".." "lua53" "luajit")))
 267               ;; Delete bundled software, except Lua which cannot easily be
 268               ;; used as an external dependency.
 269               (for-each delete-file-recursively
 270                         (scandir "."
 271                                  (lambda (file)
 272                                    (and (not (member file preserved-directories))
 273                                         (eq? 'directory (stat:type (stat file)))))))))
 274           ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
 275           #t))))
 276    (build-system gnu-build-system)
 277    (inputs
 278     `(("texlive-extra-src" ,texlive-extra-src)
 279       ("texlive-scripts"
 280        ,(origin
 281           (method svn-fetch)
 282           (uri (svn-reference
 283                 (url (string-append "svn://www.tug.org/texlive/tags/"
 284                                     %texlive-tag "/Master/texmf-dist/"
 285                                     "/scripts/texlive"))
 286                 (revision %texlive-revision)))
 287           (file-name (string-append "texlive-scripts-"
 288                                     (number->string %texlive-revision)
 289                                     "-checkout"))
 290           (sha256
 291            (base32
 292             "1cj04svl8bpfwjr4gqfcc04rmklz3aggrxvgj7q5bxrh7c7g18xh"))))
 293       ("cairo" ,cairo)
 294       ("fontconfig" ,fontconfig)
 295       ("fontforge" ,fontforge)
 296       ("freetype" ,freetype)
 297       ("gd" ,gd)
 298       ("gmp" ,gmp)
 299       ("ghostscript" ,ghostscript)
 300       ("graphite2" ,graphite2)
 301       ("harfbuzz" ,harfbuzz)
 302       ("icu4c" ,icu4c)
 303       ("libpaper" ,libpaper)
 304       ("libpng" ,libpng)
 305       ("libxaw" ,libxaw)
 306       ("libxt" ,libxt)
 307       ("mpfr" ,mpfr)
 308       ("perl" ,perl)
 309       ("pixman" ,pixman)
 310       ("poppler" ,poppler)
 311       ("potrace" ,potrace)
 312       ("python" ,python-2) ; incompatible with Python 3 (print syntax)
 313       ("ruby" ,ruby)
 314       ("tcsh" ,tcsh)
 315       ("teckit" ,teckit)
 316       ("zlib" ,zlib)
 317       ("zziplib" ,zziplib)))
 318    (native-inputs
 319     `(("pkg-config" ,pkg-config)))
 320    (arguments
 321     `(#:out-of-source? #t
 322       #:configure-flags
 323        '("--disable-static"
 324          "--disable-native-texlive-build"
 325          "--with-system-cairo"
 326          "--with-system-freetype2"
 327          "--with-system-gd"
 328          "--with-system-gmp"
 329          "--with-system-graphite2"
 330          "--with-system-harfbuzz"
 331          "--with-system-icu"
 332          "--with-system-libgs"
 333          "--with-system-libpaper"
 334          "--with-system-libpng"
 335          "--with-system-mpfr"
 336          "--with-system-pixman"
 337          "--with-system-poppler"
 338          "--with-system-potrace"
 339          "--with-system-teckit"
 340          "--with-system-xpdf"
 341          "--with-system-zlib"
 342          "--with-system-zziplib")
 343
 344       ;; Disable tests on mips64/aarch64 to cope with a failure of luajiterr.test.
 345       ;; XXX FIXME fix luajit properly on mips64 and aarch64.
 346       #:tests? ,(let ((s (or (%current-target-system)
 347                              (%current-system))))
 348                   (not (or (string-prefix? "aarch64" s)
 349                            (string-prefix? "mips64" s))))
 350       #:phases
 351       (modify-phases %standard-phases
 352         (add-after 'unpack 'configure-ghostscript-executable
 353           ;; ps2eps.pl uses the "gswin32c" ghostscript executable on Windows,
 354           ;; and the "gs" ghostscript executable on Unix. It detects Unix by
 355           ;; checking for the existence of the /usr/bin directory. Since
 356           ;; Guix System does not have /usr/bin, it is also detected as Windows.
 357           (lambda* (#:key inputs #:allow-other-keys)
 358             (substitute* "utils/ps2eps/ps2eps-src/bin/ps2eps.pl"
 359               (("gswin32c") "gs"))
 360             (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
 361               (("\"gs\"")
 362                (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))
 363             #t))
 364         (add-after 'unpack 'use-code-for-new-poppler
 365           (lambda _
 366             (copy-file "texk/web2c/pdftexdir/pdftoepdf-poppler0.76.0.cc"
 367                        "texk/web2c/pdftexdir/pdftoepdf.cc")
 368             (copy-file "texk/web2c/pdftexdir/pdftosrc-poppler0.76.0.cc"
 369                        "texk/web2c/pdftexdir/pdftosrc.cc")
 370             #t))
 371         (add-after 'unpack 'patch-dvisvgm-build-files
 372           (lambda _
 373             ;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so
 374             ;; the appropriate linker flags are not added.
 375             (substitute* "texk/dvisvgm/configure"
 376               (("^have_libgs=yes" all)
 377                (string-append all "\nHAVE_LIBGS=1")))
 378             #t))
 379         (add-after 'unpack 'disable-failing-test
 380           (lambda _
 381             ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
 382             ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
 383             (substitute* "texk/web2c/omegafonts/check.test"
 384               (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
 385                "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))
 386             #t))
 387         (add-after 'install 'postint
 388           (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
 389             (let* ((out (assoc-ref outputs "out"))
 390                    (share (string-append out "/share"))
 391                    (texlive-extra (assoc-ref inputs "texlive-extra-src"))
 392                    (unpack (assoc-ref %standard-phases 'unpack))
 393                    (patch-source-shebangs
 394                     (assoc-ref %standard-phases 'patch-source-shebangs)))
 395               (substitute* (string-append share "/texmf-dist/web2c/texmf.cnf")
 396                 ;; Don't truncate lines.
 397                 (("^error_line = .*$") "error_line = 254\n")
 398                 (("^half_error_line = .*$") "half_error_line = 238\n")
 399                 (("^max_print_line = .*$") "max_print_line = 1000\n"))
 400               ;; Create symbolic links for the latex variants and their
 401               ;; man pages.
 402               (with-directory-excursion (string-append out "/bin/")
 403                 (for-each symlink
 404                           '("pdftex" "pdftex"   "xetex"   "luatex")
 405                           '("latex"  "pdflatex" "xelatex" "lualatex")))
 406               (with-directory-excursion (string-append share "/man/man1/")
 407                 (symlink "luatex.1" "lualatex.1"))
 408               ;; Unpack texlive-extra and install tlpkg.
 409               (mkdir "texlive-extra")
 410               (with-directory-excursion "texlive-extra"
 411                 (apply unpack (list #:source texlive-extra))
 412                 (apply patch-source-shebangs (list #:source texlive-extra))
 413                 (invoke "mv" "tlpkg" share))
 414               (let ((scripts (string-append share "/texmf-dist/scripts/texlive/")))
 415                 (mkdir-p scripts)
 416                 (copy-recursively (assoc-ref inputs "texlive-scripts") scripts)
 417                 ;; Make sure that fmtutil can find its Perl modules.
 418                 (substitute* (string-append scripts "fmtutil.pl")
 419                   (("\\$TEXMFROOT/") (string-append share "/"))))
 420
 421               ;; texlua shebangs are not patched by the patch-source-shebangs
 422               ;; phase because the texlua executable does not exist at that
 423               ;; time.
 424               (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
 425               (with-directory-excursion out
 426                 (patch-source-shebangs))))))))
 427    (native-search-paths
 428     (list (search-path-specification
 429            (variable "TEXMF")
 430            (files '("share/texmf-dist"))
 431            (separator #f))
 432           (search-path-specification
 433            (variable "TEXMFCNF")
 434            (files '("share/texmf-dist/web2c"))
 435            (separator #f))))
 436    (synopsis "TeX Live, a package of the TeX typesetting system")
 437    (description
 438     "TeX Live provides a comprehensive TeX document production system.
 439 It includes all the major TeX-related programs, macro packages, and fonts
 440 that are free software, including support for many languages around the
 441 world.
 442
 443 This package contains the binaries.")
 444    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
 445    (home-page "https://www.tug.org/texlive/")))
 446
 447 \f
 448 (define texlive-docstrip
 449   (package
 450     (inherit (simple-texlive-package
 451               "texlive-docstrip"
 452               (list "/tex/latex/base/docstrip.tex")
 453               (base32
 454                "1f9sx1lp7v34zwm186msf03q2h28rrg0lh65z59zc0cvqffs6dvb")
 455               #:trivial? #t))
 456     (home-page "https://www.ctan.org/texlive")
 457     (synopsis "Utility to strip documentation from TeX files.")
 458     (description "This package provides the docstrip utility to strip
 459 documentation from TeX files.  It is part of the LaTeX base.")
 460     (license license:lppl1.3+)))
 461
 462 (define-public texlive-unicode-data
 463   (package
 464     (inherit (simple-texlive-package
 465               "texlive-unicode-data"
 466               (list "/tex/generic/unicode-data/"
 467                     "/doc/generic/unicode-data/")
 468               (base32
 469                "0zy4v9y667cka5fi4dnc6x500907812y7pcaf63s5qxi8l7khxxy")
 470               #:trivial? #t))
 471     (home-page "https://www.ctan.org/pkg/unicode-data")
 472     (synopsis "Unicode data and loaders for TeX")
 473     (description "This bundle provides generic access to Unicode Consortium
 474 data for TeX use.  It contains a set of text files provided by the Unicode
 475 Consortium which are currently all from Unicode 8.0.0, with the exception of
 476 @code{MathClass.txt} which is not currently part of the Unicode Character
 477 Database.  Accompanying these source data are generic TeX loader files
 478 allowing this data to be used as part of TeX runs, in particular in building
 479 format files.  Currently there are two loader files: one for general character
 480 set up and one for initializing XeTeX character classes as has been carried
 481 out to date by @code{unicode-letters.tex}. ")
 482     (license license:lppl1.3c+)))
 483
 484 (define-public texlive-generic-unicode-data
 485   (deprecated-package "texlive-generic-unicode-data" texlive-unicode-data))
 486
 487 (define-public texlive-hyphen-base
 488   (package
 489     (inherit (simple-texlive-package
 490               "texlive-hyphen-base"
 491               (list "/tex/generic/config/language.dat"
 492                     "/tex/generic/config/language.dat.lua"
 493                     "/tex/generic/config/language.def"
 494                     "/tex/generic/config/language.us"
 495                     "/tex/generic/config/language.us.def"
 496                     "/tex/generic/config/language.us.lua"
 497                     "/tex/generic/hyphen/dumyhyph.tex"
 498                     "/tex/generic/hyphen/hyphen.tex"
 499                     "/tex/generic/hyphen/hypht1.tex"
 500                     "/tex/generic/hyphen/zerohyph.tex")
 501               (base32
 502                "0f19nml4hdx9lh7accqdk1b9ismwfm2523l5zsc4kb4arysgcakz")
 503               #:trivial? #t))
 504     (home-page "https://tug.org/texlive/")
 505     (synopsis "Core hyphenation support files")
 506     (description "This package includes Knuth's original @file{hyphen.tex},
 507 @file{zerohyph.tex} to disable hyphenation, @file{language.us} which starts
 508 the autogenerated files @file{language.dat} and @file{language.def} (and
 509 default versions of those), etc.")
 510     (license license:knuth)))
 511
 512 (define-public texlive-dvips
 513   (package
 514     (inherit (simple-texlive-package
 515               "texlive-dvips"
 516               (list "/doc/man/man1/afm2tfm.1"
 517                     "/doc/man/man1/dvips.1"
 518                     "/dvips/base/"
 519                     "/dvips/config/"
 520                     "/fonts/enc/dvips/base/"
 521                     "/tex/generic/dvips/")
 522               (base32
 523                "1qr7h0ahycmz5wmpv54glfss9jqdmmyymj6kim626d1c8v9bmg86")
 524               #:trivial? #t))
 525     (home-page "https://www.ctan.org/pkg/dvips")
 526     (synopsis "DVI to PostScript drivers")
 527     (description "This package provides files needed for converting DVI files
 528 to PostScript.")
 529     (license license:lppl)))
 530
 531 (define-public texlive-tex-ini-files
 532   (package
 533     (inherit (simple-texlive-package
 534               "texlive-tex-ini-files"
 535               (list "/tex/generic/tex-ini-files/")
 536               (base32
 537                "0q1g62jg0qiqslm93ycvm30bw8ydmssjdshzsnzl7n2vpd62qfi2")
 538               #:trivial? #t))
 539     (home-page "https://www.ctan.org/pkg/tex-ini-files")
 540     (synopsis "Files for creating TeX formats")
 541     (description "This bundle provides a collection of model \".ini\" files
 542 for creating TeX formats.  These files are commonly used to introduced
 543 distribution-dependent variations in formats.  They are also used to
 544 allow existing format source files to be used with newer engines, for example
 545 to adapt the plain e-TeX source file to work with XeTeX and LuaTeX.")
 546     (license license:public-domain)))
 547
 548 (define-public texlive-generic-tex-ini-files
 549   (deprecated-package "texlive-generic-tex-ini-files" texlive-tex-ini-files))
 550
 551 (define-public texlive-metafont-base
 552   (package
 553     (name "texlive-metafont-base")
 554     (version (number->string %texlive-revision))
 555     (source (origin
 556               (method svn-fetch)
 557               (uri (svn-reference
 558                     (url (string-append "svn://www.tug.org/texlive/tags/"
 559                                         %texlive-tag "/Master/texmf-dist/"
 560                                         "/metafont"))
 561                     (revision %texlive-revision)))
 562               (file-name (string-append name "-" version "-checkout"))
 563               (sha256
 564                (base32
 565                 "1yl4n8cn5xqk2nc22zgzq6ymd7bhm6xx1mz3azip7i3ki4bhb5q5"))))
 566     (build-system gnu-build-system)
 567     (arguments
 568      `(#:tests? #f ; no test target
 569        #:phases
 570        (modify-phases %standard-phases
 571          (delete 'configure)
 572          (replace 'build
 573            (lambda* (#:key inputs #:allow-other-keys)
 574              (let ((cwd (getcwd)))
 575                (setenv "MFINPUTS"
 576                        (string-append cwd "/base:"
 577                                       cwd "/misc:"
 578                                       cwd "/roex:"
 579                                       cwd "/feynmf:"
 580                                       cwd "/mfpic:"
 581                                       cwd "/config")))
 582              (mkdir "build")
 583              (with-directory-excursion "build"
 584                (invoke "inimf" "mf.mf"))))
 585          (replace 'install
 586            (lambda* (#:key outputs #:allow-other-keys)
 587              (let* ((out  (assoc-ref outputs "out"))
 588                     (base (string-append out "/share/texmf-dist/web2c"))
 589                     (mf   (string-append out "/share/texmf-dist/metafont/base")))
 590                (mkdir-p base)
 591                (mkdir-p mf)
 592                (install-file "build/mf.base" base)
 593                (copy-recursively "base" mf)
 594                #t))))))
 595     (native-inputs
 596      `(("texlive-bin" ,texlive-bin)))
 597     (home-page "https://www.ctan.org/pkg/metafont")
 598     (synopsis "Metafont base files")
 599     (description "This package provides the Metafont base files needed to
 600 build fonts using the Metafont system.")
 601     (license license:knuth)))
 602
 603 (define-public texlive-fontinst
 604   (let ((template (simple-texlive-package
 605                    "texlive-fontinst"
 606                    (list "/doc/fonts/fontinst/"
 607                          "/doc/man/man1/fontinst.1"
 608                          "/doc/man/man1/fontinst.man1.pdf"
 609
 610                          ;; This is used to build parts of
 611                          ;; /tex/fontinst/{base,misc}/ and
 612                          ;; /tex/latex/fontinst/fontdoc.sty.
 613                          "/source/fontinst/base/"
 614
 615                          ;; These are not generated.
 616                          "/tex/fontinst/base/bbox.sty"
 617                          "/tex/fontinst/base/multislot.sty"
 618                          "/tex/fontinst/misc/glyphbox.mtx"
 619                          "/tex/fontinst/misc/glyphoff.mtx"
 620                          "/tex/fontinst/misc/glyphon.mtx"
 621                          "/tex/fontinst/misc/kernoff.mtx"
 622                          "/tex/fontinst/misc/kernon.mtx"
 623
 624                          "/tex/fontinst/latinetx/"
 625                          "/tex/fontinst/latinmtx/"
 626                          "/tex/fontinst/mathmtx/"
 627                          "/tex/fontinst/smblmtx/"
 628
 629                          "/scripts/texlive/fontinst.sh")
 630                    (base32
 631                     "0lprwib7n2ygfxvrw675vhif7ghyip2x6k70kqs9syp8lqxiizf8")
 632                    #:trivial? #t)))
 633     (package
 634       (inherit template)
 635       (arguments
 636        (substitute-keyword-arguments (package-arguments template)
 637          ((#:modules _ '())
 638           '((guix build gnu-build-system)
 639             (guix build utils)
 640             (ice-9 match)))
 641          ((#:phases phases)
 642           `(modify-phases ,phases
 643              (replace 'build
 644                (lambda* (#:key inputs #:allow-other-keys)
 645                  (setenv "TEXINPUTS"
 646                          (string-append (getcwd) "//:"
 647                                         (getcwd) "/source/fontinst/base//:"
 648                                         (assoc-ref inputs "texlive-docstrip") "//"))
 649                  (mkdir "build")
 650                  (invoke "tex" "-ini" "-interaction=scrollmode"
 651                          "-output-directory=build"
 652                          "fontinst.ins")))
 653              ;; Since we're using docstrip without LaTeX we can't set \UseTDS
 654              ;; or \BaseDirectory, so the generated files are just dumped in
 655              ;; the "build" directory.
 656              (add-after 'install 'install-generated-files
 657                (lambda* (#:key outputs #:allow-other-keys)
 658                  (let* ((out (assoc-ref outputs "out"))
 659                         (root (string-append out "/share/texmf-dist")))
 660                    (for-each (match-lambda
 661                                ((dir files ...)
 662                                 (for-each (lambda (file)
 663                                             (install-file
 664                                              (string-append "build/" file)
 665                                              (string-append root dir)))
 666                                           files)))
 667                              '(("/tex/fontinst/base"
 668                                 "fontinst.sty"
 669                                 "cfntinst.sty"
 670                                 "xfntinst.sty"
 671                                 "finstmsc.sty"
 672                                 "fontinst.ini")
 673                                ("/tex/fontinst/misc"
 674                                 "csc2x.tex"
 675                                 "csckrn2x.tex"
 676                                 "osf2x.tex")
 677                                ("/tex/latex/fontinst"
 678                                 "fontdoc.sty")))
 679                    #t)))))))
 680       (native-inputs
 681        `(("texlive-bin" ,texlive-bin)
 682          ("texlive-docstrip" ,texlive-docstrip)))
 683       (home-page "https://www.ctan.org/pkg/fontinst")
 684       (synopsis "Tools for converting and installing fonts for TeX and LaTeX")
 685       (description "This package provides TeX macros for converting Adobe Font
 686 Metric files to TeX metric and virtual font format.  Fontinst helps mainly
 687 with the number crunching and shovelling parts of font installation.  This
 688 means in practice that it creates a number of files which give the TeX
 689 metrics (and related information) for a font family that TeX needs to do any
 690 typesetting in these fonts.")
 691       (license license:lppl1.1+))))
 692
 693 (define-public texlive-tex-fontinst-base
 694   (deprecated-package "texlive-tex-fontinst-base" texlive-fontinst))
 695
 696 (define-public texlive-fontname
 697   (package
 698     (inherit (simple-texlive-package
 699               "texlive-fontname"
 700               (list "/doc/fonts/fontname/fontname.texi"
 701                     "/fonts/map/fontname/")
 702               (base32
 703                "0h5im5rnhycrrkd6z10f17m2caa8lv594wf482b68qjmnxfrqnxj")
 704               #:trivial? #t))
 705     (home-page "https://www.ctan.org/pkg/fontname")
 706     (synopsis "Scheme for naming fonts in TeX")
 707     (description "This is Fontname, a naming scheme for (the base part of)
 708 external TeX font filenames.  This makes at most eight-character names
 709 from (almost) arbitrarily complex font names, thus helping portability of TeX
 710 documents.")
 711     (license license:public-domain)))
 712
 713 (define-public texlive-cm
 714   (let ((template (simple-texlive-package
 715                    "texlive-cm"
 716                    (list "/fonts/source/public/cm/"
 717                          "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
 718                          "/doc/fonts/cm/")
 719                    (base32
 720                     "09mvl94qrwlb9b4pkigi151l256v3djhwl4m5lgvk6yhn5y75zrp")
 721                    #:trivial? #t)))
 722     (package
 723       (inherit template)
 724       (arguments
 725        (substitute-keyword-arguments (package-arguments template)
 726          ((#:modules modules '())
 727           '((guix build gnu-build-system)
 728             (guix build utils)
 729             (srfi srfi-26)))
 730          ((#:phases phases)
 731           `(modify-phases ,phases
 732              (replace 'build
 733                (lambda* (#:key inputs #:allow-other-keys)
 734                  (let ((mf (assoc-ref inputs "texlive-metafont-base")))
 735                    ;; Tell mf where to find mf.base
 736                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 737                    ;; Tell mf where to look for source files
 738                    (setenv "MFINPUTS"
 739                            (string-append (getcwd) "/fonts/source/public/cm/:"
 740                                           mf "/share/texmf-dist/metafont/base")))
 741                  (for-each make-file-writable
 742                            (cons "fonts/source/public/cm/"
 743                                  (find-files "fonts/source/public/cm/" ".*")))
 744                  (let ((build (string-append (getcwd) "/build"))
 745                        (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
 746                    (mkdir-p pkdir)
 747                    (mkdir-p build)
 748                    (with-directory-excursion "fonts/source/public/cm/"
 749                      (for-each (lambda (font)
 750                                  (format #t "building font ~a\n" font)
 751                                  (invoke "mf" "-progname=mf"
 752                                          (string-append "-output-directory=" build)
 753                                          (string-append "\\"
 754                                                         "mode:=ljfour; "
 755                                                         "mag:=1+0/600; "
 756                                                         "scrollmode; "
 757                                                         "input "
 758                                                         (basename font ".mf")))
 759                                  (invoke "gftopk"
 760                                          (string-append build "/"
 761                                                         (basename font ".mf") ".600gf")
 762                                          (string-append pkdir "/"
 763                                                         (basename font ".mf") ".pk")))
 764                                (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))))
 765                  #t))
 766              (add-after 'install 'install-generated-fonts
 767                (lambda* (#:key inputs outputs #:allow-other-keys)
 768                  (let* ((out    (assoc-ref outputs "out"))
 769                         (fonts  (string-append out "/share/texmf-dist/fonts/"))
 770                         (pk     (string-append fonts "pk"))
 771                         (tfm    (string-append fonts "tfm/public/cm")))
 772                    (for-each (cut install-file <> tfm)
 773                              (find-files "build" "\\.*"))
 774                    (copy-recursively "pk" pk)
 775                    #t)))))))
 776       (native-inputs
 777        `(("texlive-bin" ,texlive-bin)
 778          ("texlive-metafont-base" ,texlive-metafont-base)))
 779       (home-page "https://www.ctan.org/pkg/cm")
 780       (synopsis "Computer Modern fonts for TeX")
 781       (description "This package provides the Computer Modern fonts by Donald
 782 Knuth.  The Computer Modern font family is a large collection of text,
 783 display, and mathematical fonts in a range of styles, based on Monotype Modern
 784 8A.")
 785       (license license:knuth))))
 786
 787 (define-public texlive-fonts-cm
 788   (deprecated-package "texlive-fonts-cm" texlive-cm))
 789
 790 (define-public texlive-cm-super
 791   (let ((template (simple-texlive-package
 792                    "texlive-cm-super"
 793                    (list "/doc/fonts/cm-super/"
 794                          "/dvips/cm-super/"
 795                          "/fonts/afm/public/cm-super/"
 796                          "/fonts/enc/dvips/cm-super/"
 797                          "/fonts/map/dvips/cm-super/"
 798                          "/fonts/map/vtex/cm-super/"
 799                          "/fonts/type1/public/cm-super/"
 800                          "/tex/latex/cm-super/")
 801                    (base32
 802                     "1k3afl0x0bqbr5mnawbnp7rr2126dwn0vwnxzibm9ggvzqilnkm6")
 803                    #:trivial? #t)))
 804     (package
 805       (inherit template)
 806       (arguments
 807        (substitute-keyword-arguments (package-arguments template)
 808          ((#:phases phases)
 809           `(modify-phases ,phases
 810              (delete 'reset-gzip-timestamps)))))
 811       (home-page "https://www.ctan.org/pkg/cm-super")
 812       (synopsis "Computer Modern Super family of fonts")
 813       (description "The CM-Super family provides Adobe Type 1 fonts that replace
 814 the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete,
 815 T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European
 816 languages except Greek), and bringing many ameliorations in typesetting
 817 quality.  The fonts exhibit the same metrics as the METAFONT-encoded
 818 originals.")
 819       ;; With font exception
 820       (license license:gpl2+))))
 821
 822 (define-public texlive-fonts-cm-super
 823   (deprecated-package "texlive-fonts-cm-super" texlive-cm-super))
 824
 825 (define-public texlive-lm
 826   (package
 827     (inherit (simple-texlive-package
 828               "texlive-lm"
 829               (list "/doc/fonts/lm/"
 830                     "/fonts/afm/public/lm/"
 831                     "/fonts/enc/dvips/lm/"
 832                     "/fonts/map/dvipdfm/lm/"
 833                     "/fonts/map/dvips/lm/"
 834                     "/fonts/opentype/public/lm/"
 835                     "/fonts/tfm/public/lm/"
 836                     "/fonts/type1/public/lm/"
 837                     "/tex/latex/lm/")
 838               (base32
 839                "0i1hwr8rp0jqyvs4qyplrirscd4w7lsgwsncyv3yzy80bsa56jq5")
 840               #:trivial? #t))
 841     (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/")
 842     (synopsis "Latin Modern family of fonts")
 843     (description "The Latin Modern fonts are derived from the famous Computer
 844 Modern fonts designed by Donald E. Knuth and described in Volume E of his
 845 Computers & Typesetting series.")
 846     ;; The GUST font license (GFL) is legally identical to the LaTeX Project
 847     ;; Public License (LPPL), version 1.3c or later, but comes with an
 848     ;; additional but not legally binding clause.
 849     (license license:lppl1.3c+)))
 850
 851 (define-public texlive-fonts-lm
 852   (deprecated-package "texlive-fonts-lm" texlive-lm))
 853
 854 (define-public texlive-fonts-knuth-lib
 855   (package
 856     (name "texlive-fonts-knuth-lib")
 857     (version (number->string %texlive-revision))
 858     (source (origin
 859               (method svn-fetch)
 860               (uri (svn-reference
 861                     (url (string-append "svn://www.tug.org/texlive/tags/"
 862                                         %texlive-tag "/Master/texmf-dist/"
 863                                         "/fonts/source/public/knuth-lib"))
 864                     (revision %texlive-revision)))
 865               (file-name (string-append name "-" version "-checkout"))
 866               (sha256
 867                (base32
 868                 "0in9aqyi8jkyf9d16z0li50z5fpwj1iwgwm83gmvwqcf7chfs04y"))))
 869     (build-system gnu-build-system)
 870     (arguments
 871      `(#:modules ((guix build gnu-build-system)
 872                   (guix build utils)
 873                   (srfi srfi-26))
 874        #:tests? #f ; no tests
 875        #:phases
 876        (modify-phases %standard-phases
 877          (delete 'configure)
 878          (replace 'build
 879            (lambda* (#:key inputs #:allow-other-keys)
 880              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
 881                ;; Tell mf where to find mf.base
 882                (setenv "MFBASES"
 883                        (string-append mf "/share/texmf-dist/web2c"))
 884                ;; Tell mf where to look for source files
 885                (setenv "MFINPUTS"
 886                        (string-append (getcwd) ":"
 887                                       mf "/share/texmf-dist/metafont/base")))
 888              (mkdir "build")
 889              (for-each (lambda (font)
 890                          (format #t "building font ~a\n" font)
 891                          (invoke "mf" "-progname=mf"
 892                                  "-output-directory=build"
 893                                  (string-append "\\"
 894                                                 "mode:=ljfour; "
 895                                                 "mag:=1; "
 896                                                 "batchmode; "
 897                                                 "input " font)))
 898                        (find-files "." "(manfnt|logo.+)\\.mf$"))
 899              #t))
 900          (replace 'install
 901            (lambda* (#:key outputs #:allow-other-keys)
 902              (let* ((out (assoc-ref outputs "out"))
 903                     (tfm (string-append
 904                           out "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
 905                     (mf  (string-append
 906                           out "/share/texmf-dist/fonts/source/public/knuth-lib")))
 907                (for-each (cut install-file <> tfm)
 908                          (find-files "build" "\\.*"))
 909                (for-each (cut install-file <> mf)
 910                          (find-files "." "\\.mf"))
 911                #t))))))
 912     (native-inputs
 913      `(("texlive-bin" ,texlive-bin)
 914        ("texlive-metafont-base" ,texlive-metafont-base)))
 915     (home-page "https://www.ctan.org/pkg/knuth-lib")
 916     (synopsis "Small library of METAFONT sources")
 917     (description "This is a collection of core TeX and METAFONT macro files
 918 from Donald Knuth, including the plain format, plain base, and the MF logo
 919 fonts.")
 920     (license license:knuth)))
 921
 922 (define-public texlive-fonts-latex
 923   (package
 924     (name "texlive-fonts-latex")
 925     (version (number->string %texlive-revision))
 926     (source (origin
 927               (method svn-fetch)
 928               (uri (svn-reference
 929                     (url (string-append "svn://www.tug.org/texlive/tags/"
 930                                         %texlive-tag "/Master/texmf-dist/"
 931                                         "/fonts/source/public/latex-fonts"))
 932                     (revision %texlive-revision)))
 933               (file-name (string-append name "-" version "-checkout"))
 934               (sha256
 935                (base32
 936                 "0ypsm4xv9cw0jckk2qc7gi9hcmhf31mrg56pz3llyx3yd9vq2lps"))))
 937     (build-system gnu-build-system)
 938     (arguments
 939      `(#:modules ((guix build gnu-build-system)
 940                   (guix build utils)
 941                   (srfi srfi-1)
 942                   (srfi srfi-26))
 943        #:tests? #f                      ; no tests
 944        #:phases
 945        (modify-phases %standard-phases
 946          (delete 'configure)
 947          (replace 'build
 948            (lambda* (#:key inputs #:allow-other-keys)
 949              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
 950                ;; Tell mf where to find mf.base
 951                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
 952                ;; Tell mf where to look for source files
 953                (setenv "MFINPUTS"
 954                        (string-append (getcwd) ":"
 955                                       mf "/share/texmf-dist/metafont/base:"
 956                                       (assoc-ref inputs "texlive-cm")
 957                                       "/share/texmf-dist/fonts/source/public/cm")))
 958              (mkdir "build")
 959              (for-each (lambda (font)
 960                          (format #t "building font ~a\n" font)
 961                          (invoke "mf" "-progname=mf"
 962                                  "-output-directory=build"
 963                                  (string-append "\\"
 964                                                 "mode:=ljfour; "
 965                                                 "mag:=1; "
 966                                                 "batchmode; "
 967                                                 "input " font)))
 968                        '("icmcsc10" "icmex10" "icmmi8" "icmsy8" "icmtt8"
 969                          "ilasy8" "ilcmss8" "ilcmssb8" "ilcmssi8"
 970                          "lasy5" "lasy6" "lasy7" "lasy8" "lasy9" "lasy10" "lasyb10"
 971                          "lcircle10" "lcirclew10" "lcmss8" "lcmssb8" "lcmssi8"
 972                          "line10" "linew10"))
 973              #t))
 974          (replace 'install
 975            (lambda* (#:key outputs #:allow-other-keys)
 976              (let* ((out (assoc-ref outputs "out"))
 977                     (tfm (string-append
 978                           out "/share/texmf-dist/fonts/tfm/public/latex-fonts"))
 979                     (mf  (string-append
 980                           out "/share/texmf-dist/fonts/source/public/latex-fonts")))
 981                (for-each (cut install-file <> tfm)
 982                          (find-files "build" "\\.*"))
 983                (for-each (cut install-file <> mf)
 984                          (find-files "." "\\.mf"))
 985                #t))))))
 986     (native-inputs
 987      `(("texlive-bin" ,texlive-bin)
 988        ("texlive-metafont-base" ,texlive-metafont-base)
 989        ("texlive-cm" ,texlive-cm)))
 990     (home-page "https://www.ctan.org/pkg/latex-fonts")
 991     (synopsis "Collection of fonts used in LaTeX distributions")
 992     (description "This is a collection of fonts for use with standard LaTeX
 993 packages and classes. It includes invisible fonts (for use with the slides
 994 class), line and circle fonts (for use in the picture environment) and LaTeX
 995 symbol fonts.")
 996     (license license:lppl1.2+)))
 997
 998 (define-public texlive-latex-mflogo
 999   (package
1000     (name "texlive-latex-mflogo")
1001     (version (number->string %texlive-revision))
1002     (source
1003      (origin
1004        (method svn-fetch)
1005        (uri (texlive-ref "latex" "mflogo"))
1006        (file-name (string-append name "-" version "-checkout"))
1007        (sha256
1008         (base32
1009          "15i2ib6nvhf31g1b92c6njf7n0g29znlq7hbfp9ii7qabhcwwvrj"))))
1010     (build-system texlive-build-system)
1011     (arguments '(#:tex-directory "latex/mflogo"))
1012     (home-page "http://www.ctan.org/pkg/mflogo")
1013     (synopsis "LaTeX support for Metafont logo fonts")
1014     (description
1015      "This package provides LaTeX and font definition files to access the
1016 Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
1017 logos in LaTeX documents.")
1018     (license license:lppl)))
1019
1020 (define-public texlive-mflogo-font
1021   (package
1022     (inherit (simple-texlive-package
1023               "texlive-mflogo-font"
1024               (list "/doc/fonts/mflogo-font/README"
1025                     "/fonts/afm/hoekwater/mflogo-font/"
1026                     "/fonts/map/dvips/mflogo-font/"
1027                     "/fonts/type1/hoekwater/mflogo-font/")
1028               (base32
1029                "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
1030               #:trivial? #t))
1031     (home-page "https://www.ctan.org/pkg/mflogo-font")
1032     (synopsis "Metafont logo font")
1033     (description
1034      "These fonts were created in METAFONT by Knuth, for his own publications.
1035 At some stage, the letters P and S were added, so that the METAPOST logo could
1036 also be expressed.  The fonts were originally issued (of course) as METAFONT
1037 source; they have since been autotraced and reissued in Adobe Type 1 format by
1038 Taco Hoekwater.")
1039     (license license:knuth)))
1040
1041 (define-public texlive-fonts-mflogo-font
1042   (deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
1043
1044 (define-public texlive-amsfonts
1045   (let ((template (simple-texlive-package
1046                    "texlive-amsfonts"
1047                    (list "/source/latex/amsfonts/"
1048                          "/fonts/source/public/amsfonts/"
1049                          "/fonts/type1/public/amsfonts/"
1050                          "/fonts/afm/public/amsfonts/"
1051                          "/fonts/map/dvips/amsfonts/"
1052                          "/tex/plain/amsfonts/"
1053                          "/doc/fonts/amsfonts/")
1054                    (base32
1055                     "15q70nkjf8wqzbd5ivcdx3i2sdgqxjb38q0qn9a2qw9i0qcnx6zw"))))
1056     (package
1057       (inherit template)
1058       (arguments
1059        (substitute-keyword-arguments (package-arguments template)
1060          ((#:build-targets _ #t)
1061           '(list "amsfonts.ins"))
1062          ((#:tex-directory _ #t)
1063           "latex/amsfonts")
1064          ((#:modules modules '())
1065           `((guix build texlive-build-system)
1066             (guix build utils)
1067             (ice-9 match)
1068             (srfi srfi-1)
1069             (srfi srfi-26)))
1070          ((#:phases phases)
1071           `(modify-phases ,phases
1072              (add-before 'build 'build-fonts
1073                (lambda* (#:key inputs #:allow-other-keys)
1074                  (let ((mf  (assoc-ref inputs "texlive-union"))
1075                        (src (string-append (getcwd) "/fonts/source/public/amsfonts/")))
1076                    ;; Make METAFONT reproducible
1077                    (setenv "SOURCE_DATE_EPOCH" "1")
1078                    ;; Tell mf where to find mf.base
1079                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1080                    ;; Tell mf where to look for source files
1081                    (setenv "MFINPUTS"
1082                            (string-append src ":"
1083                                           src "/cmextra:"
1084                                           src "/cyrillic:"
1085                                           src "/dummy:"
1086                                           src "/symbols:"
1087                                           mf "/share/texmf-dist/metafont/base:"
1088                                           (assoc-ref inputs "texlive-cm")
1089                                           "/share/texmf-dist/fonts/source/public/cm")))
1090                  (let ((build (string-append (getcwd) "/build-fonts")))
1091                    (mkdir-p build)
1092                    (with-directory-excursion "fonts/source/public/amsfonts"
1093                      (for-each (lambda (font)
1094                                  (format #t "building font ~a\n" (basename font ".mf"))
1095                                  (with-directory-excursion (dirname font)
1096                                    (invoke "mf" "-progname=mf"
1097                                            (string-append "-output-directory=" build)
1098                                            (string-append "\\"
1099                                                           "mode:=ljfour; "
1100                                                           "mag:=1; "
1101                                                           "nonstopmode; "
1102                                                           "input "
1103                                                           (getcwd) "/"
1104                                                           (basename font ".mf")))))
1105                                (find-files "." "[0-9]+\\.mf$"))))
1106
1107                  ;; There are no metafont sources for the Euler fonts, so we
1108                  ;; convert the afm files instead.
1109                  (let ((build (string-append (getcwd) "/build-fonts/euler")))
1110                    (mkdir build)
1111                    (with-directory-excursion "fonts/afm/public/amsfonts/"
1112                      (for-each (lambda (font)
1113                                  (format #t "converting afm font ~a\n" (basename font ".afm"))
1114                                  (invoke "afm2tfm" font
1115                                          (string-append build "/"
1116                                                         (basename font ".tfm"))))
1117                                (find-files "." "\\.afm$")))
1118
1119                    ;; Frustratingly, not all fonts can be created this way.  To
1120                    ;; generate eufm8.tfm, for example, we first scale down
1121                    ;; eufm10.afm to eufm8.pl, and then generate the tfm file from
1122                    ;; the pl file.
1123                    (setenv "TEXINPUTS"
1124                            (string-append build "//:"
1125                                           (getcwd) "/fonts/afm/public/amsfonts//:"
1126                                           (getcwd) "/source/latex/amsfonts//:"
1127                                           (assoc-ref inputs "texlive-union") "//"))
1128                    (with-directory-excursion build
1129                      (for-each (match-lambda
1130                                  (((target-base target-size)
1131                                    (source-base source-size))
1132                                   (let ((factor (number->string
1133                                                  (truncate/ (* 1000 target-size)
1134                                                             source-size))))
1135                                     (invoke "tex"
1136                                             "-interaction=scrollmode"
1137                                             (string-append "\\input fontinst.sty "
1138                                                            "\\transformfont{" target-base "}"
1139                                                            "{\\scalefont{" factor "}"
1140                                                            "{\\fromafm{" source-base "}}} "
1141                                                            "\\bye")))
1142                                   (invoke "pltotf"
1143                                           (string-append target-base ".pl")
1144                                           (string-append target-base ".tfm"))
1145                                   (delete-file (string-append target-base ".pl"))))
1146
1147                                '((("eufm8" 8) ("eufm10" 10))
1148
1149                                  (("eufb6" 6) ("eufb7" 7))
1150                                  (("eufb8" 8) ("eufb10" 10))
1151                                  (("eufb9" 9) ("eufb10" 10))
1152
1153                                  (("eufm6" 6) ("eufb7" 7))
1154                                  (("eufm9" 9) ("eufb10" 10))
1155
1156                                  (("eurb6" 6) ("eurb7" 7))
1157                                  (("eurb8" 8) ("eurb10" 10))
1158                                  (("eurb9" 9) ("eurb10" 10))
1159
1160                                  (("eurm6" 6) ("eurm7" 7))
1161                                  (("eurm8" 8) ("eurm10" 10))
1162                                  (("eurm9" 9) ("eurm10" 10))))))
1163                  #t))
1164              (add-after 'install 'install-generated-fonts
1165                (lambda* (#:key inputs outputs #:allow-other-keys)
1166                  (copy-recursively "build-fonts"
1167                                    (string-append
1168                                     (assoc-ref outputs "out")
1169                                     "/share/texmf-dist/fonts/tfm/public/amsfonts"))
1170                  #t))))))
1171       (native-inputs
1172        `(("texlive-union" ,(texlive-union (list texlive-tex-fontinst-base
1173                                                 texlive-cm
1174                                                 texlive-metafont-base)))))
1175       (home-page "https://www.ctan.org/pkg/amsfonts")
1176       (synopsis "TeX fonts from the American Mathematical Society")
1177       (description
1178        "This package provides an extended set of fonts for use in mathematics,
1179 including: extra mathematical symbols; blackboard bold letters (uppercase
1180 only); fraktur letters; subscript sizes of bold math italic and bold Greek
1181 letters; subscript sizes of large symbols such as sum and product; added sizes
1182 of the Computer Modern small caps font; cyrillic fonts (from the University of
1183 Washington); Euler mathematical fonts.  All fonts are provided as Adobe Type 1
1184 files, and all except the Euler fonts are provided as Metafont source.  The
1185 distribution also includes the canonical Type 1 versions of the Computer
1186 Modern family of fonts.  The Euler fonts are supported by separate packages;
1187 details can be found in the documentation.")
1188       (license license:silofl1.1))))
1189
1190 (define-public texlive-fonts-amsfonts
1191   (deprecated-package "texlive-fonts-amsfonts" texlive-amsfonts))
1192
1193 (define-public texlive-latex-amsfonts
1194   (deprecated-package "texlive-latex-amsfonts" texlive-amsfonts))
1195
1196 (define-public texlive-mkpattern
1197   (package
1198     (inherit (simple-texlive-package
1199               "texlive-mkpattern"
1200               (list "/doc/plain/mkpattern/README"
1201                     "/doc/plain/mkpattern/mkpatdoc.tex"
1202                     "/doc/plain/mkpattern/mkpatter.pdf"
1203                     "/doc/plain/mkpattern/mkpattern-exmpl.tex"
1204                     "/tex/plain/mkpattern/mkpatter.tex")
1205               (base32
1206                "0sxnkbcc802jl3fj56x9hvg978bpv15lhrwj0aykb4syq29l47ga")
1207               #:trivial? #t))
1208     (home-page "https://ctan.org/pkg/mkpattern")
1209     (synopsis "Utility for making hyphenation patterns")
1210     (description "Mkpattern is a general purpose program for the generation of
1211 hyphenation patterns, with definition of letter sets and template-like
1212 constructions.  It also provides an easy way to handle different input and
1213 output encodings, and features generation of clean UTF-8 patterns.")
1214     (license license:lppl)))
1215
1216 ;; This provides etex.src which is needed to build various formats, including
1217 ;; luatex.fmt and pdflatex.fmt
1218 (define-public texlive-etex
1219   (let ((template (simple-texlive-package
1220                    "texlive-etex"
1221                    (list "/doc/etex/base/"
1222                          "/doc/man/man1/etex.1"
1223                          "/doc/man/man1/etex.man1.pdf"
1224                          "/tex/plain/etex/"
1225                          "/fonts/source/public/etex/")
1226                    (base32
1227                     "1qv6vxm5a8pw38gas3i69ivmsn79zj2yq5n5vdmh0rzic5hw2hmc")
1228                    #:trivial? #t)))
1229     (package
1230       (inherit template)
1231       (arguments
1232        (substitute-keyword-arguments (package-arguments template)
1233          ((#:phases phases)
1234           `(modify-phases ,phases
1235              ;; Build tfm font.
1236              (replace 'build
1237                (lambda* (#:key inputs #:allow-other-keys)
1238                  (let ((mf (assoc-ref inputs "texlive-metafont-base")))
1239                    ;; Tell mf where to find mf.base
1240                    (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
1241                    ;; Tell mf where to look for source files
1242                    (setenv "MFINPUTS"
1243                            (string-append (getcwd)
1244                                           "/fonts/source/public/etex/:"
1245                                           mf "/share/texmf-dist/metafont/base:"
1246                                           (assoc-ref inputs "texlive-cm")
1247                                           "/share/texmf-dist/fonts/source/public/cm")))
1248                  (invoke "mf" "-progname=mf"
1249                          (string-append "\\"
1250                                         "mode:=ljfour; "
1251                                         "mag:=1; "
1252                                         "scrollmode; "
1253                                         "input xbmc10"))
1254                  #t))
1255              (add-after 'install 'install-font
1256                (lambda* (#:key outputs #:allow-other-keys)
1257                  (install-file
1258                   "xbmc10.tfm"
1259                   (string-append (assoc-ref outputs "out")
1260                                  "/share/texmf-dist/fonts/tfm/public/etex/"))
1261                  #t))))))
1262       (native-inputs
1263        `(("texlive-bin" ,texlive-bin)
1264          ("texlive-metafont-base" ,texlive-metafont-base)
1265          ("texlive-cm" ,texlive-cm)))
1266       (home-page "https://www.ctan.org/pkg/etex")
1267       (synopsis "Extended version of TeX")
1268       (description
1269        "This package provides an extended version of TeX (which is capable of
1270 running as if it were TeX unmodified).  E-TeX has been specified by the LaTeX
1271 team as the engine for the development of LaTeX2e; as a result, LaTeX
1272 programmers may assume e-TeX functionality.  The pdftex engine directly
1273 incorporates the e-TeX extensions.")
1274       (license license:knuth))))
1275
1276 (define-public texlive-tex-plain
1277   (package
1278     (inherit (simple-texlive-package
1279               "texlive-tex-plain"
1280               (list "/tex/plain/")
1281               (base32
1282                "1m4qpaszwfv7j8a85rlwl7rs4iv5nlj67c1vvn6ysly72h9gjydb")
1283               #:trivial? #t))
1284     (home-page "https://www.ctan.org/pkg/plain")
1285     (synopsis "Plain TeX format and supporting files")
1286     (description
1287      "This package contains files used to build the Plain TeX format, as
1288 described in the TeXbook, together with various supporting files (some also
1289 discussed in the book).")
1290     (license license:knuth)))
1291
1292 (define-public texlive-hyphen-afrikaans
1293   (package
1294     (inherit (texlive-hyphen-package
1295               "texlive-hyphen-afrikaans" "af"
1296               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-af.tex")
1297               (base32
1298                "1k9k27a27bbrb0gz36191w32l2v6d3zbdh8zhrp4l3ild2pj3n4l")))
1299     (synopsis "Hyphenation patterns for Afrikaans")
1300     (description "The package provides hyphenation patterns for the Afrikaans
1301 language.")
1302     (license license:lppl1.3+)))
1303
1304 (define-public texlive-hyphen-ancientgreek
1305   (package
1306     (inherit (texlive-hyphen-package
1307               "texlive-hyphen-ancientgreek" "grc"
1308               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-grc.tex"
1309                     "/tex/generic/hyphen/grahyph5.tex"
1310                     "/tex/generic/hyphen/ibyhyph.tex")
1311               (base32
1312                "01326lb6z0s8krcfgs8i1pnjfrm4gr33rc53gy80f63qbv4ssxrw")))
1313     (synopsis "Hyphenation patterns for ancient Greek")
1314     (description "The package provides hyphenation patterns for ancient
1315 Greek.")
1316     (license license:lppl1.3+)))
1317
1318 (define-public texlive-hyphen-armenian
1319   (let ((template (texlive-hyphen-package
1320                    "texlive-hyphen-armenian" "hy"
1321                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex")
1322                    (base32
1323                     "0hzny0npynsb07syxrpbfa5pkpj8r0j51pj64yxyfl1c0bak1fwp"))))
1324     (package
1325       (inherit template)
1326       (synopsis "Hyphenation patterns for Armenian")
1327       (description "The package provides hyphenation patterns for the Armenian
1328 language.")
1329       ;; Any version of the LGPL.
1330       (license license:lgpl3+))))
1331
1332 (define-public texlive-hyphen-basque
1333   (let ((template (texlive-hyphen-package
1334                     "texlive-hyphen-basque" "eu"
1335                     (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")
1336                     (base32
1337                      "15w969g1jqzn68l2b2lzf7iv7g3kil02aba3if6cag3qcnq92ra9"))))
1338     (package
1339       (inherit template)
1340       (synopsis "Hyphenation patterns for Basque")
1341       (description "The package provides hyphenation patterns for the Basque
1342 language.")
1343       ;; Similar to Unicode license.
1344       (license (license:fsf-free
1345                 "/tex/generic/hyph-utf8/patterns/tex/hyph-eu.tex")))))
1346
1347 (define-public texlive-hyphen-belarusian
1348   (package
1349     (inherit (texlive-hyphen-package
1350               "texlive-hyphen-belarusian" "be"
1351               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-be.tex")
1352               (base32
1353                "0ppm12wndaxv9da62dwkbnk7w9nijikn6jkc97m76xis338g2h02")))
1354     (synopsis "Hyphenation patterns for Belarusian")
1355     (description "The package provides hyphenation patterns for the Belarusian
1356 language.")
1357     (license license:expat)))
1358
1359 (define-public texlive-hyphen-bulgarian
1360   (package
1361     (inherit (texlive-hyphen-package
1362               "texlive-hyphen-bulgarian" "bg"
1363               (list "/doc/generic/hyph-utf8/bg/azbukaExtended.pdf"
1364                     "/doc/generic/hyph-utf8/bg/azbukaExtended.tex"
1365                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex")
1366               (base32
1367                "0ngrgw2rmipxss76rgfk62x9nnsgwmaxxna2jqxxhybai3q39mx5")))
1368     (synopsis "Hyphenation patterns for Bulgarian")
1369     (description "The package provides hyphenation patterns for the Bulgarian
1370 language in T2A and UTF-8 encodings.")
1371     (license (license:non-copyleft
1372               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-bg.tex"
1373               "Ancestral BSD variant"))))
1374
1375 (define-public texlive-hyphen-catalan
1376   (package
1377     (inherit (texlive-hyphen-package
1378               "texlive-hyphen-catalan" "ca"
1379               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ca.tex")
1380               (base32
1381                "10zzlfz5v8d9csg85ibpp2vfvmpqa56vbl85qy5gws099vygpayg")))
1382     (synopsis "Hyphenation patterns for Catalan")
1383     (description "The package provides hyphenation patterns for Catalan in
1384 T1/EC and UTF-8 encodings.")
1385     (license license:lppl1.0+)))
1386
1387 (define-public texlive-hyphen-chinese
1388   (package
1389     (inherit (texlive-hyphen-package
1390               "texlive-hyphen-chinese" "zh-latn-pinyin"
1391               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-zh-latn-pinyin.tex")
1392               (base32
1393                "1j68mry2zy91m1kbzwhin5q2jajf6xh48npdds8wvp1sqmzih2a3")))
1394     (synopsis "Hyphenation patterns for unaccented Chinese pinyin")
1395     (description "The package provides hyphenation patterns for unaccented
1396 Chinese pinyin T1/EC and UTF-8 encodings.")
1397     (license license:gpl2+)))
1398
1399 (define-public texlive-hyphen-churchslavonic
1400   (package
1401     (inherit (texlive-hyphen-package
1402               "texlive-hyphen-churchslavonic" "cu"
1403               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cu.tex")
1404               (base32
1405                "0fhbwaapq2213msbhgr0d1lw06ihmrqirxj092mn73d8ynl13qlh")))
1406     (synopsis "Hyphenation patterns for Church Slavonic")
1407     (description "The package provides hyphenation patterns for Church
1408 Slavonic in UTF-8 encoding.")
1409     (license license:expat)))
1410
1411 (define-public texlive-hyphen-coptic
1412   (package
1413     (inherit (texlive-hyphen-package
1414               "texlive-hyphen-coptic" "cop"
1415               (list "/tex/generic/hyph-utf8/patterns/tex-8bit/copthyph.tex"
1416                     "/tex/generic/hyph-utf8/patterns/tex/hyph-cop.tex")
1417               (base32
1418                "1jlxxvyfa2aljizaa3qlcxyhqsrb4dawv3q3fbyp2lxz6ag9fy6m")))
1419     (synopsis "Hyphenation patterns for Coptic")
1420     (description "The package provides hyphenation patterns for Coptic in
1421 UTF-8 encoding as well as in ASCII-based encoding for 8-bit engines.")
1422     ;; No explicit license declaration, so we use the project license.
1423     (license license:lppl)))
1424
1425 (define-public texlive-hyphen-croatian
1426   (package
1427     (inherit (texlive-hyphen-package
1428               "texlive-hyphen-croatian" "hr"
1429               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hr.tex")
1430               (base32
1431                "12n9r2winai15jc622sqdwclgcs1s68r6vcf7ic8vvq0x9qhwc5v")))
1432     (synopsis "Hyphenation patterns for Croatian")
1433     (description "The package provides hyphenation patterns for Croatian in
1434 T1/EC and UTF-8 encodings.")
1435     (license license:lppl1.0+)))
1436
1437 (define-public texlive-hyphen-czech
1438   (package
1439     (inherit (texlive-hyphen-package
1440               "texlive-hyphen-czech" "cs"
1441               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cs.tex")
1442               (base32
1443                "1q37s6p8yfyi3rp1azbz421lg4lr4aiki8m631i4x9rmps89m8iq")))
1444     (synopsis "Hyphenation patterns for Czech")
1445     (description "The package provides hyphenation patterns for Czech in T1/EC
1446 and UTF-8 encodings.")
1447     (license license:gpl2+)))
1448
1449 (define-public texlive-hyphen-danish
1450   (package
1451     (inherit (texlive-hyphen-package
1452               "texlive-hyphen-danish" "da"
1453               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-da.tex")
1454               (base32
1455                "1vj8nip64rzcrcg3skm4vqad1ggqwgan74znrdns610wjcm1z9qd")))
1456     (synopsis "Hyphenation patterns for Danish")
1457     (description "The package provides hyphenation patterns for Danish in
1458 T1/EC and UTF-8 encodings.")
1459     ;; Either LPPL 1.3 or later, or Expat
1460     (license (list license:lppl1.3+ license:expat))))
1461
1462 (define-public texlive-hyphen-dutch
1463   (package
1464     (inherit (texlive-hyphen-package
1465               "texlive-hyphen-dutch" "nl"
1466               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nl.tex")
1467               (base32
1468                "1bg9g790ksq5cn8qihai6pacmkp9vpf35h4771z361nvwa40l8yk")))
1469     (synopsis "Hyphenation patterns for Dutch")
1470     (description "The package provides hyphenation patterns for Dutch in T1/EC
1471 and UTF-8 encodings.")
1472     (license license:lppl1.0+)))
1473
1474 (define-public texlive-hyphen-english
1475   (package
1476     (inherit (texlive-hyphen-package
1477               "texlive-hyphen-english" '("en-gb" "en-us")
1478               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-en-gb.tex"
1479                     "/tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex")
1480               (base32
1481                "08b3jihjaamcl1pvffi0s47nwavkm66l9mrrmby3l32dfpkprrc5")))
1482     (synopsis "Hyphenation patterns for American and British English")
1483     (description "The package provides additional hyphenation patterns for
1484 American and British English in ASCII encoding.")
1485     (license (license:non-copyleft
1486               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-en-us.tex"
1487               "FSF all permissive license"))))
1488
1489 (define-public texlive-hyphen-esperanto
1490   (package
1491     (inherit (texlive-hyphen-package
1492               "texlive-hyphen-esperanto" "eo"
1493               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-eo.tex")
1494               (base32
1495                "1503kzn9bk4mm4ba35cka2hm8rz0v3j5l30v5rrsd4rqgpibcgic")))
1496     (synopsis "Hyphenation patterns for Esperanto")
1497     (description "The package provides hyphenation patterns for Esperanto ISO
1498 Latin 3 and UTF-8 encodings.")
1499     (license license:lppl1.0+)))
1500
1501 (define-public texlive-hyphen-estonian
1502   (package
1503     (inherit (texlive-hyphen-package
1504               "texlive-hyphen-estonian" "et"
1505               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-et.tex")
1506               (base32
1507                "1rdas2450ib02rwy65i69l86nyc9h15bl07xbbwhmhxfnj8zj4v8")))
1508     (synopsis "Hyphenation patterns for Estonian")
1509     (description "The package provides hyphenation patterns for Estonian in
1510 T1/EC and UTF-8 encodings.")
1511     ;; Dual licensed under either license.
1512     (license (list license:lppl1.3+ license:expat))))
1513
1514 (define-public texlive-hyphen-ethiopic
1515   (let ((template (texlive-hyphen-package
1516                    "texlive-hyphen-ethiopic" "mul-ethi"
1517                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mul-ethi.tex")
1518                    (base32
1519                     "1b93fc6j4aybh0pgq23hsn1njm6asf7sfz803fbj3ai0whsxd10l"))))
1520     (package
1521       (inherit template)
1522       (synopsis "Hyphenation patterns for Ethiopic scripts")
1523       (description "The package provides hyphenation patterns for languages
1524 written using the Ethiopic script for Unicode engines.  They are not supposed
1525 to be linguistically relevant in all cases and should, for proper typography,
1526 be replaced by files tailored to individual languages.")
1527       (license license:expat))))
1528
1529 (define-public texlive-hyphen-finnish
1530   (package
1531     (inherit (texlive-hyphen-package
1532               "texlive-hyphen-finnish" "fi"
1533               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fi.tex")
1534               (base32
1535                "1f72b4ydb4zddvw2i004948khmwzigxkdkwfym5v1kkq0183sfpj")))
1536     (synopsis "Hyphenation patterns for Finnish")
1537     (description "The package provides hyphenation patterns for Finnish in
1538 T1/EC and UTF-8 encodings.")
1539     (license license:public-domain)))
1540
1541 (define-public texlive-hyphen-french
1542   (package
1543     (inherit (texlive-hyphen-package
1544               "texlive-hyphen-french" "fr"
1545               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fr.tex")
1546               (base32
1547                "0jc3kqys6cxjw8x8pzjln7z78l8s7f5rlyrkv7dzr1kiwnwilk9d")))
1548     (synopsis "Hyphenation patterns for French")
1549     (description "The package provides hyphenation patterns for French in
1550 T1/EC and UTF-8 encodings.")
1551     (license license:expat)))
1552
1553 (define-public texlive-hyphen-friulan
1554   (package
1555     (inherit (texlive-hyphen-package
1556               "texlive-hyphen-friulan" "fur"
1557               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-fur.tex")
1558               (base32
1559                "1dlnh8slpf50mryxv7zzbx08xp54zkdfs1j7y37ipwbrajvd740f")))
1560     (synopsis "Hyphenation patterns for Friulan")
1561     (description "The package provides hyphenation patterns for Friulan in
1562 ASCII encodings.")
1563     (license license:lppl1.3+)))
1564
1565 (define-public texlive-hyphen-galician
1566   (let ((template (texlive-hyphen-package
1567                    "texlive-hyphen-galician" "gl"
1568                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-gl.tex")
1569                    (base32
1570                     "13zx2r3nrxdr025g2lxrph0ga6wf7cs8dxixn4fhbl6xr1cx028g"))))
1571     (package
1572       (inherit template)
1573       (synopsis "Hyphenation patterns for Galician")
1574       (description "The package provides hyphenation patterns for Galician in
1575 T1/EC and UTF-8 encodings.")
1576       (license license:lppl1.3))))
1577
1578 (define-public texlive-hyphen-georgian
1579   (package
1580     (inherit (texlive-hyphen-package
1581               "texlive-hyphen-georgian" "ka"
1582               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ka.tex")
1583               (base32
1584                "0l0hk7ka04fr8x11nnw95x151cxyycy0fph772m3a3p8qk4x9wp7")))
1585     (synopsis "Hyphenation patterns for Georgian")
1586     (description "The package provides hyphenation patterns for Georgian in
1587 T8M, T8K, and UTF-8 encodings.")
1588     (license license:lppl1.3+)))
1589
1590 (define-public texlive-hyphen-german
1591   (package
1592     (inherit (texlive-hyphen-package
1593               "texlive-hyphen-german" '("de-1901" "de-1996" "de-ch-1901")
1594               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1901.tex"
1595                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-1996.tex"
1596                     "/tex/generic/hyph-utf8/patterns/tex/hyph-de-ch-1901.tex"
1597                     "/tex/generic/dehyph/dehyphn.tex"
1598                     "/tex/generic/dehyph/dehypht.tex"
1599                     "/tex/generic/dehyph/dehyphtex.tex"
1600                     "/tex/generic/dehyph/README")
1601               (base32
1602                "0wp5by5kkf4ac6li5mbppqzw11500wa7f22p5vpz3m1kwd15zavw")))
1603     (synopsis "Hyphenation patterns for German")
1604     (description "This package provides hyphenation patterns for German in
1605 T1/EC and UTF-8 encodings, for traditional and reformed spelling, including
1606 Swiss German.")
1607     ;; The patterns are released under the Expat license; the dehyph* files
1608     ;; are released under the LPPL version 1 or later.
1609     (license (list license:expat license:lppl1.0+))))
1610
1611 (define-public texlive-hyphen-greek
1612   (package
1613     (inherit (texlive-hyphen-package
1614               "texlive-hyphen-greek" '("el-monoton" "el-polyton")
1615               (list "/doc/generic/elhyphen/"
1616                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-monoton.tex"
1617                     "/tex/generic/hyph-utf8/patterns/tex/hyph-el-polyton.tex"
1618                     "/tex/generic/hyphen/grmhyph5.tex"
1619                     "/tex/generic/hyphen/grphyph5.tex")
1620               (base32
1621                "1qyr6m1nh6d4wj68616cfxv4wjpiy1w2rlldxlx2ajzba381w3hf")))
1622     (synopsis "Hyphenation patterns for Greek")
1623     (description "This package provides hyphenation patterns for Modern Greek
1624 in monotonic and polytonic spelling in LGR and UTF-8 encodings.")
1625     (license license:lppl)))
1626
1627 (define-public texlive-hyphen-hungarian
1628   (package
1629     (inherit (texlive-hyphen-package
1630               "texlive-hyphen-hungarian" "hu"
1631               (list "/doc/generic/huhyphen/"
1632                     "/doc/generic/hyph-utf8/hu/"
1633                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hu.tex")
1634               (base32
1635                "1j1b8kksg9r8nmjyjvvz8fr3hgcrjj6jlybf9p06nwrrwm2r8j8f")))
1636     (synopsis "Hyphenation patterns for Hungarian")
1637     (description "This package provides hyphenation patterns for Hungarian in
1638 T1/EC and UTF-8 encodings.")
1639     ;; Any of these licenses
1640     (license (list license:gpl2 license:lgpl2.1+ license:mpl1.1))))
1641
1642 (define-public texlive-hyphen-icelandic
1643   (package
1644     (inherit (texlive-hyphen-package
1645               "texlive-hyphen-icelandic" "is"
1646               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-is.tex")
1647               (base32
1648                "1m9xj41csj3ldym09d82zjbd3345sg2z10d8pxpvhgibf97mb66h")))
1649     (synopsis "Hyphenation patterns for Icelandic")
1650     (description "This package provides hyphenation patterns for Icelandic in
1651 T1/EC and UTF-8 encodings.")
1652     (license license:lppl1.2+)))
1653
1654 (define-public texlive-hyphen-indic
1655   (package
1656     (inherit (texlive-hyphen-package
1657               "texlive-hyphen-indic"
1658               '("as" "bn" "gu" "hi" "kn" "ml" "mr" "or" "pa" "ta" "te")
1659               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-as.tex"
1660                     "/tex/generic/hyph-utf8/patterns/tex/hyph-bn.tex"
1661                     "/tex/generic/hyph-utf8/patterns/tex/hyph-gu.tex"
1662                     "/tex/generic/hyph-utf8/patterns/tex/hyph-hi.tex"
1663                     "/tex/generic/hyph-utf8/patterns/tex/hyph-kn.tex"
1664                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ml.tex"
1665                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mr.tex"
1666                     "/tex/generic/hyph-utf8/patterns/tex/hyph-or.tex"
1667                     "/tex/generic/hyph-utf8/patterns/tex/hyph-pa.tex"
1668                     "/tex/generic/hyph-utf8/patterns/tex/hyph-ta.tex"
1669                     "/tex/generic/hyph-utf8/patterns/tex/hyph-te.tex")
1670               (base32
1671                "02d2kcd3lpk95fykjwhzw9s2a1s2w1skz8h2mmszrz979d1xzhpm")))
1672     (synopsis "Indic hyphenation patterns")
1673     (description "This package provides hyphenation patterns for Assamese,
1674 Bengali, Gujarati, Hindi, Kannada, Malayalam, Marathi, Oriya, Panjabi, Tamil
1675 and Telugu for Unicode engines.")
1676     (license license:expat)))
1677
1678 (define-public texlive-hyphen-indonesian
1679   (package
1680     (inherit (texlive-hyphen-package
1681               "texlive-hyphen-indonesian" "id"
1682               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-id.tex")
1683               (base32
1684                "1r62w02rf0i4z0jgij54d16qjbj0zyfwm9dwdkqka76jrivij83q")))
1685     (synopsis "Indonesian hyphenation patterns")
1686     (description "This package provides hyphenation patterns for
1687 Indonesian (Bahasa Indonesia) in ASCII encoding.  They are probably also
1688 usable for Malay (Bahasa Melayu).")
1689     (license license:gpl2)))
1690
1691 (define-public texlive-hyphen-interlingua
1692   (package
1693     (inherit (texlive-hyphen-package
1694               "texlive-hyphen-interlingua" "ia"
1695               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ia.tex")
1696               (base32
1697                "0a9na20vjnzhgjbicaxay0jk4rm5zg1rjyiswr377mjhd9mx5cg3")))
1698     (synopsis "Interlingua hyphenation patterns")
1699     (description "This package provides hyphenation patterns for Interlingua
1700 in ASCII encoding.")
1701     (license license:lppl1.3+)))
1702
1703 (define-public texlive-hyphen-irish
1704   (package
1705     (inherit (texlive-hyphen-package
1706               "texlive-hyphen-irish" "ga"
1707               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ga.tex")
1708               (base32
1709                "1h1l9jzkpsb91nyhz6s6c9jfrbz8jx5ip8vyq3dkz0rl6g960i6b")))
1710     (synopsis "Irish hyphenation patterns")
1711     (description "This package provides hyphenation patterns for
1712 Irish (Gaeilge) in T1/EC and UTF-8 encodings.")
1713     ;; Either of these licenses
1714     (license (list license:gpl2+ license:expat))))
1715
1716 (define-public texlive-hyphen-italian
1717   (package
1718     (inherit (texlive-hyphen-package
1719               "texlive-hyphen-italian" "it"
1720               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-it.tex")
1721               (base32
1722                "03c7jiqslfxvl3gbdx79hggbvrfi2l4z2bnwxc0na8f8lkp1m787")))
1723     (synopsis "Italian hyphenation patterns")
1724     (description "This package provides hyphenation patterns for Italian in
1725 ASCII encoding.  Compliant with the Recommendation UNI 6461 on hyphenation
1726 issued by the Italian Standards Institution (Ente Nazionale di Unificazione
1727 UNI).")
1728     (license license:lppl1.3+)))
1729
1730 (define-public texlive-hyphen-kurmanji
1731   (package
1732     (inherit (texlive-hyphen-package
1733               "texlive-hyphen-kurmanji" "kmr"
1734               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-kmr.tex")
1735               (base32
1736                "01ylbsi5wymrdrxr9b28nmjmcj72mdhqr657lwsb6m9aj33c9ql6")))
1737     (synopsis "Kurmanji hyphenation patterns")
1738     (description "This package provides hyphenation patterns for
1739 Kurmanji (Northern Kurdish) as spoken in Turkey and by the Kurdish diaspora in
1740 Europe, in T1/EC and UTF-8 encodings.")
1741     (license license:lppl1.3)))
1742
1743 (define-public texlive-hyphen-latin
1744   (package
1745     (inherit (texlive-hyphen-package
1746               "texlive-hyphen-latin" '("la-x-classic" "la-x-liturgic" "la")
1747               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-classic.tex"
1748                     "/tex/generic/hyph-utf8/patterns/tex/hyph-la-x-liturgic.tex"
1749                     "/tex/generic/hyph-utf8/patterns/tex/hyph-la.tex")
1750               (base32
1751                "0rxg8a4s5cpj8vlkz5a74a036axda5jqgvr3f9aj2cc2x9f2f3w9")))
1752     (synopsis "Liturgical Latin hyphenation patterns")
1753     (description "This package provides hyphenation patterns for Latin in
1754 T1/EC and UTF-8 encodings, mainly in modern spelling (u when u is needed and v
1755 when v is needed), medieval spelling with the ligatures @code{\\ae} and
1756 @code{\\oe} and the (uncial) lowercase 'v' written as a 'u' is also supported.
1757 Apparently there is no conflict between the patterns of modern Latin and those
1758 of medieval Latin.  It also includes hyphenation patterns for the Classical
1759 Latin in T1/EC and UTF-8 encodings.  Classical Latin hyphenation patterns are
1760 different from those of 'plain' Latin, the latter being more adapted to modern
1761 Latin.  It also provides hyphenation patterns for the Liturgical Latin in
1762 T1/EC and UTF-8 encodings.")
1763     ;; Either of these licenses
1764     (license (list license:lppl1.0+ license:expat))))
1765
1766 (define-public texlive-hyphen-latvian
1767   (package
1768     (inherit (texlive-hyphen-package
1769               "texlive-hyphen-latvian" "lv"
1770               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lv.tex")
1771               (base32
1772                "00jf8xma4ldz0zpqwma97k9q3j0mqx7qdj6b7baph3n5xgc24aaw")))
1773     (synopsis "Latvian hyphenation patterns")
1774     (description "This package provides hyphenation patterns for Latvian in
1775 L7X and UTF-8 encodings.")
1776     ;; Either of these licenses.
1777     (license (list license:gpl2 license:lgpl2.1))))
1778
1779 (define-public texlive-hyphen-lithuanian
1780   (package
1781     (inherit (texlive-hyphen-package
1782               "texlive-hyphen-lithuanian" "lt"
1783               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-lt.tex")
1784               (base32
1785                "1kfq7j2ajg6nj952s1ygd520sj9z9kl0bqvd291a36ni2b1frzgd")))
1786     (synopsis "Lithuanian hyphenation patterns")
1787     (description "This package provides hyphenation patterns for Lithuanian in
1788 L7X and UTF-8 encodings.")
1789     ;; "Do ... whatever ... as long as you respect the copyright"; as part of
1790     ;; the hyph-utf8 package we choose the LPPL license.
1791     (license license:lppl)))
1792
1793 (define-public texlive-hyphen-mongolian
1794   (package
1795     (inherit (texlive-hyphen-package
1796               "texlive-hyphen-mongolian" '("mn-cyrl-x-lmc" "mn-cyrl")
1797               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl-x-lmc.tex"
1798                     "/tex/generic/hyph-utf8/patterns/tex/hyph-mn-cyrl.tex")
1799               (base32
1800                "1y1b91ihrdl9bad3rxlsfjpd9wmyd5zzgci3qv9w8qqk33jxhwya")))
1801     (synopsis "Mongolian hyphenation patterns in Cyrillic script")
1802     (description "This package provides hyphenation patterns for Mongolian in
1803 T2A, LMC and UTF-8 encodings.")
1804     ;; Either of these licenses
1805     (license (list license:lppl1.3+ license:expat))))
1806
1807 (define-public texlive-hyphen-norwegian
1808   (package
1809     (inherit (texlive-hyphen-package
1810               "texlive-hyphen-norwegian" '("nb" "nn" "no")
1811               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-nb.tex"
1812                     "/tex/generic/hyph-utf8/patterns/tex/hyph-nn.tex"
1813                     "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex")
1814               (base32
1815                "08gbwj64p4fckm199k52yp5lx65h9f4wwdkvl4pv4aa7k370jq9y")))
1816     (synopsis "Norwegian Bokmal and Nynorsk hyphenation patterns")
1817     (description "This package provides hyphenation patterns for Norwegian
1818 Bokmal and Nynorsk in T1/EC and UTF-8 encodings.")
1819     (license (license:non-copyleft
1820               "/tex/generic/hyph-utf8/patterns/tex/hyph-no.tex"
1821               "FSF All permissive license"))))
1822
1823 (define-public texlive-hyphen-occitan
1824   (package
1825     (inherit (texlive-hyphen-package
1826               "texlive-hyphen-occitan" "oc"
1827               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-oc.tex")
1828               (base32
1829                "0vhjbq2nr58vhqwwky3cwx4dqiwjmmfwp81rb65mfpf0m8yypdfg")))
1830     (synopsis "Occitan hyphenation patterns")
1831     (description "This package provides hyphenation patterns for Occitan in
1832 T1/EC and UTF-8 encodings.  They are supposed to be valid for all the Occitan
1833 variants spoken and written in the wide area called 'Occitanie' by the French.
1834 It ranges from the Val d'Aran within Catalunya, to the South Western Italian
1835 Alps encompassing the southern half of the French pentagon.")
1836     (license license:lppl1.0+)))
1837
1838 (define-public texlive-hyphen-pali
1839   (package
1840     (inherit (texlive-hyphen-package
1841               "texlive-hyphen-pali" "pi"
1842               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pi.tex")
1843               (base32
1844                "1fak853s4ijdqgrnhwymaq1lh8jab3qfyxapdmf6qpg6bqd20kxq")))
1845     (synopsis "Panjabi hyphenation patterns")
1846     (description "This package provides hyphenation patterns for Panjabi in
1847 T1/EC encoding.")
1848     ;; Can be used with either license.
1849     (license (list license:expat license:lgpl3+ license:gpl3+))))
1850
1851 (define-public texlive-hyphen-piedmontese
1852   (package
1853     (inherit (texlive-hyphen-package
1854               "texlive-hyphen-piedmontese" "pms"
1855               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pms.tex")
1856               (base32
1857                "0xva3l2gwzkqw1sz64k5g5iprhdyr27w1mv8rxp8x62i5y3aqr1k")))
1858     (synopsis "Piedmontese hyphenation patterns")
1859     (description "This package provides hyphenation patterns for Piedmontese
1860 in ASCII encoding.  Compliant with 'Gramatica dla lengua piemonteisa' by
1861 Camillo Brero.")
1862     (license license:lppl1.3+)))
1863
1864 (define-public texlive-hyphen-polish
1865   (package
1866     (inherit (texlive-hyphen-package
1867               "texlive-hyphen-polish" "pl"
1868               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pl.tex")
1869               (base32
1870                "1c22g99isxapv4xjrmsw24hhp1xb83wbgcxyd8j24mxdnizywxzm")))
1871     (synopsis "Polish hyphenation patterns")
1872     (description "This package provides hyphenation patterns for Polish in QX
1873 and UTF-8 encodings.")
1874     ;; No differing license declared, so we choose the project license.
1875     (license license:lppl)))
1876
1877 (define-public texlive-hyphen-portuguese
1878   (package
1879     (inherit (texlive-hyphen-package
1880               "texlive-hyphen-portuguese" "pt"
1881               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-pt.tex")
1882               (base32
1883                "00rkjy4p7893zs940bq3s4hp7al0skgxqggj5qfax0bx8karf30b")))
1884     (synopsis "Portuguese hyphenation patterns")
1885     (description "This package provides hyphenation patterns for Portuguese in
1886 T1/EC and UTF-8 encodings.")
1887     (license license:bsd-3)))
1888
1889 (define-public texlive-hyphen-romanian
1890   (package
1891     (inherit (texlive-hyphen-package
1892               "texlive-hyphen-romanian" "ro"
1893               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ro.tex")
1894               (base32
1895                "1ykb5v7ip6p3n34wq8qypfyrap4gg946by5rsl6ab0k5gv6ypsbf")))
1896     (synopsis "Romanian hyphenation patterns")
1897     (description "This package provides hyphenation patterns for Romanian in
1898 T1/EC and UTF-8 encodings.")
1899     ;; No differing license declared, so we choose the project license.
1900     (license license:lppl)))
1901
1902 (define-public texlive-hyphen-romansh
1903   (package
1904     (inherit (texlive-hyphen-package
1905               "texlive-hyphen-romansh" "rm"
1906               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-rm.tex")
1907               (base32
1908                "0a1q9p6sp5n6a9w6xhwk03vmkrrmnh2md7g1k4qhnf0dc4h7dy9r")))
1909     (synopsis "Romansh hyphenation patterns")
1910     (description "This package provides hyphenation patterns for Romansh in
1911 ASCII encodings.  They are supposed to comply with the rules indicated by the
1912 Lia Rumantscha (Romansh language society).")
1913     (license license:lppl1.3+)))
1914
1915 (define-public texlive-hyphen-russian
1916   (package
1917     (inherit (texlive-hyphen-package
1918               "texlive-hyphen-russian" "ru"
1919               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-ru.tex")
1920               (base32
1921                "00sy7qh5f8ryxw36fwbyd1yi2hxhv7hmk99yp7dwh73n4mxv6lpl")))
1922     (synopsis "Russian hyphenation patterns")
1923     (description "This package provides hyphenation patterns for Russian in
1924 T2A and UTF-8 encodings.")
1925     (license license:lppl1.2+)))
1926
1927 (define-public texlive-hyphen-sanskrit
1928   (package
1929     (inherit (texlive-hyphen-package
1930               "texlive-hyphen-sanskrit" "sa"
1931               (list "/doc/generic/hyph-utf8/sa/hyphenmin.txt"
1932                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex")
1933               (base32
1934                "0gi2qk0wf388h9n25gzhv0cdz67ph83wal8h3iz2sqnpdjsw8kpc")))
1935     (synopsis "Sanskrit hyphenation patterns")
1936     (description "This package provides hyphenation patterns for Sanskrit and
1937 Prakrit in longdesc transliteration, and in Devanagari, Bengali, Kannada,
1938 Malayalam longdesc and Telugu scripts for Unicode engines.")
1939     ;; "You may freely use, copy, modify and/or distribute this file."
1940     (license (license:non-copyleft
1941               "file:///tex/generic/hyph-utf8/patterns/tex/hyph-sa.tex"))))
1942
1943 (define-public texlive-hyphen-serbian
1944   (package
1945     (inherit (texlive-hyphen-package
1946               "texlive-hyphen-serbian" '("sh-cyrl" "sh-latn" "sr-cyrl")
1947               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-cyrl.tex"
1948                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sh-latn.tex"
1949                     "/tex/generic/hyph-utf8/patterns/tex/hyph-sr-cyrl.tex")
1950               (base32
1951                "0pwc9z0m5y6acq1vqm0da9akg156jbhxzvsfp2f8bsz5b99y5z45")))
1952     (synopsis "Serbian hyphenation patterns")
1953     (description "This package provides hyphenation patterns for Serbian in
1954 T1/EC, T2A and UTF-8 encodings.")
1955     ;; Any version of the GPL.
1956     (license license:gpl3+)))
1957
1958 (define-public texlive-hyphen-slovak
1959   (package
1960     (inherit (texlive-hyphen-package
1961               "texlive-hyphen-slovak" "sk"
1962               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sk.tex")
1963               (base32
1964                "0ppp53bbclp5c8wvx748krvrp5y5053khgkjnnv966a90fvp3vgd")))
1965     (synopsis "Slovak hyphenation patterns")
1966     (description "This package provides hyphenation patterns for Slovak in
1967 T1/EC and UTF-8 encodings.")
1968     (license license:gpl2+)))
1969
1970 (define-public texlive-hyphen-slovenian
1971   (package
1972     (inherit (texlive-hyphen-package
1973               "texlive-hyphen-slovenian" "sl"
1974               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sl.tex")
1975               (base32
1976                "02n8l9yf4hqyhbpsc1n6b2mggy09z6lq4dcb8ndiwawb6h0mp7s4")))
1977     (synopsis "Slovenian hyphenation patterns")
1978     (description "This package provides hyphenation patterns for Slovenian in
1979 T1/EC and UTF-8 encodings.")
1980     ;; Either license
1981     (license (list license:lppl1.0+ license:expat))))
1982
1983 (define-public texlive-hyphen-spanish
1984   (package
1985     ;; The source files "eshyph-make.lua" and "eshyph.src" are provided to
1986     ;; generate obsolete hyphenation patterns, which aren't included in a
1987     ;; default TeX Live distribution, so we don't include them either.
1988     (inherit (texlive-hyphen-package
1989               "texlive-hyphen-spanish" "es"
1990               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-es.tex")
1991               (base32
1992                "1h3yg9vcq0lf7hxv0ahkqmyg269dxjs8m2mz8sgz5l1fxmvahvaj")))
1993     (synopsis "Hyphenation patterns for Spanish")
1994     (description "The package provides hyphenation patterns for Spanish in
1995 T1/EC and UTF-8 encodings.")
1996     (license license:expat)))
1997
1998 (define-public texlive-hyphen-swedish
1999   (package
2000     (inherit (texlive-hyphen-package
2001               "texlive-hyphen-swedish" "sv"
2002               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-sv.tex")
2003               (base32
2004                "1n7incy7n24pix1q2i8c3h7i78zpql5ayhskavlmy6mhd7ayncaw")))
2005     (synopsis "Swedish hyphenation patterns")
2006     (description "This package provides hyphenation patterns for Swedish in
2007 T1/EC and UTF-8 encodings.")
2008     (license license:lppl1.2+)))
2009
2010 (define-public texlive-hyphen-thai
2011   (package
2012     (inherit (texlive-hyphen-package
2013               "texlive-hyphen-thai" "th"
2014               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-th.tex")
2015               (base32
2016                "00gxcs4jfqifd5cnrjipn77m73fmpw2qms4lp216jj3kz4a7h9kf")))
2017     (synopsis "Thai hyphenation patterns")
2018     (description "This package provides hyphenation patterns for Thai in LTH
2019 and UTF-8 encodings.")
2020     (license license:lppl1.3+)))
2021
2022 (define-public texlive-hyphen-turkish
2023   (let ((template (texlive-hyphen-package
2024                    "texlive-hyphen-turkish" "tr"
2025                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tr.tex")
2026                    (base32
2027                     "04sihjgpm31i5bi67rrfp15w3imn7hxwwk70v0vhx053ghxy72vh"))))
2028     (package
2029       (inherit template)
2030       (synopsis "Hyphenation patterns for Turkish")
2031       (description "The package provides hyphenation patterns for Turkish in
2032 T1/EC and UTF-8 encodings.  The patterns for Turkish were first produced for
2033 the Ottoman Texts Project in 1987 and were suitable for both Modern Turkish
2034 and Ottoman Turkish in Latin script, however the required character set didn't
2035 fit into EC encoding, so support for Ottoman Turkish had to be dropped to keep
2036 compatibility with 8-bit engines.")
2037       (license license:lppl1.0+))))
2038
2039 (define-public texlive-hyphen-turkmen
2040   (let ((template (texlive-hyphen-package
2041                    "texlive-hyphen-turkmen" "tk"
2042                    (list "/tex/generic/hyph-utf8/patterns/tex/hyph-tk.tex")
2043                    (base32
2044                     "0g5ip2lw9g47s61mv3cypswc6qm7zy9c4iqq4h19ysvds81adzkr"))))
2045     (package
2046       (inherit template)
2047       (synopsis "Hyphenation patterns for Turkmen")
2048       (description "The package provides hyphenation patterns for Turkmen in
2049 T1/EC and UTF-8 encodings.")
2050       (license license:expat))))
2051
2052 (define-public texlive-hyphen-ukrainian
2053   (package
2054     (inherit (texlive-hyphen-package
2055               "texlive-hyphen-ukrainian" "uk"
2056               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-uk.tex")
2057               (base32
2058                "0fbfhx1fmbshxr4ihsjaqgx251h69h7i288p8gh3w6ysgxr53p60")))
2059     (synopsis "Ukrainian hyphenation patterns")
2060     (description "This package provides hyphenation patterns for Ukrainian in
2061 T2A and UTF-8 encodings.")
2062     ;; No version specified
2063     (license license:lppl)))
2064
2065 (define-public texlive-hyphen-uppersorbian
2066   (package
2067     (inherit (texlive-hyphen-package
2068               "texlive-hyphen-uppersorbian" "hsb"
2069               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-hsb.tex")
2070               (base32
2071                "0x0051wph3sqmzzw6prvjy6bp7gn02rbmys1bmbc210jk3pkylfj")))
2072     (synopsis "Upper Sorbian hyphenation patterns")
2073     (description "This package provides hyphenation patterns for Upper Sorbian
2074 in T1/EC and UTF-8 encodings.")
2075     (license license:lppl1.3a+)))
2076
2077 (define-public texlive-hyphen-welsh
2078   (package
2079     (inherit (texlive-hyphen-package
2080               "texlive-hyphen-welsh" "cy"
2081               (list "/tex/generic/hyph-utf8/patterns/tex/hyph-cy.tex")
2082               (base32
2083                "1bpxp3jiifdw7waw2idz5j9xgi3526nkxm8mbmsspr4mlf2xyr76")))
2084     (synopsis "Welsh hyphenation patterns")
2085     (description "This package provides hyphenation patterns for Welsh in
2086 T1/EC and UTF-8 encodings.")
2087     ;; Either license
2088     (license (list license:lppl1.0+ license:expat))))
2089
2090 (define-public texlive-hyph-utf8
2091   (package
2092     (inherit (simple-texlive-package
2093               "texlive-hyph-utf8"
2094               (list "/source/generic/hyph-utf8/"
2095                     "/source/luatex/hyph-utf8/"
2096                     "/doc/luatex/hyph-utf8/"
2097                     "/tex/luatex/hyph-utf8/etex.src"
2098                     ;; Used to extract luatex-hyphen.lua
2099                     "/tex/latex/base/docstrip.tex"
2100
2101                     ;; Documentation; we can't use the whole directory because
2102                     ;; it includes files from other packages.
2103                     "/doc/generic/hyph-utf8/CHANGES"
2104                     "/doc/generic/hyph-utf8/HISTORY"
2105                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2106                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2107                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2108                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2109                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2110                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2111               (base32
2112                "1bar5mc808ch20anhqrdxcwiych359qsvr7mggxpg2l2kq5xdyq0")))
2113     (outputs '("out" "doc"))
2114     (build-system gnu-build-system)
2115     (arguments
2116      `(#:tests? #f ; there are none
2117        #:modules ((guix build gnu-build-system)
2118                   (guix build utils)
2119                   (ice-9 match))
2120        #:make-flags
2121        (list "-C" "source/luatex/hyph-utf8/"
2122              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2123              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2124              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2125              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2126              (string-append "UNPACKED = $(NAME).lua"))
2127        #:phases
2128        (modify-phases %standard-phases
2129          ;; TeX isn't usable at this point, so we first need to generate the
2130          ;; tex.fmt.
2131          (replace 'configure
2132            (lambda* (#:key inputs outputs #:allow-other-keys)
2133              ;; Target directories must exist.
2134              (mkdir-p (string-append (assoc-ref %outputs "out")
2135                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2136              (mkdir-p (string-append (assoc-ref %outputs "doc")
2137                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2138
2139              ;; We cannot build the documentation because that requires a
2140              ;; fully functional pdflatex, which depends on this package.
2141              (substitute* "source/luatex/hyph-utf8/Makefile"
2142                (("all: .*") "all: $(RUNFILES)\n"))
2143
2144              ;; Find required fonts for building tex.fmt
2145              (setenv "TFMFONTS"
2146                      (string-append (assoc-ref inputs "texlive-cm")
2147                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2148                                     (assoc-ref inputs "texlive-fonts-knuth-lib")
2149                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2150              ;; ...and find all tex files in this environment.
2151              (setenv "TEXINPUTS"
2152                      (string-append
2153                       (getcwd) ":"
2154                       (string-join
2155                        (map (match-lambda ((_ . dir) dir)) inputs)
2156                        "//:")))
2157
2158              ;; Generate tex.fmt.
2159              (let ((where "source/luatex/hyph-utf8"))
2160                (mkdir-p where)
2161                (with-directory-excursion where
2162                  (invoke "tex" "-ini"
2163                          (string-append (assoc-ref inputs "texlive-tex-plain")
2164                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2165          (add-before 'build 'build-loaders-and-converters
2166            (lambda* (#:key outputs #:allow-other-keys)
2167              (let* ((root (string-append (assoc-ref outputs "out")
2168                                          "/share/texmf-dist"))
2169                     (conv
2170                      (string-append root
2171                                     "/tex/generic/hyph-utf8/conversions")))
2172
2173                ;; Build converters
2174                (mkdir-p conv)
2175                (with-directory-excursion "source/generic/hyph-utf8"
2176                  (substitute* "generate-converters.rb"
2177                    (("\\$path_root=File.*")
2178                     (string-append "$path_root=\"" root "\"\n"))
2179                    ;; Avoid error with newer Ruby.
2180                    (("#1\\{%") "#1{%%"))
2181                  (invoke "ruby" "generate-converters.rb"))
2182                #t)))
2183          (replace 'install
2184            (lambda* (#:key source outputs #:allow-other-keys)
2185              (let ((doc (assoc-ref outputs "doc"))
2186                    (out (assoc-ref outputs "out")))
2187                (mkdir-p doc)
2188                (copy-recursively
2189                 (string-append source "/doc")
2190                 (string-append doc "/doc"))
2191                (install-file
2192                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2193                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2194              #t)))))
2195     (native-inputs
2196      `(("ruby" ,ruby)
2197        ("texlive-bin" ,texlive-bin)
2198        ;; The following packages are needed for build "tex.fmt", which we need
2199        ;; for a working "tex".
2200        ("texlive-tex-plain" ,texlive-tex-plain)
2201        ("texlive-cm" ,texlive-cm)
2202        ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)
2203        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2204     (home-page "https://ctan.org/pkg/hyph-utf8")
2205     (synopsis "Hyphenation patterns expressed in UTF-8")
2206     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2207 hyphenation patterns in UTF-8 format, whereas older systems require
2208 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2209 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2210 etc).  The present package offers a collection of conversions of existing
2211 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2212 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2213 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2214 converters, will completely supplant the older patterns.")
2215     ;; Individual files each have their own license.  Most of these files are
2216     ;; independent hyphenation patterns.
2217     (license (list license:lppl1.0+
2218                    license:lppl1.2+
2219                    license:lppl1.3
2220                    license:lppl1.3+
2221                    license:lppl1.3a+
2222                    license:lgpl2.1
2223                    license:lgpl2.1+
2224                    license:lgpl3+
2225                    license:gpl2+
2226                    license:gpl3+
2227                    license:mpl1.1
2228                    license:asl2.0
2229                    license:expat
2230                    license:bsd-3
2231                    license:cc0
2232                    license:public-domain
2233                    license:wtfpl2))))
2234
2235 (define-public texlive-generic-hyph-utf8
2236   (deprecated-package "texlive-generic-hyph-utf8" texlive-hyph-utf8))
2237
2238 (define-public texlive-dehyph-exptl
2239   (package
2240     (inherit (simple-texlive-package
2241               "texlive-dehyph-exptl"
2242               (list "/tex/generic/dehyph-exptl/"
2243                     "/doc/generic/dehyph-exptl/")
2244               (base32
2245                "1fnqc63gz8gvdyfz45bx8dxn1r1rwrypahs3bqd2vlc8ff76xp86")
2246               #:trivial? #t))
2247     (propagated-inputs
2248      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2249        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2250     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2251     (synopsis "Hyphenation patterns for German")
2252     (description "The package provides experimental hyphenation patterns for
2253 the German language, covering both traditional and reformed orthography.  The
2254 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2255 bundle.")
2256     ;; Hyphenation patterns are under the Expat license; documentation is
2257     ;; under LPPL.
2258     (license (list license:expat license:lppl))))
2259
2260 (define-public texlive-generic-dehyph-exptl
2261   (deprecated-package "texlive-generic-dehyph-exptl" texlive-dehyph-exptl))
2262
2263 (define-public texlive-ukrhyph
2264   (package
2265     (inherit (simple-texlive-package
2266               "texlive-ukrhyph"
2267               (list "/doc/generic/ukrhyph/"
2268                     "/tex/generic/ukrhyph/")
2269               (base32
2270                "01ma274sixcrbpb7fpqkxwfvrnzfj2srv9b4a42rfnph1pdql74z")
2271               #:trivial? #t))
2272     (home-page "https://www.ctan.org/pkg/ukrhyph")
2273     (synopsis "Hyphenation patterns for Ukrainian")
2274     (description "The package provides a range of hyphenation patterns for
2275 Ukrainian, depending on the encoding of the output font including the standard
2276 T2A.")
2277     (license license:lppl)))
2278
2279 (define-public texlive-ruhyphen
2280   (let ((template (simple-texlive-package
2281                    "texlive-ruhyphen"
2282                    (list "/source/generic/ruhyphen/"
2283                          "/tex/generic/ruhyphen/")
2284                    (base32
2285                     "18n1bqhh8jv765vz3a3fjwffy7m71vhwx9yq8zl0p5j7p72q9qcn")
2286                    #:trivial? #t)))
2287     (package
2288       (inherit template)
2289       (arguments
2290        (substitute-keyword-arguments (package-arguments template)
2291          ((#:phases phases)
2292           `(modify-phases ,phases
2293              (replace 'build
2294                (lambda _
2295                  (let ((cwd (getcwd)))
2296                    ;; Remove generated files.
2297                    (for-each delete-file
2298                              (find-files "tex/generic/ruhyphen/"
2299                                          "^cyry.*.tex$"))
2300                    (substitute* "source/generic/ruhyphen/Makefile"
2301                      (("./mkcyryo") (string-append cwd "/source/generic/ruhyphen/mkcyryo")))
2302                    (with-directory-excursion "tex/generic/ruhyphen"
2303                      (invoke "make" "-f"
2304                              (string-append cwd "/source/generic/ruhyphen/Makefile"))))))))))
2305       (native-inputs
2306        `(("coreutils" ,coreutils)
2307          ("gawk" ,gawk)
2308          ("sed" ,sed)
2309          ("grep" ,grep)
2310          ("perl" ,perl)))
2311       (home-page "https://www.ctan.org/pkg/ruhyphen")
2312       (synopsis "Hyphenation patterns for Russian")
2313       (description "The package provides a collection of Russian hyphenation
2314 patterns supporting a number of Cyrillic font encodings, including T2,
2315 UCY (Omega Unicode Cyrillic), LCY, LWN (OT2), and koi8-r.")
2316       (license license:lppl))))
2317
2318 (define-public texlive-kpathsea
2319   (package
2320     (inherit (simple-texlive-package
2321               "texlive-kpathsea"
2322               (list "/web2c/amiga-pl.tcx"
2323                     "/web2c/cp1250cs.tcx"
2324                     "/web2c/cp1250pl.tcx"
2325                     "/web2c/cp1250t1.tcx"
2326                     "/web2c/cp227.tcx"
2327                     "/web2c/cp852-cs.tcx"
2328                     "/web2c/cp852-pl.tcx"
2329                     "/web2c/cp8bit.tcx"
2330                     "/web2c/empty.tcx"
2331                     "/web2c/fmtutil.cnf"
2332                     "/web2c/il1-t1.tcx"
2333                     "/web2c/il2-cs.tcx"
2334                     "/web2c/il2-pl.tcx"
2335                     "/web2c/il2-t1.tcx"
2336                     "/web2c/kam-cs.tcx"
2337                     "/web2c/kam-t1.tcx"
2338                     "/web2c/macce-pl.tcx"
2339                     "/web2c/macce-t1.tcx"
2340                     "/web2c/maz-pl.tcx"
2341                     "/web2c/mktex.cnf"
2342                     "/web2c/mktex.opt"
2343                     "/web2c/mktexdir"
2344                     "/web2c/mktexdir.opt"
2345                     "/web2c/mktexnam"
2346                     "/web2c/mktexnam.opt"
2347                     "/web2c/mktexupd"
2348                     "/web2c/natural.tcx"
2349                     "/web2c/tcvn-t5.tcx"
2350                     "/web2c/viscii-t5.tcx")
2351               (base32
2352                "191i8n3g46p53bb9dkx2ggwpzy7skgg0pbklsrpx8x4ayd86wcaf")
2353               #:trivial? #t))
2354     (home-page "https://www.tug.org/texlive/")
2355     (synopsis "Files related to the path searching library for TeX")
2356     (description "Kpathsea is a library and utility programs which provide
2357 path searching facilities for TeX file types, including the self-locating
2358 feature required for movable installations, layered on top of a general search
2359 mechanism.  This package provides supporting files.")
2360     (license license:lgpl3+)))
2361
2362 (define-public texlive-latexconfig
2363   (package
2364     (inherit (simple-texlive-package
2365               "texlive-latexconfig"
2366               (list "/tex/latex/latexconfig/")
2367               (base32
2368                "1wa7yhdpnz1nyidwgli68fyr33jn951bnniqrih5lj98k09rqc3h")
2369               #:trivial? #t))
2370     (home-page "https://www.tug.org/")
2371     (synopsis "Configuration files for LaTeX-related formats")
2372     (description "The package provides configuration files for LaTeX-related
2373 formats.")
2374     (license license:lppl)))
2375
2376 (define-public texlive-latex-base
2377   (let ((template (simple-texlive-package
2378                    "texlive-latex-base"
2379                    (list "/doc/latex/base/"
2380                          "/source/latex/base/"
2381                          ;; Almost all files in /tex/latex/base are generated, but
2382                          ;; these are not:
2383                          "/tex/latex/base/idx.tex"
2384                          "/tex/latex/base/lablst.tex"
2385                          "/tex/latex/base/ltnews.cls"
2386                          "/tex/latex/base/ltxcheck.tex"
2387                          "/tex/latex/base/ltxguide.cls"
2388                          "/tex/latex/base/minimal.cls"
2389                          "/tex/latex/base/sample2e.tex"
2390                          "/tex/latex/base/small2e.tex"
2391                          "/tex/latex/base/testpage.tex"
2392                          "/tex/latex/base/texsys.cfg")
2393                    (base32
2394                     "0m0gjb4hbsf2iqkkx3px4f28r2scjvsjv4zb2whkbnb44apyw1f0")
2395                    #:trivial? #t)))
2396     (package
2397       (inherit template)
2398       (arguments
2399        (substitute-keyword-arguments (package-arguments template)
2400          ((#:modules modules '())
2401           '((guix build gnu-build-system)
2402             (guix build utils)
2403             (ice-9 match)
2404             (srfi srfi-26)))
2405          ((#:phases phases)
2406           `(modify-phases ,phases
2407              ;; The literal tab in the dtx file is translated to the string
2408              ;; "^^I" in the generated Lua file, which causes a syntax error.
2409              (add-after 'unpack 'fix-lua-sources
2410                (lambda _
2411                  (substitute* "source/latex/base/ltluatex.dtx"
2412                    (("  ") "  "))
2413                  #t))
2414              (replace 'build
2415                (lambda* (#:key inputs #:allow-other-keys)
2416                  ;; Find required fonts
2417                  (setenv "TFMFONTS"
2418                          (string-join
2419                           (map (match-lambda
2420                                  ((pkg-name . dir)
2421                                   (string-append
2422                                    (assoc-ref inputs pkg-name)
2423                                    "/share/texmf-dist/fonts/tfm/public"
2424                                    dir)))
2425                                '(("texlive-etex" . "/etex")
2426                                  ("texlive-cm" . "/cm")
2427                                  ("texlive-fonts-latex" . "/latex-fonts")
2428                                  ("texlive-fonts-knuth-lib" . "/knuth-lib")))
2429                           ":"))
2430                  (let ((cwd (getcwd)))
2431                    (setenv "TEXINPUTS"
2432                            (string-append
2433                             cwd "//:"
2434                             cwd "/source/latex/base//:"
2435                             cwd "/build:"
2436                             (string-join
2437                              (map (match-lambda ((_ . dir) dir)) inputs)
2438                              "//:"))))
2439
2440                  ;; This is the actual build step.
2441                  (mkdir "build")
2442                  (invoke "tex" "-ini" "-interaction=scrollmode"
2443                          "-output-directory=build" "unpack.ins")
2444
2445                  ;; XXX: We can't build all formats at this point, nor are they
2446                  ;; part of the LaTeX base, so we disable them.  Actually, we
2447                  ;; should be running this all in a profile hook, so that only
2448                  ;; selected formats and hyphenation patterns are included, but it
2449                  ;; takes long and TeX Live isn't designed to be modular like
2450                  ;; that.  Everything operates on a shared directory, which we
2451                  ;; would only have at profile generation time.
2452                  (let ((disabled-formats
2453                         '("aleph aleph" "lamed aleph" "uptex uptex" "euptex euptex"
2454                           "eptex eptex" "ptex ptex" "pdfxmltex pdftex" "platex eptex"
2455                           "csplain pdftex" "mf mf-nowin" "mex pdftex" "pdfmex pdftex"
2456                           "luacsplain luatex"
2457                           "cont-en xetex" "cont-en pdftex" "pdfcsplain xetex"
2458                           "pdfcsplain pdftex" "pdfcsplain luatex" "cslatex pdftex"
2459                           "mptopdf pdftex" "uplatex euptex" "jadetex pdftex"
2460                           "amstex pdftex" "pdfcslatex pdftex" "lollipop tex"
2461                           "xmltex pdftex" "pdfjadetex pdftex" "eplain pdftex"
2462                           "texsis pdftex" "mltex pdftex" "utf8mex pdftex")))
2463                    (mkdir "web2c")
2464                    (install-file (string-append
2465                                   (assoc-ref inputs "texlive-kpathsea")
2466                                   "/share/texmf-dist/web2c/fmtutil.cnf")
2467                                  "web2c")
2468                    (make-file-writable "web2c/fmtutil.cnf")
2469                    (substitute* "web2c/fmtutil.cnf"
2470                      (((string-append "^(" (string-join disabled-formats "|") ")") m)
2471                       (string-append "#! " m))))
2472                  (invoke "fmtutil-sys" "--all"
2473                          "--fmtdir=web2c"
2474                          (string-append "--cnffile=web2c/fmtutil.cnf"))
2475                  ;; We don't actually want to install it.
2476                  (delete-file "web2c/fmtutil.cnf")
2477                  #t))
2478              (add-after 'install 'install-more
2479                (lambda* (#:key inputs outputs #:allow-other-keys)
2480                  (let* ((out (assoc-ref outputs "out"))
2481                         (root (string-append out "/share/texmf-dist"))
2482                         (target (string-append root "/tex/latex/base"))
2483                         (web2c (string-append root "/web2c"))
2484                         (makeindex (string-append root "/makeindex/latex")))
2485                    (for-each delete-file (find-files "." "\\.(log|aux)$"))
2486
2487                    ;; The usedir directive in docstrip.ins is ignored, so these
2488                    ;; two files end up in the wrong place.  Move them.
2489                    (mkdir-p makeindex)
2490                    (for-each (lambda (file)
2491                                (install-file file makeindex)
2492                                (delete-file file))
2493                              '("build/gglo.ist"
2494                                "build/gind.ist"))
2495                    (for-each (cut install-file <> target)
2496                              (find-files "build" ".*"))
2497                    (for-each (cut install-file <> web2c)
2498                              (find-files "web2c" ".*"))
2499                    #t)))))))
2500       (native-inputs
2501        `(("texlive-bin" ,texlive-bin)
2502          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
2503          ("texlive-tex-plain" ,texlive-tex-plain)
2504          ("texlive-kpathsea" ,texlive-kpathsea)
2505          ("texlive-cm" ,texlive-cm)
2506          ("texlive-fonts-latex" ,texlive-fonts-latex)
2507          ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)
2508          ("texlive-luatexconfig"
2509           ,(texlive-origin
2510             "texlive-luatexconfig" (number->string %texlive-revision)
2511             (list "/tex/generic/config/luatex-unicode-letters.tex"
2512                   "/tex/generic/config/luatexiniconfig.tex"
2513                   "/web2c/texmfcnf.lua")
2514             (base32
2515              "1gi87wy12r8w8fhx9ajcid382dmqzf6b9070b5nndvbbjrvhwf23")))))
2516       (propagated-inputs
2517        `(("texlive-dehyph-exptl" ,texlive-dehyph-exptl)
2518          ("texlive-etex" ,texlive-etex)
2519          ("texlive-hyph-utf8" ,texlive-hyph-utf8)
2520          ("texlive-hyphen-base" ,texlive-hyphen-base)
2521          ("texlive-hyphen-afrikaans" ,texlive-hyphen-afrikaans)
2522          ("texlive-hyphen-ancientgreek" ,texlive-hyphen-ancientgreek)
2523          ("texlive-hyphen-armenian" ,texlive-hyphen-armenian)
2524          ("texlive-hyphen-basque" ,texlive-hyphen-basque)
2525          ("texlive-hyphen-belarusian" ,texlive-hyphen-belarusian)
2526          ("texlive-hyphen-bulgarian" ,texlive-hyphen-bulgarian)
2527          ("texlive-hyphen-catalan" ,texlive-hyphen-catalan)
2528          ("texlive-hyphen-chinese" ,texlive-hyphen-chinese)
2529          ("texlive-hyphen-churchslavonic" ,texlive-hyphen-churchslavonic)
2530          ("texlive-hyphen-coptic" ,texlive-hyphen-coptic)
2531          ("texlive-hyphen-croatian" ,texlive-hyphen-croatian)
2532          ("texlive-hyphen-czech" ,texlive-hyphen-czech)
2533          ("texlive-hyphen-danish" ,texlive-hyphen-danish)
2534          ("texlive-hyphen-dutch" ,texlive-hyphen-dutch)
2535          ("texlive-hyphen-english" ,texlive-hyphen-english)
2536          ("texlive-hyphen-esperanto" ,texlive-hyphen-esperanto)
2537          ("texlive-hyphen-estonian" ,texlive-hyphen-estonian)
2538          ("texlive-hyphen-ethiopic" ,texlive-hyphen-ethiopic)
2539          ("texlive-hyphen-finnish" ,texlive-hyphen-finnish)
2540          ("texlive-hyphen-french" ,texlive-hyphen-french)
2541          ("texlive-hyphen-friulan" ,texlive-hyphen-friulan)
2542          ("texlive-hyphen-galician" ,texlive-hyphen-galician)
2543          ("texlive-hyphen-georgian" ,texlive-hyphen-georgian)
2544          ("texlive-hyphen-german" ,texlive-hyphen-german)
2545          ("texlive-hyphen-greek" ,texlive-hyphen-greek)
2546          ("texlive-hyphen-hungarian" ,texlive-hyphen-hungarian)
2547          ("texlive-hyphen-icelandic" ,texlive-hyphen-icelandic)
2548          ("texlive-hyphen-indic" ,texlive-hyphen-indic)
2549          ("texlive-hyphen-indonesian" ,texlive-hyphen-indonesian)
2550          ("texlive-hyphen-interlingua" ,texlive-hyphen-interlingua)
2551          ("texlive-hyphen-irish" ,texlive-hyphen-irish)
2552          ("texlive-hyphen-italian" ,texlive-hyphen-italian)
2553          ("texlive-hyphen-kurmanji" ,texlive-hyphen-kurmanji)
2554          ("texlive-hyphen-latin" ,texlive-hyphen-latin)
2555          ("texlive-hyphen-latvian" ,texlive-hyphen-latvian)
2556          ("texlive-hyphen-lithuanian" ,texlive-hyphen-lithuanian)
2557          ("texlive-hyphen-mongolian" ,texlive-hyphen-mongolian)
2558          ("texlive-hyphen-norwegian" ,texlive-hyphen-norwegian)
2559          ("texlive-hyphen-occitan" ,texlive-hyphen-occitan)
2560          ("texlive-hyphen-pali" ,texlive-hyphen-pali)
2561          ("texlive-hyphen-piedmontese" ,texlive-hyphen-piedmontese)
2562          ("texlive-hyphen-polish" ,texlive-hyphen-polish)
2563          ("texlive-hyphen-portuguese" ,texlive-hyphen-portuguese)
2564          ("texlive-hyphen-romanian" ,texlive-hyphen-romanian)
2565          ("texlive-hyphen-romansh" ,texlive-hyphen-romansh)
2566          ("texlive-hyphen-russian" ,texlive-hyphen-russian)
2567          ("texlive-hyphen-sanskrit" ,texlive-hyphen-sanskrit)
2568          ("texlive-hyphen-serbian" ,texlive-hyphen-serbian)
2569          ("texlive-hyphen-slovak" ,texlive-hyphen-slovak)
2570          ("texlive-hyphen-slovenian" ,texlive-hyphen-slovenian)
2571          ("texlive-hyphen-spanish" ,texlive-hyphen-spanish)
2572          ("texlive-hyphen-swedish" ,texlive-hyphen-swedish)
2573          ("texlive-hyphen-thai" ,texlive-hyphen-thai)
2574          ("texlive-hyphen-turkish" ,texlive-hyphen-turkish)
2575          ("texlive-hyphen-turkmen" ,texlive-hyphen-turkmen)
2576          ("texlive-hyphen-ukrainian" ,texlive-hyphen-ukrainian)
2577          ("texlive-hyphen-uppersorbian" ,texlive-hyphen-uppersorbian)
2578          ("texlive-hyphen-welsh" ,texlive-hyphen-welsh)
2579          ("texlive-unicode-data" ,texlive-unicode-data)
2580          ("texlive-ukrhyph" ,texlive-ukrhyph)
2581          ("texlive-ruhyphen" ,texlive-ruhyphen)
2582          ("texlive-latexconfig" ,texlive-latexconfig)))
2583       (home-page "https://www.ctan.org/pkg/latex-base")
2584       (synopsis "Base sources of LaTeX")
2585       (description
2586        "This bundle comprises the source of LaTeX itself, together with several
2587 packages which are considered \"part of the kernel\".  This bundle, together
2588 with the required packages, constitutes what every LaTeX distribution should
2589 contain.")
2590       (license license:lppl1.3c+))))
2591
2592 (define-public texlive-latex-filecontents
2593   (package
2594     (name "texlive-latex-filecontents")
2595     (version (number->string %texlive-revision))
2596     (source (origin
2597               (method svn-fetch)
2598               (uri (texlive-ref "latex" "filecontents"))
2599               (file-name (string-append name "-" version "-checkout"))
2600               (sha256
2601                (base32
2602                 "1h78zw0vhldx478zs4v86ajg7vpkysd1kg3npc480qqls3q6ba40"))))
2603     (build-system texlive-build-system)
2604     (arguments '(#:tex-directory "latex/filecontents"))
2605     (home-page "https://www.ctan.org/pkg/filecontents")
2606     (synopsis "Extended filecontents and filecontents* environments")
2607     (description
2608      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2609 enable a LaTeX source file to generate external files as it runs through
2610 LaTeX.  However, there are two limitations of these environments: they refuse
2611 to overwrite existing files, and they can only be used in the preamble of a
2612 document.  The filecontents package removes these limitations, letting you
2613 overwrite existing files and letting you use @code{filecontents} /
2614 @code{filecontents*} anywhere.")
2615     (license license:lppl1.3c+)))
2616
2617 (define-public texlive-generic-ifxetex
2618   (package
2619     (name "texlive-generic-ifxetex")
2620     (version (number->string %texlive-revision))
2621     (source (origin
2622               (method svn-fetch)
2623               (uri (texlive-ref "generic" "ifxetex"))
2624               (file-name (string-append name "-" version "-checkout"))
2625               (sha256
2626                (base32
2627                 "0w2xj7n0szavj329kds09q626szkc378p3w0sk022q0ln4ksz86d"))))
2628     (build-system texlive-build-system)
2629     (arguments
2630      '(#:tex-directory "generic/ifxetex"
2631        #:tex-format "xelatex"))
2632     (inputs
2633      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
2634     (home-page "https://www.ctan.org/pkg/ifxetex")
2635     (synopsis "Am I running under XeTeX?")
2636     (description
2637      "This is a simple package which provides an @code{\\ifxetex} conditional,
2638 so that other code can determine that it is running under XeTeX.  The package
2639 requires the e-TeX extensions to the TeX primitive set.")
2640     (license license:lppl1.3c+)))
2641
2642 (define-public texlive-epsf
2643   (package
2644     (inherit (simple-texlive-package
2645               "texlive-epsf"
2646               (list "/doc/generic/epsf/"
2647                     "/tex/generic/epsf/")
2648               (base32
2649                "03jcf0kqh47is965d2590miwj7d5kif3c4mgsnvkyl664jzjkh92")
2650               #:trivial? #t))
2651     (home-page "https://www.ctan.org/pkg/epsf")
2652     (synopsis "Simple macros for EPS inclusion")
2653     (description
2654      "This package provides the original (and now obsolescent) graphics
2655 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2656 particular).  For LaTeX users, the package is nowadays (rather strongly)
2657 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2658 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2659 users, via its Plain TeX version.)")
2660     (license license:public-domain)))
2661
2662 (define-public texlive-generic-epsf
2663   (deprecated-package "texlive-generic-epsf" texlive-epsf))
2664
2665 (define-public texlive-latex-fancyvrb
2666   (package
2667     (inherit (simple-texlive-package
2668               "texlive-latex-fancyvrb"
2669               (list "/doc/latex/fancyvrb/README"
2670                     "/tex/latex/fancyvrb/")
2671               (base32
2672                "1dwkcradz9nwpjwmv1sjzn77lvw25ypr0rrgmf1kd8pd2mw7dxcn")
2673               #:trivial? #t))
2674     (home-page "https://www.ctan.org/pkg/fancyvrb")
2675     (synopsis "Sophisticated verbatim text")
2676     (description
2677      "This package provides tools for the flexible handling of verbatim text
2678 including: verbatim commands in footnotes; a variety of verbatim environments
2679 with many parameters; ability to define new customized verbatim environments;
2680 save and restore verbatim text and environments; write and read files in
2681 verbatim mode; build \"example\" environments (showing both result and
2682 verbatim source).")
2683     (license license:lppl1.0+)))
2684
2685 (define-public texlive-graphics-def
2686   (package
2687     (inherit (simple-texlive-package
2688               "texlive-graphics-def"
2689               (list "/doc/latex/graphics-def/README.md"
2690                     "/tex/latex/graphics-def/")
2691               (base32
2692                "0zrbn9cwfnnrrl3b2zsd74ldksp9jwpvjh7z93ild1m75crpb39a")
2693               #:trivial? #t))
2694     (home-page "https://www.ctan.org/pkg/latex-graphics")
2695     (synopsis "Color and graphics option files")
2696     (description
2697      "This bundle is a combined distribution consisting of @file{dvips.def},
2698 @file{pdftex.def}, @file{luatex.def}, @file{xetex.def}, @file{dvipdfmx.def},
2699 and @file{dvisvgm.def} driver option files for the LaTeX graphics and color
2700 packages.")
2701     (license license:lppl1.3c+)))
2702
2703 (define-public texlive-graphics-cfg
2704   (package
2705     (inherit (simple-texlive-package
2706               "texlive-graphics-cfg"
2707               (list "/doc/latex/graphics-cfg/README.md"
2708                     "/tex/latex/graphics-cfg/")
2709               (base32
2710                "00n63adb2laf43lzix39xl68aq0k5k80mmrw602w99w5n7f96gsf")
2711               #:trivial? #t))
2712     (home-page "https://www.ctan.org/pkg/latex-graphics")
2713     (synopsis "Sample configuration files for LaTeX color and graphics")
2714     (description
2715      "This bundle includes @file{color.cfg} and @file{graphics.cfg} files that
2716 set default \"driver\" options for the color and graphics packages.")
2717     (license license:public-domain)))
2718
2719 (define-public texlive-latex-graphics
2720   (package
2721     (name "texlive-latex-graphics")
2722     (version (number->string %texlive-revision))
2723     (source (origin
2724               (method svn-fetch)
2725               (uri (texlive-ref "latex" "graphics"))
2726               (file-name (string-append name "-" version "-checkout"))
2727               (sha256
2728                (base32
2729                 "0nlfhn55ax89rcvpkrl9570671b62kcr4c9l5ch3w5zw9vmi00dz"))))
2730     (build-system texlive-build-system)
2731     (arguments '(#:tex-directory "latex/graphics"))
2732     (propagated-inputs
2733      `(("texlive-graphics-cfg" ,texlive-graphics-cfg)
2734        ("texlive-graphics-def" ,texlive-graphics-def)))
2735     (home-page "https://www.ctan.org/pkg/latex-graphics")
2736     (synopsis "LaTeX standard graphics bundle")
2737     (description
2738      "This is a collection of LaTeX packages for producing color, including
2739 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
2740 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
2741 keyval, and lscape.")
2742     (license license:lppl1.3c+)))
2743
2744 (define-public texlive-xcolor
2745   (let ((template (simple-texlive-package
2746                    "texlive-xcolor"
2747                    (list "/doc/latex/xcolor/"
2748                          "/source/latex/xcolor/")
2749                    (base32
2750                     "12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp"))))
2751     (package
2752       (inherit template)
2753       (arguments
2754        (substitute-keyword-arguments (package-arguments template)
2755          ((#:tex-directory _ #t)
2756           "latex/xcolor")
2757          ((#:phases phases)
2758           `(modify-phases ,phases
2759              (add-after 'unpack 'chdir
2760                (lambda _ (chdir "source/latex/xcolor") #t))
2761              (add-after 'install 'move-files
2762                (lambda* (#:key outputs #:allow-other-keys)
2763                  (let ((share (string-append (assoc-ref outputs "out")
2764                                              "/share/texmf-dist")))
2765                    (mkdir-p (string-append share "/dvips/xcolor"))
2766                    (rename-file (string-append share "/tex/latex/xcolor/xcolor.pro")
2767                                 (string-append share "/dvips/xcolor/xcolor.pro"))
2768                    #t)))))))
2769       (home-page "https://www.ctan.org/pkg/xcolor")
2770       (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
2771       (description
2772        "The package starts from the basic facilities of the colorcolor package,
2773 and provides easy driver-independent access to several kinds of color tints,
2774 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
2775 document-wide target color model and offers complete tools for conversion
2776 between eight color models.  Additionally, there is a command for alternating
2777 row colors plus repeated non-aligned material (like horizontal lines) in
2778 tables.")
2779       (license license:lppl1.2+))))
2780
2781 (define-public texlive-latex-xcolor
2782   (deprecated-package "texlive-latex-xcolor" texlive-xcolor))
2783
2784 (define-public texlive-latex-hyperref
2785   (package
2786     (name "texlive-latex-hyperref")
2787     (version "6.84a2")
2788     ;; The sources in the TeX Live SVN repository do not contain hluatex.dtx,
2789     ;; so we fetch the release from GitHub.
2790     (source (origin
2791               (method url-fetch)
2792               (uri (string-append "https://github.com/ho-tex/hyperref/"
2793                                   "archive/release-" version ".tar.gz"))
2794               (file-name (string-append name "-" version ".tar.gz"))
2795               (sha256
2796                (base32
2797                 "1d3rmjgzh0025a1dza55zb6nzzlgd1y9snwx45wq1c1vf42m79h2"))))
2798     (build-system texlive-build-system)
2799     (arguments '(#:tex-directory "latex/hyperref"))
2800     (propagated-inputs
2801      `(("texlive-latex-oberdiek" ,texlive-latex-oberdiek) ; for ltxcmds.sty
2802        ("texlive-latex-url" ,texlive-latex-url)))
2803     (home-page "https://www.ctan.org/pkg/hyperref")
2804     (synopsis "Extensive support for hypertext in LaTeX")
2805     (description
2806      "The @code{hyperref} package is used to handle cross-referencing commands
2807 in LaTeX to produce hypertext links in the document.  The package provides
2808 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
2809 embedded @code{pdfmark} commands for processing by Acrobat
2810 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
2811 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
2812 pdf and HTML backends.  The package is distributed with the @code{backref} and
2813 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
2814     (license license:lppl1.3+)))
2815
2816 (define-public texlive-latex-oberdiek
2817   (package
2818     (name "texlive-latex-oberdiek")
2819     (version (number->string %texlive-revision))
2820     (source (origin
2821               (method svn-fetch)
2822               (uri (texlive-ref "latex" "oberdiek"))
2823               (file-name (string-append name "-" version "-checkout"))
2824               (sha256
2825                (base32
2826                 "0pi2d6gsddcs9wprdbar46s91kdc5fxl1m79g7xrbccsx8s9xbml"))))
2827     (build-system texlive-build-system)
2828     (arguments
2829      '(#:tex-directory "latex/oberdiek"
2830        #:build-targets '("oberdiek.ins")
2831        #:phases
2832        (modify-phases %standard-phases
2833          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
2834          (add-after 'unpack 'do-not-process-ifpdf.ins
2835            (lambda _
2836              (substitute* "oberdiek.ins"
2837                (("ifpdf.ins") "ifpdf.dtx"))
2838              #t)))))
2839     (propagated-inputs
2840      `(("texlive-generic-ifxetex" ,texlive-generic-ifxetex)))
2841     (home-page "https://www.ctan.org/pkg/oberdiek")
2842     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
2843     (description
2844      "The bundle comprises various LaTeX packages, providing among others:
2845 better accessibility support for PDF files; extensible chemists reaction
2846 arrows; record information about document class(es) used; and many more.")
2847     (license license:lppl1.3+)))
2848
2849 (define-public texlive-latex-tools
2850   (package
2851     (name "texlive-latex-tools")
2852     (version (number->string %texlive-revision))
2853     (source (origin
2854               (method svn-fetch)
2855               (uri (texlive-ref "latex" "tools"))
2856               (file-name (string-append name "-" version "-checkout"))
2857               (sha256
2858                (base32
2859                 "1wqvn4z0s92h5iqzrvxw7hinzp95avjk9v8lnqbqr4kz6nv4xb9l"))))
2860     (build-system texlive-build-system)
2861     (arguments
2862      '(#:tex-directory "latex/tools"
2863        #:build-targets '("tools.ins")))
2864     (home-page "https://www.ctan.org/pkg/latex-tools")
2865     (synopsis "LaTeX standard tools bundle")
2866     (description
2867      "This package is a collection of (variously) simple tools provided as
2868 part of the LaTeX required tools distribution, comprising the following
2869 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
2870 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
2871 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
2872 xr, and xspace.")
2873     (license license:lppl1.3+)))
2874
2875 (define-public texlive-url
2876   (package
2877     (inherit (simple-texlive-package
2878               "texlive-url"
2879               (list "/doc/latex/url/"
2880                     "/tex/latex/url/")
2881               (base32
2882                "184m40wgnx939ky2hbxnj0v9aak023ldrhgffp0lgyk9wdqpxlqg")
2883               #:trivial? #t))
2884     (home-page "https://www.ctan.org/pkg/url")
2885     (synopsis "Verbatim with URL-sensitive line breaks")
2886     (description "The command @code{\\url} is a form of verbatim command that
2887 allows linebreaks at certain characters or combinations of characters, accepts
2888 reconfiguration, and can usually be used in the argument to another command.
2889 The command is intended for email addresses, hypertext links,
2890 directories/paths, etc., which normally have no spaces, so by default the
2891 package ignores spaces in its argument.  However, a package option allows
2892 spaces, which is useful for operating systems where spaces are a common part
2893 of file names.")
2894     ;; The license header states that it is under LPPL version 2 or later, but
2895     ;; the latest version is 1.3c.
2896     (license license:lppl1.3c+)))
2897
2898 (define-public texlive-latex-url
2899   (deprecated-package "texlive-latex-url" texlive-url))
2900
2901 (define-public texlive-tetex
2902   (package
2903     (inherit (simple-texlive-package
2904               "texlive-tetex"
2905               (list "/dvips/tetex/"
2906                     "/fonts/enc/dvips/tetex/"
2907                     "/fonts/map/dvips/tetex/")
2908               (base32
2909                "1si3as8mwi8837965djlw6jhwwzsp3r1hkflvdxv2avx9vb45hjb")
2910               #:trivial? #t))
2911     (home-page "https://www.ctan.org/pkg/tetex")
2912     (synopsis "Font maps originally from teTeX")
2913     (description "This package provides font maps that were originally part of
2914 the now obsolete teTeX distributions but are still used at the core of the TeX
2915 Live distribution.")
2916     (license license:public-domain)))
2917
2918 (define-public texlive-latex-l3kernel
2919   (package
2920     (name "texlive-latex-l3kernel")
2921     (version (number->string %texlive-revision))
2922     (source (origin
2923               (method svn-fetch)
2924               (uri (texlive-ref "latex" "l3kernel"))
2925               (file-name (string-append name "-" version "-checkout"))
2926               (sha256
2927                (base32
2928                 "0s77z2cbv841l45qrpf0s8qhzfa4wi689lg7zkw88qg18nzvy0ly"))))
2929     (build-system texlive-build-system)
2930     (arguments
2931      '(#:tex-directory "latex/l3kernel"))
2932     (home-page "https://www.ctan.org/pkg/l3kernel")
2933     (synopsis "LaTeX3 programmers’ interface")
2934     (description
2935      "The l3kernel bundle provides an implementation of the LaTeX3
2936 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
2937 interface provides the foundation on which the LaTeX3 kernel and other future
2938 code are built: it is an API for TeX programmers.  The packages are set up so
2939 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
2940     (license license:lppl1.3c+)))
2941
2942 (define-public texlive-latex-l3packages
2943   (package
2944     (name "texlive-latex-l3packages")
2945     (version (number->string %texlive-revision))
2946     (source (origin
2947               (method svn-fetch)
2948               (uri (texlive-ref "latex" "l3packages"))
2949               (file-name (string-append name "-" version "-checkout"))
2950               (sha256
2951                (base32
2952                 "1cv4fk9pabh7mkxhfsdmh4k8xpmzg1psgcsvd11c869m7n3a629h"))))
2953     (build-system texlive-build-system)
2954     (arguments
2955      '(#:tex-directory "latex/l3packages"
2956        ;; build-targets must be specified manually since they are in
2957        ;; sub-directories.
2958        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
2959        #:phases
2960        (modify-phases %standard-phases
2961          ;; All package sources are in sub-directories, so we need to add them
2962          ;; to TEXINPUTS.
2963          (add-after 'unpack 'set-TEXINPUTS
2964            (lambda _
2965              (let ((cwd (getcwd)))
2966                (setenv "TEXINPUTS"
2967                        (string-append cwd "/l3keys2e:"
2968                                       cwd "/xparse:"
2969                                       cwd "/xfrac:"
2970                                       cwd "/xfp:"
2971                                       cwd "/xtemplate"
2972                                       ;; The terminating ":" is required to include the
2973                                       ;; l3kernel input as well.
2974                                       ":")))
2975              #t)))
2976        ))
2977     (propagated-inputs
2978      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
2979     (home-page "https://www.ctan.org/pkg/l3packages")
2980     (synopsis "High-level LaTeX3 concepts")
2981     (description
2982      "This bundle holds prototype implementations of concepts for a LaTeX
2983 designer interface, to be used with the experimental LaTeX kernel as
2984 programming tools and kernel support.  Packages provided in this release are:
2985
2986 @enumerate
2987 @item l3keys2e, which makes the facilities of the kernel module l3keys
2988   available for use by LaTeX 2e packages;
2989 @item xfrac, which provides flexible splitlevel fractions;
2990 @item xparse, which provides a high-level interface for declaring document
2991   commands; and
2992 @item xtemplate, which provides a means of defining generic functions using a
2993   key-value syntax.
2994 @end enumerate\n")
2995     (license license:lppl1.3c+)))
2996
2997 (define-public texlive-latex-fontspec
2998   (package
2999     (name "texlive-latex-fontspec")
3000     (version (number->string %texlive-revision))
3001     (source (origin
3002               (method svn-fetch)
3003               (uri (texlive-ref "latex" "fontspec"))
3004               (file-name (string-append name "-" version "-checkout"))
3005               (sha256
3006                (base32
3007                 "1223cw029n6zff7pqpwbsq1x8v3w63smczkmnybqxkw5h2za8gbz"))))
3008     (build-system texlive-build-system)
3009     (arguments
3010      '(#:tex-directory "latex/fontspec"
3011        #:phases
3012        (modify-phases %standard-phases
3013          (add-after 'install 'install-default-fontspec.cfg
3014            (lambda* (#:key outputs #:allow-other-keys)
3015              (with-output-to-file
3016                  (string-append (assoc-ref outputs "out")
3017                                 "/share/texmf-dist/tex/latex/fontspec/fontspec.cfg")
3018                (lambda _
3019                  (display "\
3020 %%% FONTSPEC.CFG %%%
3021 %
3022 % This configuration file sets up TeX Ligatures by default for all fonts loaded
3023 % with `\\setmainfont` and `\\setsansfont`.
3024 %
3025 % In addition, `\\setmonofont` has default features to enforce \"monospace\"
3026 % settings with regard to space stretchability and shrinkability.
3027
3028 \\defaultfontfeatures
3029  [\\rmfamily,\\sffamily]
3030  {Ligatures=TeX}
3031
3032 \\defaultfontfeatures
3033  [\\ttfamily]
3034  {WordSpace={1,0,0},
3035   HyphenChar=None,
3036   PunctuationSpace=WordSpace}
3037 ")))
3038              #t)))))
3039     (propagated-inputs
3040      `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
3041     (home-page "https://www.ctan.org/pkg/fontspec")
3042     (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
3043     (description
3044      "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
3045 automatic and unified interface to feature-rich AAT and OpenType fonts through
3046 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
3047 the l3kernel and xparse bundles from the LaTeX 3 development team.")
3048     (license license:lppl1.3+)))
3049
3050 ;; The SVN directory contains little more than a dtx file that generates three
3051 ;; of the many lua files that should be installed as part of this package.
3052 ;; This is why we take the release from GitHub instead.
3053 (define-public texlive-luatex-lualibs
3054   (package
3055     (name "texlive-luatex-lualibs")
3056     (version "2.5")
3057     (source (origin
3058               (method url-fetch)
3059               (uri (string-append "https://github.com/lualatex/lualibs/"
3060                                   "releases/download/v"
3061                                   version "/lualibs.zip"))
3062               (file-name (string-append name "-" version ".zip"))
3063               (sha256
3064                (base32
3065                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
3066     (build-system gnu-build-system)
3067     (arguments
3068      `(#:make-flags
3069        (list (string-append "DESTDIR="
3070                             (assoc-ref %outputs "out")
3071                             "/share/texmf-dist"))
3072        #:phases
3073        (modify-phases %standard-phases
3074          (delete 'configure))))
3075     (native-inputs
3076      `(("texlive-bin" ,texlive-bin)
3077        ("unzip" ,unzip)
3078        ("zip" ,zip)))
3079     (home-page "https://github.com/lualatex/lualibs")
3080     (synopsis "Lua modules for general programming (in the (La)TeX world)")
3081     (description
3082      "Lualibs is a collection of Lua modules useful for general programming.
3083 The bundle is based on Lua modules shipped with ConTeXt, and made available in
3084 this bundle for use independent of ConTeXt.")
3085     ;; GPL version 2 only
3086     (license license:gpl2)))
3087
3088 (define-public texlive-luatex-luaotfload
3089   (package
3090     (name "texlive-luatex-luaotfload")
3091     (version "2.8-fix-2")
3092     ;; The release tarball does not contain all source files.
3093     (source (origin
3094               (method git-fetch)
3095               (uri (git-reference
3096                     (url "https://github.com/lualatex/luaotfload.git")
3097                     (commit (string-append "v" version))))
3098               (file-name (git-file-name name version))
3099               (sha256
3100                (base32
3101                 "0l5l7iq3dxcxl65qaghcpjg27yd9iw1sxa8pnd7xlvlm09dhfdnf"))))
3102     (build-system gnu-build-system)
3103     (arguments
3104      `(#:make-flags
3105        (list (string-append "DESTDIR="
3106                             (assoc-ref %outputs "out")
3107                             "/share/texmf-dist")
3108              "all")
3109        #:parallel-build? #f ; not supported
3110        #:phases
3111        (modify-phases %standard-phases
3112          (replace 'configure
3113            (lambda* (#:key inputs #:allow-other-keys)
3114              (substitute* "doc/Makefile"
3115                (("rst2man") "rst2man.py")
3116                ;; Don't build the PDF.  This requires more of LaTeX.
3117                (("\\$\\(DOCPDF\\)") ""))
3118
3119              (substitute* "Makefile"
3120                ;; We don't build the PDF, so don't attempt to install it.
3121                (("cp \\$\\(RESOURCES\\) \\$\\(DOCPDF\\)")
3122                 "cp $(RESOURCES)")
3123                (("= \\$\\(DOCPDF\\)") "= ")
3124                ;; Fix name of fontloader file
3125                (("^LOADER.*= \\$\\(BUILDDIR\\)/fontloader-\\$\\(shell date \\+%F\\).lua")
3126                 "LOADER = $(BUILDDIR)/fontloader.lua"))
3127
3128              (mkdir "build")
3129
3130              ;; Don't download this file.
3131              (copy-file (assoc-ref inputs "glyphlist")
3132                         "build/glyphlist.txt")
3133
3134              ;; Don't use git
3135              (let ((notes
3136                     `((committer . "Philipp Gesang <phg@phi-gamma.net>")
3137                       (description . ,version)
3138                       (loader . "fontloader.lua")
3139                       (revision . "ad480924393fffa2896156e1a32c22f5c61120dd")
3140                       (timestamp . "2019-01-01 00:00:00 +0000"))))
3141                (substitute* "scripts/mkstatus"
3142                  (("local notes.*=.*")
3143                   (string-append "local notes = {"
3144                                  (string-join
3145                                   (map (lambda (entry)
3146                                          (format "[\"~a\"]=\"~a\","
3147                                                  (symbol->string (car entry))
3148                                                  (cdr entry)))
3149                                        notes))
3150                                  "}"))))
3151              #t)))))
3152     (native-inputs
3153      `(("zip" ,zip)
3154        ("unzip" ,unzip)
3155        ("graphviz" ,graphviz)
3156        ("lualatex" ,(texlive-union (list texlive-luatex-lualibs
3157                                          texlive-context-base)))
3158        ("python-docutils" ,python-docutils)
3159        ("glyphlist"
3160         ,(origin
3161            (method url-fetch)
3162            (uri (string-append "https://raw.githubusercontent.com/adobe-type-tools/"
3163                                "agl-aglfn/b2a04cb906f9257cc06a2fe0ad4b3d663bc02136/"
3164                                "glyphlist.txt"))
3165            (sha256
3166             (base32 "1s6svfw23rqzdvflv8frgd4xrwvrmsj8szwzqgcd39dp9rpjafjp"))))))
3167     (propagated-inputs
3168      `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3169     (home-page "https://github.com/lualatex/luaotfload")
3170     (synopsis "OpenType font loader for LuaTeX")
3171     (description
3172      "Luaotfload is an adaptation of the ConTeXt font loading system for the
3173 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3174 features accessible using an extended font request syntax while providing
3175 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3176 loading fonts by their proper names instead of file names.")
3177     ;; GPL version 2 only
3178     (license license:gpl2)))
3179
3180 (define-public texlive-latex-amsmath
3181   (package
3182     (name "texlive-latex-amsmath")
3183     (version (number->string %texlive-revision))
3184     (source (origin
3185               (method svn-fetch)
3186               (uri (texlive-ref "latex" "amsmath"))
3187               (file-name (string-append name "-" version "-checkout"))
3188               (sha256
3189                (base32
3190                 "0qgk2332dacsxn1z95qzp35gbs7wrzl1ipjdhnmk1r897msm4sf5"))))
3191     (build-system texlive-build-system)
3192     (arguments '(#:tex-directory "latex/amsmath"))
3193     (home-page "https://www.ctan.org/pkg/amsmath")
3194     (synopsis "AMS mathematical facilities for LaTeX")
3195     (description
3196      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3197 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3198 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3199 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3200 symbols), @code{amsopnamsopn} (for operator names) and
3201 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3202 This package is part of the LaTeX required distribution; however, several
3203 contributed packages add still further to its appeal; examples are
3204 @code{empheqempheq}, which provides functions for decorating and highlighting
3205 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3206 definitions.")
3207     (license license:lppl1.3c+)))
3208
3209 (define-public texlive-latex-amscls
3210   (package
3211     (name "texlive-latex-amscls")
3212     (version (number->string %texlive-revision))
3213     (source (origin
3214               (method svn-fetch)
3215               (uri (texlive-ref "latex" "amscls"))
3216               (file-name (string-append name "-" version "-checkout"))
3217               (sha256
3218                (base32
3219                 "0c2j9xh4qpi0x1vvcxdjxq6say0zhyr569fryi5cmhp8bclh4kca"))))
3220     (build-system texlive-build-system)
3221     (arguments
3222      `(#:tex-directory "latex/amscls"))
3223     (home-page "https://www.ctan.org/pkg/amscls")
3224     (synopsis "AMS document classes for LaTeX")
3225     (description
3226      "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3227 articles for the AMS), @code{amsbookamsbook} (for books) and
3228 @code{amsprocamsproc} (for proceedings), together with some supporting
3229 material.  The material is made available as part of the AMS-LaTeX
3230 distribution.")
3231     (license license:lppl1.3c+)))
3232
3233 (define-public texlive-latex-babel
3234   (package
3235     (name "texlive-latex-babel")
3236     (version (number->string %texlive-revision))
3237     (source (origin
3238               (method svn-fetch)
3239               (uri (texlive-ref "latex" "babel"))
3240               (file-name (string-append name "-" version "-checkout"))
3241               (sha256
3242                (base32
3243                 "1rwqq841i1rxywymzwkw0cw2yhgvxwjx5mgygfasvypwrwll6f6s"))))
3244     (build-system texlive-build-system)
3245     (arguments
3246      '(#:tex-directory "generic/babel"
3247        #:phases
3248        (modify-phases %standard-phases
3249          ;; This package tries to produce babel.aux twice but refuses to
3250          ;; overwrite the first one.
3251          (add-before 'build 'fix-ins
3252            (lambda _
3253              (substitute* "babel.ins"
3254                (("askonceonly") "askforoverwritefalse"))
3255              #t)))))
3256     (home-page "https://www.ctan.org/pkg/babel")
3257     (synopsis "Multilingual support for Plain TeX or LaTeX")
3258     (description
3259      "The package manages culturally-determined typographical (and other)
3260 rules, and hyphenation patterns for a wide range of languages.  A document may
3261 select a single language to be supported, or it may select several, in which
3262 case the document may switch from one language to another in a variety of
3263 ways.  Babel uses contributed configuration files that provide the detail of
3264 what has to be done for each language.  Users of XeTeX are advised to use the
3265 polyglossia package rather than Babel.")
3266     (license license:lppl1.3+)))
3267
3268 (define-public texlive-generic-babel-english
3269   (package
3270     (name "texlive-generic-babel-english")
3271     (version (number->string %texlive-revision))
3272     (source (origin
3273               (method svn-fetch)
3274               (uri (texlive-ref "generic" "babel-english"))
3275               (file-name (string-append name "-" version "-checkout"))
3276               (sha256
3277                (base32
3278                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3279     (build-system texlive-build-system)
3280     (arguments '(#:tex-directory "generic/babel-english"))
3281     (home-page "https://www.ctan.org/pkg/babel-english")
3282     (synopsis "Babel support for English")
3283     (description
3284      "This package provides the language definition file for support of
3285 English in @code{babel}.  Care is taken to select British hyphenation patterns
3286 for British English and Australian text, and default (\"american\") patterns
3287 for Canadian and USA text.")
3288     (license license:lppl1.3+)))
3289
3290 (define-public texlive-generic-babel-german
3291   (package
3292     (name "texlive-generic-babel-german")
3293     (version (number->string %texlive-revision))
3294     (source (origin
3295               (method svn-fetch)
3296               (uri (texlive-ref "generic" "babel-german"))
3297               (file-name (string-append name "-" version "-checkout"))
3298               (sha256
3299                (base32
3300                 "129f9w41cb6yyrr6kpv3zz9ml6334hyq1wcz7j9jn47p0hlxqfk8"))))
3301     (build-system texlive-build-system)
3302     (arguments '(#:tex-directory "generic/babel-german"))
3303     (home-page "https://www.ctan.org/pkg/babel-german")
3304     (synopsis "Babel support for German")
3305     (description
3306      "This package provides the language definition file for support of German
3307 in @code{babel}.  It provides all the necessary macros, definitions and
3308 settings to typeset German documents.  The bundle includes support for the
3309 traditional and reformed German orthography as well as for the Austrian and
3310 Swiss varieties of German.")
3311     (license license:lppl1.3+)))
3312
3313 (define-public texlive-latex-cyrillic
3314   (package
3315     (name "texlive-latex-cyrillic")
3316     (version (number->string %texlive-revision))
3317     (source (origin
3318               (method svn-fetch)
3319               (uri (texlive-ref "latex" "cyrillic"))
3320               (file-name (string-append name "-" version "-checkout"))
3321               (sha256
3322                (base32
3323                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3324     (build-system texlive-build-system)
3325     (arguments
3326      '(#:tex-directory "latex/cyrillic"))
3327     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3328     (synopsis "Support for Cyrillic fonts in LaTeX")
3329     (description
3330      "This bundle of macros files provides macro support (including font
3331 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3332 T2* and X2 encodings. These encodings cover (between them) pretty much every
3333 language that is written in a Cyrillic alphabet.")
3334     (license license:lppl1.3c+)))
3335
3336 (define-public texlive-latex-psnfss
3337   (package
3338     (name "texlive-latex-psnfss")
3339     (version (number->string %texlive-revision))
3340     (source (origin
3341               (method svn-fetch)
3342               (uri (texlive-ref "latex" "psnfss"))
3343               (file-name (string-append name "-" version "-checkout"))
3344               (sha256
3345                (base32
3346                 "1920dcq8613yzprasbg80fh4fcjcidvvl54wkx438nimyxcri7qz"))))
3347     (build-system texlive-build-system)
3348     (arguments '(#:tex-directory "latex/psnfss"))
3349     (home-page "https://www.ctan.org/pkg/psnfss")
3350     (synopsis "Font support for common PostScript fonts")
3351     (description
3352      "The PSNFSS collection includes a set of files that provide a complete
3353 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3354 PostScript fonts.  It covers the so-called \"Base\" fonts (which are built
3355 into any Level 2 PostScript printing device and the Ghostscript interpreter)
3356 and a number of free fonts.  It provides font definition files, macros and
3357 font metrics.  The bundle as a whole is part of the LaTeX required set of
3358 packages.")
3359     (license license:lppl1.2+)))
3360
3361 ;; For user profiles
3362 (define-public texlive-base
3363   (let ((default-packages
3364           (list texlive-bin
3365                 texlive-dvips
3366                 texlive-fontname
3367                 texlive-cm
3368                 texlive-fonts-latex
3369                 texlive-metafont-base
3370                 texlive-latex-base
3371                 ;; LaTeX packages from the "required" set.
3372                 texlive-latex-amsmath
3373                 texlive-latex-amscls
3374                 texlive-latex-babel
3375                 texlive-generic-babel-english
3376                 texlive-latex-cyrillic
3377                 texlive-latex-graphics
3378                 texlive-latex-psnfss
3379                 texlive-latex-tools
3380                 texlive-tetex)))
3381     (package
3382       (name "texlive-base")
3383       (version (number->string %texlive-revision))
3384       (source #f)
3385       (build-system trivial-build-system)
3386       (arguments
3387        '(#:builder
3388          (begin (mkdir (assoc-ref %outputs "out")))))
3389       (propagated-inputs
3390        (map (lambda (package)
3391               (list (package-name package) package))
3392             default-packages))
3393       (home-page (package-home-page texlive-bin))
3394       (synopsis "TeX Live base packages")
3395       (description "This is a very limited subset of the TeX Live distribution.
3396 It includes little more than the required set of LaTeX packages.")
3397       (license (fold (lambda (package result)
3398                        (match (package-license package)
3399                          ((lst ...)
3400                           (append lst result))
3401                          ((? license:license? license)
3402                           (cons license result))))
3403                      '()
3404                      default-packages)))))
3405
3406 ;; For use in package definitions only
3407 (define-public texlive-union
3408   (lambda* (#:optional (packages '()))
3409     "Return 'texlive-union' package which is a union of PACKAGES and the
3410 standard LaTeX packages."
3411     (let ((default-packages (match (package-propagated-inputs texlive-base)
3412                               (((labels packages) ...) packages))))
3413       (package (inherit texlive-base)
3414         (name "texlive-union")
3415         (build-system trivial-build-system)
3416         (arguments
3417          '(#:modules ((guix build union)
3418                       (guix build utils)
3419                       (guix build texlive-build-system)
3420                       (guix build gnu-build-system)
3421                       (guix build gremlin)
3422                       (guix elf))
3423            #:builder
3424            (begin
3425              (use-modules (ice-9 match)
3426                           (ice-9 popen)
3427                           (srfi srfi-26)
3428                           (guix build union)
3429                           (guix build utils)
3430                           (guix build texlive-build-system))
3431              (let* ((out       (assoc-ref %outputs "out"))
3432                     (texmf.cnf (string-append out "/share/texmf-dist/web2c/texmf.cnf")))
3433                ;; Build a modifiable union of all inputs (but exclude bash and
3434                ;; the updmap.cfg file)
3435                (match (filter (match-lambda
3436                                 ((name . _)
3437                                  (not (member name '("bash"
3438                                                      "coreutils"
3439                                                      "sed"
3440                                                      "updmap.cfg")))))
3441                               %build-inputs)
3442                  (((names . directories) ...)
3443                   (union-build (assoc-ref %outputs "out")
3444                                directories
3445                                #:create-all-directories? #t
3446                                #:log-port (%make-void-port "w"))))
3447
3448                ;; The configuration file "texmf.cnf" is provided by the
3449                ;; "texlive-bin" package.  We take it and override only the
3450                ;; setting for TEXMFROOT and TEXMF.  This file won't be consulted
3451                ;; by default, though, so we still need to set TEXMFCNF.
3452                (substitute* texmf.cnf
3453                  (("^TEXMFROOT = .*")
3454                   (string-append "TEXMFROOT = " out "/share\n"))
3455                  (("^TEXMF = .*")
3456                   "TEXMF = $TEXMFROOT/share/texmf-dist\n"))
3457                (setenv "PATH" (string-append
3458                                (assoc-ref %build-inputs "bash") "/bin:"
3459                                (assoc-ref %build-inputs "coreutils") "/bin:"
3460                                (assoc-ref %build-inputs "sed") "/bin:"
3461                                (string-append out "/bin")))
3462                (for-each
3463                 (cut wrap-program <>
3464                      `("TEXMFCNF" ":" suffix (,(dirname texmf.cnf)))
3465                      `("TEXMF"    ":" suffix (,(string-append out "/share/texmf-dist"))))
3466                 (find-files (string-append out "/bin") ".*"))
3467
3468                ;; Remove invalid maps from config file.
3469                (let ((web2c (string-append out "/share/texmf-config/web2c/"))
3470                      (maproot (string-append out "/share/texmf-dist/fonts/map/")))
3471                  (mkdir-p web2c)
3472                  (copy-file
3473                   (assoc-ref %build-inputs "updmap.cfg")
3474                   (string-append web2c "updmap.cfg"))
3475                  (make-file-writable (string-append web2c "updmap.cfg"))
3476
3477                  (let* ((port (open-pipe* OPEN_WRITE "updmap-sys"
3478                                           "--syncwithtrees"
3479                                           "--nohash"
3480                                           (string-append "--cnffile=" web2c "updmap.cfg"))))
3481                    (display "Y\n" port)
3482                    (when (not (zero? (status:exit-val (close-pipe port))))
3483                      (error "failed to filter updmap.cfg")))
3484                  ;; Generate maps.
3485                  (invoke "updmap-sys"
3486                          (string-append "--cnffile=" web2c "updmap.cfg")
3487                          (string-append "--dvipdfmxoutputdir="
3488                                         maproot "dvipdfmx/updmap/")
3489                          (string-append "--dvipsoutputdir="
3490                                         maproot "dvips/updmap/")
3491                          (string-append "--pdftexoutputdir="
3492                                         maproot "pdftex/updmap/"))
3493                  ;; Having this file breaks all file lookups later.
3494                  (delete-file (string-append out "/share/texmf-dist/ls-R")))
3495                #t))))
3496         (inputs
3497          `(("bash" ,bash)
3498            ,@(map (lambda (package)
3499                     (list (package-name package) package))
3500                   (append default-packages packages))))
3501         (native-inputs
3502          `(("coreutils" ,coreutils)
3503            ("sed" ,sed)
3504            ("updmap.cfg"
3505             ,(origin
3506                (method url-fetch)
3507                (uri (string-append "https://tug.org/svn/texlive/tags/"
3508                                    %texlive-tag "/Master/texmf-dist/web2c/updmap.cfg"
3509                                    "?revision=" (number->string %texlive-revision)))
3510                (file-name (string-append "updmap.cfg-"
3511                                          (number->string %texlive-revision)))
3512                (sha256
3513                 (base32
3514                  "0faqknqxs80qp9ywk0by5k85s0yalg97c4lja4q56lsyblrr4j7i"))))))
3515         (home-page (package-home-page texlive-bin))
3516         (synopsis "Union of TeX Live packages")
3517         (description "This package provides a subset of the TeX Live
3518 distribution.")
3519         (license (fold (lambda (package result)
3520                          (match (package-license package)
3521                            ((lst ...)
3522                             (append lst result))
3523                            ((? license:license? license)
3524                             (cons license result))))
3525                        '()
3526                        (append default-packages packages)))))))
3527
3528 ;; For use in package definitions only
3529 (define-public texlive-tiny
3530   (package
3531     (inherit (texlive-union))
3532     (name "texlive-tiny")
3533     (description "This is a very limited subset of the TeX Live distribution.
3534 It includes little more than the required set of LaTeX packages.")))
3535
3536 (define-public texlive-latex-amsrefs
3537   (package
3538     (name "texlive-latex-amsrefs")
3539     (version (number->string %texlive-revision))
3540     (source (origin
3541               (method svn-fetch)
3542               (uri (texlive-ref "latex" "amsrefs"))
3543               (file-name (string-append name "-" version "-checkout"))
3544               (sha256
3545                (base32
3546                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
3547     (build-system texlive-build-system)
3548     (arguments '(#:tex-directory "latex/amsrefs"))
3549     (home-page "https://www.ctan.org/pkg/amsrefs")
3550     (synopsis "LaTeX-based replacement for BibTeX")
3551     (description
3552      "Amsrefs is a LaTeX package for bibliographies that provides an archival
3553 data format similar to the format of BibTeX database files, but adapted to
3554 make direct processing by LaTeX easier.  The package can be used either in
3555 conjunction with BibTeX or as a replacement for BibTeX.")
3556     (license license:lppl1.3+)))
3557
3558 (define-public texlive-latex-bigfoot
3559   (package
3560     (name "texlive-latex-bigfoot")
3561     (version (number->string %texlive-revision))
3562     (source (origin
3563               (method svn-fetch)
3564               (uri (texlive-ref "latex" "bigfoot"))
3565               (file-name (string-append name "-" version "-checkout"))
3566               (sha256
3567                (base32
3568                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
3569     (build-system texlive-build-system)
3570     (arguments
3571      '(#:tex-directory "latex/bigfoot"
3572        #:phases
3573        (modify-phases %standard-phases
3574          (add-after 'unpack 'remove-generated-file
3575            (lambda _
3576              (for-each delete-file (find-files "." "\\.drv$"))
3577              #t)))))
3578     (home-page "https://www.ctan.org/pkg/bigfoot")
3579     (synopsis "Footnotes for critical editions")
3580     (description
3581      "This package aims to provide a one-stop solution to requirements for
3582 footnotes.  It offers: Multiple footnote apparatus superior to that of
3583 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
3584 into a single paragraph (this choice may be selected per footnote series);
3585 Things you might have expected (such as @code{\\verb}-like material in
3586 footnotes, and color selections over page breaks) now work.  Note that the
3587 majority of the bigfoot package's interface is identical to that of
3588 @code{manyfoot}; users should seek information from that package's
3589 documentation.  The bigfoot bundle also provides the @code{perpage} and
3590 @code{suffix} packages.")
3591     (license license:gpl2+)))
3592
3593 (define-public texlive-latex-blindtext
3594   (package
3595     (name "texlive-latex-blindtext")
3596     (version (number->string %texlive-revision))
3597     (source (origin
3598               (method svn-fetch)
3599               (uri (texlive-ref "latex" "blindtext"))
3600               (file-name (string-append name "-" version "-checkout"))
3601               (sha256
3602                (base32
3603                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
3604     (build-system texlive-build-system)
3605     (arguments '(#:tex-directory "latex/blindtext"))
3606     (home-page "https://www.ctan.org/pkg/blindtext")
3607     (synopsis "Producing 'blind' text for testing")
3608     (description
3609      "The package provides the commands @code{\\blindtext} and
3610 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
3611 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
3612 an entire random document with sections, lists, mathematics, etc.  The package
3613 supports three languages, @code{english}, @code{(n)german} and @code{latin};
3614 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
3615 ipsum\" text, see the @code{lipsum} package).")
3616     (license license:lppl)))
3617
3618 (define-public texlive-latex-dinbrief
3619   (package
3620     (name "texlive-latex-dinbrief")
3621     (version (number->string %texlive-revision))
3622     (source (origin
3623               (method svn-fetch)
3624               (uri (texlive-ref "latex" "dinbrief"))
3625               (file-name (string-append name "-" version "-checkout"))
3626               (sha256
3627                (base32
3628                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
3629     (build-system texlive-build-system)
3630     (arguments
3631      '(#:tex-directory "latex/dinbrief"
3632        #:phases
3633        (modify-phases %standard-phases
3634          (add-after 'unpack 'remove-generated-file
3635            (lambda _
3636              (delete-file "dinbrief.drv")
3637              #t))
3638          (add-after 'unpack 'fix-encoding-error
3639            (lambda _
3640              (with-fluids ((%default-port-encoding "ISO-8859-1"))
3641                (substitute* "dinbrief.dtx"
3642                  (("zur Verf.+ung. In der Pr\"aambel")
3643                   "zur Verf\"ung. In der Pr\"aambel")))
3644              #t)))))
3645     (home-page "https://www.ctan.org/pkg/dinbrief")
3646     (synopsis "German letter DIN style")
3647     (description
3648      "This package implements a document layout for writing letters according
3649 to the rules of DIN (Deutsches Institut für Normung, German standardisation
3650 institute).  A style file for LaTeX 2.09 (with limited support of the
3651 features) is part of the package.  Since the letter layout is based on a
3652 German standard, the user guide is written in German, but most macros have
3653 English names from which the user can recognize what they are used for.  In
3654 addition there are example files showing how letters may be created with the
3655 package.")
3656     (license license:lppl)))
3657
3658 (define-public texlive-latex-draftwatermark
3659   (package
3660     (name "texlive-latex-draftwatermark")
3661     (version (number->string %texlive-revision))
3662     (source (origin
3663               (method svn-fetch)
3664               (uri (texlive-ref "latex" "draftwatermark"))
3665               (file-name (string-append name "-" version "-checkout"))
3666               (sha256
3667                (base32
3668                 "1zyl2pcz2x529gzj5m93a1s4ipymdabf7qdjl3l1673pizd4hfyv"))))
3669     (build-system texlive-build-system)
3670     (arguments '(#:tex-directory "latex/draftwatermark"))
3671     (home-page "https://www.ctan.org/pkg/draftwatermark")
3672     (synopsis "Put a grey textual watermark on document pages")
3673     (description
3674      "This package provides a means to add a textual, light grey watermark on
3675 every page or on the first page of a document.  Typical usage may consist in
3676 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
3677 package performs a similar function to that of @code{draftcopy}, but its
3678 implementation is output device independent, and made very simple by relying
3679 on everypage.")
3680     (license license:lppl1.3+)))
3681
3682 (define-public texlive-latex-environ
3683   (package
3684     (name "texlive-latex-environ")
3685     (version (number->string %texlive-revision))
3686     (source (origin
3687               (method svn-fetch)
3688               (uri (texlive-ref "latex" "environ"))
3689               (file-name (string-append name "-" version "-checkout"))
3690               (sha256
3691                (base32
3692                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
3693     (build-system texlive-build-system)
3694     (arguments '(#:tex-directory "latex/environ"))
3695     (home-page "https://www.ctan.org/pkg/environ")
3696     (synopsis "New interface for environments in LaTeX")
3697     (description
3698      "This package provides the @code{\\collect@@body} command (as in
3699 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
3700 for collecting the body text of an environment.  These commands are used to
3701 define a new author interface to creating new environments.")
3702     (license license:lppl)))
3703
3704 (define-public texlive-latex-eqparbox
3705   (package
3706     (name "texlive-latex-eqparbox")
3707     (version (number->string %texlive-revision))
3708     (source (origin
3709               (method svn-fetch)
3710               (uri (texlive-ref "latex" "eqparbox"))
3711               (file-name (string-append name "-" version "-checkout"))
3712               (sha256
3713                (base32
3714                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
3715     (build-system texlive-build-system)
3716     (arguments '(#:tex-directory "latex/eqparbox"))
3717     (home-page "https://www.ctan.org/pkg/eqparbox")
3718     (synopsis "Create equal-widthed parboxes")
3719     (description
3720      "LaTeX users sometimes need to ensure that two or more blocks of text
3721 occupy the same amount of horizontal space on the page.  To that end, the
3722 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
3723 just like @code{\\parbox}, except that instead of specifying a width, one
3724 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
3725 where they are in the document---will stretch to fit the widest
3726 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
3727 for a variety of alignment purposes, as is evidenced by the examples in
3728 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
3729 also provided.")
3730     (license license:lppl1.3+)))
3731
3732 (define-public texlive-latex-expdlist
3733   (package
3734     (name "texlive-latex-expdlist")
3735     (version (number->string %texlive-revision))
3736     (source (origin
3737               (method svn-fetch)
3738               (uri (texlive-ref "latex" "expdlist"))
3739               (file-name (string-append name "-" version "-checkout"))
3740               (sha256
3741                (base32
3742                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
3743     (build-system texlive-build-system)
3744     (arguments
3745      '(#:tex-directory "latex/expdlist"
3746        #:phases
3747        (modify-phases %standard-phases
3748          (add-after 'unpack 'remove-generated-file
3749            (lambda _
3750              (for-each delete-file
3751                        (find-files "." "\\.drv$"))
3752              #t)))))
3753     (home-page "https://www.ctan.org/pkg/expdlist")
3754     (synopsis "Expanded description environments")
3755     (description
3756      "The package provides additional features for the LaTeX
3757 @code{description} environment, including adjustable left margin.  The package
3758 also allows the user to \"break\" a list (for example, to interpose a comment)
3759 without affecting the structure of the list (this works for @code{itemize} and
3760 @code{enumerate} lists, and numbered lists remain in sequence).")
3761     (license license:lppl)))
3762
3763 (define-public texlive-filemod
3764   (package
3765     (inherit (simple-texlive-package
3766               "texlive-filemod"
3767               (list "/doc/latex/filemod/"
3768                     "/tex/latex/filemod/"
3769                     "/tex/generic/filemod/")
3770               (base32
3771                "1snsj7kblkj1ig3x3845lsypz7ab04lf0dcpdh946xakgjnz4fb5")
3772               #:trivial? #t))
3773     (home-page "https://www.ctan.org/pkg/filemod")
3774     (synopsis "Provide file modification times, and compare them")
3775     (description
3776      "This package provides macros to read and compare the modification dates
3777 of files.  The files may be @code{.tex} files, images or other files (as long
3778 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
3779 of pdfLaTeX to find the file modification date as PDF date string, parses the
3780 string and returns the value to the user.  The package will also work for DVI
3781 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
3782 mode.  The functionality is provided by purely expandable macros or by faster
3783 but non-expandable ones.")
3784     (license license:lppl1.3+)))
3785
3786 (define-public texlive-latex-filemod
3787   (deprecated-package "texlive-latex-filemod" texlive-filemod))
3788
3789 (define-public texlive-latex-ifplatform
3790   (package
3791     (name "texlive-latex-ifplatform")
3792     (version (number->string %texlive-revision))
3793     (source (origin
3794               (method svn-fetch)
3795               (uri (texlive-ref "latex" "ifplatform"))
3796               (file-name (string-append name "-" version "-checkout"))
3797               (sha256
3798                (base32
3799                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
3800     (build-system texlive-build-system)
3801     (arguments '(#:tex-directory "latex/ifplatform"))
3802     (home-page "https://www.ctan.org/pkg/ifplatform")
3803     (synopsis "Conditionals to test which platform is being used")
3804     (description
3805      "This package uses the (La)TeX extension @code{-shell-escape} to
3806 establish whether the document is being processed on a Windows or on a
3807 Unix-like system, or on Cygwin (Unix environment over a Windows system).
3808 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
3809 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
3810 on a Unix-like system, which may be used to distinguish between various
3811 classes of systems.")
3812     (license license:lppl)))
3813
3814 (define-public texlive-latex-natbib
3815   (package
3816     (name "texlive-latex-natbib")
3817     (version (number->string %texlive-revision))
3818     (source (origin
3819               (method svn-fetch)
3820               (uri (texlive-ref "latex" "natbib"))
3821               (file-name (string-append name "-" version "-checkout"))
3822               (sha256
3823                (base32
3824                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
3825     (build-system texlive-build-system)
3826     (arguments '(#:tex-directory "latex/natbib"))
3827     (home-page "https://www.ctan.org/pkg/natbib")
3828     (synopsis "Flexible bibliography support")
3829     (description
3830      "This bundle provides a package that implements both author-year and
3831 numbered references, as well as much detailed of support for other
3832 bibliography use.  Also provided are versions of the standard BibTeX styles
3833 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
3834 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
3835 designed from the start to be compatible with @code{natbib}.")
3836     (license license:lppl)))
3837
3838 (define-public texlive-latex-psfrag
3839   (package
3840     (name "texlive-latex-psfrag")
3841     (version (number->string %texlive-revision))
3842     (source (origin
3843               (method svn-fetch)
3844               (uri (texlive-ref "latex" "psfrag"))
3845               (file-name (string-append name "-" version "-checkout"))
3846               (sha256
3847                (base32
3848                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
3849     (build-system texlive-build-system)
3850     (arguments '(#:tex-directory "latex/psfrag"))
3851     (home-page "https://www.ctan.org/pkg/psfrag")
3852     (synopsis "Replace strings in encapsulated PostScript figures")
3853     (description
3854      "This package allows LaTeX constructions (equations, picture
3855 environments, etc.) to be precisely superimposed over Encapsulated PostScript
3856 figures, using your own favorite drawing tool to create an EPS figure and
3857 placing simple text \"tags\" where each replacement is to be placed, with
3858 PSfrag automatically removing these tags from the figure and replacing them
3859 with a user specified LaTeX construction, properly aligned, scaled, and/or
3860 rotated.")
3861     (license (license:fsf-free "file://psfrag.dtx"))))
3862
3863 (define-public texlive-pstool
3864   (package
3865     (inherit (simple-texlive-package
3866               "texlive-pstool"
3867               (list "/doc/latex/pstool/"
3868                     "/tex/latex/pstool/")
3869               (base32
3870                "12clzcw2cl7g2chr2phgmmiwxw4859cln1gbx1wgp8bl9iw590nc")
3871               #:trivial? #t))
3872     (propagated-inputs
3873      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
3874        ("texlive-latex-filemod" ,texlive-latex-filemod)
3875        ("texlive-latex-graphics" ,texlive-latex-graphics)
3876        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
3877        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
3878        ("texlive-latex-oberdiek" ,texlive-latex-oberdiek)
3879        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
3880        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
3881        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
3882        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
3883     (home-page "https://www.ctan.org/pkg/pstool")
3884     (synopsis "Process PostScript graphics within pdfLaTeX documents")
3885     (description
3886      "This is a package for processing PostScript graphics with @code{psfrag}
3887 labels within pdfLaTeX documents.  Every graphic is compiled individually,
3888 drastically speeding up compilation time when only a single figure needs
3889 re-processing.")
3890     (license license:lppl)))
3891
3892 (define-public texlive-latex-pstool
3893   (deprecated-package "texlive-latex-pstool" texlive-pstool))
3894
3895 (define-public texlive-seminar
3896   (package
3897     (inherit (simple-texlive-package
3898               "texlive-seminar"
3899               (list "/doc/latex/seminar/"
3900                     "/tex/latex/seminar/")
3901               (base32
3902                "1clgw5xy867khzfn8d210rc5hsw5s7r0pznhk84niybvw4zc7r3f")
3903               #:trivial? #t))
3904     (home-page "https://www.ctan.org/pkg/seminar")
3905     (synopsis "Make overhead slides")
3906     ;; TODO: This package may need fancybox and xcomment at runtime.
3907     (description
3908      "This package provides a class that produces overhead
3909 slides (transparencies), with many facilities.  Seminar is not nowadays
3910 reckoned a good basis for a presentation — users are advised to use more
3911 recent classes such as powerdot or beamer, both of which are tuned to
3912 21st-century presentation styles.")
3913     (license license:lppl1.2+)))
3914
3915 (define-public texlive-latex-seminar
3916   (deprecated-package "texlive-latex-seminar" texlive-seminar))
3917
3918 (define-public texlive-latex-trimspaces
3919   (package
3920     (name "texlive-latex-trimspaces")
3921     (version (number->string %texlive-revision))
3922     (source (origin
3923               (method svn-fetch)
3924               (uri (texlive-ref "latex" "trimspaces"))
3925               (file-name (string-append name "-" version "-checkout"))
3926               (sha256
3927                (base32
3928                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
3929     (build-system texlive-build-system)
3930     (arguments
3931      '(#:tex-directory "latex/trimspaces"
3932        #:tex-format "latex"
3933        #:phases
3934        (modify-phases %standard-phases
3935          (add-after 'unpack 'fix-bug
3936            (lambda _
3937              ;; The "ins" file refers to the wrong source file.
3938              (substitute* "trimspaces.ins"
3939                (("pstool.tex") "trimspaces.tex"))
3940              #t)))))
3941     (inputs
3942      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
3943     (home-page "https://www.ctan.org/pkg/trimspaces")
3944     (synopsis "Trim spaces around an argument or within a macro")
3945     (description
3946      "This very short package allows you to expandably remove spaces around a
3947 token list (commands are provided to remove spaces before, spaces after, or
3948 both); or to remove surrounding spaces within a macro definition, or to define
3949 space-stripped macros.")
3950     (license license:lppl)))
3951
3952 (define-public texlive-latex-capt-of
3953   (package
3954     (name "texlive-latex-capt-of")
3955     (version (number->string %texlive-revision))
3956     (source (origin
3957               (method svn-fetch)
3958               (uri (svn-reference
3959                     (url (string-append "svn://www.tug.org/texlive/tags/"
3960                                         %texlive-tag "/Master/texmf-dist/"
3961                                         "/tex/latex/capt-of"))
3962                     (revision %texlive-revision)))
3963               (file-name (string-append name "-" version "-checkout"))
3964               (sha256
3965                (base32
3966                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
3967     (build-system trivial-build-system)
3968     (arguments
3969      `(#:modules ((guix build utils))
3970        #:builder
3971        (begin
3972          (use-modules (guix build utils))
3973          (let ((target (string-append (assoc-ref %outputs "out")
3974                                       "/share/texmf-dist/tex/latex/capt-of")))
3975            (mkdir-p target)
3976            (copy-recursively (assoc-ref %build-inputs "source") target)
3977            #t))))
3978     (home-page "https://www.ctan.org/pkg/capt-of")
3979     (synopsis "Captions on more than floats")
3980     (description
3981      "This package defines a command @code{\\captionof} for putting a caption
3982 to something that's not a float.")
3983     (license license:lppl)))
3984
3985 (define-public texlive-doi
3986   (package
3987     (inherit (simple-texlive-package
3988               "texlive-doi"
3989               (list "/doc/latex/doi/README.md"
3990                     "/tex/latex/doi/")
3991               (base32
3992                "18z9922lqb3hliqn95h883fndqs4lgyi5yqbnq2932ya0imc3j7h")
3993               #:trivial? #t))
3994     (home-page "https://www.ctan.org/pkg/doi")
3995     (synopsis "Create correct hyperlinks for DOI numbers")
3996     (description
3997      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
3998 elected to use nasty characters in their DOI numbering scheme (@code{<},
3999 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
4000 upset LaTeX, or your PDF reader.  This package contains a single user-level
4001 command @code{\\doi{}}, which takes a DOI number, and creates a correct
4002 hyperlink to the target of the DOI.")
4003     ;; Any version of the LPPL.
4004     (license license:lppl1.3+)))
4005
4006 (define-public texlive-latex-doi
4007   (deprecated-package "texlive-latex-doi" texlive-doi))
4008
4009 (define-public texlive-etoolbox
4010   (package
4011     (inherit (simple-texlive-package
4012               "texlive-etoolbox"
4013               (list "/doc/latex/etoolbox/"
4014                     "/tex/latex/etoolbox/")
4015               (base32
4016                "1cc1vw1ach55g4ff4x30by8k1mg01w199ccxvn72f5khlnnxial0")
4017               #:trivial? #t))
4018     (home-page "https://www.ctan.org/pkg/etoolbox")
4019     (synopsis "e-TeX tools for LaTeX")
4020     (description
4021      "This package is a toolbox of programming facilities geared primarily
4022 towards LaTeX class and package authors.  It provides LaTeX frontends to some
4023 of the new primitives provided by e-TeX as well as some generic tools which
4024 are not strictly related to e-TeX but match the profile of this package.  The
4025 package provides functions that seem to offer alternative ways of implementing
4026 some LaTeX kernel commands; nevertheless, the package will not modify any part
4027 of the LaTeX kernel.")
4028     (license license:lppl1.3+)))
4029
4030 (define-public texlive-latex-etoolbox
4031   (deprecated-package "texlive-latex-etoolbox" texlive-etoolbox))
4032
4033 (define-public texlive-latex-fncychap
4034   (package
4035     (name "texlive-latex-fncychap")
4036     (version (number->string %texlive-revision))
4037     (source (origin
4038               (method svn-fetch)
4039               (uri (svn-reference
4040                     (url (string-append "svn://www.tug.org/texlive/tags/"
4041                                         %texlive-tag "/Master/texmf-dist/"
4042                                         "/tex/latex/fncychap"))
4043                     (revision %texlive-revision)))
4044               (file-name (string-append name "-" version "-checkout"))
4045               (sha256
4046                (base32
4047                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
4048     (build-system trivial-build-system)
4049     (arguments
4050      `(#:modules ((guix build utils))
4051        #:builder
4052        (begin
4053          (use-modules (guix build utils))
4054          (let ((target (string-append (assoc-ref %outputs "out")
4055                                       "/share/texmf-dist/tex/latex/fncychap")))
4056            (mkdir-p target)
4057            (copy-recursively (assoc-ref %build-inputs "source") target)
4058            #t))))
4059     (home-page "https://www.ctan.org/pkg/fncychap")
4060     (synopsis "Seven predefined chapter heading styles")
4061     (description
4062      "This package provides seven predefined chapter heading styles.  Each
4063 style can be modified using a set of simple commands.  Optionally one can
4064 modify the formatting routines in order to create additional chapter
4065 headings.")
4066     (license license:lppl1.3+)))
4067
4068 (define-public texlive-latex-framed
4069   (package
4070     (name "texlive-latex-framed")
4071     (version (number->string %texlive-revision))
4072     (source (origin
4073               (method svn-fetch)
4074               (uri (svn-reference
4075                     (url (string-append "svn://www.tug.org/texlive/tags/"
4076                                         %texlive-tag "/Master/texmf-dist/"
4077                                         "/tex/latex/framed"))
4078                     (revision %texlive-revision)))
4079               (file-name (string-append name "-" version "-checkout"))
4080               (sha256
4081                (base32
4082                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4083     (build-system trivial-build-system)
4084     (arguments
4085      `(#:modules ((guix build utils))
4086        #:builder
4087        (begin
4088          (use-modules (guix build utils))
4089          (let ((target (string-append (assoc-ref %outputs "out")
4090                                       "/share/texmf-dist/tex/latex/framed")))
4091            (mkdir-p target)
4092            (copy-recursively (assoc-ref %build-inputs "source") target)
4093            #t))))
4094     (home-page "https://www.ctan.org/pkg/framed")
4095     (synopsis "Framed or shaded regions that can break across pages")
4096     (description
4097      "The package creates three environments: @code{framed}, which puts an
4098 ordinary frame box around the region, @code{shaded}, which shades the region,
4099 and @code{leftbar}, which places a line at the left side.  The environments
4100 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4101 title that is “attached” to the environment); breaks are also allowed in the
4102 course of the framed/shaded matter.  There is also a command
4103 @code{\\MakeFramed} to make your own framed-style environments.")
4104     ;; The header states: "These macros may be freely transmitted, reproduced,
4105     ;; or modified for any purpose provided that this notice is left intact."
4106     (license (license:fsf-free "file://framed.sty"))))
4107
4108 (define-public texlive-latex-g-brief
4109   (package
4110     (name "texlive-latex-g-brief")
4111     (version (number->string %texlive-revision))
4112     (source (origin
4113               (method svn-fetch)
4114               (uri (texlive-ref "latex" "g-brief"))
4115               (file-name (string-append name "-" version "-checkout"))
4116               (sha256
4117                (base32
4118                 "1br4kv9y17cvngp83ykpvy7gy3jqfan5plk7sggcgbdfhndi5dsr"))))
4119     (build-system texlive-build-system)
4120     (arguments
4121      '(#:tex-directory "latex/g-brief"
4122        #:phases
4123        (modify-phases %standard-phases
4124          (add-after 'unpack 'remove-generated-file
4125            (lambda _
4126              (delete-file "g-brief.drv")
4127              #t)))))
4128     (home-page "https://www.ctan.org/pkg/g-brief")
4129     (synopsis "Letter document class")
4130     (description
4131      "This package is designed for formatting formless letters in German; it
4132 can also be used for English (by those who can read the documentation).  There
4133 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4134 \"old\" and a \"new\" version of g-brief.")
4135     (license license:lppl)))
4136
4137 (define-public texlive-latex-galois
4138   (package
4139     (name "texlive-latex-galois")
4140     (version (number->string %texlive-revision))
4141     (source (origin
4142               (method svn-fetch)
4143               (uri (texlive-ref "latex" "galois"))
4144               (file-name (string-append name "-" version "-checkout"))
4145               (sha256
4146                (base32
4147                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4148     (build-system texlive-build-system)
4149     (arguments '(#:tex-directory "latex/galois"))
4150     (home-page "https://www.ctan.org/pkg/galois")
4151     (synopsis "Typeset Galois connections")
4152     (description
4153      "The package deals with connections in two-dimensional style, optionally
4154 in colour.")
4155     (license license:lppl)))
4156
4157 (define-public texlive-latex-gcite
4158   (package
4159     (name "texlive-latex-gcite")
4160     (version (number->string %texlive-revision))
4161     (source (origin
4162               (method svn-fetch)
4163               (uri (texlive-ref "latex" "gcite"))
4164               (file-name (string-append name "-" version "-checkout"))
4165               (sha256
4166                (base32
4167                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4168     (build-system texlive-build-system)
4169     (arguments '(#:tex-directory "latex/gcite"))
4170     (home-page "https://www.ctan.org/pkg/gcite")
4171     (synopsis "Citations in a reader-friendly style")
4172     (description
4173      "The package allows citations in the German style, which is considered by
4174 many to be particularly reader-friendly.  The citation provides a small amount
4175 of bibliographic information in a footnote on the page where each citation is
4176 made.  It combines a desire to eliminate unnecessary page-turning with the
4177 look-up efficiency afforded by numeric citations.  The package makes use of
4178 BibLaTeX, and is considered experimental.")
4179     (license license:lppl1.3+)))
4180
4181 (define-public texlive-latex-geometry
4182   (package
4183     (name "texlive-latex-geometry")
4184     (version (number->string %texlive-revision))
4185     (source (origin
4186               (method svn-fetch)
4187               (uri (texlive-ref "latex" "geometry"))
4188               (file-name (string-append name "-" version "-checkout"))
4189               (sha256
4190                (base32
4191                 "0a8f38c2ds1flxcr0apdpyaaz3k6fyalz6dkbrmcv9srjc40mh3n"))))
4192     (build-system texlive-build-system)
4193     (arguments '(#:tex-directory "latex/geometry"))
4194     (propagated-inputs
4195      `(("texlive-latex-oberdiek" ,texlive-latex-oberdiek))) ;for ifpdf
4196     (home-page "https://www.ctan.org/pkg/geometry")
4197     (synopsis "Flexible and complete interface to document dimensions")
4198     (description
4199      "This package provides an easy and flexible user interface to customize
4200 page layout, implementing auto-centering and auto-balancing mechanisms so that
4201 the users have only to give the least description for the page layout.  The
4202 package knows about all the standard paper sizes, so that the user need not
4203 know what the nominal \"real\" dimensions of the paper are, just its standard
4204 name (such as a4, letter, etc.).  An important feature is the package's
4205 ability to communicate the paper size it's set up to the output.")
4206     (license license:lppl)))
4207
4208 (define-public texlive-latex-mdwtools
4209   (package
4210     (name "texlive-latex-mdwtools")
4211     (version (number->string %texlive-revision))
4212     (source (origin
4213               (method svn-fetch)
4214               (uri (texlive-ref "latex" "mdwtools"))
4215               (file-name (string-append name "-" version "-checkout"))
4216               (sha256
4217                (base32
4218                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4219     (build-system texlive-build-system)
4220     (arguments '(#:tex-directory "latex/mdwtools"))
4221     (home-page "https://www.ctan.org/pkg/mdwtools")
4222     (synopsis "Miscellaneous tools by Mark Wooding")
4223     (description
4224      "This collection of tools includes: @code{atsupport} for short commands
4225 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4226 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4227 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4228 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4229 array environments; verbatim handling; and syntax diagrams.")
4230     (license license:gpl3+)))
4231
4232 (define-public texlive-latex-polyglossia
4233   (package
4234     (name "texlive-latex-polyglossia")
4235     (version (number->string %texlive-revision))
4236     (source (origin
4237               (method svn-fetch)
4238               (uri (texlive-ref "latex" "polyglossia"))
4239               (file-name (string-append name "-" version "-checkout"))
4240               (sha256
4241                (base32
4242                 "0na7v4hsyx5s67cpjj2dbnq8j67k8lln6b19hmj631gfs27slss1"))))
4243     (build-system texlive-build-system)
4244     (arguments '(#:tex-directory "latex/polyglossia"))
4245     (home-page "https://www.ctan.org/pkg/polyglossia")
4246     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4247     (description
4248      "This package provides a complete Babel replacement for users of LuaLaTeX
4249 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4250     (license license:lppl1.3+)))
4251
4252 (define-public texlive-latex-supertabular
4253   (package
4254     (name "texlive-latex-supertabular")
4255     (version (number->string %texlive-revision))
4256     (source (origin
4257               (method svn-fetch)
4258               (uri (texlive-ref "latex" "supertabular"))
4259               (file-name (string-append name "-" version "-checkout"))
4260               (sha256
4261                (base32
4262                 "14b2bc7cqz4ckxxycim9sw6jkrr1pahivm1rdbpz5k6hl967w1s3"))))
4263     (build-system texlive-build-system)
4264     (arguments '(#:tex-directory "latex/supertabular"))
4265     (home-page "https://www.ctan.org/pkg/supertabular")
4266     (synopsis "Multi-page tables package")
4267     (description
4268      "This package was a predecessor of @code{longtable}; the newer
4269 package (designed on quite different principles) is easier to use and more
4270 flexible, in many cases, but supertabular retains its usefulness in a few
4271 situations where longtable has problems.")
4272     (license license:lppl1.3+)))
4273
4274 (define-public texlive-tex-texinfo
4275   (package
4276     (name "texlive-tex-texinfo")
4277     (version (number->string %texlive-revision))
4278     (source (origin
4279               (method svn-fetch)
4280               (uri (svn-reference
4281                     (url (string-append "svn://www.tug.org/texlive/tags/"
4282                                         %texlive-tag "/Master/texmf-dist/"
4283                                         "/tex/texinfo"))
4284                     (revision %texlive-revision)))
4285               (file-name (string-append name "-" version "-checkout"))
4286               (sha256
4287                (base32
4288                 "16jy02m089m7n6v9vbfi4xjgngc1fnvsmmppk8axfwzbhdky3c9c"))))
4289     (build-system trivial-build-system)
4290     (arguments
4291      `(#:modules ((guix build utils))
4292        #:builder
4293        (begin
4294          (use-modules (guix build utils))
4295          (let ((target (string-append (assoc-ref %outputs "out")
4296                                       "/share/texmf-dist/tex/texinfo")))
4297            (mkdir-p target)
4298            (copy-recursively (assoc-ref %build-inputs "source") target)
4299            #t))))
4300     (home-page "https://www.ctan.org/pkg/texinfo")
4301     (synopsis "TeX macros to handle Texinfo files")
4302     (description
4303      "Texinfo is the preferred format for documentation in the GNU project;
4304 the format may be used to produce online or printed output from a single
4305 source.  The Texinfo macros may be used to produce printable output using TeX;
4306 other programs in the distribution offer online interactive use (with
4307 hypertext linkages in some cases).")
4308     (license license:gpl3+)))
4309
4310 (define-public texlive-latex-upquote
4311   (package
4312     (name "texlive-latex-upquote")
4313     (version (number->string %texlive-revision))
4314     (source (origin
4315               (method svn-fetch)
4316               (uri (texlive-ref "latex" "upquote"))
4317               (file-name (string-append name "-" version "-checkout"))
4318               (sha256
4319                (base32
4320                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
4321     (build-system texlive-build-system)
4322     (arguments '(#:tex-directory "latex/upquote"))
4323     (home-page "https://www.ctan.org/pkg/upquote")
4324     (synopsis "Show \"realistic\" quotes in verbatim")
4325     (description
4326      "Typewriter-style fonts are best for program listings, but Computer
4327 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
4328 single quotes.  Other fonts, and most programming languages, print @code{`} as
4329 a grave accent and @code{'} upright; @code{'} is used both to open and to
4330 close quoted strings.  The package switches the typewriter font to Computer
4331 Modern Typewriter in OT1 encoding, and modifies the behaviour of
4332 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
4333 in the expected way.  It does this regardless of other fonts or encodings in
4334 use, so long as the package is loaded after the other fonts were.  The package
4335 does not affect @code{\\tt}, @code{\\texttt}, etc.")
4336     (license license:lppl1.2+)))
4337
4338 (define-public texlive-latex-anysize
4339   (package
4340     (name "texlive-latex-anysize")
4341     (version (number->string %texlive-revision))
4342     (source (origin
4343               (method svn-fetch)
4344               (uri (svn-reference
4345                     (url (string-append "svn://www.tug.org/texlive/tags/"
4346                                         %texlive-tag "/Master/texmf-dist/"
4347                                         "/tex/latex/anysize"))
4348                     (revision %texlive-revision)))
4349               (file-name (string-append name "-" version "-checkout"))
4350               (sha256
4351                (base32
4352                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
4353     (build-system trivial-build-system)
4354     (arguments
4355      `(#:modules ((guix build utils))
4356        #:builder
4357        (begin
4358          (use-modules (guix build utils))
4359          (let ((target (string-append (assoc-ref %outputs "out")
4360                                       "/share/texmf-dist/tex/latex/anysize")))
4361            (mkdir-p target)
4362            (copy-recursively (assoc-ref %build-inputs "source") target)
4363            #t))))
4364     (home-page "https://www.ctan.org/pkg/anysize")
4365     (synopsis "Simple package to set up document margins")
4366     (description
4367      "This is a simple package to set up document margins.  This package is
4368 considered obsolete; alternatives are the @code{typearea} package from the
4369 @code{koma-script} bundle, or the @code{geometry} package.")
4370     (license license:public-domain)))
4371
4372 (define-public texlive-latex-appendix
4373   (package
4374     (name "texlive-latex-appendix")
4375     (version (number->string %texlive-revision))
4376     (source (origin
4377               (method svn-fetch)
4378               (uri (texlive-ref "latex" "appendix"))
4379               (file-name (string-append name "-" version "-checkout"))
4380               (sha256
4381                (base32
4382                 "0rxfpr8vq3brwx5rc7qn91ixlp9zva4zrms8a579fqa1g5yva7vg"))))
4383     (build-system texlive-build-system)
4384     (arguments '(#:tex-directory "latex/appendix"))
4385     (home-page "https://www.ctan.org/pkg/appendix")
4386     (synopsis "Extra control of appendices")
4387     (description
4388      "The appendix package provides various ways of formatting the titles of
4389 appendices.  Also (sub)appendices environments are provided that can be used,
4390 for example, for per chapter/section appendices.  An @code{appendices}
4391 environment is provided which can be used instead of the @code{\\appendix}
4392 command.")
4393     (license license:lppl)))
4394
4395 (define-public texlive-latex-changebar
4396   (package
4397     (name "texlive-latex-changebar")
4398     (version (number->string %texlive-revision))
4399     (source (origin
4400               (method svn-fetch)
4401               (uri (texlive-ref "latex" "changebar"))
4402               (file-name (string-append name "-" version "-checkout"))
4403               (sha256
4404                (base32
4405                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
4406     (build-system texlive-build-system)
4407     (arguments '(#:tex-directory "latex/changebar"))
4408     (home-page "https://www.ctan.org/pkg/changebar")
4409     (synopsis "Generate changebars in LaTeX documents")
4410     (description
4411      "Identify areas of text to be marked with changebars with the
4412 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
4413 package uses @code{drivers} to place the bars; the available drivers can work
4414 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
4415 drivers, and VTeX and pdfTeX.")
4416     (license license:lppl)))
4417
4418 (define-public texlive-latex-cmap
4419   (package
4420     (name "texlive-latex-cmap")
4421     (version (number->string %texlive-revision))
4422     (source (origin
4423               (method svn-fetch)
4424               (uri (svn-reference
4425                     (url (string-append "svn://www.tug.org/texlive/tags/"
4426                                         %texlive-tag "/Master/texmf-dist/"
4427                                         "/tex/latex/cmap"))
4428                     (revision %texlive-revision)))
4429               (file-name (string-append name "-" version "-checkout"))
4430               (sha256
4431                (base32
4432                 "1s1rv6zgw105w2j6ffhnk914qrix87y1ndzri1q72g2kbr91zlbg"))))
4433     (build-system trivial-build-system)
4434     (arguments
4435      `(#:modules ((guix build utils))
4436        #:builder
4437        (begin
4438          (use-modules (guix build utils))
4439          (let ((target (string-append (assoc-ref %outputs "out")
4440                                       "/share/texmf-dist/tex/latex/cmap")))
4441            (mkdir-p target)
4442            (copy-recursively (assoc-ref %build-inputs "source") target)
4443            #t))))
4444     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
4445 Master/texmf-dist/tex/latex/cmap/")
4446     (synopsis "CMap support for PDF files")
4447     (description
4448      "This package embeds CMap tables into PDF files to make search and
4449 copy-and-paste functions work properly.")
4450     (license license:lppl)))
4451
4452 (define-public texlive-latex-colortbl
4453   (package
4454     (name "texlive-latex-colortbl")
4455     (version (number->string %texlive-revision))
4456     (source (origin
4457               (method svn-fetch)
4458               (uri (texlive-ref "latex" "colortbl"))
4459               (file-name (string-append name "-" version "-checkout"))
4460               (sha256
4461                (base32
4462                 "16vd99p01a0y30xr5yf1z2j5da9x8gy21vb30wk08jh31zffbaqj"))))
4463     (build-system texlive-build-system)
4464     (arguments '(#:tex-directory "latex/colortbl"))
4465     (home-page "https://www.ctan.org/pkg/colortbl")
4466     (synopsis "Add colour to LaTeX tables")
4467     (description
4468      "This package allows rows, columns, and even individual cells in LaTeX
4469 tables to be coloured.")
4470     (license license:lppl)))
4471
4472 (define-public texlive-latex-fancybox
4473   (package
4474     (name "texlive-latex-fancybox")
4475     (version (number->string %texlive-revision))
4476     (source (origin
4477               (method svn-fetch)
4478               (uri (svn-reference
4479                     (url (string-append "svn://www.tug.org/texlive/tags/"
4480                                         %texlive-tag "/Master/texmf-dist/"
4481                                         "/tex/latex/fancybox"))
4482                     (revision %texlive-revision)))
4483               (file-name (string-append name "-" version "-checkout"))
4484               (sha256
4485                (base32
4486                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
4487     (build-system trivial-build-system)
4488     (arguments
4489      `(#:modules ((guix build utils))
4490        #:builder
4491        (begin
4492          (use-modules (guix build utils))
4493          (let ((target (string-append (assoc-ref %outputs "out")
4494                                       "/share/texmf-dist/tex/latex/fancybox")))
4495            (mkdir-p target)
4496            (copy-recursively (assoc-ref %build-inputs "source") target)
4497            #t))))
4498     (home-page "https://www.ctan.org/pkg/fancybox")
4499     (synopsis "Variants of \\fbox and other games with boxes")
4500     (description
4501      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
4502 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
4503 using box macros and flexible verbatim macros.  You can box mathematics,
4504 floats, center, flushleft, and flushright, lists, and pages.")
4505     (license license:lppl1.2+)))
4506
4507 (define-public texlive-latex-fancyhdr
4508   (package
4509     (name "texlive-latex-fancyhdr")
4510     (version (number->string %texlive-revision))
4511     (source (origin
4512               (method svn-fetch)
4513               (uri (svn-reference
4514                     (url (string-append "svn://www.tug.org/texlive/tags/"
4515                                         %texlive-tag "/Master/texmf-dist/"
4516                                         "/tex/latex/fancyhdr"))
4517                     (revision %texlive-revision)))
4518               (file-name (string-append name "-" version "-checkout"))
4519               (sha256
4520                (base32
4521                 "0hrwspqkqfahxyzzsnjyrxlgxj06zw1f3636gx76pvl4xhvdj1cj"))))
4522     (build-system trivial-build-system)
4523     (arguments
4524      `(#:modules ((guix build utils))
4525        #:builder
4526        (begin
4527          (use-modules (guix build utils))
4528          (let ((target (string-append (assoc-ref %outputs "out")
4529                                       "/share/texmf-dist/tex/latex/fancyhdr")))
4530            (mkdir-p target)
4531            (copy-recursively (assoc-ref %build-inputs "source") target)
4532            #t))))
4533     (home-page "https://www.ctan.org/pkg/fancyhdr")
4534     (synopsis "Extensive control of page headers and footers in LaTeX2e")
4535     (description
4536      "The package provides extensive facilities, both for constructing headers
4537 and footers, and for controlling their use (for example, at times when LaTeX
4538 would automatically change the heading style in use).")
4539     (license license:lppl)))
4540
4541 (define-public texlive-latex-float
4542   (package
4543     (name "texlive-latex-float")
4544     (version (number->string %texlive-revision))
4545     (source (origin
4546               (method svn-fetch)
4547               (uri (texlive-ref "latex" "float"))
4548               (file-name (string-append name "-" version "-checkout"))
4549               (sha256
4550                (base32
4551                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
4552     (build-system texlive-build-system)
4553     (arguments '(#:tex-directory "latex/float"))
4554     (home-page "https://www.ctan.org/pkg/float")
4555     (synopsis "Improved interface for floating objects")
4556     (description
4557      "This package improves the interface for defining floating objects such
4558 as figures and tables.  It introduces the boxed float, the ruled float and the
4559 plaintop float.  You can define your own floats and improve the behaviour of
4560 the old ones.  The package also provides the @code{H} float modifier option of
4561 the obsolete @code{here} package.  You can select this as automatic default
4562 with @code{\\floatplacement{figure}{H}}.")
4563     (license license:lppl)))
4564
4565 (define-public texlive-latex-footmisc
4566   (package
4567     (name "texlive-latex-footmisc")
4568     (version (number->string %texlive-revision))
4569     (source (origin
4570               (method svn-fetch)
4571               (uri (texlive-ref "latex" "footmisc"))
4572               (file-name (string-append name "-" version "-checkout"))
4573               (sha256
4574                (base32
4575                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
4576     (build-system texlive-build-system)
4577     (arguments '(#:tex-directory "latex/footmisc"))
4578     (home-page "https://www.ctan.org/pkg/footmisc")
4579     (synopsis "Range of footnote options")
4580     (description
4581      "This is a collection of ways to change the typesetting of footnotes.
4582 The package provides means of changing the layout of the footnotes themselves,
4583 a way to number footnotes per page, to make footnotes disappear in a
4584 \"moving\" argument, and to deal with multiple references to footnotes from
4585 the same place.  The package also has a range of techniques for labelling
4586 footnotes with symbols rather than numbers.")
4587     (license license:lppl1.3+)))
4588
4589 (define-public texlive-latex-listings
4590   (package
4591     (name "texlive-latex-listings")
4592     (version (number->string %texlive-revision))
4593     (source (origin
4594               (method svn-fetch)
4595               (uri (texlive-ref "latex" "listings"))
4596               (file-name (string-append name "-" version "-checkout"))
4597               (sha256
4598                (base32
4599                 "1fbrhqj22vzakn30j71fc41l8nliqbv1dmxm0zlwi2qjjbq6fwav"))))
4600     (build-system texlive-build-system)
4601     (arguments
4602      '(#:tex-directory "latex/listings"
4603        #:build-targets '("listings.ins")))
4604     (home-page "https://www.ctan.org/pkg/listings")
4605     (synopsis "Typeset source code listings using LaTeX")
4606     (description
4607      "The package enables the user to typeset programs (programming code)
4608 within LaTeX; the source code is read directly by TeX---no front-end processor
4609 is needed.  Keywords, comments and strings can be typeset using different
4610 styles.  Support for @code{hyperref} is provided.")
4611     (license license:lppl1.3+)))
4612
4613 (define-public texlive-latex-jknapltx
4614   (package
4615     (name "texlive-latex-jknapltx")
4616     (version (number->string %texlive-revision))
4617     (source (origin
4618               (method svn-fetch)
4619               (uri (svn-reference
4620                     (url (string-append "svn://www.tug.org/texlive/tags/"
4621                                         %texlive-tag "/Master/texmf-dist/"
4622                                         "/tex/latex/jknapltx"))
4623                     (revision %texlive-revision)))
4624               (file-name (string-append name "-" version "-checkout"))
4625               (sha256
4626                (base32
4627                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
4628     (build-system trivial-build-system)
4629     (arguments
4630      `(#:modules ((guix build utils))
4631        #:builder
4632        (begin
4633          (use-modules (guix build utils))
4634          (let ((target (string-append (assoc-ref %outputs "out")
4635                                       "/share/texmf-dist/tex/latex/jknapltx")))
4636            (mkdir-p target)
4637            (copy-recursively (assoc-ref %build-inputs "source") target)
4638            #t))))
4639     (home-page "https://www.ctan.org/pkg/jknappen")
4640     (synopsis "Miscellaneous packages by Joerg Knappen")
4641     (description
4642      "This package provides miscellaneous macros by Joerg Knappen, including:
4643 represent counters in greek; Maxwell's non-commutative division;
4644 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
4645 @code{inputenc} definition files that allow verbatim input in the respective
4646 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
4647 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
4648 transliterate semitic languages; patches to make (La)TeX formulae embeddable
4649 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
4650     (license license:gpl2)))
4651
4652 (define-public texlive-fonts-ec
4653   (package
4654     (name "texlive-fonts-ec")
4655     (version (number->string %texlive-revision))
4656     (source (origin
4657               (method svn-fetch)
4658               (uri (svn-reference
4659                     (url (string-append "svn://www.tug.org/texlive/tags/"
4660                                         %texlive-tag "/Master/texmf-dist/"
4661                                         "/fonts/source/jknappen/ec/"))
4662                     (revision %texlive-revision)))
4663               (file-name (string-append name "-" version "-checkout"))
4664               (sha256
4665                (base32
4666                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
4667     (build-system gnu-build-system)
4668     (arguments
4669      `(#:modules ((guix build gnu-build-system)
4670                   (guix build utils)
4671                   (srfi srfi-1)
4672                   (srfi srfi-26))
4673        #:tests? #f                      ; no tests
4674        #:phases
4675        (modify-phases %standard-phases
4676          (delete 'configure)
4677          (replace 'build
4678            (lambda* (#:key inputs #:allow-other-keys)
4679              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
4680                ;; Tell mf where to find mf.base
4681                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
4682                ;; Tell mf where to look for source files
4683                (setenv "MFINPUTS"
4684                        (string-append (getcwd) ":"
4685                                       mf "/share/texmf-dist/metafont/base:"
4686                                       (assoc-ref inputs "texlive-cm")
4687                                       "/share/texmf-dist/fonts/source/public/cm")))
4688              (mkdir "build")
4689              (for-each (lambda (font)
4690                          (format #t "building font ~a\n" font)
4691                          (invoke "mf" "-progname=mf"
4692                                  "-output-directory=build"
4693                                  (string-append "\\"
4694                                                 "mode:=ljfour; "
4695                                                 "mag:=1; "
4696                                                 "batchmode; "
4697                                                 "input " (basename font ".mf"))))
4698                        (find-files "." "[0-9]+\\.mf$"))
4699              #t))
4700          (replace 'install
4701            (lambda* (#:key outputs #:allow-other-keys)
4702              (let* ((out (assoc-ref outputs "out"))
4703                     (tfm (string-append
4704                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
4705                     (mf  (string-append
4706                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
4707                (for-each (cut install-file <> tfm)
4708                          (find-files "build" "\\.*"))
4709                (for-each (cut install-file <> mf)
4710                          (find-files "." "\\.mf"))
4711                #t))))))
4712     (native-inputs
4713      `(("texlive-bin" ,texlive-bin)
4714        ("texlive-metafont-base" ,texlive-metafont-base)
4715        ("texlive-cm" ,texlive-cm)))
4716     (home-page "https://www.ctan.org/pkg/ec")
4717     (synopsis "Computer modern fonts in T1 and TS1 encodings")
4718     (description
4719      "The EC fonts are European Computer Modern Fonts, supporting the complete
4720 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
4721 These fonts are intended to be stable with no changes being made to the tfm
4722 files.  The set also contains a Text Companion Symbol font, called @code{tc},
4723 featuring many useful characters needed in text typesetting, for example
4724 oldstyle digits, currency symbols (including the newly created Euro symbol),
4725 the permille sign, copyright, trade mark and servicemark as well as a copyleft
4726 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
4727 EC fonts supersede the preliminary version released as the DC fonts.  The
4728 fonts are available in (traced) Adobe Type 1 format, as part of the
4729 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
4730 set, Latin Modern, is not actually a direct development of the EC set, and
4731 differs from the EC in a number of particulars.")
4732     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
4733 texlive-2019.3/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
4734
4735 ;; FIXME: the fonts should be built from source, but running "tex aefonts.tex"
4736 ;; fails with obscure TeX-typical error messages.
4737 (define-public texlive-ae
4738   (package
4739     (inherit (simple-texlive-package
4740               "texlive-ae"
4741               (list "/doc/fonts/ae/"
4742                     "/source/fonts/ae/"
4743                     "/fonts/tfm/public/ae/"
4744                     "/fonts/vf/public/ae/"
4745                     "/tex/latex/ae/")
4746               (base32
4747                "1xkzg381y0avdq381r2m990wp27czkdff0qkvsp2n5q62yc0bdsw")
4748               #:trivial? #t))
4749     (home-page "https://www.ctan.org/pkg/ae")
4750     (synopsis "Virtual fonts for T1 encoded CMR-fonts")
4751     (description
4752      "This package provides a set of virtual fonts which emulates T1 coded
4753 fonts using the standard CM fonts.  The package name, AE fonts, supposedly
4754 stands for \"Almost European\".  The main use of the package was to produce
4755 PDF files using Adobe Type 1 versions of the CM fonts instead of bitmapped EC
4756 fonts.  Note that direct substitutes for the bitmapped EC fonts are available,
4757 via the CM-super, Latin Modern and (in a restricted way) CM-LGC font sets.")
4758     (license license:lppl1.3+)))
4759
4760 (define-public texlive-times
4761   (package
4762     (inherit (simple-texlive-package
4763               "texlive-times"
4764               (list "/dvips/times/"
4765                     "/fonts/afm/adobe/times/"
4766                     "/fonts/afm/urw/times/"
4767                     "/fonts/tfm/adobe/times/"
4768                     "/fonts/tfm/urw35vf/times/"
4769                     "/fonts/type1/urw/times/"
4770                     "/fonts/vf/adobe/times/"
4771                     "/fonts/vf/urw35vf/times/"
4772                     "/fonts/map/dvips/times/"
4773                     "/tex/latex/times/")
4774               (base32
4775                "13g41a7vbkvsf7ki9dgl7qm100w382mnlqkcngwgl3axp6s5s8l0")
4776               #:trivial? #t))
4777     (home-page "https://ctan.org/pkg/urw-base35")
4778     (synopsis "URW Base 35 font pack for LaTeX")
4779     (description
4780      "This package provides a drop-in replacements for the Times font from
4781 Adobe's basic set.")
4782     ;; No license version specified.
4783     (license license:gpl3+)))
4784
4785 (define-public texlive-fonts-adobe-times
4786   (deprecated-package "texlive-fonts-adobe-times" texlive-times))
4787
4788 (define-public texlive-palatino
4789   (package
4790     (inherit (simple-texlive-package
4791               "texlive-palatino"
4792               (list "/dvips/palatino/"
4793                     "/fonts/afm/adobe/palatino/"
4794                     "/fonts/afm/urw/palatino/"
4795                     "/fonts/tfm/adobe/palatino/"
4796                     "/fonts/tfm/urw35vf/palatino/"
4797                     "/fonts/type1/urw/palatino/"
4798                     "/fonts/vf/adobe/palatino/"
4799                     "/fonts/vf/urw35vf/palatino/"
4800
4801                     "/fonts/map/dvips/palatino/"
4802                     "/tex/latex/palatino/")
4803               (base32
4804                "12jc0av7v99857jigmva47qaxyllhpzsnqis10n0qya2kz44xf22")
4805               #:trivial? #t))
4806     (home-page "https://ctan.org/pkg/urw-base35")
4807     (synopsis "URW Base 35 font pack for LaTeX")
4808     (description
4809      "This package provides a drop-in replacements for the Palatino font from
4810 Adobe's basic set.")
4811     ;; No license version specified.
4812     (license license:gpl3+)))
4813
4814 (define-public texlive-fonts-adobe-palatino
4815   (deprecated-package "texlive-fonts-adobe-palatino" texlive-palatino))
4816
4817 (define-public texlive-zapfding
4818   (package
4819     (inherit (simple-texlive-package
4820               "texlive-zapfding"
4821               (list "/dvips/zapfding/"
4822                     "/fonts/afm/adobe/zapfding/"
4823                     "/fonts/afm/urw/zapfding/"
4824                     "/fonts/tfm/adobe/zapfding/"
4825                     "/fonts/tfm/urw35vf/zapfding/"
4826                     "/fonts/type1/urw/zapfding/"
4827                     "/fonts/map/dvips/zapfding/"
4828                     "/tex/latex/zapfding/")
4829               (base32
4830                "17mls8wilz9api9ivsbcczpiqp1f39qy8wa6ajssi8zhnc5lq7zn")
4831               #:trivial? #t))
4832     (home-page "https://ctan.org/pkg/urw-base35")
4833     (synopsis "URW Base 35 font pack for LaTeX")
4834     (description
4835      "This package provides a drop-in replacements for the Zapfding font from
4836 Adobe's basic set.")
4837     ;; No license version specified.
4838     (license license:gpl3+)))
4839
4840 (define-public texlive-fonts-adobe-zapfding
4841   (deprecated-package "texlive-fonts-adobe-zapfding" texlive-zapfding))
4842
4843 (define-public texlive-fonts-rsfs
4844   (package
4845     (name "texlive-fonts-rsfs")
4846     (version (number->string %texlive-revision))
4847     (source (origin
4848               (method svn-fetch)
4849               (uri (svn-reference
4850                     (url (string-append "svn://www.tug.org/texlive/tags/"
4851                                         %texlive-tag "/Master/texmf-dist/"
4852                                         "/fonts/source/public/rsfs/"))
4853                     (revision %texlive-revision)))
4854               (file-name (string-append name "-" version "-checkout"))
4855               (sha256
4856                (base32
4857                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
4858     (build-system gnu-build-system)
4859     (arguments
4860      `(#:modules ((guix build gnu-build-system)
4861                   (guix build utils)
4862                   (srfi srfi-1)
4863                   (srfi srfi-26))
4864        #:tests? #f                      ; no tests
4865        #:phases
4866        (modify-phases %standard-phases
4867          (delete 'configure)
4868          (replace 'build
4869            (lambda* (#:key inputs #:allow-other-keys)
4870              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
4871                ;; Tell mf where to find mf.base
4872                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
4873                ;; Tell mf where to look for source files
4874                (setenv "MFINPUTS"
4875                        (string-append (getcwd) ":"
4876                                       mf "/share/texmf-dist/metafont/base:"
4877                                       (assoc-ref inputs "texlive-cm")
4878                                       "/share/texmf-dist/fonts/source/public/cm")))
4879              (mkdir "build")
4880              (for-each (lambda (font)
4881                          (format #t "building font ~a\n" font)
4882                          (invoke "mf" "-progname=mf"
4883                                  "-output-directory=build"
4884                                  (string-append "\\"
4885                                                 "mode:=ljfour; "
4886                                                 "mag:=1; "
4887                                                 "batchmode; "
4888                                                 "input " (basename font ".mf"))))
4889                        (find-files "." "[0-9]+\\.mf$"))
4890              #t))
4891          (replace 'install
4892            (lambda* (#:key outputs #:allow-other-keys)
4893              (let* ((out (assoc-ref outputs "out"))
4894                     (tfm (string-append
4895                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
4896                     (mf  (string-append
4897                           out "/share/texmf-dist/fonts/source/public/rsfs")))
4898                (for-each (cut install-file <> tfm)
4899                          (find-files "build" "\\.*"))
4900                (for-each (cut install-file <> mf)
4901                          (find-files "." "\\.mf"))
4902                #t))))))
4903     (native-inputs
4904      `(("texlive-bin" ,texlive-bin)
4905        ("texlive-metafont-base" ,texlive-metafont-base)
4906        ("texlive-cm" ,texlive-cm)))
4907     (home-page "https://www.ctan.org/pkg/rsfs")
4908     (synopsis "Ralph Smith's Formal Script font")
4909     (description
4910      "The fonts provide uppercase formal script letters for use as symbols in
4911 scientific and mathematical typesetting (in contrast to the informal script
4912 fonts such as that used for the calligraphic symbols in the TeX maths symbol
4913 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
4914 format.  LaTeX support, for using these fonts in mathematics, is available via
4915 one of the packages @code{calrsfs} and @code{mathrsfs}.")
4916     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
4917
4918 (define-public texlive-latex-eso-pic
4919   (package
4920     (name "texlive-latex-eso-pic")
4921     (version (number->string %texlive-revision))
4922     (source (origin
4923               (method svn-fetch)
4924               (uri (texlive-ref "latex" "eso-pic"))
4925               (file-name (string-append name "-" version "-checkout"))
4926               (sha256
4927                (base32
4928                 "0y2y08kr3w6asm9lblj9yywqmhaal36fq71zzcbfsc7cvwf641q7"))))
4929     (build-system texlive-build-system)
4930     (arguments '(#:tex-directory "latex/eso-pic"))
4931     (home-page "https://www.ctan.org/pkg/eso-pic")
4932     (synopsis "Add picture commands (or backgrounds) to every page")
4933     (description
4934      "The package adds one or more user commands to LaTeX's @code{shipout}
4935 routine, which may be used to place the output at fixed positions.  The
4936 @code{grid} option may be used to find the correct places.")
4937     (license license:lppl1.3+)))
4938
4939 (define-public texlive-latex-eepic
4940   (package
4941     (name "texlive-latex-eepic")
4942     (version (number->string %texlive-revision))
4943     (source (origin
4944               (method svn-fetch)
4945               (uri (svn-reference
4946                     (url (string-append "svn://www.tug.org/texlive/tags/"
4947                                         %texlive-tag "/Master/texmf-dist/"
4948                                         "/tex/latex/eepic"))
4949                     (revision %texlive-revision)))
4950               (file-name (string-append name "-" version "-checkout"))
4951               (sha256
4952                (base32
4953                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
4954     (build-system trivial-build-system)
4955     (arguments
4956      `(#:modules ((guix build utils))
4957        #:builder
4958        (begin
4959          (use-modules (guix build utils))
4960          (let ((target (string-append (assoc-ref %outputs "out")
4961                                       "/share/texmf-dist/tex/latex/eepic")))
4962            (mkdir-p target)
4963            (copy-recursively (assoc-ref %build-inputs "source") target)
4964            #t))))
4965     (home-page "https://www.ctan.org/pkg/eepic")
4966     (synopsis "Extensions to epic and the LaTeX drawing tools")
4967     (description
4968      "Extensions to @code{epic} and the LaTeX picture drawing environment,
4969 include the drawing of lines at any slope, the drawing of circles in any
4970 radii, and the drawing of dotted and dashed lines much faster with much less
4971 TeX memory, and providing several new commands for drawing ellipses, arcs,
4972 splines, and filled circles and ellipses.  The package uses @code{tpic}
4973 @code{\\special} commands.")
4974     (license license:public-domain)))
4975
4976 (define-public texlive-latex-enumitem
4977   (package
4978     (name "texlive-latex-enumitem")
4979     (version (number->string %texlive-revision))
4980     (source (origin
4981               (method svn-fetch)
4982               (uri (svn-reference
4983                     (url (string-append "svn://www.tug.org/texlive/tags/"
4984                                         %texlive-tag "/Master/texmf-dist/"
4985                                         "/tex/latex/enumitem"))
4986                     (revision %texlive-revision)))
4987               (file-name (string-append name "-" version "-checkout"))
4988               (sha256
4989                (base32
4990                 "1vm9xp67hzif0pqab4r3ialf0cyhi0fa4p8kxgp1ymcf85pqip14"))))
4991     (build-system trivial-build-system)
4992     (arguments
4993      `(#:modules ((guix build utils))
4994        #:builder
4995        (begin
4996          (use-modules (guix build utils))
4997          (let ((target (string-append (assoc-ref %outputs "out")
4998                                       "/share/texmf-dist/tex/latex/enumitem")))
4999            (mkdir-p target)
5000            (copy-recursively (assoc-ref %build-inputs "source") target)
5001            #t))))
5002     (home-page "https://www.ctan.org/pkg/enumitem")
5003     (synopsis "Customize basic list environments")
5004     (description
5005      "This package is intended to ease customizing the three basic list
5006 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5007 extends their syntax to allow an optional argument where a set of parameters
5008 in the form @code{key=value} are available, for example:
5009 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5010     (license license:lppl1.3+)))
5011
5012 (define-public texlive-latex-multirow
5013   (package
5014     (name "texlive-latex-multirow")
5015     (version (number->string %texlive-revision))
5016     (source (origin
5017               (method svn-fetch)
5018               (uri (texlive-ref "latex" "multirow"))
5019               (file-name (string-append name "-" version "-checkout"))
5020               (sha256
5021                (base32
5022                 "07vbcp6avdwldr870cwf65av2s9lfyzcpp8gpld53yw6lcxgaipj"))))
5023     (build-system texlive-build-system)
5024     (arguments '(#:tex-directory "latex/multirow"))
5025     (home-page "https://www.ctan.org/pkg/multirow")
5026     (synopsis "Create tabular cells spanning multiple rows")
5027     (description
5028      "The package provides tools for creating tabular cells spanning multiple
5029 rows.  It has a lot of flexibility, including an option for specifying an
5030 entry at the \"natural\" width of its text.")
5031     (license license:lppl1.3+)))
5032
5033 (define-public texlive-latex-overpic
5034   (package
5035     (name "texlive-latex-overpic")
5036     (version (number->string %texlive-revision))
5037     (source (origin
5038               (method svn-fetch)
5039               (uri (svn-reference
5040                     (url (string-append "svn://www.tug.org/texlive/tags/"
5041                                         %texlive-tag "/Master/texmf-dist/"
5042                                         "/tex/latex/overpic"))
5043                     (revision %texlive-revision)))
5044               (file-name (string-append name "-" version "-checkout"))
5045               (sha256
5046                (base32
5047                 "1pr6ym3ad7x14ng7gmhsmywh3685d2cnm5qgyrqbigng2r6fcc1k"))))
5048     (build-system trivial-build-system)
5049     (arguments
5050      `(#:modules ((guix build utils))
5051        #:builder
5052        (begin
5053          (use-modules (guix build utils))
5054          (let ((target (string-append (assoc-ref %outputs "out")
5055                                       "/share/texmf-dist/tex/latex/overpic")))
5056            (mkdir-p target)
5057            (copy-recursively (assoc-ref %build-inputs "source") target)
5058            #t))))
5059     (home-page "https://www.ctan.org/pkg/overpic")
5060     (synopsis "Combine LaTeX commands over included graphics")
5061     (description
5062      "The @code{overpic} environment is a cross between the LaTeX
5063 @code{picture} environment and the @code{\\includegraphics} command of
5064 @code{graphicx}.  The resulting picture environment has the same dimensions as
5065 the included graphic.  LaTeX commands can be placed on the graphic at defined
5066 positions; a grid for orientation is available.")
5067     (license license:lppl1.0+)))
5068
5069 (define-public texlive-latex-parskip
5070   (package
5071     (name "texlive-latex-parskip")
5072     (version (number->string %texlive-revision))
5073     (source (origin
5074               (method svn-fetch)
5075               (uri (svn-reference
5076                     (url (string-append "svn://www.tug.org/texlive/tags/"
5077                                         %texlive-tag "/Master/texmf-dist/"
5078                                         "/tex/latex/parskip"))
5079                     (revision %texlive-revision)))
5080               (file-name (string-append name "-" version "-checkout"))
5081               (sha256
5082                (base32
5083                 "0j1fhm1m9k6rz80lmch3x44g20y9nm4abaaf8czb0q8hzwlx5aq5"))))
5084     (build-system trivial-build-system)
5085     (arguments
5086      `(#:modules ((guix build utils))
5087        #:builder
5088        (begin
5089          (use-modules (guix build utils))
5090          (let ((target (string-append (assoc-ref %outputs "out")
5091                                       "/share/texmf-dist/tex/latex/parskip")))
5092            (mkdir-p target)
5093            (copy-recursively (assoc-ref %build-inputs "source") target)
5094            #t))))
5095     (home-page "https://www.ctan.org/pkg/parskip")
5096     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5097     (description
5098      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5099 that is untidy; this package (though it is no substitute for a properly
5100 designed class) helps alleviate this untidiness.")
5101     (license license:lppl)))
5102
5103 (define-public texlive-latex-pdfpages
5104   (package
5105     (name "texlive-latex-pdfpages")
5106     (version (number->string %texlive-revision))
5107     (source (origin
5108               (method svn-fetch)
5109               (uri (texlive-ref "latex" "pdfpages"))
5110               (file-name (string-append name "-" version "-checkout"))
5111               (sha256
5112                (base32
5113                 "0s4izcah7im67889qz4d26pcfpasmm35sj1rw4ragkkdk3rlbbbd"))))
5114     (build-system texlive-build-system)
5115     (arguments '(#:tex-directory "latex/pdfpages"))
5116     (home-page "https://www.ctan.org/pkg/pdfpages")
5117     (synopsis "Include PDF documents in LaTeX")
5118     (description
5119      "This package simplifies the inclusion of external multi-page PDF
5120 documents in LaTeX documents.  Pages may be freely selected and it is possible
5121 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5122 hypertext features like hyperlinks and article threads are provided.  The
5123 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5124 use this package to insert PostScript files, in addition to PDF files.")
5125     (license license:lppl1.3+)))
5126
5127 (define-public texlive-fonts-stmaryrd
5128   (package
5129     (name "texlive-fonts-stmaryrd")
5130     (version (number->string %texlive-revision))
5131     (source (origin
5132               (method svn-fetch)
5133               (uri (texlive-ref "fonts" "stmaryrd"))
5134               (file-name (string-append name "-" version "-checkout"))
5135               (sha256
5136                (base32
5137                 "08pn4ca3vl6qm9l3wm5h5iyjsrg411kkm1yana329xwg2j14s9n6"))))
5138     (build-system texlive-build-system)
5139     (arguments
5140      '(#:tex-directory "latex/stmaryrd"
5141        #:phases
5142        (modify-phases %standard-phases
5143          (add-after 'configure 'patch-ins
5144            (lambda _
5145              (substitute* "stmaryrd.ins"
5146                (("^%% LaTeX2e.*") "\\input docstrip\n")
5147                (("fontdef\\}\\}" line)
5148                 (string-append line "\n\\endbatchfile")))
5149              #t)))))
5150     (home-page "https://www.ctan.org/pkg/stmaryrd")
5151     (synopsis "St Mary Road symbols for theoretical computer science")
5152     (description
5153      "The fonts were originally distributed as Metafont sources only, but
5154 Adobe Type 1 versions are also now available.  Macro support is provided for
5155 use under LaTeX; the package supports the @code{only} option (provided by the
5156 @code{somedefs} package) to restrict what is loaded, for those who don't need
5157 the whole font.")
5158     (license license:lppl)))
5159
5160 (define-public texlive-latex-subfigure
5161   (package
5162     (name "texlive-latex-subfigure")
5163     (version (number->string %texlive-revision))
5164     (source (origin
5165               (method svn-fetch)
5166               (uri (texlive-ref "latex" "subfigure"))
5167               (file-name (string-append name "-" version "-checkout"))
5168               (sha256
5169                (base32
5170                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5171     (build-system texlive-build-system)
5172     (arguments '(#:tex-directory "latex/subfigure"))
5173     (home-page "https://www.ctan.org/pkg/subfigure")
5174     (synopsis "Figures divided into subfigures")
5175     (description
5176      "This (deprecated) package provides support for the manipulation and
5177 reference of small or \"sub\" figures and tables within a single figure or
5178 table environment.  It is convenient to use this package when your subfigures
5179 are to be separately captioned, referenced, or are to be included in the
5180 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
5181 used inside a figure environment for each subfigure.  An optional first
5182 argument is used as the caption for that subfigure.  The package is now
5183 considered obsolete: it was superseded by @code{subfig}, but users may find
5184 the more recent @code{subcaption} package more satisfactory.")
5185     (license license:lppl)))
5186
5187 (define-public texlive-latex-tabulary
5188   (package
5189     (name "texlive-latex-tabulary")
5190     (version (number->string %texlive-revision))
5191     (source (origin
5192               (method svn-fetch)
5193               (uri (texlive-ref "latex" "tabulary"))
5194               (file-name (string-append name "-" version "-checkout"))
5195               (sha256
5196                (base32
5197                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
5198     (build-system texlive-build-system)
5199     (arguments '(#:tex-directory "latex/tabulary"))
5200     (home-page "https://www.ctan.org/pkg/tabulary")
5201     (synopsis "Tabular with variable width columns balanced")
5202     (description
5203      "The package defines a @code{tabular*}-like environment, @code{tabulary},
5204 taking a \"total width\" argument as well as the column specifications.  The
5205 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
5206 variable width columns (@code{\\raggedright}, @code{\\centering},
5207 @code{\\raggedleft}, and normally justified).  In contrast to
5208 @code{tabularx}'s @code{X} columns, the width of each column is weighted
5209 according to the natural width of the widest cell in the column.")
5210     (license license:lppl)))
5211
5212 (define-public texlive-latex-threeparttable
5213   (package
5214     (name "texlive-latex-threeparttable")
5215     (version (number->string %texlive-revision))
5216     (source (origin
5217               (method svn-fetch)
5218               (uri (svn-reference
5219                     (url (string-append "svn://www.tug.org/texlive/tags/"
5220                                         %texlive-tag "/Master/texmf-dist/"
5221                                         "/tex/latex/threeparttable"))
5222                     (revision %texlive-revision)))
5223               (file-name (string-append name "-" version "-checkout"))
5224               (sha256
5225                (base32
5226                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
5227     (build-system trivial-build-system)
5228     (arguments
5229      `(#:modules ((guix build utils))
5230        #:builder
5231        (begin
5232          (use-modules (guix build utils))
5233          (let ((target (string-append (assoc-ref %outputs "out")
5234                                       "/share/texmf-dist/tex/latex/threeparttable")))
5235            (mkdir-p target)
5236            (copy-recursively (assoc-ref %build-inputs "source") target)
5237            #t))))
5238     (home-page "https://www.ctan.org/pkg/threeparttable")
5239     (synopsis "Tables with captions and notes all the same width")
5240     (description
5241      "This package facilitates tables with titles (captions) and notes.  The
5242 title and notes are given a width equal to the body of the table (a
5243 @code{tabular} environment).  By itself, a @code{threeparttable} does not
5244 float, but you can put it in a @code{table} or a @code{table*} or some other
5245 environment.")
5246     (license (license:fsf-free "file://threeparttable.sty"))))
5247
5248 (define-public texlive-txfonts
5249   (package
5250     (inherit (simple-texlive-package
5251               "texlive-txfonts"
5252               (list "/doc/fonts/txfonts/"
5253
5254                     "/fonts/afm/public/txfonts/"
5255                     "/fonts/tfm/public/txfonts/"
5256                     "/fonts/type1/public/txfonts/"
5257                     "/fonts/vf/public/txfonts/"
5258
5259                     "/fonts/map/dvips/txfonts/"
5260                     "/fonts/enc/dvips/txfonts/"
5261                     "/tex/latex/txfonts/")
5262               (base32
5263                "017zjas5y1zlyq0iy4x6mv1qbz23xcy3y5xs0crj6zdnfvnccqgp")
5264               #:trivial? #t))
5265     (home-page "https://www.ctan.org/pkg/txfonts")
5266     (synopsis "Times-like fonts in support of mathematics")
5267     (description
5268      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
5269 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
5270 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
5271 providing all the symbols of the Computer Modern and AMS fonts, including all
5272 the Greek capital letters from CMR; and additional maths fonts of various
5273 other symbols.
5274
5275 The set is complemented by a sans-serif set of text fonts, based on
5276 Helvetica/NimbusSanL, and a monospace set.
5277
5278 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
5279 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
5280     ;; Any version of the GPL with font exception.
5281     (license license:gpl3+)))
5282
5283 (define-public texlive-fonts-txfonts
5284   (deprecated-package "texlive-fonts-txfonts" texlive-txfonts))
5285
5286 (define-public texlive-fonts-iwona
5287   (package
5288     (name "texlive-fonts-iwona")
5289     (version "0.995b")
5290     (source (origin
5291               (method url-fetch)
5292               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
5293                                   (string-map (lambda (c)
5294                                                 (if (char=? c #\.)
5295                                                     #\_ c))
5296                                               version)
5297                                   ".zip"))
5298               (sha256
5299                (base32
5300                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
5301     (build-system trivial-build-system)
5302     (arguments
5303      `(#:modules ((guix build utils))
5304        #:builder
5305        (begin
5306          (use-modules (guix build utils))
5307          (let ((target (string-append (assoc-ref %outputs "out")
5308                                       "/share/texmf-dist/"))
5309                (unzip  (string-append (assoc-ref %build-inputs "unzip")
5310                                       "/bin/unzip")))
5311            (invoke unzip (assoc-ref %build-inputs "source"))
5312            (mkdir-p target)
5313            (copy-recursively "iwona" target)
5314            #t))))
5315     (native-inputs
5316      `(("unzip" ,unzip)))
5317     (home-page "http://jmn.pl/en/kurier-i-iwona/")
5318     (synopsis "Sans-serif typeface for TeX")
5319     (description "Iwona is a two-element sans-serif typeface. It was created
5320 as an alternative version of the Kurier typeface, which was designed in 1975
5321 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
5322 supervision of Roman Tomaszewski.  Kurier was designed for linotype
5323 typesetting of newspapers and similar periodicals.  The Iwona fonts are an
5324 alternative version of the Kurier fonts.  The difference lies in the absence
5325 of ink traps which typify the Kurier font.")
5326     (license license:gfl1.0)))
5327
5328 (define-public texlive-latex-titlesec
5329   (package
5330     (name "texlive-latex-titlesec")
5331     (version (number->string %texlive-revision))
5332     (source (origin
5333               (method svn-fetch)
5334               (uri (svn-reference
5335                     (url (string-append "svn://www.tug.org/texlive/tags/"
5336                                         %texlive-tag "/Master/texmf-dist/"
5337                                         "/tex/latex/titlesec"))
5338                     (revision %texlive-revision)))
5339               (file-name (string-append name "-" version "-checkout"))
5340               (sha256
5341                (base32
5342                 "04nmkhqx6jxcxx9a30zbcd5smxi5fd0cbp132bki7fnvhspnhg21"))))
5343     (build-system trivial-build-system)
5344     (arguments
5345      `(#:modules ((guix build utils))
5346        #:builder
5347        (begin
5348          (use-modules (guix build utils))
5349          (let ((target (string-append (assoc-ref %outputs "out")
5350                                       "/share/texmf-dist/tex/latex/titlesec")))
5351            (mkdir-p target)
5352            (copy-recursively (assoc-ref %build-inputs "source") target)
5353            #t))))
5354     (home-page "https://www.ctan.org/pkg/titlesec")
5355     (synopsis "Select alternative section titles")
5356     (description
5357      "This package provides an interface to sectioning commands for selection
5358 from various title styles, e.g. for marginal titles and to change the font of
5359 all headings with a single command, also providing simple one-step page
5360 styles.  It also includes a package to change the page styles when there are
5361 floats in a page.  You may assign headers/footers to individual floats, too.")
5362     (license license:lppl)))
5363
5364 (define-public texlive-latex-type1cm
5365   (package
5366     (name "texlive-latex-type1cm")
5367     (version (number->string %texlive-revision))
5368     (source (origin
5369               (method svn-fetch)
5370               (uri (texlive-ref "latex" "type1cm"))
5371               (file-name (string-append name "-" version "-checkout"))
5372               (sha256
5373                (base32
5374                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
5375     (build-system texlive-build-system)
5376     (arguments '(#:tex-directory "latex/type1cm"))
5377     (home-page "https://www.ctan.org/pkg/type1cm")
5378     (synopsis "Arbitrary size font selection in LaTeX")
5379     (description
5380      "LaTeX, by default, restricts the sizes at which you can use its default
5381 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
5382 specified by Knuth).  The @code{type1cm} package removes this restriction;
5383 this is particularly useful when using scalable versions of the CM
5384 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
5385 PCTeX, etc.).  In fact, since modern distributions will automatically generate
5386 any bitmap font you might need, @code{type1cm} has wider application than just
5387 those using scalable versions of the fonts.  Note that the LaTeX distribution
5388 now contains a package @code{fix-cm},f which performs the task of
5389 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
5390 @code{ec} fonts.")
5391     (license license:lppl)))
5392
5393 (define-public texlive-latex-lh
5394   (package
5395     (name "texlive-latex-lh")
5396     (version (number->string %texlive-revision))
5397     (source (origin
5398               (method svn-fetch)
5399               (uri (texlive-ref "latex" "lh"))
5400               (file-name (string-append name "-" version "-checkout"))
5401               (sha256
5402                (base32
5403                 "00gdiwh3sfhh1iimjhpja7lm7k4vzqzql2irgwnpz94qvh25zwi5"))))
5404     (build-system texlive-build-system)
5405     (arguments '(#:tex-directory "latex/lh"))
5406     (home-page "https://www.ctan.org/pkg/lh")
5407     (synopsis "Cyrillic fonts that support LaTeX standard encodings")
5408     (description
5409      "The LH fonts address the problem of the wide variety of alphabets that
5410 are written with Cyrillic-style characters.  The fonts are the original basis
5411 of the set of T2* and X2 encodings that are now used when LaTeX users need to
5412 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
5413 offered through the latex-cyrillic and t2 bundles, and the package itself
5414 offers support for other (more traditional) encodings.  The fonts, in the
5415 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
5416 CM-Super family of fonts.  The package also offers its own LaTeX support for
5417 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
5418     (license license:lppl)))
5419
5420 (define-public texlive-metapost
5421   (package
5422     (name "texlive-metapost")
5423     (version (number->string %texlive-revision))
5424     (source (origin
5425               (method svn-fetch)
5426               (uri (svn-reference
5427                     (url (string-append "svn://www.tug.org/texlive/tags/"
5428                                         %texlive-tag "/Master/texmf-dist/"
5429                                         "/metapost"))
5430                     (revision %texlive-revision)))
5431               (file-name (string-append name "-" version "-checkout"))
5432               (sha256
5433                (base32
5434                 "1xyd57c8z1xi0kbqpbad61flcazz68i9ssxrag0gjvci3irxi8xh"))))
5435     (build-system trivial-build-system)
5436     (arguments
5437      `(#:modules ((guix build utils))
5438        #:builder
5439        (begin
5440          (use-modules (guix build utils))
5441          (let ((target (string-append (assoc-ref %outputs "out")
5442                                       "/share/texmf-dist/metapost")))
5443            (mkdir-p target)
5444            (copy-recursively (assoc-ref %build-inputs "source") target)
5445            #t))))
5446     (home-page "https://www.ctan.org/pkg/metapost")
5447     (synopsis "Create scalable illustrations")
5448     (description
5449      "MetaPost uses a language based on that of Metafont to produce precise
5450 technical illustrations.  Its output is scalable PostScript or SVG, rather
5451 than the bitmaps Metafont creates.")
5452     (license license:lppl)))
5453
5454 (define-public texlive-latex-acmart
5455   (package
5456     (name "texlive-latex-acmart")
5457     (version "1.60")
5458     (source (origin
5459               (method svn-fetch)
5460               (uri (texlive-ref "latex" "acmart"))
5461               (sha256
5462                (base32
5463                 "18rl67p2zhngskisnhv78mksv8q8q658l6igkswzswldixmkpphq"))
5464               (file-name (string-append name "-" version "-checkout"))))
5465     (build-system texlive-build-system)
5466     (arguments '(#:tex-directory "latex/acmart"))
5467     (home-page "https://www.ctan.org/pkg/acmart")
5468     (synopsis "Class for typesetting publications of ACM")
5469     (description
5470      "This package provides a class for typesetting publications of the
5471 Association for Computing Machinery (ACM).")
5472     (license license:lppl1.3+)))
5473
5474 (define-public texlive-latex-varwidth
5475   (package
5476     (name "texlive-latex-varwidth")
5477     (version (number->string %texlive-revision))
5478     (source (origin
5479               (method svn-fetch)
5480               (uri (svn-reference
5481                     (url (string-append "svn://www.tug.org/texlive/tags/"
5482                                         %texlive-tag "/Master/texmf-dist/"
5483                                         "/tex/latex/varwidth"))
5484                     (revision %texlive-revision)))
5485               (file-name (string-append name "-" version "-checkout"))
5486               (sha256
5487                (base32
5488                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
5489     (build-system trivial-build-system)
5490     (arguments
5491      `(#:modules ((guix build utils))
5492        #:builder
5493        (begin
5494          (use-modules (guix build utils))
5495          (let ((target (string-append (assoc-ref %outputs "out")
5496                                       "/share/texmf-dist/tex/latex/varwidth")))
5497            (mkdir-p target)
5498            (copy-recursively (assoc-ref %build-inputs "source") target)
5499            #t))))
5500     (home-page "https://www.ctan.org/pkg/varwidth")
5501     (synopsis "Variable-width minipage")
5502     (description
5503      "The @code{varwidth} environment is superficially similar to
5504 @code{minipage}, but the specified width is just a maximum value — the box may
5505 get a narrower “natural” width.")
5506     (license license:lppl)))
5507
5508 (define-public texlive-latex-wasysym
5509   (package
5510     (name "texlive-latex-wasysym")
5511     (version (number->string %texlive-revision))
5512     (source (origin
5513               (method svn-fetch)
5514               (uri (texlive-ref "latex" "wasysym"))
5515               (file-name (string-append name "-" version "-checkout"))
5516               (sha256
5517                (base32
5518                 "1sgwbfwjjf70g54hh93gsd9jp9nm67w6n74x9d72a56n07jbk5hv"))))
5519     (build-system texlive-build-system)
5520     (arguments '(#:tex-directory "latex/wasysym"))
5521     (home-page "https://www.ctan.org/pkg/wasysym")
5522     (synopsis "LaTeX support file to use the WASY2 fonts")
5523     (description
5524      "The wasy2WASY2 (Waldi Symbol) font by Roland Waldi provides many glyphs
5525 like male and female symbols and astronomical symbols, as well as the complete
5526 lasy font set and other odds and ends.  The wasysym package implements an easy
5527 to use interface for these symbols.")
5528     (license license:lppl)))
5529
5530 (define-public texlive-latex-wrapfig
5531   (package
5532     (name "texlive-latex-wrapfig")
5533     (version (number->string %texlive-revision))
5534     (source (origin
5535               (method svn-fetch)
5536               (uri (svn-reference
5537                     (url (string-append "svn://www.tug.org/texlive/tags/"
5538                                         %texlive-tag "/Master/texmf-dist/"
5539                                         "/tex/latex/wrapfig"))
5540                     (revision %texlive-revision)))
5541               (file-name (string-append name "-" version "-checkout"))
5542               (sha256
5543                (base32
5544                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
5545     (build-system trivial-build-system)
5546     (arguments
5547      `(#:modules ((guix build utils))
5548        #:builder
5549        (begin
5550          (use-modules (guix build utils))
5551          (let ((target (string-append (assoc-ref %outputs "out")
5552                                       "/share/texmf-dist/tex/latex/wrapfig")))
5553            (mkdir-p target)
5554            (copy-recursively (assoc-ref %build-inputs "source") target)
5555            #t))))
5556     (home-page "https://www.ctan.org/pkg/wrapfig")
5557     (synopsis "Produces figures which text can flow around")
5558     (description
5559      "This package allows figures or tables to have text wrapped around them.
5560 It does not work in combination with list environments, but can be used in a
5561 @code{parbox} or @code{minipage}, and in two-column format.")
5562     (license license:lppl)))
5563
5564 (define-public texlive-latex-ucs
5565   (package
5566     (name "texlive-latex-ucs")
5567     (version (number->string %texlive-revision))
5568     (source (origin
5569               (method svn-fetch)
5570               (uri (svn-reference
5571                     (url (string-append "svn://www.tug.org/texlive/tags/"
5572                                         %texlive-tag "/Master/texmf-dist/"
5573                                         "/tex/latex/ucs"))
5574                     (revision %texlive-revision)))
5575               (file-name (string-append name "-" version "-checkout"))
5576               (sha256
5577                (base32
5578                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
5579     (build-system trivial-build-system)
5580     (arguments
5581      `(#:modules ((guix build utils))
5582        #:builder
5583        (begin
5584          (use-modules (guix build utils))
5585          (let ((target (string-append (assoc-ref %outputs "out")
5586                                       "/share/texmf-dist/tex/latex/ucs")))
5587            (mkdir-p target)
5588            (copy-recursively (assoc-ref %build-inputs "source") target)
5589            #t))))
5590     (home-page "https://www.ctan.org/pkg/ucs")
5591     (synopsis "Extended UTF-8 input encoding support for LaTeX")
5592     (description
5593      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
5594 together with a large number of support files.  The @code{utf8x.def}
5595 definition file for use with @code{inputenc} covers a wider range of Unicode
5596 characters than does @code{utf8.def} in the LaTeX distribution.  The package
5597 provides facilities for efficient use of its large sets of Unicode characters.
5598 Glyph production may be controlled by various options, which permits use of
5599 non-ASCII characters when coding mathematical formulae.  Note that the bundle
5600 previously had an alias “unicode”; that alias has now been withdrawn, and no
5601 package of that name now exists.")
5602     (license license:lppl1.3+)))
5603
5604 (define-public texlive-latex-preview
5605   (package
5606     (name "texlive-latex-preview")
5607     (version (number->string %texlive-revision))
5608     (source (origin
5609               (method svn-fetch)
5610               (uri (texlive-ref "latex" "preview"))
5611               (file-name (string-append name "-" version "-checkout"))
5612               (sha256
5613                (base32
5614                 "1hpsk4yp08qvbl43kqiv0hhwxv3gcqqxcpahyv6ch2b38pbj4bh6"))))
5615     (build-system texlive-build-system)
5616     (arguments
5617      '(#:tex-directory "latex/preview"
5618        #:phases
5619        (modify-phases %standard-phases
5620          (add-after 'unpack 'remove-generated-file
5621            (lambda _
5622              (delete-file "preview.drv")
5623              #t)))))
5624     (home-page "https://www.ctan.org/pkg/preview")
5625     (synopsis "Extract bits of a LaTeX source for output")
5626     (description
5627      "The main purpose of the preview package is the extraction of selected
5628 elements from a LaTeX source, like formulas or graphics, into separate
5629 pages of a DVI file.  A flexible and convenient interface allows it to
5630 specify what commands and constructs should be extracted.  This works
5631 with DVI files postprocessed by either Dvips and Ghostscript or
5632 dvipng, but it also works when you are using PDFTeX for generating PDF
5633 files.")
5634     (license license:gpl3+)))
5635
5636 (define-public texlive-latex-acronym
5637   (package
5638     (name "texlive-latex-acronym")
5639     (version (number->string %texlive-revision))
5640     (source (origin
5641               (method svn-fetch)
5642               (uri (texlive-ref "latex" "acronym"))
5643               (file-name (string-append name "-" version "-checkout"))
5644               (sha256
5645                (base32
5646                 "0jmasg40bk53zdd2jc8nc18jvdai3p2wmamy7hwli8gls4nf25qp"))))
5647     (build-system texlive-build-system)
5648     (arguments '(#:tex-directory "latex/acronym"))
5649     (home-page "https://www.ctan.org/pkg/acronym")
5650     (synopsis "Expand acronyms at least once")
5651     (description
5652      "This package ensures that all acronyms used in the text are spelled out
5653 in full at least once.  It also provides an environment to build a list of
5654 acronyms used.  The package is compatible with PDF bookmarks.  The package
5655 requires the suffix package, which in turn requires that it runs under
5656 e-TeX.")
5657     (license license:lppl1.3+)))
5658
5659 (define-public texlive-generic-pdftex
5660   (package
5661     (name "texlive-generic-pdftex")
5662     (version (number->string %texlive-revision))
5663     (source (origin
5664               (method svn-fetch)
5665               (uri (svn-reference
5666                     (url (string-append "svn://www.tug.org/texlive/tags/"
5667                                         %texlive-tag "/Master/texmf-dist/"
5668                                         "/tex/generic/pdftex"))
5669                     (revision %texlive-revision)))
5670               (file-name (string-append name "-" version "-checkout"))
5671               (sha256
5672                (base32
5673                 "0k68zmqzs4qvrqxdwsrawbjb14hxqjfamq649azvai0jjxdpkljd"))))
5674     (build-system trivial-build-system)
5675     (arguments
5676      `(#:modules ((guix build utils))
5677        #:builder
5678        (begin
5679          (use-modules (guix build utils))
5680          (let ((target (string-append (assoc-ref %outputs "out")
5681                                       "/share/texmf-dist/tex/generic/pdftex"))
5682                (target-map (string-append (assoc-ref %outputs "out")
5683                                       "/share/texmf-dist/fonts/map/pdftex")))
5684            (mkdir-p target)
5685            (copy-recursively (assoc-ref %build-inputs "source") target)
5686            (mkdir-p target-map)
5687            (copy-recursively (assoc-ref %build-inputs "pdftex-map") target-map)
5688            #t))))
5689     (native-inputs
5690      `(("pdftex-map"
5691         ,(origin
5692            (method svn-fetch)
5693            (uri (svn-reference
5694                  (url (string-append "svn://www.tug.org/texlive/tags/"
5695                                      %texlive-tag "/Master/texmf-dist/"
5696                                      "/fonts/map/pdftex"))
5697                  (revision %texlive-revision)))
5698            (file-name (string-append name "-map-" version "-checkout"))
5699            (sha256
5700             (base32
5701              "03rfif2631pgd8g1ar4xblcdh078kky7fvw3kfsj5a47rxxgicp2"))))))
5702     (home-page "https://www.ctan.org/pkg/pdftex")
5703     (synopsis "TeX extension for direct creation of PDF")
5704     (description
5705      "This package provides an extension of TeX which can be configured to
5706 directly generate PDF documents instead of DVI.")
5707     (license license:gpl2+)))
5708
5709 (define texlive-texmf
5710   (package
5711    (name "texlive-texmf")
5712    (version "20190410")
5713    (source texlive-texmf-src)
5714    (build-system gnu-build-system)
5715    (inputs
5716     `(("texlive-bin" ,texlive-bin)
5717       ("lua" ,lua)
5718       ("perl" ,perl)
5719       ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5720       ("ruby" ,ruby)
5721       ("tcsh" ,tcsh)))
5722    (arguments
5723     `(#:modules ((guix build gnu-build-system)
5724                  (guix build utils)
5725                  (srfi srfi-26))
5726
5727       ;; This package takes 4 GiB, which we can't afford to distribute from
5728       ;; our servers.
5729       #:substitutable? #f
5730
5731       #:phases
5732         (modify-phases (map (cut assq <> %standard-phases)
5733                             '(set-paths unpack patch-source-shebangs))
5734           (add-after 'unpack 'unset-environment-variables
5735             (lambda _
5736               (unsetenv "TEXMF")
5737               (unsetenv "TEXMFCNF")
5738               #t))
5739           (add-after 'patch-source-shebangs 'install
5740             (lambda* (#:key outputs #:allow-other-keys)
5741               (let ((share (string-append (assoc-ref outputs "out") "/share")))
5742                 (mkdir-p share)
5743                 (invoke "mv" "texmf-dist" share))))
5744           (add-after 'install 'texmf-config
5745             (lambda* (#:key inputs outputs #:allow-other-keys)
5746               (let* ((out (assoc-ref outputs "out"))
5747                      (share (string-append out "/share"))
5748                      (texmfroot (string-append share "/texmf-dist/web2c"))
5749                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
5750                      (texlive-bin (assoc-ref inputs "texlive-bin"))
5751                      (texbin (string-append texlive-bin "/bin"))
5752                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
5753                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
5754                 (substitute* texmfcnf
5755                   (("TEXMFROOT = \\$SELFAUTOPARENT")
5756                    (string-append "TEXMFROOT = " share))
5757                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
5758                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
5759                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
5760                 ;; Register paths in texmfcnf.lua, needed for context.
5761                 (substitute* (string-append texmfroot "/texmfcnf.lua")
5762                   (("selfautodir:") out)
5763                   (("selfautoparent:") (string-append share "/")))
5764                 ;; Set path to TeXLive Perl modules
5765                 (setenv "PERL5LIB"
5766                         (string-append (getenv "PERL5LIB") ":" tlpkg))
5767                 ;; Configure the texmf-dist tree; inspired from
5768                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
5769                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
5770                 (setenv "TEXMFCNF" texmfroot)
5771                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
5772                 (invoke "mktexlsr")
5773                 (invoke "fmtutil-sys" "--all")))))))
5774    (properties `((max-silent-time . 9600))) ; don't time out while grafting
5775    (synopsis "TeX Live, a package of the TeX typesetting system")
5776    (description
5777     "TeX Live provides a comprehensive TeX document production system.
5778 It includes all the major TeX-related programs, macro packages, and fonts
5779 that are free software, including support for many languages around the
5780 world.
5781
5782 This package contains the complete tree of texmf-dist data.")
5783    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
5784    (home-page "https://www.tug.org/texlive/")))
5785
5786 (define-public texlive
5787   (package
5788    (name "texlive")
5789    (version "20190410")
5790    (source #f)
5791    (build-system trivial-build-system)
5792    (inputs `(("bash" ,bash) ; for wrap-program
5793              ("texlive-bin" ,texlive-bin)
5794              ("texlive-texmf" ,texlive-texmf)))
5795    (native-search-paths
5796     (list (search-path-specification
5797            (variable "TEXMFLOCAL")
5798            (files '("share/texmf-local")))))
5799    (arguments
5800     `(#:modules ((guix build utils))
5801       #:builder
5802         ;; Build the union of texlive-bin and texlive-texmf, but take the
5803         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
5804         (begin
5805           (use-modules (guix build utils))
5806           (let ((out (assoc-ref %outputs "out"))
5807                 (bin (assoc-ref %build-inputs "texlive-bin"))
5808                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
5809                 (bash (assoc-ref %build-inputs "bash")))
5810                (mkdir out)
5811                (with-directory-excursion out
5812                  (for-each
5813                    (lambda (name)
5814                      (symlink (string-append bin "/" name) name))
5815                    '("include" "lib"))
5816                  (mkdir "bin")
5817                  (with-directory-excursion "bin"
5818                    (setenv "PATH" (string-append bash "/bin"))
5819                    (for-each
5820                      (lambda (name)
5821                        (symlink name (basename name))
5822                        (wrap-program
5823                          (basename name)
5824                          `("TEXMFCNF" =
5825                            (,(string-append texmf "/share/texmf-dist/web2c")))))
5826                      (find-files (string-append bin "/bin/") "")))
5827                  (mkdir "share")
5828                  (with-directory-excursion "share"
5829                    (for-each
5830                      (lambda (name)
5831                        (symlink (string-append bin "/share/" name) name))
5832                      '("info" "man" "tlpkg"))
5833                    (for-each
5834                      (lambda (name)
5835                        (symlink (string-append texmf "/share/" name) name))
5836                      '("texmf-dist" "texmf-var"))))
5837                #t))))
5838    (synopsis "TeX Live, a package of the TeX typesetting system")
5839    (description
5840     "TeX Live provides a comprehensive TeX document production system.
5841 It includes all the major TeX-related programs, macro packages, and fonts
5842 that are free software, including support for many languages around the
5843 world.
5844
5845 This package contains the complete TeX Live distribution.")
5846    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
5847    (home-page "https://www.tug.org/texlive/")))
5848
5849 (define-public perl-text-bibtex
5850   (package
5851     (name "perl-text-bibtex")
5852     (version "0.85")
5853     (source
5854      (origin
5855        (method url-fetch)
5856        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
5857                            version ".tar.gz"))
5858        (sha256
5859         (base32
5860          "036kxgbn1jf70pfm2lmjlzjwnhbkd888fp5lyvmkjpdd15gla18h"))))
5861     (build-system perl-build-system)
5862     (arguments
5863      `(#:phases
5864        (modify-phases %standard-phases
5865          (add-after 'unpack 'add-output-directory-to-rpath
5866            (lambda* (#:key outputs #:allow-other-keys)
5867              (substitute* "inc/MyBuilder.pm"
5868                (("-Lbtparse" line)
5869                 (string-append "-Wl,-rpath="
5870                                (assoc-ref outputs "out") "/lib " line)))
5871              #t))
5872          (add-after 'unpack 'install-libraries-to-/lib
5873            (lambda* (#:key outputs #:allow-other-keys)
5874              (substitute* "Build.PL"
5875                (("lib64") "lib"))
5876              #t)))))
5877     (native-inputs
5878      `(("perl-capture-tiny" ,perl-capture-tiny)
5879        ("perl-config-autoconf" ,perl-config-autoconf)
5880        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
5881        ("perl-module-build" ,perl-module-build)))
5882     (home-page "https://metacpan.org/release/Text-BibTeX")
5883     (synopsis "Interface to read and parse BibTeX files")
5884     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
5885 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
5886 at many different levels: you may work with BibTeX entries as simple field to
5887 string mappings, or get at the original form of the data as a list of simple
5888 values (strings, macros, or numbers) pasted together.")
5889     (license license:perl-license)))
5890
5891 (define-public biber
5892   (package
5893     (name "biber")
5894     (version "2.12")
5895     (source (origin
5896               (method git-fetch)
5897               (uri (git-reference
5898                     (url "https://github.com/plk/biber/")
5899                     (commit (string-append "v" version))))
5900               (file-name (git-file-name name version))
5901               ;; TODO: Patch awaiting inclusion upstream (see:
5902               ;; https://github.com/plk/biber/issues/239).
5903               (patches (search-patches "biber-fix-encoding-write.patch"))
5904               (sha256
5905                (base32
5906                 "1g1hi6zvf2hmrjly1sidjaxy5440gfqm4p7p3n7kayshnjsmlskx"))))
5907     (build-system perl-build-system)
5908     (arguments
5909      `(#:phases
5910        (modify-phases %standard-phases
5911          (add-after 'install 'wrap-programs
5912            (lambda* (#:key outputs #:allow-other-keys)
5913              (let* ((out (assoc-ref outputs "out"))
5914                     (perl5lib (getenv "PERL5LIB")))
5915                (wrap-program (string-append out "/bin/biber")
5916                  `("PERL5LIB" ":" prefix
5917                    (,(string-append perl5lib ":" out
5918                                     "/lib/perl5/site_perl")))))
5919              #t)))))
5920     (inputs
5921      `(("perl-autovivification" ,perl-autovivification)
5922        ("perl-class-accessor" ,perl-class-accessor)
5923        ("perl-data-dump" ,perl-data-dump)
5924        ("perl-data-compare" ,perl-data-compare)
5925        ("perl-data-uniqid" ,perl-data-uniqid)
5926        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
5927        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
5928        ("perl-file-slurper" ,perl-file-slurper)
5929        ("perl-ipc-cmd" ,perl-ipc-cmd)
5930        ("perl-ipc-run3" ,perl-ipc-run3)
5931        ("perl-list-allutils" ,perl-list-allutils)
5932        ("perl-list-moreutils" ,perl-list-moreutils)
5933        ("perl-mozilla-ca" ,perl-mozilla-ca)
5934        ("perl-regexp-common" ,perl-regexp-common)
5935        ("perl-log-log4perl" ,perl-log-log4perl)
5936        ;; We cannot use perl-unicode-collate here, because otherwise the
5937        ;; hardcoded hashes in the tests would differ.  See
5938        ;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
5939        ;;("perl-unicode-collate" ,perl-unicode-collate)
5940        ("perl-unicode-normalize" ,perl-unicode-normalize)
5941        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
5942        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
5943        ("perl-encode-jis2k" ,perl-encode-jis2k)
5944        ("perl-encode-hanextra" ,perl-encode-hanextra)
5945        ("perl-xml-libxml" ,perl-xml-libxml)
5946        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
5947        ("perl-xml-libxslt" ,perl-xml-libxslt)
5948        ("perl-xml-writer" ,perl-xml-writer)
5949        ("perl-sort-key" ,perl-sort-key)
5950        ("perl-text-csv" ,perl-text-csv)
5951        ("perl-text-csv-xs" ,perl-text-csv-xs)
5952        ("perl-text-roman" ,perl-text-roman)
5953        ("perl-uri" ,perl-uri)
5954        ("perl-text-bibtex" ,perl-text-bibtex)
5955        ("perl-libwww" ,perl-libwww)
5956        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
5957        ("perl-business-isbn" ,perl-business-isbn)
5958        ("perl-business-issn" ,perl-business-issn)
5959        ("perl-business-ismn" ,perl-business-ismn)
5960        ("perl-lingua-translit" ,perl-lingua-translit)))
5961     (native-inputs
5962      `(("perl-config-autoconf" ,perl-config-autoconf)
5963        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
5964        ("perl-module-build" ,perl-module-build)
5965        ;; for tests
5966        ("perl-file-which" ,perl-file-which)
5967        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
5968        ("perl-test-differences" ,perl-test-differences)))
5969     (home-page "http://biblatex-biber.sourceforge.net/")
5970     (synopsis "Backend for the BibLaTeX citation management tool")
5971     (description "Biber is a BibTeX replacement for users of biblatex.  Among
5972 other things it comes with full Unicode support.")
5973     (license license:artistic2.0)))
5974
5975 (define-public rubber
5976   (package
5977     (name "rubber")
5978     (version "1.1")
5979     (source (origin
5980              (method url-fetch)
5981              (uri (list (string-append "https://launchpad.net/rubber/trunk/"
5982                                        version "/+download/rubber-"
5983                                        version ".tar.gz")
5984                         (string-append "http://ebeffara.free.fr/pub/rubber-"
5985                                        version ".tar.gz")))
5986              (sha256
5987               (base32
5988                "1xbkv8ll889933gyi2a5hj7hhh216k04gn8fwz5lfv5iz8s34gbq"))))
5989     (build-system gnu-build-system)
5990     (arguments '(#:tests? #f))                    ; no `check' target
5991     (native-inputs `(("texinfo" ,texinfo)))
5992     (inputs `(("python" ,python-2) ; incompatible with Python 3 (print syntax)
5993               ("which" ,which)))
5994     (home-page "https://launchpad.net/rubber")
5995     (synopsis "Wrapper for LaTeX and friends")
5996     (description
5997      "Rubber is a program whose purpose is to handle all tasks related to the
5998 compilation of LaTeX documents.  This includes compiling the document itself,
5999 of course, enough times so that all references are defined, and running BibTeX
6000 to manage bibliographic references.  Automatic execution of dvips to produce
6001 PostScript documents is also included, as well as usage of pdfLaTeX to produce
6002 PDF documents.")
6003     (license license:gpl2+)))
6004
6005 (define-public texmaker
6006   (package
6007     (name "texmaker")
6008     (version "5.0.3")
6009     (source (origin
6010               (method url-fetch)
6011               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
6012                                   version ".tar.bz2"))
6013               (sha256
6014                (base32
6015                 "0vrj9w5lk3vf6138n5bz8phmy3xp5kv4dq1rgirghcf4hbxdyx30"))))
6016     (build-system gnu-build-system)
6017     (arguments
6018      `(#:phases
6019        (modify-phases %standard-phases
6020          ;; Qt has its own configuration utility.
6021          (replace 'configure
6022            (lambda* (#:key outputs #:allow-other-keys)
6023              (let ((out (assoc-ref outputs "out")))
6024                (invoke "qmake"
6025                        (string-append "PREFIX=" out)
6026                        (string-append "DESKTOPDIR=" out "/share/applications")
6027                        (string-append "ICONDIR=" out "/share/pixmaps")
6028                        (string-append "METAINFODIR=" out "/share/metainfo")
6029                        "texmaker.pro")))))))
6030     (inputs
6031      `(("poppler-qt5" ,poppler-qt5)
6032        ("qtbase" ,qtbase)
6033        ("qtscript" ,qtscript)
6034        ("qtwebkit" ,qtwebkit)
6035        ("zlib" ,zlib)))
6036     (native-inputs
6037      `(("pkg-config" ,pkg-config)))
6038     (home-page "http://www.xm1math.net/texmaker/")
6039     (synopsis "LaTeX editor")
6040     (description "Texmaker is a program that integrates many tools needed to
6041 develop documents with LaTeX, in a single application.")
6042     (license license:gpl2+)))
6043
6044 (define-public teximpatient
6045   (package
6046     (name "teximpatient")
6047     (version "2.4")
6048     (source (origin
6049               (method url-fetch/tarbomb)
6050               (uri (string-append "mirror://gnu/" name "/" name "-"
6051                                   version ".tar.gz"))
6052               (sha256
6053                (base32
6054                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
6055     (build-system gnu-build-system)
6056     (arguments
6057      `(#:tests? #f ; there are none
6058        #:phases
6059        (modify-phases %standard-phases
6060          (add-after 'unpack 'fix-packaging-error
6061            (lambda* (#:key inputs #:allow-other-keys)
6062              ;; This file should have been part of the tarball.
6063              (install-file (car
6064                             (find-files
6065                              (assoc-ref inputs "automake")
6066                              "^install-sh$"))
6067                            ".")
6068              ;; Remove generated file.
6069              (delete-file "book.pdf")
6070              #t)))))
6071     (native-inputs
6072      `(("texlive" ,(texlive-union (list texlive-amsfonts
6073                                         texlive-fonts-adobe-palatino
6074                                         texlive-fonts-adobe-zapfding
6075                                         texlive-fonts-knuth-lib
6076                                         texlive-fonts-mflogo-font
6077                                         texlive-generic-pdftex)))
6078        ("automake" ,automake)))
6079     (home-page "https://www.gnu.org/software/teximpatient/")
6080     (synopsis "Book on TeX, plain TeX and Eplain")
6081     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
6082 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
6083 and Karl Berry.")
6084     (license license:fdl1.3+)))
6085
6086 (define-public lyx
6087   (package
6088     (name "lyx")
6089     (version "2.3.3")
6090     (source (origin
6091               (method url-fetch)
6092               (uri (string-append "https://ftp.lyx.org/pub/lyx/stable/"
6093                                   (version-major+minor version) ".x/"
6094                                   "lyx-" version ".tar.gz"))
6095               (sha256
6096                (base32
6097                 "0j3xincwmsscfgv13g3z6h4kx1qfzgg8x71fs393akcdxsh2g07c"))
6098               (modules '((guix build utils)))
6099               (snippet
6100                '(begin
6101                   (delete-file-recursively "3rdparty")
6102                   #t))))
6103     (build-system cmake-build-system)
6104     (arguments
6105      `(#:configure-flags `("-DLYX_USE_QT=QT5"
6106                            "-DLYX_EXTERNAL_BOOST=1"
6107                            "-DLYX_INSTALL=1"
6108                            "-DLYX_RELEASE=1"
6109                            ,(string-append "-DLYX_INSTALL_PREFIX="
6110                                            (assoc-ref %outputs "out")
6111                                            ;; Exact name and level is necessary.
6112                                            "/lyx" ,(version-major+minor version)))
6113        #:phases
6114        (modify-phases %standard-phases
6115          ;; See ;; https://www.lyx.org/trac/changeset/3a123b90af838b08680471d87170c38e56787df9/lyxgit
6116          (add-after 'unpack 'fix-compilation-with-boost-1.69
6117            (lambda _
6118              (substitute* "src/support/FileName.cpp"
6119                (("^template struct boost::detail::crc_table_t.*") ""))
6120              #t))
6121          (add-after 'unpack 'patch-python
6122            (lambda* (#:key inputs #:allow-other-keys)
6123              (substitute* '("src/support/os.cpp")
6124                (("\"python ")
6125                 (string-append "\""
6126                                (assoc-ref inputs "python")
6127                                "/bin/python ")))
6128              #t))
6129          (add-after 'patch-python 'patch-desktop-file
6130            (lambda* (#:key outputs #:allow-other-keys)
6131              (substitute* "lib/lyx.desktop.in"
6132                (("Exec=")
6133                 (string-append "Exec="
6134                                (assoc-ref outputs "out")
6135                                "/")))
6136              #t))
6137          (add-before 'check 'setenv-check
6138            (lambda _
6139              ;; Create missing file that would cause tests to fail.
6140              (with-output-to-file (string-append "../lyx-"
6141                                                  ,version
6142                                                  "/src/tests/check_layout.cmake")
6143                (const #t))
6144              (setenv (string-append "LYX_DIR_"
6145                                     (string-join
6146                                       (string-split
6147                                         ,(version-major+minor version) #\-)) "x")
6148                      (string-append (getcwd) "/../lyx-" ,version "/lib"))
6149              #t))
6150          (add-after 'install 'install-symlinks
6151            (lambda* (#:key outputs #:allow-other-keys)
6152              (let ((out (assoc-ref outputs "out")))
6153                (mkdir-p (string-append out "/bin"))
6154                (symlink (string-append "../lyx" ,(version-major+minor version)
6155                                        "/bin/lyx" ,(version-major+minor version))
6156                         (string-append out "/bin/lyx" ,(version-major+minor version)))
6157                #t))))))
6158     (inputs
6159      `(("boost" ,boost)
6160        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
6161        ("libx11" ,libx11)
6162        ("mythes" ,mythes)
6163        ("python" ,python)
6164        ("qtbase" ,qtbase)
6165        ("qtsvg" ,qtsvg)
6166        ("zlib" ,zlib)))
6167     (propagated-inputs
6168      `(("texlive" ,(texlive-union (list texlive-fonts-ec)))))
6169     (native-inputs
6170      `(("python" ,python)
6171        ("pkg-config" ,pkg-config)))
6172     (home-page "https://www.lyx.org/")
6173     (synopsis "Document preparation system with GUI")
6174     (description "LyX is a document preparation system.  It excels at letting
6175 you create complex technical and scientific articles with mathematics,
6176 cross-references, bibliographies, indexes, etc.  It is very good for working
6177 with documents of any length in which the usual processing abilities are
6178 required: automatic sectioning and pagination, spell checking and so forth.")
6179     (license license:gpl2+)))
6180
6181 (define-public texlive-latex-media9
6182   (package
6183     (name "texlive-latex-media9")
6184     (version (number->string %texlive-revision))
6185     (source (origin
6186               (method svn-fetch)
6187               (uri (svn-reference
6188                     (url (string-append "svn://www.tug.org/texlive/tags/"
6189                                         %texlive-tag "/Master/texmf-dist/"
6190                                         "/tex/latex/media9"))
6191                     (revision %texlive-revision)))
6192               (file-name (string-append name "-" version "-checkout"))
6193               (sha256
6194                (base32
6195                 "0s86v2b6b1vky1svmmn8pn0l2gz3v280mvjbr2d9l2sjyarlgz9w"))))
6196     (build-system trivial-build-system)
6197     (arguments
6198      `(#:modules ((guix build utils))
6199        #:builder
6200        (begin
6201          (use-modules (guix build utils))
6202          (let ((target (string-append (assoc-ref %outputs "out")
6203                                       "/share/texmf-dist/tex/latex/media9")))
6204            (mkdir-p target)
6205            (copy-recursively (assoc-ref %build-inputs "source") target)
6206            #t))))
6207     (home-page "https://www.ctan.org/pkg/media9")
6208     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
6209     (description
6210      "The package provides an interface to embed interactive Flash (SWF) and 3D
6211 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
6212 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
6213 compatibility.  Playback of multimedia files uses the built-in Flash Player of
6214 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
6215 supports the efficient H.264 codec for video compression.
6216
6217 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
6218 specification.  It replaces the now obsolete @code{movie15} package.")
6219     (license license:lppl)))
6220
6221 (define-public texlive-latex-ocgx2
6222   (package
6223     (name "texlive-latex-ocgx2")
6224     (version (number->string %texlive-revision))
6225     (source (origin
6226               (method svn-fetch)
6227               (uri (svn-reference
6228                     (url (string-append "svn://www.tug.org/texlive/tags/"
6229                                         %texlive-tag "/Master/texmf-dist/"
6230                                         "/tex/latex/ocgx2"))
6231                     (revision %texlive-revision)))
6232               (file-name (string-append name "-" version "-checkout"))
6233               (sha256
6234                (base32
6235                 "1yhp51w8yr10c10pc9196q7hlw80brzqinnqbjw81d0sf2p0llc5"))))
6236     (build-system trivial-build-system)
6237     (arguments
6238      `(#:modules ((guix build utils))
6239        #:builder
6240        (begin
6241          (use-modules (guix build utils))
6242          (let ((target (string-append (assoc-ref %outputs "out")
6243                                       "/share/texmf-dist/tex/latex/ogcx2")))
6244            (mkdir-p target)
6245            (copy-recursively (assoc-ref %build-inputs "source") target)
6246            #t))))
6247     (home-page "https://www.ctan.org/pkg/ocgx2")
6248     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
6249     (description
6250      "This package provides OCG (Optional Content Groups) support within a PDF
6251 document.
6252
6253 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
6254 @code{ocg-p} packages and adds support for all known engines and back-ends
6255 including:
6256
6257 @itemize
6258 @item LaTeX → dvips → @code{ps2pdf}/Distiller
6259 @item (Xe)LaTeX(x) → @code{dvipdfmx}
6260 @item pdfLaTeX and LuaLaTeX .
6261 @end itemize
6262
6263 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
6264     (license license:lppl)))
6265
6266 (define-public texlive-latex-ms
6267   (package
6268     (name "texlive-latex-ms")
6269     (version (number->string %texlive-revision))
6270     (source (origin
6271               (method svn-fetch)
6272               (uri (texlive-ref "latex" "ms"))
6273               (file-name (string-append name "-" version "-checkout"))
6274               (sha256
6275                (base32
6276                 "0m4wx3yjb5al1qsv995z8fii8xxy96mcfihbnlx43lpgayiwz35s"))))
6277     (build-system texlive-build-system)
6278     (arguments
6279      '(#:tex-directory "latex/ms"
6280        #:tex-format "latex"))
6281     (home-page "https://ctan.org/pkg/ms")
6282     (synopsis "Various LATEX packages by Martin Schröder")
6283     (description
6284      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
6285
6286 @itemize
6287 @item @command{count1to}, make use of fixed TEX counters;
6288 @item @command{everysel}, set commands to execute every time a font is selected;
6289 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
6290 @item @command{multitoc}, typeset the table of contents in multiple columns;
6291 @item @command{prelim2e}, mark typeset pages as preliminary; and
6292 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
6293 @end itemize\n")
6294     (license license:lppl1.3c+)))
6295
6296 (define-public texlive-latex-needspace
6297   (package
6298     (name "texlive-latex-needspace")
6299     (version (number->string %texlive-revision))
6300     (source (origin
6301               (method svn-fetch)
6302               (uri (texlive-ref "latex" "needspace"))
6303               (file-name (string-append name "-" version "-checkout"))
6304               (sha256
6305                (base32
6306                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
6307     (build-system texlive-build-system)
6308     (arguments
6309      '(#:tex-directory "latex/needspace"
6310        #:tex-format "latex"))
6311     (inputs
6312      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
6313     (home-page "https://www.ctan.org/pkg/needspace")
6314     (synopsis "Insert pagebreak if not enough space")
6315     (description
6316      "Provides commands to disable pagebreaking within a given vertical
6317 space.  If there is not enough space between the command and the bottom of the
6318 page, a new page will be started.")
6319     (license license:lppl)))
6320
6321 (define-public texlive-latex-changepage
6322   (package
6323     (name "texlive-latex-changepage")
6324     (version (number->string %texlive-revision))
6325     (source
6326      (origin
6327        (method svn-fetch)
6328        (uri (texlive-ref "latex" "changepage"))
6329        (file-name (string-append name "-" version "-checkout"))
6330        (sha256
6331         (base32
6332          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
6333     (build-system texlive-build-system)
6334     (arguments
6335      '(#:tex-directory "latex/changepage"
6336        #:tex-format "latex"))
6337     (inputs
6338      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
6339     (home-page "https://www.ctan.org/pkg/changepage")
6340     (synopsis "Margin adjustment and detection of odd/even pages")
6341     (description
6342      "The package provides commands to change the page layout in the middle of
6343 a document, and to robustly check for typesetting on odd or even pages.
6344 Instructions for use are at the end of the file.  The package is an extraction
6345 of code from the @code{memoir} class, whose user interface it shares.")
6346     (license license:lppl1.3+)))
6347
6348 (define-public texlive-latex-eukdate
6349   (package
6350     (name "texlive-latex-eukdate")
6351     (version (number->string %texlive-revision))
6352     (source
6353      (origin
6354        (method svn-fetch)
6355        (uri (svn-reference
6356              (url (string-append "svn://www.tug.org/texlive/tags/"
6357                                  %texlive-tag "/Master/texmf-dist/"
6358                                  "/tex/latex/eukdate"))
6359              (revision %texlive-revision)))
6360        (file-name (string-append name "-" version "-checkout"))
6361        (sha256
6362         (base32
6363          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
6364     (build-system trivial-build-system)
6365     (arguments
6366      `(#:modules ((guix build utils))
6367        #:builder
6368        (begin
6369          (use-modules (guix build utils))
6370          (let ((target (string-append (assoc-ref %outputs "out")
6371                                       "/share/texmf-dist/tex/latex/eukdate")))
6372            (mkdir-p target)
6373            (copy-recursively (assoc-ref %build-inputs "source") target)
6374            #t))))
6375     (home-page "https://www.ctan.org/pkg/eukdate")
6376     (synopsis "UK format dates, with weekday")
6377     (description
6378      "The package is used to change the format of @code{\\today}’s date,
6379 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
6380 is preferred in many parts of the world, as distinct from that which is used in
6381 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
6382     (license license:lppl)))
6383
6384 (define-public texlive-generic-ulem
6385   (package
6386     (name "texlive-generic-ulem")
6387     (version (number->string %texlive-revision))
6388     (source
6389      (origin
6390        (method svn-fetch)
6391        (uri (svn-reference
6392              (url (string-append "svn://www.tug.org/texlive/tags/"
6393                                  %texlive-tag "/Master/texmf-dist/"
6394                                  "/tex/generic/ulem"))
6395              (revision %texlive-revision)))
6396        (file-name (string-append name "-" version "-checkout"))
6397        (sha256
6398         (base32
6399          "1rzdniqq9zk39w8ch8ylx3ywh2mj87s4ivchrsk2b8nx06jyn797"))))
6400     (build-system trivial-build-system)
6401     (arguments
6402      `(#:modules ((guix build utils))
6403        #:builder
6404        (begin
6405          (use-modules (guix build utils))
6406          (let ((target (string-append (assoc-ref %outputs "out")
6407                                       "/share/texmf-dist/tex/generic/ulem")))
6408            (mkdir-p target)
6409            (copy-recursively (assoc-ref %build-inputs "source") target)
6410            #t))))
6411     (home-page "https://www.ctan.org/pkg/ulem")
6412     (synopsis "Underline text in TeX")
6413     (description
6414      "The package provides an @code{\\ul} (underline) command which will break
6415 over line ends; this technique may be used to replace @code{\\em} (both in that
6416 form and as the @code{\\emph} command), so as to make output look as if it comes
6417 from a typewriter.  The package also offers double and wavy underlining, and
6418 striking out (line through words) and crossing out (/// over words).")
6419     (license license:lppl1.3c+)))
6420
6421 (define-public texlive-latex-pgf
6422   (package
6423     (name "texlive-latex-pgf")
6424     (version (number->string %texlive-revision))
6425     (source
6426      (origin
6427        (method svn-fetch)
6428        (uri (svn-reference
6429              (url (string-append "svn://www.tug.org/texlive/tags/"
6430                                  %texlive-tag "/Master/texmf-dist/"
6431                                  "/tex/latex/pgf"))
6432              (revision %texlive-revision)))
6433        (file-name (string-append name "-" version "-checkout"))
6434        (sha256
6435         (base32
6436          "1dscrgwyr71vgx35mzb316xl669arzagfgq50fdv3nxga63959b3"))))
6437     (build-system trivial-build-system)
6438     (native-inputs
6439      `(("texlive-latex-pgf-generic"
6440         ,(origin
6441            (method svn-fetch)
6442            (uri (svn-reference
6443              (url (string-append "svn://www.tug.org/texlive/tags/"
6444                                  %texlive-tag "/Master/texmf-dist/"
6445                                  "/tex/generic/pgf"))
6446              (revision %texlive-revision)))
6447            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
6448            (sha256
6449             (base32
6450              "0hk5x2j15n4pps279cmkbjl1dvhasq3mbhna5xdvp2qgh635ahks"))))))
6451     (propagated-inputs
6452      `(("texlive-latex-xcolor" ,texlive-latex-xcolor)))
6453     (arguments
6454      `(#:modules ((guix build utils))
6455        #:builder
6456        (begin
6457          (use-modules (guix build utils))
6458          (let ((target-generic (string-append (assoc-ref %outputs "out")
6459                                               "/share/texmf-dist/tex/generic/pgf"))
6460                (target-latex (string-append (assoc-ref %outputs "out")
6461                                             "/share/texmf-dist/tex/latex/pgf")))
6462            (mkdir-p target-generic)
6463            (mkdir-p target-latex)
6464            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
6465            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
6466            #t))))
6467     (home-page "https://www.ctan.org/pkg/tikz")
6468     (synopsis "Create PostScript and PDF graphics in TeX")
6469     (description
6470      "PGF is a macro package for creating graphics.  It is platform- and
6471 format-independent and works together with the most important TeX backend
6472 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
6473 called TikZ.
6474
6475 Its usage is similar to pstricks and the standard picture environment.  PGF
6476 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
6477 produce either PostScript or PDF output.")
6478     (license license:lppl1.3c+)))
6479
6480 (define-public texlive-latex-koma-script
6481   (package
6482     (name "texlive-latex-koma-script")
6483     (version (number->string %texlive-revision))
6484     (source (origin
6485               (method svn-fetch)
6486               (uri (svn-reference
6487                     (url (string-append "svn://www.tug.org/texlive/tags/"
6488                                         %texlive-tag "/Master/texmf-dist/"
6489                                         "/tex/latex/koma-script"))
6490                     (revision %texlive-revision)))
6491               (file-name (string-append name "-" version "-checkout"))
6492               (sha256
6493                (base32
6494                 "1vz9zg7s5w52xr323zgglzprfrvba2zvyzf6b8vrdf4wdghlpv4z"))))
6495     (build-system trivial-build-system)
6496     (arguments
6497      `(#:modules ((guix build utils)
6498                   (ice-9 match))
6499        #:builder
6500        (begin
6501          (use-modules (guix build utils)
6502                       (ice-9 match))
6503          (let ((root (string-append (assoc-ref %outputs "out")
6504                                     "/share/texmf-dist/"))
6505                (pkgs '(("source" . "tex/latex/koma-script"))))
6506            (for-each (match-lambda
6507                        ((pkg . dir)
6508                         (let ((target (string-append root dir)))
6509                           (mkdir-p target)
6510                           (copy-recursively (assoc-ref %build-inputs pkg)
6511                                             target))))
6512                      pkgs)
6513            #t))))
6514     (home-page "https://www.ctan.org/pkg/koma-script")
6515     (synopsis "Bundle of versatile classes and packages")
6516     (description
6517      "The KOMA-Script bundle provides replacements for the article, report, and
6518 book classes with emphasis on typography and versatility.  There is also a
6519 letter class.
6520
6521 The bundle also offers:
6522
6523 @itemize
6524 @item a package for calculating type areas in the way laid down by the
6525 typographer Jan Tschichold,
6526 @item packages for easily changing and defining page styles,
6527 @item a package scrdate for getting not only the current date but also the name
6528 of the day, and
6529 @item a package scrtime for getting the current time.
6530 @end itemize
6531
6532 All these packages may be used not only with KOMA-Script classes but also with
6533 the standard classes.
6534
6535 Since every package has its own version number, the version number quoted only
6536 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
6537 typearea (which are the main parts of the bundle).")
6538     (license license:lppl1.3+)))
6539
6540 (define-public texlive-generic-listofitems
6541   (package
6542     (name "texlive-generic-listofitems")
6543     (version (number->string %texlive-revision))
6544     (source (origin
6545               (method svn-fetch)
6546               (uri (svn-reference
6547                     (url (string-append "svn://www.tug.org/texlive/tags/"
6548                                         %texlive-tag "/Master/texmf-dist/"
6549                                         "/tex/generic/listofitems"))
6550                     (revision %texlive-revision)))
6551               (file-name (string-append name "-" version "-checkout"))
6552               (sha256
6553                (base32
6554                 "1x4wnpca97rnbvvg6wjmbkxxvnfva274q9ahzx746b435q93z3i1"))))
6555     (build-system trivial-build-system)
6556     (arguments
6557      `(#:modules ((guix build utils))
6558        #:builder
6559        (begin
6560          (use-modules (guix build utils))
6561          (let ((target (string-append (assoc-ref %outputs "out")
6562                                       "/share/texmf-dist/tex/generic/listofitems")))
6563            (mkdir-p target)
6564            (copy-recursively (assoc-ref %build-inputs "source") target)
6565            #t))))
6566     (home-page "https://www.ctan.org/pkg/listofitems")
6567     (synopsis "Grab items in lists using user-specified separation character")
6568     (description
6569      "This package allows one to capture all the items of a list, for which
6570 the parsing character has been selected by the user, and to access any of
6571 these items with a simple syntax.")
6572     (license license:lppl1.3c+)))
6573
6574 (define-public texlive-latex-readarray
6575   (package
6576     (name "texlive-latex-readarray")
6577     (version (number->string %texlive-revision))
6578     (source (origin
6579               (method svn-fetch)
6580               (uri (svn-reference
6581                     (url (string-append "svn://www.tug.org/texlive/tags/"
6582                                         %texlive-tag "/Master/texmf-dist/"
6583                                         "/tex/latex/readarray"))
6584                     (revision %texlive-revision)))
6585               (file-name (string-append name "-" version "-checkout"))
6586               (sha256
6587                (base32
6588                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
6589     (build-system trivial-build-system)
6590     (arguments
6591      `(#:modules ((guix build utils))
6592        #:builder
6593        (begin
6594          (use-modules (guix build utils))
6595          (let ((target (string-append (assoc-ref %outputs "out")
6596                                       "/share/texmf-dist/tex/latex/readarray")))
6597            (mkdir-p target)
6598            (copy-recursively (assoc-ref %build-inputs "source") target)
6599            #t))))
6600     (propagated-inputs
6601      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
6602     (home-page "https://www.ctan.org/pkg/readarray")
6603     (synopsis "Read, store and recall array-formatted data")
6604     (description
6605      "This package allows the user to input formatted data into elements of a
6606 2-D or 3-D array and to recall that data at will by individual cell number.
6607 The data can be but need not be numerical in nature.  It can be, for example,
6608 formatted text.")
6609     (license license:lppl1.3)))
6610
6611 (define-public texlive-latex-verbatimbox
6612   (package
6613     (name "texlive-latex-verbatimbox")
6614     (version (number->string %texlive-revision))
6615     (source (origin
6616               (method svn-fetch)
6617               (uri (svn-reference
6618                     (url (string-append "svn://www.tug.org/texlive/tags/"
6619                                         %texlive-tag "/Master/texmf-dist/"
6620                                         "/tex/latex/verbatimbox"))
6621                     (revision %texlive-revision)))
6622               (file-name (string-append name "-" version "-checkout"))
6623               (sha256
6624                (base32
6625                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
6626     (build-system trivial-build-system)
6627     (arguments
6628      `(#:modules ((guix build utils))
6629        #:builder
6630        (begin
6631          (use-modules (guix build utils))
6632          (let ((target (string-append (assoc-ref %outputs "out")
6633                                       "/share/texmf-dist/tex/latex/verbatimbox")))
6634            (mkdir-p target)
6635            (copy-recursively (assoc-ref %build-inputs "source") target)
6636            #t))))
6637     (propagated-inputs
6638      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
6639     (home-page "https://www.ctan.org/pkg/verbatimbox")
6640     (synopsis "Deposit verbatim text in a box")
6641     (description
6642      "The package provides a @code{verbbox} environment to place its contents
6643 into a globally available box, or into a box specified by the user.  The
6644 global box may then be used in a variety of situations (for example, providing
6645 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
6646 in places where the standard @code{verbatim} environment (which is based on a
6647 @code{trivlist}) may not appear.")
6648     (license license:lppl1.3+)))
6649
6650 (define-public texlive-latex-examplep
6651   (package
6652     (name "texlive-latex-examplep")
6653     (version (number->string %texlive-revision))
6654     (source (origin
6655               (method svn-fetch)
6656               (uri (svn-reference
6657                     (url (string-append "svn://www.tug.org/texlive/tags/"
6658                                         %texlive-tag "/Master/texmf-dist/"
6659                                         "/tex/latex/examplep"))
6660                     (revision %texlive-revision)))
6661               (file-name (string-append name "-" version "-checkout"))
6662               (sha256
6663                (base32
6664                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
6665     (build-system trivial-build-system)
6666     (arguments
6667      `(#:modules ((guix build utils))
6668        #:builder
6669        (begin
6670          (use-modules (guix build utils))
6671          (let ((target (string-append (assoc-ref %outputs "out")
6672                                       "/share/texmf-dist/tex/latex/examplep")))
6673            (mkdir-p target)
6674            (copy-recursively (assoc-ref %build-inputs "source") target)
6675            #t))))
6676     (home-page "https://www.ctan.org/pkg/examplep")
6677     (synopsis "Verbatim phrases and listings in LaTeX")
6678     (description
6679      "Examplep provides sophisticated features for typesetting verbatim source
6680 code listings, including the display of the source code and its compiled LaTeX
6681 or METAPOST output side-by-side, with automatic width detection and enabled
6682 page breaks (in the source), without the need for specifying the source twice.
6683 Special care is taken that section, page and footnote numbers do not interfere
6684 with the main document.  For typesetting short verbatim phrases, a replacement
6685 for the @code{\\verb} command is also provided in the package, which can be
6686 used inside tables and moving arguments such as footnotes and section
6687 titles.")
6688     ;; No version of the GPL is specified.
6689     (license license:gpl3+)))
6690
6691 (define-public texlive-xypic
6692   (let ((template (simple-texlive-package
6693                    "texlive-xypic"
6694                    (list "/doc/generic/xypic/"
6695                          "/dvips/xypic/xy389dict.pro"
6696                          "/fonts/enc/dvips/xypic/"
6697                          "/fonts/map/dvips/xypic/xypic.map"
6698
6699                          "/fonts/source/public/xypic/"
6700                          "/fonts/afm/public/xypic/"
6701                          "/fonts/tfm/public/xypic/"
6702                          "/fonts/type1/public/xypic/"
6703                          "/tex/generic/xypic/")
6704                    (base32
6705                     "09b51bbm189xh7039h5n8nmab5nn2bybhh26qjn08763m80zdhjg")
6706                    #:trivial? #t)))
6707     (package
6708       (inherit template)
6709       (arguments
6710        (substitute-keyword-arguments (package-arguments template)
6711          ((#:phases phases)
6712           `(modify-phases ,phases
6713              (delete 'reset-gzip-timestamps)))))
6714       (home-page "https://www.ctan.org/pkg/xypic")
6715       (synopsis "Flexible diagramming macros")
6716       (description "This is a package for typesetting a variety of graphs and
6717 diagrams with TeX.  Xy-pic works with most formats (including LaTeX,
6718 AMS-LaTeX, AMS-TeX, and plain TeX).  The distribution includes Michael Barr's
6719 @code{diag} package, which was previously distributed stand-alone.")
6720       (license license:gpl3+))))
6721
6722 (define-public texlive-fonts-xypic
6723   (deprecated-package "texlive-fonts-xypic" texlive-xypic))
6724
6725 (define-public texlive-generic-xypic
6726   (deprecated-package "texblive-generic-xypic" texlive-xypic))
6727
6728 (define-public texlive-bibtex
6729   (package
6730     (name "texlive-bibtex")
6731     (version (number->string %texlive-revision))
6732     (source
6733      (origin
6734        (method svn-fetch)
6735        (uri (svn-reference
6736              (url (string-append "svn://www.tug.org/texlive/tags/"
6737                                  %texlive-tag "/Master/texmf-dist/"
6738                                  "/bibtex"))
6739              (revision %texlive-revision)))
6740        (file-name (string-append name "-" version "-checkout"))
6741        (sha256
6742         (base32
6743          "1wijqq605cbhn2bdaryby3xpkwmnk9ixcrjn5zwlfrxbgfblzfmz"))))
6744     (build-system trivial-build-system)
6745     (arguments
6746      `(#:modules ((guix build utils))
6747        #:builder
6748        (begin
6749          (use-modules (guix build utils))
6750          (let ((target (string-append (assoc-ref %outputs "out")
6751                                       "/share/texmf-dist/bibtex")))
6752            (mkdir-p target)
6753            (copy-recursively (assoc-ref %build-inputs "source") target)
6754            #t))))
6755     (home-page "https://www.ctan.org/pkg/bibtex")
6756     (synopsis "Process bibliographies for LaTeX")
6757     (description
6758      "BibTeX allows the user to store his citation data in generic form, while
6759 printing citations in a document in the form specified by a BibTeX style, to
6760 be specified in the document itself (one often needs a LaTeX citation-style
6761 package, such as @command{natbib} as well).")
6762     (license license:knuth)))
6763
6764 (define-public texlive-charter
6765   (package
6766     (inherit (simple-texlive-package
6767               "texlive-charter"
6768               (list "/doc/fonts/charter/readme.charter"
6769                     "/fonts/afm/bitstrea/charter/"
6770                     "/fonts/tfm/bitstrea/charter/"
6771                     "/fonts/type1/bitstrea/charter/"
6772                     "/fonts/vf/bitstrea/charter/")
6773               (base32
6774                "09l5ymgz48s3hyn776l01g3isk3dnhrj1vdavdw4qq4kfxxpqdn9")
6775               #:trivial? #t))
6776     (home-page "https://www.ctan.org/pkg/charter")
6777     (synopsis "Charter fonts for TeX")
6778     (description "This package provides a copy of the Charter Type-1 fonts
6779 which Bitstream contributed to the X consortium, renamed for use with TeX.
6780 Support for use with LaTeX is available in @code{freenfss}, part of
6781 @command{psnfss}. ")
6782     (license (license:non-copyleft
6783               "http://mirrors.ctan.org/fonts/charter/readme.charter"))))
6784
6785 (define-public texlive-fonts-charter
6786   (deprecated-package "texlive-fonts-charter" texlive-charter))
6787
6788 (define-public texlive-context-base
6789   (package
6790     (name "texlive-context-base")
6791     (version (number->string %texlive-revision))
6792     (source (origin
6793               (method svn-fetch)
6794               (uri (svn-reference
6795                     (url (string-append "svn://www.tug.org/texlive/tags/"
6796                                         %texlive-tag "/Master/texmf-dist/"
6797                                         "/tex/context/base"))
6798                     (revision %texlive-revision)))
6799               (file-name (string-append name "-" version "-checkout"))
6800               (sha256
6801                (base32
6802                 "0d7d74giz5knvj4rj6mbzd6c05mwg9jrxab86jxdqbc3jy7cl4kz"))))
6803     (build-system trivial-build-system)
6804     (arguments
6805      `(#:modules ((guix build utils))
6806        #:builder
6807        (begin
6808          (use-modules (guix build utils))
6809          (let ((target (string-append (assoc-ref %outputs "out")
6810                                       "/share/texmf-dist/tex/context/case")))
6811            (mkdir-p target)
6812            (copy-recursively (assoc-ref %build-inputs "source") target)
6813            #t))))
6814     (home-page "https://www.ctan.org/pkg/context")
6815     (synopsis "Full featured, parameter driven macro package for TeX")
6816     (description "A full featured, parameter driven macro package, which fully
6817 supports advanced interactive documents.  See the ConTeXt garden for a wealth
6818 of support information.")
6819     (license license:gpl2+)))
6820
6821 (define-public texlive-beamer
6822   (package
6823     (inherit (simple-texlive-package
6824               "texlive-beamer"
6825               (list "/doc/latex/beamer/"
6826                     "/tex/latex/beamer/")
6827               (base32
6828                "1fqzbkmw2kfxihab8j4dadc3v68xap6v2ghpp2064fna47xlwy1c")
6829               #:trivial? #t))
6830     (propagated-inputs
6831      `(("texlive-latex-hyperref" ,texlive-latex-hyperref)
6832        ("texlive-latex-oberdiek" ,texlive-latex-oberdiek)
6833        ("texlive-latex-etoolbox" ,texlive-latex-etoolbox)
6834        ("texlive-latex-pgf" ,texlive-latex-pgf)))
6835     (home-page "https://www.ctan.org/pkg/beamer")
6836     (synopsis "LaTeX class for producing presentations and slides")
6837     (description "The beamer LaTeX class can be used for producing slides.
6838 The class works in both PostScript and direct PDF output modes, using the
6839 @code{pgf} graphics system for visual effects.  Content is created in the
6840 @code{frame} environment, and each frame can be made up of a number of slides
6841 using a simple notation for specifying material to appear on each slide within
6842 a frame.  Short versions of title, authors, institute can also be specified as
6843 optional parameters.  Whole frame graphics are supported by plain frames.  The
6844 class supports @code{figure} and @code{table} environments, transparency
6845 effects, varying slide transitions and animations.")
6846     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
6847     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
6848     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
6849
6850 (define-public texlive-latex-beamer
6851   (deprecated-package "texlive-latex-beamer" texlive-beamer))
6852
6853 (define-public texlive-latex-xmpincl
6854   (package
6855     (name "texlive-latex-xmpincl")
6856     (version (number->string %texlive-revision))
6857     (source
6858      (origin
6859        (method svn-fetch)
6860        (uri (texlive-ref "latex" "xmpincl"))
6861        (file-name (string-append name "-" version "-checkout"))
6862        (sha256
6863         (base32
6864          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
6865     (build-system texlive-build-system)
6866     (arguments '(#:tex-directory "latex/xmpincl"))
6867     (home-page "http://www.ctan.org/pkg/xmpincl")
6868     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
6869     (description
6870      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
6871 digital material to enhance the workflow in publication.  The essence is that
6872 the metadata is stored in an XML file, and this XML stream is then embedded in
6873 the file to which it applies.")
6874     (license license:gpl3+)))
6875
6876 (define-public texlive-latex-pdfx
6877   (package
6878     (name "texlive-latex-pdfx")
6879     (version (number->string %texlive-revision))
6880     (source
6881      (origin
6882        (method svn-fetch)
6883        (uri (texlive-ref "latex" "pdfx"))
6884        (file-name (string-append name "-" version "-checkout"))
6885        (sha256
6886         (base32
6887          "18294h0cr05fs424m3x6aq24z5hf5zmiflalkj4kvpmsyyqqsj74"))))
6888     (build-system texlive-build-system)
6889     (arguments
6890      '(#:tex-directory "latex/pdfx"
6891        #:phases
6892        (modify-phases %standard-phases
6893          (add-after 'unpack 'fix-encoding
6894            (lambda _
6895              (substitute* "pdfx.dtx"
6896                (("    .+umaczy") "umaczy"))
6897              #t))
6898          (add-before 'install 'install-tex-files
6899            (lambda* (#:key inputs outputs #:allow-other-keys)
6900              (let ((target (string-append (assoc-ref outputs "out")
6901                                           "/share/texmf-dist/tex/latex/pdfx")))
6902                (mkdir-p target)
6903                (copy-recursively (assoc-ref inputs "texlive-tex-pdfx") target)
6904                ;; Install the generated version in the "install" phase.
6905                (delete-file (string-append target "/pdfx.sty"))
6906                #t))))))
6907     (propagated-inputs
6908      `(("texlive-generic-pdftex" ,texlive-generic-pdftex)))
6909     (native-inputs
6910      `(("texlive-tex-pdfx"
6911         ,(origin
6912            (method svn-fetch)
6913            (uri (svn-reference
6914                  (url (string-append "svn://www.tug.org/texlive/tags/"
6915                                      %texlive-tag "/Master/texmf-dist/"
6916                                      "/tex/latex/pdfx"))
6917                  (revision %texlive-revision)))
6918            (file-name (string-append "texlive-tex-latex-pdfx-" version "-checkout"))
6919            (sha256
6920             (base32
6921              "171ffvpkj2fab4ljcxv3l6l5c8ga8zavdhmhfq07id8zyyr619ip"))))))
6922     (home-page "https://www.ctan.org/pkg/pdfx")
6923     (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
6924     (description
6925      "This package helps LaTeX users to create PDF/X, PFD/A and other
6926 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
6927     (license license:lppl1.2+)))
6928
6929 (define-public texlive-ydoc
6930   (let ((template (simple-texlive-package
6931                    "texlive-ydoc"
6932                    (list "/doc/latex/ydoc/"
6933                          "/source/latex/ydoc/")
6934                    (base32
6935                     "0ckcpy1b8v1fk3qc8qkxgiag2wc0qzxm6bgksv000m4m1hsi2g8b")
6936                    #:trivial? #f)))
6937     (package
6938       (inherit template)
6939       (outputs '("out" "doc"))
6940       (arguments
6941        (substitute-keyword-arguments (package-arguments template)
6942          ((#:tex-directory _ #t)
6943           "latex/ydoc")
6944          ((#:build-targets _ #t)
6945           ''("ydoc.dtx"))
6946          ((#:phases phases)
6947           `(modify-phases ,phases
6948              (add-after 'unpack 'chdir
6949                (lambda _ (chdir "source/latex/ydoc") #t))
6950              (add-after 'copy-files 'move-files
6951                (lambda* (#:key outputs #:allow-other-keys)
6952                  (let* ((share (string-append (assoc-ref outputs "out")
6953                                               "/share/texmf-dist"))
6954                         (target (string-append share "/tex/generic/ydoc"))
6955                         (doc (string-append (assoc-ref outputs "doc")
6956                                             "/share/texmf-dist/doc") ))
6957                    (mkdir-p target)
6958                    (for-each
6959                     (lambda (file)
6960                       (rename-file (string-append share "/tex/latex/ydoc/" file)
6961                                    (string-append target "/" file)))
6962                     '("ydocincl.tex" "ydocstrip.tex"))
6963                    (mkdir-p doc)
6964                    (rename-file (string-append share "/doc") doc)
6965                    #t)))))))
6966       (home-page "http://www.ctan.org/pkg/ydoc")
6967       (synopsis "Macros for documentation of LaTeX classes and packages")
6968       (description "The package provides macros and environments to document
6969 LaTeX packages and classes.  It is an (as yet unfinished) alternative to the
6970 @code{ltxdoc} class and the @code{doc} or @code{xdoc} packages.  The aim is to
6971 provide a different layout and more modern styles (using the @code{xcolor},
6972 @code{hyperref} packages, etc.)  This is an alpha release, and should probably
6973 not (yet) be used with other packages, since the implementation might
6974 change.")
6975       (license license:lppl1.3+))))
6976
6977 (define-public texlive-pstricks
6978   (let ((template (simple-texlive-package
6979                    "texlive-pstricks"
6980                    (list "/doc/generic/pstricks/"
6981                          "/dvips/pstricks/"
6982                          "/tex/generic/pstricks/"
6983                          "/tex/latex/pstricks/")
6984                    (base32
6985                     "0sdxdd0qi4sccw9il7d4s7jivs24pq99cdzfnrf0gkqjb1y8s7cl")
6986                    #:trivial? #t)))
6987     (package
6988       (inherit template)
6989       (arguments
6990        (substitute-keyword-arguments (package-arguments template)
6991          ((#:phases phases)
6992           `(modify-phases ,phases
6993              (delete 'reset-gzip-timestamps)))))
6994       (home-page "http://www.ctan.org/pkg/pstricks")
6995       (synopsis "PostScript macros for TeX")
6996       (description "PSTricks offers an extensive collection of macros for
6997 generating PostScript that is usable with most TeX macro formats, including
6998 Plain TeX, LaTeX, AMS-TeX, and AMS-LaTeX.  Included are macros for colour,
6999 graphics, pie charts, rotation, trees and overlays.  It has many special
7000 features, including a wide variety of graphics (picture drawing) macros, with
7001 a flexible interface and with colour support.  There are macros for colouring
7002 or shading the cells of tables.")
7003       (license license:lppl1.3+))))
7004
7005 (define-public texlive-pst-text
7006   (let ((template (simple-texlive-package
7007                    "texlive-pst-text"
7008                    (list "/doc/generic/pst-text/"
7009                          "/dvips/pst-text/pst-text.pro"
7010                          "/tex/generic/pst-text/"
7011                          "/tex/latex/pst-text/")
7012                    (base32
7013                     "146fpzd1xlqi94q5r48z8ni8qww713yh6nwkbr9pw27mjrqdadb9")
7014                    #:trivial? #t)))
7015     (package
7016       (inherit template)
7017       (propagated-inputs
7018        `(("texlive-pstricks" ,texlive-pstricks)))
7019       (home-page "http://www.ctan.org/pkg/pst-text")
7020       (synopsis "Text and character manipulation in PSTricks")
7021       (description "Pst-text is a PSTricks based package for plotting text along
7022 a different path and manipulating characters.  It includes the functionality
7023 of the old package @code{pst-char}.")
7024       (license license:lppl))))
7025
7026 (define-public texlive-iftex
7027   (let ((template (simple-texlive-package
7028                    "texlive-iftex"
7029                    (list "/doc/generic/iftex/"
7030                          "/tex/generic/iftex/iftex.sty")
7031                    (base32
7032                     "089zvw31gby150n1k0zdk2c0q97pgbqs46phxydaqil64b55nnl7")
7033                    #:trivial? #t)))
7034     (package
7035       (inherit template)
7036       (home-page "http://www.ctan.org/pkg/iftex")
7037       (synopsis "Determine the currently used TeX engine")
7038       (description "This package, which works both for Plain TeX and for
7039 LaTeX, defines the @code{\\ifPDFTeX}, @code{\\ifXeTeX}, and @code{\\ifLuaTeX}
7040 conditionals for testing which engine is being used for typesetting.  The
7041 package also provides the @code{\\RequirePDFTeX}, @code{\\RequireXeTeX}, and
7042 @code{\\RequireLuaTeX} commands which throw an error if pdfTeX, XeTeX or
7043 LuaTeX (respectively) is not the engine in use.")
7044       (license license:lppl1.3+))))
7045
7046 (define-public texlive-tools
7047   (let ((template (simple-texlive-package
7048                    "texlive-tools"
7049                    (list "/doc/latex/tools/"
7050                          "/source/latex/tools/")
7051                    (base32
7052                     "1ivhij7171wvrgcjn4wah84wxwpd21d0chh3zxab4pj067c8d0mh"))))
7053     (package
7054       (inherit template)
7055       (arguments
7056        (substitute-keyword-arguments (package-arguments template)
7057          ((#:tex-directory _ '())
7058           "latex/tools")
7059          ((#:build-targets _ '())
7060           ''("tools.ins"))
7061          ((#:phases phases)
7062           `(modify-phases ,phases
7063              (add-after 'unpack 'chdir
7064                (lambda _ (chdir "source/latex/tools") #t))))))
7065       (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
7066       (synopsis "LaTeX standard tools bundle")
7067       (description "This package provides a collection of simple tools that
7068 are part of the LaTeX required tools distribution, comprising the packages:
7069 @code{afterpage}, @code{array}, @code{bm}, @code{calc}, @code{dcolumn},
7070 @code{delarray}, @code{enumerate}, @code{fileerr}, @code{fontsmpl},
7071 @code{ftnright}, @code{hhline}, @code{indentfirst}, @code{layout},
7072 @code{longtable}, @code{multicol}, @code{rawfonts}, @code{showkeys},
7073 @code{somedefs}, @code{tabularx}, @code{theorem}, @code{trace},
7074 @code{varioref}, @code{verbatim}, @code{xr}, and @code{xspace}.")
7075       (license license:lppl1.3+))))
7076
7077 (define-public texlive-latex-xkeyval
7078   (package
7079     (name "texlive-latex-xkeyval")
7080     (version (number->string %texlive-revision))
7081     (source (origin
7082               (method svn-fetch)
7083               (uri (texlive-ref "latex" "xkeyval"))
7084               (file-name (string-append name "-" version "-checkout"))
7085               (sha256
7086                (base32
7087                 "0wancavix39j240pd8m9cgmwsijwx6jd6n54v8wg0x2rk5m44myp"))))
7088     (build-system texlive-build-system)
7089     (arguments
7090      '(#:tex-directory "latex/xkeyval"
7091        #:build-targets '("xkeyval.dtx")
7092        #:tex-format "latex" ; won't build with luatex
7093        #:phases
7094        (modify-phases %standard-phases
7095          ;; This package cannot be built out of tree as it expects to find
7096          ;; built files in the working directory.
7097          (add-before 'build 'fix-build
7098            (lambda _
7099              (setenv "TEXINPUTS"
7100                      (string-append (getcwd) "/build:"))
7101              (substitute* "xkeyval.dtx"
7102                (("usepackage\\{xcolor\\}")
7103                 "usepackage[dvips]{xcolor}"))
7104              #t))
7105          ;; FIXME: We don't have a package for this font yet.
7106          (add-after 'unpack 'remove-dependency-on-fourier
7107            (lambda _
7108              (substitute* "xkeyval.dtx"
7109                (("\\\\usepackage\\{fourier\\}") ""))
7110              #t))
7111          (add-after 'install 'move-files
7112            (lambda* (#:key outputs #:allow-other-keys)
7113              (let* ((out (assoc-ref outputs "out"))
7114                     (share (string-append out "/share/texmf-dist"))
7115                     (source (string-append share "/tex/latex/xkeyval/"))
7116                     (target (string-append share "/tex/generic/xkeyval/")))
7117                (mkdir-p target)
7118                (for-each (lambda (file)
7119                            (rename-file (string-append source file)
7120                                         (string-append target file)))
7121                          '("keyval.tex"
7122                            "pst-xkey.tex"
7123                            "xkeyval.tex"
7124                            "xkvex1.tex"
7125                            "xkvex2.tex"
7126                            "xkvex3.tex"
7127                            "xkvex4.tex"
7128                            "xkvtxhdr.tex"
7129                            "xkvutils.tex"))
7130                #t))))))
7131     (native-inputs
7132      `(("texlive-latex-base" ,texlive-latex-base)
7133        ("texlive-cm" ,texlive-cm)
7134        ("texlive-lm" ,texlive-lm)
7135        ("texlive-url" ,texlive-url)
7136        ("texlive-graphics-def" ,texlive-graphics-def)
7137        ("texlive-xcolor" ,texlive-xcolor)
7138        ("texlive-latex-footmisc" ,texlive-latex-footmisc)
7139        ("texlive-latex-listings" ,texlive-latex-listings)
7140        ("texlive-iftex" ,texlive-iftex)
7141        ("texlive-pstricks" ,texlive-pstricks)
7142        ("texlive-pst-text" ,texlive-pst-text)
7143        ("texlive-tools" ,texlive-tools)
7144        ("texlive-latex-pgf" ,texlive-latex-pgf)))
7145     (home-page "http://www.ctan.org/pkg/xkeyval")
7146     (synopsis "Extension of the keyval package")
7147     (description
7148      "This package is an extension of the keyval package and offers additional
7149 macros for setting keys and declaring and setting class or package options.
7150 The package allows the programmer to specify a prefix to the name of the
7151 macros it defines for keys, and to define families of key definitions; these
7152 all help use in documents where several packages define their own sets of
7153 keys.")
7154     (license license:lppl1.3+)))
7155
7156 (define-public texlive-standalone
7157   (package
7158     (name "texlive-standalone")
7159     (version (number->string %texlive-revision))
7160     (source
7161      (origin
7162        (method svn-fetch)
7163        (uri (texlive-ref "latex" "standalone"))
7164        (file-name (string-append name "-" version "-checkout"))
7165        (sha256
7166         (base32
7167          "192ydxcn8ir96q8qwvnppksmqf5i0p50i0wz6iqazbwmh3dqxpx4"))))
7168     (build-system texlive-build-system)
7169     (arguments '(#:tex-directory "latex/standalone"))
7170     (propagated-inputs
7171      `(("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
7172     (native-inputs
7173      `(("texlive-ydoc" ,texlive-ydoc)))
7174     (home-page "http://www.ctan.org/pkg/standalone")
7175     (synopsis "Compile TeX pictures stand-alone or as part of a document")
7176     (description "A class and package is provided which allows TeX pictures or
7177 other TeX code to be compiled standalone or as part of a main document.
7178 Special support for pictures with beamer overlays is also provided.  The
7179 package is used in the main document and skips extra preambles in sub-files.
7180 The class may be used to simplify the preamble in sub-files.  By default the
7181 @code{preview} package is used to display the typeset code without margins.
7182 The behaviour in standalone mode may adjusted using a configuration file
7183 @code{standalone.cfg} to redefine the standalone environment.")
7184     (license license:lppl1.3+)))
7185
7186 (define-public texlive-siunitx
7187   (package
7188     (name "texlive-siunitx")
7189     (version (number->string %texlive-revision))
7190     (source (texlive-origin
7191              name version
7192              (list "/source/latex/siunitx/siunitx.dtx"
7193                    "/doc/latex/siunitx/README.md")
7194              (base32
7195               "11kf6znkgw7y5qmw75qk6px6pqf57bwr53q0673zaiyq20lif96c")))
7196     (build-system texlive-build-system)
7197     (arguments
7198      '(#:tex-directory "latex/siunitx"
7199        #:build-targets '("siunitx.dtx")
7200        #:phases
7201        (modify-phases %standard-phases
7202          (add-after 'unpack 'chdir
7203            (lambda _ (chdir "source/latex/siunitx") #t)))))
7204     (propagated-inputs
7205      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)
7206        ("texlive-latex-l3packages" ,texlive-latex-l3packages)))
7207     (home-page "http://www.ctan.org/pkg/siunitx")
7208     (synopsis "Comprehensive SI units package")
7209     (description
7210      "Typesetting values with units requires care to ensure that the combined
7211 mathematical meaning of the value plus unit combination is clear.  In
7212 particular, the SI units system lays down a consistent set of units with rules
7213 on how they are to be used.  However, different countries and publishers have
7214 differing conventions on the exact appearance of numbers (and units).  A
7215 number of LaTeX packages have been developed to provide consistent application
7216 of the various rules.  The @code{siunitx} package takes the best from the
7217 existing packages, and adds new features and a consistent interface.  A number
7218 of new ideas have been incorporated, to fill gaps in the existing provision.
7219 The package also provides backward-compatibility with @code{SIunits},
7220 @code{sistyle}, @code{unitsdef} and @code{units}.  The aim is to have one
7221 package to handle all of the possible unit-related needs of LaTeX users.")
7222     (license license:lppl1.3c)))
7223
7224 (define-public texlive-booktabs
7225   (package
7226     (name "texlive-booktabs")
7227     (version (number->string %texlive-revision))
7228     (source
7229      (origin
7230        (method svn-fetch)
7231        (uri (texlive-ref "latex" "booktabs"))
7232        (file-name (string-append name "-" version "-checkout"))
7233        (sha256
7234         (base32
7235          "1dqid48vgh25wmw8xzmx6x3pfgz1y9f0r8aza1yxq2mjny5yf68x"))))
7236     (build-system texlive-build-system)
7237     (arguments '(#:tex-directory "latex/booktabs"))
7238     (home-page "http://www.ctan.org/pkg/booktabs")
7239     (synopsis "Publication quality tables in LaTeX")
7240     (description
7241      "This package enhances the quality of tables in LaTeX, providing extra
7242 commands as well as behind-the-scenes optimisation.  Guidelines are given as
7243 to what constitutes a good table in this context.  The package offers
7244 @code{longtable} compatibility.")
7245     (license license:lppl1.3+)))