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