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