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