gnu/packages/tex.scm

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