gnu/packages/tex.scm

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