gnu/packages/tex.scm

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