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