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