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