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-hyph-utf8
2082   (package
2083     (inherit (simple-texlive-package
2084               "texlive-hyph-utf8"
2085               (list "/source/generic/hyph-utf8/"
2086                     "/source/luatex/hyph-utf8/"
2087                     "/doc/luatex/hyph-utf8/"
2088                     "/tex/luatex/hyph-utf8/etex.src"
2089                     ;; Used to extract luatex-hyphen.lua
2090                     "/tex/latex/base/docstrip.tex"
2091
2092                     ;; Documentation; we can't use the whole directory because
2093                     ;; it includes files from other packages.
2094                     "/doc/generic/hyph-utf8/CHANGES"
2095                     "/doc/generic/hyph-utf8/HISTORY"
2096                     "/doc/generic/hyph-utf8/hyph-utf8.pdf"
2097                     "/doc/generic/hyph-utf8/hyph-utf8.tex"
2098                     "/doc/generic/hyph-utf8/hyphenation-distribution.pdf"
2099                     "/doc/generic/hyph-utf8/hyphenation-distribution.tex"
2100                     "/doc/generic/hyph-utf8/img/miktex-languages.png"
2101                     "/doc/generic/hyph-utf8/img/texlive-collection.png")
2102               (base32
2103                "10y8svgk68sivmgzrv8gv137r7kv49cs256cq2wja9ms437pxvbj")))
2104     (outputs '("out" "doc"))
2105     (build-system gnu-build-system)
2106     (arguments
2107      `(#:tests? #f ; there are none
2108        #:modules ((guix build gnu-build-system)
2109                   (guix build utils)
2110                   (ice-9 match))
2111        #:make-flags
2112        (list "-C" "source/luatex/hyph-utf8/"
2113              (string-append "DO_TEX = tex --interaction=nonstopmode '&tex' $<")
2114              (string-append "RUNDIR =" (assoc-ref %outputs "out") "/share/texmf-dist/tex/luatex/hyph-utf8/")
2115              (string-append "DOCDIR =" (assoc-ref %outputs "doc") "/share/texmf-dist/doc/luatex/hyph-utf8/")
2116              ;; hyphen.cfg is neither included nor generated, so let's only build the lua file.
2117              (string-append "UNPACKED = $(NAME).lua"))
2118        #:phases
2119        (modify-phases %standard-phases
2120          ;; TeX isn't usable at this point, so we first need to generate the
2121          ;; tex.fmt.
2122          (replace 'configure
2123            (lambda* (#:key inputs outputs #:allow-other-keys)
2124              ;; Target directories must exist.
2125              (mkdir-p (string-append (assoc-ref %outputs "out")
2126                                      "/share/texmf-dist/tex/luatex/hyph-utf8/"))
2127              (mkdir-p (string-append (assoc-ref %outputs "doc")
2128                                      "/share/texmf-dist/doc/luatex/hyph-utf8/"))
2129
2130              ;; We cannot build the documentation because that requires a
2131              ;; fully functional pdflatex, which depends on this package.
2132              (substitute* "source/luatex/hyph-utf8/Makefile"
2133                (("all: .*") "all: $(RUNFILES)\n"))
2134
2135              ;; Find required fonts for building tex.fmt
2136              (setenv "TFMFONTS"
2137                      (string-append (assoc-ref inputs "texlive-fonts-cm")
2138                                     "/share/texmf-dist/fonts/tfm/public/cm:"
2139                                     (assoc-ref inputs "texlive-fonts-knuth-lib")
2140                                     "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2141              ;; ...and find all tex files in this environment.
2142              (setenv "TEXINPUTS"
2143                      (string-append
2144                       (getcwd) ":"
2145                       (string-join
2146                        (map (match-lambda ((_ . dir) dir)) inputs)
2147                        "//:")))
2148
2149              ;; Generate tex.fmt.
2150              (let ((where "source/luatex/hyph-utf8"))
2151                (mkdir-p where)
2152                (with-directory-excursion where
2153                  (invoke "tex" "-ini"
2154                          (string-append (assoc-ref inputs "texlive-tex-plain")
2155                                         "/share/texmf-dist/tex/plain/config/tex.ini"))))))
2156          (add-before 'build 'build-loaders-and-converters
2157            (lambda* (#:key outputs #:allow-other-keys)
2158              (let* ((root (string-append (assoc-ref outputs "out")
2159                                          "/share/texmf-dist"))
2160                     (conv
2161                      (string-append root
2162                                     "/tex/generic/hyph-utf8/conversions")))
2163
2164                ;; Build converters
2165                (mkdir-p conv)
2166                (with-directory-excursion "source/generic/hyph-utf8"
2167                  (substitute* "generate-converters.rb"
2168                    (("\\$path_root=File.*")
2169                     (string-append "$path_root=\"" root "\"\n"))
2170                    ;; Avoid error with newer Ruby.
2171                    (("#1\\{%") "#1{%%"))
2172                  (invoke "ruby" "generate-converters.rb"))
2173                #t)))
2174          (replace 'install
2175            (lambda* (#:key source outputs #:allow-other-keys)
2176              (let ((doc (assoc-ref outputs "doc"))
2177                    (out (assoc-ref outputs "out")))
2178                (mkdir-p doc)
2179                (copy-recursively
2180                 (string-append source "/doc")
2181                 (string-append doc "/doc"))
2182                (install-file
2183                 (string-append source "/tex/luatex/hyph-utf8/etex.src")
2184                 (string-append out "/share/texmf-dist/tex/luatex/hyph-utf8/")))
2185              #t)))))
2186     (native-inputs
2187      `(("ruby" ,ruby)
2188        ("texlive-bin" ,texlive-bin)
2189        ;; The following packages are needed for build "tex.fmt", which we need
2190        ;; for a working "tex".
2191        ("texlive-tex-plain" ,texlive-tex-plain)
2192        ("texlive-fonts-cm" ,texlive-fonts-cm)
2193        ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)
2194        ("texlive-hyphen-base" ,texlive-hyphen-base)))
2195     (home-page "https://ctan.org/pkg/hyph-utf8")
2196     (synopsis "Hyphenation patterns expressed in UTF-8")
2197     (description "Modern native UTF-8 engines such as XeTeX and LuaTeX need
2198 hyphenation patterns in UTF-8 format, whereas older systems require
2199 hyphenation patterns in the 8-bit encoding of the font in use (such encodings
2200 are codified in the LaTeX scheme with names like OT1, T2A, TS1, OML, LY1,
2201 etc).  The present package offers a collection of conversions of existing
2202 patterns to UTF-8 format, together with converters for use with 8-bit fonts in
2203 older systems.  Since hyphenation patterns for Knuthian-style TeX systems are
2204 only read at iniTeX time, it is hoped that the UTF-8 patterns, with their
2205 converters, will completely supplant the older patterns.")
2206     ;; Individual files each have their own license.  Most of these files are
2207     ;; independent hyphenation patterns.
2208     (license (list license:lppl1.0+
2209                    license:lppl1.2+
2210                    license:lppl1.3
2211                    license:lppl1.3+
2212                    license:lppl1.3a+
2213                    license:lgpl2.1
2214                    license:lgpl2.1+
2215                    license:lgpl3+
2216                    license:gpl2+
2217                    license:gpl3+
2218                    license:mpl1.1
2219                    license:asl2.0
2220                    license:expat
2221                    license:bsd-3
2222                    license:cc0
2223                    license:public-domain
2224                    license:wtfpl2))))
2225
2226 (define-public texlive-generic-hyph-utf8
2227   (deprecated-package "texlive-generic-hyph-utf8" texlive-hyph-utf8))
2228
2229 (define-public texlive-dehyph-exptl
2230   (package
2231     (inherit (simple-texlive-package
2232               "texlive-dehyph-exptl"
2233               (list "/tex/generic/dehyph-exptl/"
2234                     "/doc/generic/dehyph-exptl/")
2235               (base32
2236                "1w2danvvy2f52hcb4acvjks53kcanwxr9s990fap6mj279hpgmh2")
2237               #:trivial? #t))
2238     (propagated-inputs
2239      `(("texlive-hyphen-base" ,texlive-hyphen-base)
2240        ("texlive-hyph-utf8" ,texlive-hyph-utf8)))
2241     (home-page "http://projekte.dante.de/Trennmuster/WebHome")
2242     (synopsis "Hyphenation patterns for German")
2243     (description "The package provides experimental hyphenation patterns for
2244 the German language, covering both traditional and reformed orthography.  The
2245 patterns can be used with packages Babel and hyphsubst from the Oberdiek
2246 bundle.")
2247     ;; Hyphenation patterns are under the Expat license; documentation is
2248     ;; under LPPL.
2249     (license (list license:expat license:lppl))))
2250
2251 (define-public texlive-generic-dehyph-exptl
2252   (deprecated-package "texlive-generic-dehyph-exptl" texlive-dehyph-exptl))
2253
2254 (define-public texlive-latex-base
2255   (let ((texlive-dir
2256          (lambda (dir hash)
2257            (origin
2258              (method svn-fetch)
2259              (uri (svn-reference
2260                    (url (string-append "svn://www.tug.org/texlive/tags/"
2261                                        %texlive-tag "/Master/texmf-dist/"
2262                                        dir))
2263                    (revision %texlive-revision)))
2264              (file-name (string-append "texlive-generic-"
2265                                        (last (string-split
2266                                                (string-drop-right dir 1) #\/))
2267                                        "-" (number->string %texlive-revision)
2268                                        "-checkout"))
2269              (sha256 (base32 hash))))))
2270     (package
2271       (name "texlive-latex-base")
2272       (version (number->string %texlive-revision))
2273       (source (origin
2274                 (method svn-fetch)
2275                 (uri (texlive-ref "latex" "base"))
2276                 (file-name (string-append name "-" version "-checkout"))
2277                 (sha256
2278                  (base32
2279                   "17bqrzzjz16k52sc7ydl4vw7ddy2z3g0p1xsk2c35h1ynq9h3wwm"))))
2280       (build-system gnu-build-system)
2281       (arguments
2282        `(#:modules ((guix build gnu-build-system)
2283                     (guix build utils)
2284                     (ice-9 match)
2285                     (srfi srfi-1)
2286                     (srfi srfi-26))
2287          #:tests? #f                    ; no tests
2288          #:phases
2289          (modify-phases %standard-phases
2290            (delete 'configure)
2291            (replace 'build
2292              (lambda* (#:key inputs #:allow-other-keys)
2293                ;; Find required fonts
2294                (setenv "TFMFONTS"
2295                        (string-append (assoc-ref inputs "texlive-fonts-cm")
2296                                       "/share/texmf-dist/fonts/tfm/public/cm:"
2297                                       (assoc-ref inputs "texlive-fonts-latex")
2298                                       "/share/texmf-dist/fonts/tfm/public/latex-fonts:"
2299                                       (assoc-ref inputs "texlive-fonts-knuth-lib")
2300                                       "/share/texmf-dist/fonts/tfm/public/knuth-lib"))
2301                (setenv "TEXINPUTS"
2302                        (string-append
2303                         (getcwd) ":"
2304                         (getcwd) "/build:"
2305                         (string-join
2306                          (map (match-lambda ((_ . dir) dir)) inputs)
2307                          "//:")))
2308
2309                ;; Create an empty texsys.cfg, because latex.ltx wants to include
2310                ;; it.  This file must exist and it's fine if it's empty.
2311                (with-output-to-file "texsys.cfg"
2312                  (lambda _ (format #t "%")))
2313
2314                (mkdir "build")
2315                (mkdir "web2c")
2316                (invoke "luatex" "-ini" "-interaction=batchmode"
2317                        "-output-directory=build" "unpack.ins")
2318                (invoke "tex" "-ini" "-interaction=batchmode"
2319                        "-output-directory=web2c" "tex.ini")
2320                ;; LaTeX, pdfetex/pdftex, and XeTeX require e-TeX, which
2321                ;; is enabled only in extended mode (activated with a
2322                ;; leading asterisk).  We should not use luatex here,
2323                ;; because that would make the generated format files
2324                ;; incompatible with any other TeX engine.
2325                (for-each (lambda (format)
2326                            (invoke "latex" "-ini" "-interaction=batchmode"
2327                                    "-output-directory=web2c"
2328                                    "-translate-file=cp227.tcx"
2329                                    (string-append "*" format ".ini")))
2330                          '("latex"
2331                            "pdflatex"
2332                            "pdfetex"))
2333                (for-each (lambda (format)
2334                            (invoke format "-ini" "-interaction=batchmode"
2335                                    "-output-directory=web2c"
2336                                    (string-append "*" format ".ini")))
2337                          '("xetex"
2338                            "xelatex"))
2339                (for-each (lambda (format)
2340                            (invoke "luatex" "-ini" "-interaction=batchmode"
2341                                    "-output-directory=web2c"
2342                                    (string-append format ".ini")))
2343                          '("dviluatex" "dvilualatex" "luatex" "lualatex"))
2344                #t))
2345            (replace 'install
2346              (lambda* (#:key inputs outputs #:allow-other-keys)
2347                (let* ((out (assoc-ref outputs "out"))
2348                       (target (string-append
2349                                out "/share/texmf-dist/tex/latex/base"))
2350                       (web2c (string-append
2351                               out "/share/texmf-dist/web2c"))
2352                       (support-files (assoc-ref inputs "texlive-latex-base-support-files")))
2353                  (mkdir-p target)
2354                  (mkdir-p web2c)
2355                  (for-each delete-file (find-files "." "\\.(log|aux)$"))
2356                  (for-each (cut install-file <> target)
2357                            (find-files "build" ".*"))
2358                  (for-each (cut install-file <> web2c)
2359                            (find-files "web2c" ".*"))
2360                  ;; pdftex is really just the same as pdfetex, but since it
2361                  ;; doesn't have its own format file, we need to copy it.
2362                  (copy-file "web2c/pdfetex.fmt"
2363                             (string-append web2c "/pdftex.fmt"))
2364                  ;; "source" is missing the support files as per doc/latex/base/manifest.txt.
2365                  ;; FIXME: We are probably not packaging this right.
2366                  (for-each (lambda (file)
2367                              (install-file
2368                               (string-append support-files "/" file)
2369                               target))
2370                            '("ltxguide.cls" "ltnews.cls" "minimal.cls" "idx.tex"
2371                              "lablst.tex" "testpage.tex" "ltxcheck.tex"))
2372                  ;; Install configurations
2373                  (copy-recursively
2374                   (assoc-ref inputs "texlive-latex-latexconfig")
2375                   (string-append out "/share/texmf-dist/tex/latex/latexconfig"))
2376                  (copy-recursively
2377                   (assoc-ref inputs "texlive-generic-config")
2378                   (string-append out "/share/texmf-dist/tex/generic/config"))
2379                  (copy-recursively
2380                   (assoc-ref inputs "texlive-generic-hyphen")
2381                   (string-append out "/share/texmf-dist/tex/generic/hyphen"))
2382                  (copy-recursively
2383                   (assoc-ref inputs "texlive-generic-ruhyphen")
2384                   (string-append out "/share/texmf-dist/tex/generic/ruhyphen"))
2385                  (copy-recursively
2386                   (assoc-ref inputs "texlive-generic-ukrhyph")
2387                   (string-append out "/share/texmf-dist/tex/generic/ukrhyph"))
2388                  #t))))))
2389       (native-inputs
2390        `(("texlive-bin" ,texlive-bin)
2391          ("texlive-generic-unicode-data" ,texlive-generic-unicode-data)
2392          ("texlive-generic-dehyph-exptl" ,texlive-generic-dehyph-exptl)
2393          ("texlive-generic-tex-ini-files" ,texlive-generic-tex-ini-files)
2394          ("texlive-latex-latexconfig"
2395           ,(texlive-dir "tex/latex/latexconfig/"
2396                         "1zb3j49cj8p75yph6c8iysjp7qbdvghwf0mn9j0l7qq3qkbz2xaf"))
2397          ("texlive-generic-hyphen"
2398           ,(texlive-dir "tex/generic/hyphen/"
2399                         "0xim36wybw2625yd0zwlp9m2c2xrcybw58gl4rih9nkph0wqwwhd"))
2400          ("texlive-generic-ruhyphen"
2401           ,(texlive-dir "tex/generic/ruhyphen/"
2402                         "14rjkpl4zkjqs13rcf9kcd24mn2kx7i1jbdwxq8ds94bi66ylzsd"))
2403          ("texlive-generic-ukrhyph"
2404           ,(texlive-dir "tex/generic/ukrhyph/"
2405                         "1cfwdg2rhbayl3w0x1xqd36d45zbc96f029myp13s7cb6kbmbppv"))
2406          ("texlive-generic-config"
2407           ,(texlive-dir "tex/generic/config/"
2408                         "1v90iihy112q93zdpblpdk8zv8rf99fgslsg06s1sxm27zjm9nap"))
2409          ("texlive-latex-base-support-files"
2410           ,(origin
2411              (method svn-fetch)
2412              (uri (svn-reference
2413                    (url (string-append "svn://www.tug.org/texlive/tags/"
2414                                        %texlive-tag "/Master/texmf-dist/"
2415                                        "/tex/latex/base"))
2416                    (revision %texlive-revision)))
2417              (file-name (string-append name "-" version "-checkout"))
2418              (sha256
2419               (base32
2420                "18wy8dlcw8adl6jzqwbg54pdwlhs8hilnfvqbw6ikj6y3zhqkj7q"))))
2421          ("texlive-tex-plain" ,texlive-tex-plain)
2422          ("texlive-fonts-cm" ,texlive-fonts-cm)
2423          ("texlive-fonts-latex" ,texlive-fonts-latex)
2424          ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib)))
2425       (propagated-inputs
2426        `(("texlive-generic-hyph-utf8" ,texlive-generic-hyph-utf8)))
2427       (home-page "https://www.ctan.org/pkg/latex-base")
2428       (synopsis "Base sources of LaTeX")
2429       (description
2430        "This bundle comprises the source of LaTeX itself, together with several
2431 packages which are considered \"part of the kernel\".  This bundle, together
2432 with the required packages, constitutes what every LaTeX distribution should
2433 contain.")
2434       (license license:lppl1.3c+))))
2435
2436 (define-public texlive-latex-filecontents
2437   (package
2438     (name "texlive-latex-filecontents")
2439     (version (number->string %texlive-revision))
2440     (source (origin
2441               (method svn-fetch)
2442               (uri (texlive-ref "latex" "filecontents"))
2443               (file-name (string-append name "-" version "-checkout"))
2444               (sha256
2445                (base32
2446                 "0swkbxv8vg0yizadfnvrwjb4cj0pn34v9wm6v7wqq903fdav7k7q"))))
2447     (build-system texlive-build-system)
2448     (arguments '(#:tex-directory "latex/filecontents"))
2449     (home-page "https://www.ctan.org/pkg/filecontents")
2450     (synopsis "Extended filecontents and filecontents* environments")
2451     (description
2452      "LaTeX2e's @code{filecontents} and @code{filecontents*} environments
2453 enable a LaTeX source file to generate external files as it runs through
2454 LaTeX.  However, there are two limitations of these environments: they refuse
2455 to overwrite existing files, and they can only be used in the preamble of a
2456 document.  The filecontents package removes these limitations, letting you
2457 overwrite existing files and letting you use @code{filecontents} /
2458 @code{filecontents*} anywhere.")
2459     (license license:lppl1.3c+)))
2460
2461 (define-public texlive-generic-ifxetex
2462   (package
2463     (name "texlive-generic-ifxetex")
2464     (version (number->string %texlive-revision))
2465     (source (origin
2466               (method svn-fetch)
2467               (uri (texlive-ref "generic" "ifxetex"))
2468               (file-name (string-append name "-" version "-checkout"))
2469               (sha256
2470                (base32
2471                 "0w2xj7n0szavj329kds09q626szkc378p3w0sk022q0ln4ksz86d"))))
2472     (build-system texlive-build-system)
2473     (arguments
2474      '(#:tex-directory "generic/ifxetex"
2475        #:tex-format "xelatex"))
2476     (inputs
2477      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
2478     (home-page "https://www.ctan.org/pkg/ifxetex")
2479     (synopsis "Am I running under XeTeX?")
2480     (description
2481      "This is a simple package which provides an @code{\\ifxetex} conditional,
2482 so that other code can determine that it is running under XeTeX.  The package
2483 requires the e-TeX extensions to the TeX primitive set.")
2484     (license license:lppl1.3c+)))
2485
2486 (define-public texlive-generic-epsf
2487   (package
2488     (name "texlive-generic-epsf")
2489     (version (number->string %texlive-revision))
2490     (source (origin
2491               (method svn-fetch)
2492               (uri (svn-reference
2493                     (url (string-append "svn://www.tug.org/texlive/tags/"
2494                                         %texlive-tag "/Master/texmf-dist/"
2495                                         "/tex/generic/epsf"))
2496                     (revision %texlive-revision)))
2497               (file-name (string-append name "-" version "-checkout"))
2498               (sha256
2499                (base32
2500                 "14w3j81ympyvg8hkk9i1xgr8a0gfnfsb2ki8qqsk5pa051za1xcy"))))
2501     (build-system trivial-build-system)
2502     (arguments
2503      `(#:modules ((guix build utils))
2504        #:builder
2505        (begin
2506          (use-modules (guix build utils))
2507          (let ((target (string-append (assoc-ref %outputs "out")
2508                                       "/share/texmf-dist/tex/generic/epfs")))
2509            (mkdir-p target)
2510            (copy-recursively (assoc-ref %build-inputs "source") target)
2511            #t))))
2512     (home-page "https://www.ctan.org/pkg/epsf")
2513     (synopsis "Simple macros for EPS inclusion")
2514     (description
2515      "This package provides the original (and now obsolescent) graphics
2516 inclusion macros for use with dvips, still widely used by Plain TeX users (in
2517 particular).  For LaTeX users, the package is nowadays (rather strongly)
2518 deprecated in favour of the more sophisticated standard LaTeX latex-graphics
2519 bundle of packages.  (The latex-graphics bundle is also available to Plain TeX
2520 users, via its Plain TeX version.)")
2521     (license license:public-domain)))
2522
2523 (define-public texlive-latex-fancyvrb
2524   (package
2525     (name "texlive-latex-fancyvrb")
2526     (version (number->string %texlive-revision))
2527     (source (origin
2528               (method svn-fetch)
2529               (uri (texlive-ref "latex" "fancyvrb"))
2530               (file-name (string-append name "-" version "-checkout"))
2531               (sha256
2532                (base32
2533                 "03l7140y031rr14h02i4z9zqsfvrbn7wzwxbjsrjcgrk6sdr71wv"))))
2534     (build-system texlive-build-system)
2535     (arguments
2536      '(#:tex-directory "latex/fancyvrb"
2537        #:tex-format "latex"))
2538     (home-page "https://www.ctan.org/pkg/fancyvrb")
2539     (synopsis "Sophisticated verbatim text")
2540     (description
2541      "This package provides tools for the flexible handling of verbatim text
2542 including: verbatim commands in footnotes; a variety of verbatim environments
2543 with many parameters; ability to define new customized verbatim environments;
2544 save and restore verbatim text and environments; write and read files in
2545 verbatim mode; build \"example\" environments (showing both result and
2546 verbatim source).")
2547     (license license:lppl1.0+)))
2548
2549 (define-public texlive-latex-graphics
2550   (package
2551     (name "texlive-latex-graphics")
2552     (version (number->string %texlive-revision))
2553     (source (origin
2554               (method svn-fetch)
2555               (uri (texlive-ref "latex" "graphics"))
2556               (file-name (string-append name "-" version "-checkout"))
2557               (sha256
2558                (base32
2559                 "0nlfhn55ax89rcvpkrl9570671b62kcr4c9l5ch3w5zw9vmi00dz"))))
2560     (build-system texlive-build-system)
2561     (arguments
2562      '(#:tex-directory "latex/graphics"
2563        #:phases
2564        (modify-phases %standard-phases
2565          (add-after 'install 'install-config
2566            (lambda* (#:key inputs outputs #:allow-other-keys)
2567              (let ((cfg (assoc-ref inputs "graphics-cfg"))
2568                    (target (string-append (assoc-ref outputs "out")
2569                                           "/share/texmf-dist/tex/latex/graphics-cfg")))
2570                (mkdir-p target)
2571                (install-file (string-append cfg "/graphics.cfg") target)
2572                (install-file (string-append cfg "/color.cfg")    target)
2573                #t)))
2574          (add-after 'install 'install-defs
2575            (lambda* (#:key inputs outputs #:allow-other-keys)
2576              (let ((def (assoc-ref inputs "graphics-def"))
2577                    (target (string-append (assoc-ref outputs "out")
2578                                           "/share/texmf-dist/tex/latex/graphics-def")))
2579                (mkdir-p target)
2580                (copy-recursively def target)
2581                #t))))))
2582     (native-inputs
2583      `(("graphics-cfg"
2584         ,(origin
2585            (method git-fetch)
2586            (uri (git-reference
2587                  (url "https://github.com/latex3/graphics-cfg.git")
2588                  (commit "19d1238af17df376cd46333b229579b0f7f3a41f")))
2589            (file-name (string-append "graphics-cfg-"
2590                                      (number->string %texlive-revision)
2591                                      "-checkout"))
2592            (sha256
2593             (base32
2594              "12kbgbm52gmmgn8zajb74s8n5rvnxcfdvs3iyj8vcw5vrsw5i6mh"))))
2595        ("graphics-def"
2596         ,(origin
2597            (method svn-fetch)
2598            (uri (svn-reference
2599                  (url (string-append "svn://www.tug.org/texlive/tags/"
2600                                      %texlive-tag "/Master/texmf-dist/"
2601                                      "/tex/latex/graphics-def"))
2602                  (revision %texlive-revision)))
2603            (file-name (string-append "graphics-def-"
2604                                      (number->string %texlive-revision)
2605                                      "-checkout"))
2606            (sha256
2607             (base32
2608              "17zpcgrfsr29g1dkz9np1qi63kjv7gb12rg979c6dai6qksbr3vq"))))))
2609     (home-page "https://www.ctan.org/pkg/latex-graphics")
2610     (synopsis "LaTeX standard graphics bundle")
2611     (description
2612      "This is a collection of LaTeX packages for producing color, including
2613 graphics (e.g. PostScript) files, and rotation and scaling of text in LaTeX
2614 documents.  It comprises the packages color, graphics, graphicx, trig, epsfig,
2615 keyval, and lscape.")
2616     ;; The configuration files are released under CC0.
2617     (license (list license:lppl1.3c+
2618                    license:cc0))))
2619
2620 (define-public texlive-latex-xcolor
2621   (package
2622     (name "texlive-latex-xcolor")
2623     (version (number->string %texlive-revision))
2624     (source (origin
2625               (method svn-fetch)
2626               (uri (texlive-ref "latex" "xcolor"))
2627               (file-name (string-append name "-" version "-checkout"))
2628               (sha256
2629                (base32
2630                 "01n613s7bcrd2n4jfawm0k4nn2ny3aaifp2jjfif3lz4sbv31494"))))
2631     (build-system texlive-build-system)
2632     (arguments '(#:tex-directory "latex/xcolor"))
2633     (home-page "https://www.ctan.org/pkg/xcolor")
2634     (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
2635     (description
2636      "The package starts from the basic facilities of the colorcolor package,
2637 and provides easy driver-independent access to several kinds of color tints,
2638 shades, tones, and mixes of arbitrary colors.  It allows a user to select a
2639 document-wide target color model and offers complete tools for conversion
2640 between eight color models.  Additionally, there is a command for alternating
2641 row colors plus repeated non-aligned material (like horizontal lines) in
2642 tables.")
2643     (license license:lppl1.2+)))
2644
2645 (define-public texlive-latex-hyperref
2646   (package
2647     (name "texlive-latex-hyperref")
2648     (version "6.84a2")
2649     ;; The sources in the TeX Live SVN repository do not contain hluatex.dtx,
2650     ;; so we fetch the release from GitHub.
2651     (source (origin
2652               (method url-fetch)
2653               (uri (string-append "https://github.com/ho-tex/hyperref/"
2654                                   "archive/release-" version ".tar.gz"))
2655               (file-name (string-append name "-" version ".tar.gz"))
2656               (sha256
2657                (base32
2658                 "1d3rmjgzh0025a1dza55zb6nzzlgd1y9snwx45wq1c1vf42m79h2"))))
2659     (build-system texlive-build-system)
2660     (arguments '(#:tex-directory "latex/hyperref"))
2661     (propagated-inputs
2662      `(("texlive-latex-oberdiek" ,texlive-latex-oberdiek) ; for ltxcmds.sty
2663        ("texlive-latex-url" ,texlive-latex-url)))
2664     (home-page "https://www.ctan.org/pkg/hyperref")
2665     (synopsis "Extensive support for hypertext in LaTeX")
2666     (description
2667      "The @code{hyperref} package is used to handle cross-referencing commands
2668 in LaTeX to produce hypertext links in the document.  The package provides
2669 backends for the @code{\\special} set defined for HyperTeX DVI processors; for
2670 embedded @code{pdfmark} commands for processing by Acrobat
2671 Distiller (@code{dvips} and Y&Y's @code{dvipsone}); for Y&Y's @code{dviwindo};
2672 for PDF control within pdfTeX and @code{dvipdfm}; for TeX4ht; and for VTeX's
2673 pdf and HTML backends.  The package is distributed with the @code{backref} and
2674 @code{nameref} packages, which make use of the facilities of @code{hyperref}.")
2675     (license license:lppl1.3+)))
2676
2677 (define-public texlive-latex-oberdiek
2678   (package
2679     (name "texlive-latex-oberdiek")
2680     (version (number->string %texlive-revision))
2681     (source (origin
2682               (method svn-fetch)
2683               (uri (texlive-ref "latex" "oberdiek"))
2684               (file-name (string-append name "-" version "-checkout"))
2685               (sha256
2686                (base32
2687                 "1m9fg8ddhpsl1212igr9a9fmj012lv780aghjn6fpidg2wqrffmn"))))
2688     (build-system texlive-build-system)
2689     (arguments
2690      '(#:tex-directory "latex/oberdiek"
2691        #:build-targets '("oberdiek.ins")
2692        #:phases
2693        (modify-phases %standard-phases
2694          ;; "ifpdf.ins" is not generated, so we need to process the dtx file.
2695          (add-after 'unpack 'do-not-process-ifpdf.ins
2696            (lambda _
2697              (substitute* "oberdiek.ins"
2698                (("ifpdf.ins") "ifpdf.dtx"))
2699              #t)))))
2700     (propagated-inputs
2701      `(("texlive-generic-ifxetex" ,texlive-generic-ifxetex)))
2702     (home-page "https://www.ctan.org/pkg/oberdiek")
2703     (synopsis "Bundle of packages submitted by Heiko Oberdiek")
2704     (description
2705      "The bundle comprises various LaTeX packages, providing among others:
2706 better accessibility support for PDF files; extensible chemists reaction
2707 arrows; record information about document class(es) used; and many more.")
2708     (license license:lppl1.3+)))
2709
2710 (define-public texlive-latex-tools
2711   (package
2712     (name "texlive-latex-tools")
2713     (version (number->string %texlive-revision))
2714     (source (origin
2715               (method svn-fetch)
2716               (uri (texlive-ref "latex" "tools"))
2717               (file-name (string-append name "-" version "-checkout"))
2718               (sha256
2719                (base32
2720                 "0vj7h1fgf1396h4qjdc2m07y08i54gbbfrxl8y327cn3r1n093s6"))))
2721     (build-system texlive-build-system)
2722     (arguments
2723      '(#:tex-directory "latex/tools"
2724        #:build-targets '("tools.ins")))
2725     (home-page "https://www.ctan.org/pkg/latex-tools")
2726     (synopsis "LaTeX standard tools bundle")
2727     (description
2728      "This package is a collection of (variously) simple tools provided as
2729 part of the LaTeX required tools distribution, comprising the following
2730 packages: afterpage, array, bm, calc, dcolumn, delarray, enumerate, fileerr,
2731 fontsmpl, ftnright, hhline, indentfirst, layout, longtable, multicol,
2732 rawfonts, showkeys, somedefs, tabularx, theorem, trace, varioref, verbatim,
2733 xr, and xspace.")
2734     (license license:lppl1.3+)))
2735
2736 (define-public texlive-latex-url
2737   (package
2738     (name "texlive-latex-url")
2739     (version (number->string %texlive-revision))
2740     (source (origin
2741               (method svn-fetch)
2742               (uri (svn-reference
2743                     (url (string-append "svn://www.tug.org/texlive/tags/"
2744                                         %texlive-tag "/Master/texmf-dist/"
2745                                         "/tex/latex/url"))
2746                     (revision %texlive-revision)))
2747               (file-name (string-append name "-" version "-checkout"))
2748               (sha256
2749                (base32
2750                 "184s2543cwia5l7iibhlkl1ffbncfhjpv5p56zq0c15by5sghlac"))))
2751     (build-system trivial-build-system)
2752     (arguments
2753      `(#:modules ((guix build utils))
2754        #:builder
2755        (begin
2756          (use-modules (guix build utils))
2757          (let ((target (string-append (assoc-ref %outputs "out")
2758                                       "/share/texmf-dist/tex/latex/url")))
2759            (mkdir-p target)
2760            (copy-recursively (assoc-ref %build-inputs "source") target)
2761            #t))))
2762     (home-page "https://www.ctan.org/pkg/url")
2763     (synopsis "Verbatim with URL-sensitive line breaks")
2764     (description "The command @code{\\url} is a form of verbatim command that
2765 allows linebreaks at certain characters or combinations of characters, accepts
2766 reconfiguration, and can usually be used in the argument to another command.
2767 The command is intended for email addresses, hypertext links,
2768 directories/paths, etc., which normally have no spaces, so by default the
2769 package ignores spaces in its argument.  However, a package option allows
2770 spaces, which is useful for operating systems where spaces are a common part
2771 of file names.")
2772     ;; The license header states that it is under LPPL version 2 or later, but
2773     ;; the latest version is 1.3c.
2774     (license license:lppl1.3c+)))
2775
2776 (define-public texlive-latex-l3kernel
2777   (package
2778     (name "texlive-latex-l3kernel")
2779     (version (number->string %texlive-revision))
2780     (source (origin
2781               (method svn-fetch)
2782               (uri (texlive-ref "latex" "l3kernel"))
2783               (file-name (string-append name "-" version "-checkout"))
2784               (sha256
2785                (base32
2786                 "0p3fsxap1ilwjz356aq4s5ygwvdscis8bh93g8klf8mhrd8cr2jy"))))
2787     (build-system texlive-build-system)
2788     (arguments
2789      '(#:tex-directory "latex/l3kernel"))
2790     (home-page "https://www.ctan.org/pkg/l3kernel")
2791     (synopsis "LaTeX3 programmers’ interface")
2792     (description
2793      "The l3kernel bundle provides an implementation of the LaTeX3
2794 programmers’ interface, as a set of packages that run under LaTeX 2e.  The
2795 interface provides the foundation on which the LaTeX3 kernel and other future
2796 code are built: it is an API for TeX programmers.  The packages are set up so
2797 that the LaTeX3 conventions can be used with regular LaTeX 2e packages.")
2798     (license license:lppl1.3c+)))
2799
2800 (define-public texlive-latex-l3packages
2801   (package
2802     (name "texlive-latex-l3packages")
2803     (version (number->string %texlive-revision))
2804     (source (origin
2805               (method svn-fetch)
2806               (uri (texlive-ref "latex" "l3packages"))
2807               (file-name (string-append name "-" version "-checkout"))
2808               (sha256
2809                (base32
2810                 "0pyx0hffiyss363vv7fkrcdiaf7p099xnq0mngzqc7v8v9q849hs"))))
2811     (build-system texlive-build-system)
2812     (arguments
2813      '(#:tex-directory "latex/l3packages"
2814        ;; build-targets must be specified manually since they are in
2815        ;; sub-directories.
2816        #:build-targets '("l3keys2e.ins" "xparse.ins" "xfrac.ins" "xfp.ins" "xtemplate.ins")
2817        #:phases
2818        (modify-phases %standard-phases
2819          ;; All package sources are in sub-directories, so we need to add them
2820          ;; to TEXINPUTS.
2821          (add-after 'unpack 'set-TEXINPUTS
2822            (lambda _
2823              (let ((cwd (getcwd)))
2824                (setenv "TEXINPUTS"
2825                        (string-append cwd "/l3keys2e:"
2826                                       cwd "/xparse:"
2827                                       cwd "/xfrac:"
2828                                       cwd "/xfp:"
2829                                       cwd "/xtemplate"
2830                                       ;; The terminating ":" is required to include the
2831                                       ;; l3kernel input as well.
2832                                       ":")))
2833              #t)))
2834        ))
2835     (propagated-inputs
2836      `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel)))
2837     (home-page "https://www.ctan.org/pkg/l3packages")
2838     (synopsis "High-level LaTeX3 concepts")
2839     (description
2840      "This bundle holds prototype implementations of concepts for a LaTeX
2841 designer interface, to be used with the experimental LaTeX kernel as
2842 programming tools and kernel support.  Packages provided in this release are:
2843
2844 @enumerate
2845 @item l3keys2e, which makes the facilities of the kernel module l3keys
2846   available for use by LaTeX 2e packages;
2847 @item xfrac, which provides flexible splitlevel fractions;
2848 @item xparse, which provides a high-level interface for declaring document
2849   commands; and
2850 @item xtemplate, which provides a means of defining generic functions using a
2851   key-value syntax.
2852 @end enumerate\n")
2853     (license license:lppl1.3c+)))
2854
2855 (define-public texlive-latex-fontspec
2856   (package
2857     (name "texlive-latex-fontspec")
2858     (version (number->string %texlive-revision))
2859     (source (origin
2860               (method svn-fetch)
2861               (uri (texlive-ref "latex" "fontspec"))
2862               (file-name (string-append name "-" version "-checkout"))
2863               (sha256
2864                (base32
2865                 "1p0mkn6iywl0k4m9cx3hnhylpi499inisff3f72pcf349baqsnvq"))))
2866     (build-system texlive-build-system)
2867     (arguments
2868      '(#:tex-directory "latex/fontspec"
2869        #:phases
2870        (modify-phases %standard-phases
2871          (add-after 'install 'install-default-fontspec.cfg
2872            (lambda* (#:key outputs #:allow-other-keys)
2873              (with-output-to-file
2874                  (string-append (assoc-ref outputs "out")
2875                                 "/share/texmf-dist/tex/latex/fontspec/fontspec.cfg")
2876                (lambda _
2877                  (display "\
2878 %%% FONTSPEC.CFG %%%
2879 %
2880 % This configuration file sets up TeX Ligatures by default for all fonts loaded
2881 % with `\\setmainfont` and `\\setsansfont`.
2882 %
2883 % In addition, `\\setmonofont` has default features to enforce \"monospace\"
2884 % settings with regard to space stretchability and shrinkability.
2885
2886 \\defaultfontfeatures
2887  [\\rmfamily,\\sffamily]
2888  {Ligatures=TeX}
2889
2890 \\defaultfontfeatures
2891  [\\ttfamily]
2892  {WordSpace={1,0,0},
2893   HyphenChar=None,
2894   PunctuationSpace=WordSpace}
2895 ")))
2896              #t)))))
2897     (propagated-inputs
2898      `(("texlive-latex-l3packages" ,texlive-latex-l3packages)))
2899     (home-page "https://www.ctan.org/pkg/fontspec")
2900     (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX")
2901     (description
2902      "Fontspec is a package for XeLaTeX and LuaLaTeX.  It provides an
2903 automatic and unified interface to feature-rich AAT and OpenType fonts through
2904 the NFSS in LaTeX running on XeTeX or LuaTeX engines.  The package requires
2905 the l3kernel and xparse bundles from the LaTeX 3 development team.")
2906     (license license:lppl1.3+)))
2907
2908 ;; The SVN directory contains little more than a dtx file that generates three
2909 ;; of the many lua files that should be installed as part of this package.
2910 ;; This is why we take the release from GitHub instead.
2911 (define-public texlive-luatex-lualibs
2912   (package
2913     (name "texlive-luatex-lualibs")
2914     (version "2.5")
2915     (source (origin
2916               (method url-fetch)
2917               (uri (string-append "https://github.com/lualatex/lualibs/"
2918                                   "releases/download/v"
2919                                   version "/lualibs.zip"))
2920               (file-name (string-append name "-" version ".zip"))
2921               (sha256
2922                (base32
2923                 "1xx9blvrmx9hyhrl345lpai9m6xxnw997261a1ahn1bm5r2j5fqy"))))
2924     (build-system gnu-build-system)
2925     (arguments
2926      `(#:make-flags
2927        (list (string-append "DESTDIR="
2928                             (assoc-ref %outputs "out")
2929                             "/share/texmf-dist"))
2930        #:phases
2931        (modify-phases %standard-phases
2932          (delete 'configure))))
2933     (native-inputs
2934      `(("texlive-bin" ,texlive-bin)
2935        ("unzip" ,unzip)
2936        ("zip" ,zip)))
2937     (home-page "https://github.com/lualatex/lualibs")
2938     (synopsis "Lua modules for general programming (in the (La)TeX world)")
2939     (description
2940      "Lualibs is a collection of Lua modules useful for general programming.
2941 The bundle is based on Lua modules shipped with ConTeXt, and made available in
2942 this bundle for use independent of ConTeXt.")
2943     ;; GPL version 2 only
2944     (license license:gpl2)))
2945
2946 (define-public texlive-luatex-luaotfload
2947   (package
2948     (name "texlive-luatex-luaotfload")
2949     (version "2.8-fix-2")
2950     ;; The release tarball does not contain all source files.
2951     (source (origin
2952               (method git-fetch)
2953               (uri (git-reference
2954                     (url "https://github.com/lualatex/luaotfload.git")
2955                     (commit (string-append "v" version))))
2956               (file-name (git-file-name name version))
2957               (sha256
2958                (base32
2959                 "0l5l7iq3dxcxl65qaghcpjg27yd9iw1sxa8pnd7xlvlm09dhfdnf"))))
2960     (build-system gnu-build-system)
2961     (arguments
2962      `(#:make-flags
2963        (list (string-append "DESTDIR="
2964                             (assoc-ref %outputs "out")
2965                             "/share/texmf-dist")
2966              "all")
2967        #:parallel-build? #f ; not supported
2968        #:phases
2969        (modify-phases %standard-phases
2970          (replace 'configure
2971            (lambda* (#:key inputs #:allow-other-keys)
2972              (substitute* "doc/Makefile"
2973                (("rst2man") "rst2man.py")
2974                ;; Don't build the PDF.  This requires more of LaTeX.
2975                (("\\$\\(DOCPDF\\)") ""))
2976
2977              (substitute* "Makefile"
2978                ;; We don't build the PDF, so don't attempt to install it.
2979                (("cp \\$\\(RESOURCES\\) \\$\\(DOCPDF\\)")
2980                 "cp $(RESOURCES)")
2981                (("= \\$\\(DOCPDF\\)") "= ")
2982                ;; Fix name of fontloader file
2983                (("^LOADER.*= \\$\\(BUILDDIR\\)/fontloader-\\$\\(shell date \\+%F\\).lua")
2984                 "LOADER = $(BUILDDIR)/fontloader.lua"))
2985
2986              (mkdir "build")
2987
2988              ;; Don't download this file.
2989              (copy-file (assoc-ref inputs "glyphlist")
2990                         "build/glyphlist.txt")
2991
2992              ;; Don't use git
2993              (let ((notes
2994                     `((committer . "Philipp Gesang <phg@phi-gamma.net>")
2995                       (description . ,version)
2996                       (loader . "fontloader.lua")
2997                       (revision . "ad480924393fffa2896156e1a32c22f5c61120dd")
2998                       (timestamp . "2019-01-01 00:00:00 +0000"))))
2999                (substitute* "scripts/mkstatus"
3000                  (("local notes.*=.*")
3001                   (string-append "local notes = {"
3002                                  (string-join
3003                                   (map (lambda (entry)
3004                                          (format "[\"~a\"]=\"~a\","
3005                                                  (symbol->string (car entry))
3006                                                  (cdr entry)))
3007                                        notes))
3008                                  "}"))))
3009              #t)))))
3010     (native-inputs
3011      `(("zip" ,zip)
3012        ("unzip" ,unzip)
3013        ("graphviz" ,graphviz)
3014        ("lualatex" ,(texlive-union (list texlive-luatex-lualibs
3015                                          texlive-context-base)))
3016        ("python-docutils" ,python-docutils)
3017        ("glyphlist"
3018         ,(origin
3019            (method url-fetch)
3020            (uri (string-append "https://raw.githubusercontent.com/adobe-type-tools/"
3021                                "agl-aglfn/b2a04cb906f9257cc06a2fe0ad4b3d663bc02136/"
3022                                "glyphlist.txt"))
3023            (sha256
3024             (base32 "1s6svfw23rqzdvflv8frgd4xrwvrmsj8szwzqgcd39dp9rpjafjp"))))))
3025     (propagated-inputs
3026      `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs)))
3027     (home-page "https://github.com/lualatex/luaotfload")
3028     (synopsis "OpenType font loader for LuaTeX")
3029     (description
3030      "Luaotfload is an adaptation of the ConTeXt font loading system for the
3031 Plain and LaTeX formats.  It allows OpenType fonts to be loaded with font
3032 features accessible using an extended font request syntax while providing
3033 compatibilitywith XeTeX.  By indexing metadata in a database it facilitates
3034 loading fonts by their proper names instead of file names.")
3035     ;; GPL version 2 only
3036     (license license:gpl2)))
3037
3038 (define-public texlive-latex-amsmath
3039   (package
3040     (name "texlive-latex-amsmath")
3041     (version (number->string %texlive-revision))
3042     (source (origin
3043               (method svn-fetch)
3044               (uri (texlive-ref "latex" "amsmath"))
3045               (file-name (string-append name "-" version "-checkout"))
3046               (sha256
3047                (base32
3048                 "0arvk7gn32mshnfdad5qkgf3i1arxq77k3vq7wnpm4nwnrzclxal"))))
3049     (build-system texlive-build-system)
3050     (arguments '(#:tex-directory "latex/amsmath"))
3051     (home-page "https://www.ctan.org/pkg/amsmath")
3052     (synopsis "AMS mathematical facilities for LaTeX")
3053     (description
3054      "This is the principal package in the AMS-LaTeX distribution.  It adapts
3055 for use in LaTeX most of the mathematical features found in AMS-TeX; it is
3056 highly recommended as an adjunct to serious mathematical typesetting in LaTeX.
3057 When amsmath is loaded, AMS-LaTeX packages @code{amsbsyamsbsy} (for bold
3058 symbols), @code{amsopnamsopn} (for operator names) and
3059 @code{amstextamstext} (for text embedded in mathematics) are also loaded.
3060 This package is part of the LaTeX required distribution; however, several
3061 contributed packages add still further to its appeal; examples are
3062 @code{empheqempheq}, which provides functions for decorating and highlighting
3063 mathematics, and @code{ntheoremntheorem}, for specifying theorem (and similar)
3064 definitions.")
3065     (license license:lppl1.3c+)))
3066
3067 (define-public texlive-latex-amscls
3068   (package
3069     (name "texlive-latex-amscls")
3070     (version (number->string %texlive-revision))
3071     (source (origin
3072               (method svn-fetch)
3073               (uri (texlive-ref "latex" "amscls"))
3074               (file-name (string-append name "-" version "-checkout"))
3075               (sha256
3076                (base32
3077                 "0c2j9xh4qpi0x1vvcxdjxq6say0zhyr569fryi5cmhp8bclh4kca"))))
3078     (build-system texlive-build-system)
3079     (arguments
3080      `(#:tex-directory "latex/amscls"))
3081     (home-page "https://www.ctan.org/pkg/amscls")
3082     (synopsis "AMS document classes for LaTeX")
3083     (description
3084      "This bundle contains three AMS classes: @code{amsartamsart} (for writing
3085 articles for the AMS), @code{amsbookamsbook} (for books) and
3086 @code{amsprocamsproc} (for proceedings), together with some supporting
3087 material.  The material is made available as part of the AMS-LaTeX
3088 distribution.")
3089     (license license:lppl1.3c+)))
3090
3091 (define-public texlive-latex-babel
3092   (package
3093     (name "texlive-latex-babel")
3094     (version (number->string %texlive-revision))
3095     (source (origin
3096               (method svn-fetch)
3097               (uri (texlive-ref "latex" "babel"))
3098               (file-name (string-append name "-" version "-checkout"))
3099               (sha256
3100                (base32
3101                 "0yhlfiz3fjc8jd46f1zrjj4jig48l8rrzh8cmd8ammml8z9a01z6"))))
3102     (build-system texlive-build-system)
3103     (arguments
3104      '(#:tex-directory "generic/babel"
3105        #:phases
3106        (modify-phases %standard-phases
3107          ;; This package tries to produce babel.aux twice but refuses to
3108          ;; overwrite the first one.
3109          (add-before 'build 'fix-ins
3110            (lambda _
3111              (substitute* "babel.ins"
3112                (("askonceonly") "askforoverwritefalse"))
3113              #t)))))
3114     (home-page "https://www.ctan.org/pkg/babel")
3115     (synopsis "Multilingual support for Plain TeX or LaTeX")
3116     (description
3117      "The package manages culturally-determined typographical (and other)
3118 rules, and hyphenation patterns for a wide range of languages.  A document may
3119 select a single language to be supported, or it may select several, in which
3120 case the document may switch from one language to another in a variety of
3121 ways.  Babel uses contributed configuration files that provide the detail of
3122 what has to be done for each language.  Users of XeTeX are advised to use the
3123 polyglossia package rather than Babel.")
3124     (license license:lppl1.3+)))
3125
3126 (define-public texlive-generic-babel-english
3127   (package
3128     (name "texlive-generic-babel-english")
3129     (version (number->string %texlive-revision))
3130     (source (origin
3131               (method svn-fetch)
3132               (uri (texlive-ref "generic" "babel-english"))
3133               (file-name (string-append name "-" version "-checkout"))
3134               (sha256
3135                (base32
3136                 "1s404wbx91z5w65hm024kyl4h56zsa096irx18vsx8jvlmwsr5wc"))))
3137     (build-system texlive-build-system)
3138     (arguments '(#:tex-directory "generic/babel-english"))
3139     (home-page "https://www.ctan.org/pkg/babel-english")
3140     (synopsis "Babel support for English")
3141     (description
3142      "This package provides the language definition file for support of
3143 English in @code{babel}.  Care is taken to select British hyphenation patterns
3144 for British English and Australian text, and default (\"american\") patterns
3145 for Canadian and USA text.")
3146     (license license:lppl1.3+)))
3147
3148 (define-public texlive-generic-babel-german
3149   (package
3150     (name "texlive-generic-babel-german")
3151     (version (number->string %texlive-revision))
3152     (source (origin
3153               (method svn-fetch)
3154               (uri (texlive-ref "generic" "babel-german"))
3155               (file-name (string-append name "-" version "-checkout"))
3156               (sha256
3157                (base32
3158                 "0h47s67gnhdaxfgbf8pirp5vw4z6rrhxl8zav803yjxka0096i3y"))))
3159     (build-system texlive-build-system)
3160     (arguments '(#:tex-directory "generic/babel-german"))
3161     (home-page "https://www.ctan.org/pkg/babel-german")
3162     (synopsis "Babel support for German")
3163     (description
3164      "This package provides the language definition file for support of German
3165 in @code{babel}.  It provides all the necessary macros, definitions and
3166 settings to typeset German documents.  The bundle includes support for the
3167 traditional and reformed German orthography as well as for the Austrian and
3168 Swiss varieties of German.")
3169     (license license:lppl1.3+)))
3170
3171 (define-public texlive-latex-cyrillic
3172   (package
3173     (name "texlive-latex-cyrillic")
3174     (version (number->string %texlive-revision))
3175     (source (origin
3176               (method svn-fetch)
3177               (uri (texlive-ref "latex" "cyrillic"))
3178               (file-name (string-append name "-" version "-checkout"))
3179               (sha256
3180                (base32
3181                 "083xbwg7hrnlv47fkwvz8yjb830bhxx7y0mq7z7nz2f96y2ldr6b"))))
3182     (build-system texlive-build-system)
3183     (arguments
3184      '(#:tex-directory "latex/cyrillic"))
3185     (home-page "https://www.ctan.org/pkg/latex-cyrillic")
3186     (synopsis "Support for Cyrillic fonts in LaTeX")
3187     (description
3188      "This bundle of macros files provides macro support (including font
3189 encoding macros) for the use of Cyrillic characters in fonts encoded under the
3190 T2* and X2 encodings. These encodings cover (between them) pretty much every
3191 language that is written in a Cyrillic alphabet.")
3192     (license license:lppl1.3c+)))
3193
3194 (define-public texlive-latex-psnfss
3195   (package
3196     (name "texlive-latex-psnfss")
3197     (version (number->string %texlive-revision))
3198     (source (origin
3199               (method svn-fetch)
3200               (uri (texlive-ref "latex" "psnfss"))
3201               (file-name (string-append name "-" version "-checkout"))
3202               (sha256
3203                (base32
3204                 "1920dcq8613yzprasbg80fh4fcjcidvvl54wkx438nimyxcri7qz"))))
3205     (build-system texlive-build-system)
3206     (arguments '(#:tex-directory "latex/psnfss"))
3207     (home-page "https://www.ctan.org/pkg/psnfss")
3208     (synopsis "Font support for common PostScript fonts")
3209     (description
3210      "The PSNFSS collection includes a set of files that provide a complete
3211 working setup of the LaTeX font selection scheme (NFSS2) for use with common
3212 PostScript fonts.  It covers the so-called \"Base\" fonts (which are built
3213 into any Level 2 PostScript printing device and the Ghostscript interpreter)
3214 and a number of free fonts.  It provides font definition files, macros and
3215 font metrics.  The bundle as a whole is part of the LaTeX required set of
3216 packages.")
3217     (license license:lppl1.2+)))
3218
3219 ;; For user profiles
3220 (define-public texlive-base
3221   (let ((default-packages
3222           (list texlive-bin
3223                 texlive-dvips
3224                 texlive-fontname
3225                 texlive-fonts-cm
3226                 texlive-fonts-latex
3227                 texlive-metafont-base
3228                 texlive-latex-base
3229                 ;; LaTeX packages from the "required" set.
3230                 texlive-latex-amsmath
3231                 texlive-latex-amscls
3232                 texlive-latex-babel
3233                 texlive-generic-babel-english
3234                 texlive-latex-cyrillic
3235                 texlive-latex-graphics
3236                 texlive-latex-psnfss
3237                 texlive-latex-tools)))
3238     (package
3239       (name "texlive-base")
3240       (version (number->string %texlive-revision))
3241       (source #f)
3242       (build-system trivial-build-system)
3243       (arguments
3244        '(#:builder
3245          (begin (mkdir (assoc-ref %outputs "out")))))
3246       (propagated-inputs
3247        (map (lambda (package)
3248               (list (package-name package) package))
3249             default-packages))
3250       (home-page (package-home-page texlive-bin))
3251       (synopsis "TeX Live base packages")
3252       (description "This is a very limited subset of the TeX Live distribution.
3253 It includes little more than the required set of LaTeX packages.")
3254       (license (fold (lambda (package result)
3255                        (match (package-license package)
3256                          ((lst ...)
3257                           (append lst result))
3258                          ((? license:license? license)
3259                           (cons license result))))
3260                      '()
3261                      default-packages)))))
3262
3263 ;; For use in package definitions only
3264 (define-public texlive-union
3265   (lambda* (#:optional (packages '()))
3266     "Return 'texlive-union' package which is a union of PACKAGES and the
3267 standard LaTeX packages."
3268     (let ((default-packages (match (package-propagated-inputs texlive-base)
3269                               (((labels packages) ...) packages))))
3270       (package (inherit texlive-base)
3271         (name "texlive-union")
3272         (build-system trivial-build-system)
3273         (arguments
3274          '(#:modules ((guix build union)
3275                       (guix build utils)
3276                       (guix build texlive-build-system)
3277                       (guix build gnu-build-system)
3278                       (guix build gremlin)
3279                       (guix elf))
3280            #:builder
3281            (begin
3282              (use-modules (ice-9 match)
3283                           (ice-9 popen)
3284                           (srfi srfi-26)
3285                           (guix build union)
3286                           (guix build utils)
3287                           (guix build texlive-build-system))
3288              (let* ((out       (assoc-ref %outputs "out"))
3289                     (texmf.cnf (string-append out "/share/texmf-dist/web2c/texmf.cnf")))
3290                ;; Build a modifiable union of all inputs (but exclude bash and
3291                ;; the updmap.cfg file)
3292                (match (filter (match-lambda
3293                                 ((name . _)
3294                                  (not (member name '("bash" "updmap.cfg")))))
3295                               %build-inputs)
3296                  (((names . directories) ...)
3297                   (union-build (assoc-ref %outputs "out")
3298                                directories
3299                                #:create-all-directories? #t
3300                                #:log-port (%make-void-port "w"))))
3301
3302                ;; The configuration file "texmf.cnf" is provided by the
3303                ;; "texlive-bin" package.  We take it and override only the
3304                ;; setting for TEXMFROOT and TEXMF.  This file won't be consulted
3305                ;; by default, though, so we still need to set TEXMFCNF.
3306                (substitute* texmf.cnf
3307                  (("^TEXMFROOT = .*")
3308                   (string-append "TEXMFROOT = " out "/share\n"))
3309                  (("^TEXMF = .*")
3310                   "TEXMF = $TEXMFROOT/share/texmf-dist\n"))
3311                (setenv "PATH" (string-append
3312                                (assoc-ref %build-inputs "bash") "/bin:"
3313                                (assoc-ref %build-inputs "coreutils") "/bin:"
3314                                (string-append out "/bin")))
3315                (for-each
3316                 (cut wrap-program <>
3317                      `("TEXMFCNF" ":" suffix (,(dirname texmf.cnf)))
3318                      `("TEXMF"    ":" suffix (,(string-append out "/share/texmf-dist"))))
3319                 (find-files (string-append out "/bin") ".*"))
3320
3321                ;; Remove invalid maps from config file.
3322                (let ((port (open-pipe* OPEN_WRITE "updmap-sys"
3323                                        "--syncwithtrees"
3324                                        "--nohash"
3325                                        (assoc-ref %build-inputs "updmap.cfg"))))
3326                  (display "Y\n" port)
3327                  (when (not (zero? (status:exit-val (close-pipe port))))
3328                    (error "failed to filter updmap.cfg")))
3329                ;; Generate maps.
3330                (invoke "updmap-sys" "--force"
3331                        (string-append out "/share/texmf-config/web2c/updmap.cfg"))
3332                #t))))
3333         (inputs
3334          `(("bash" ,bash)
3335            ,@(map (lambda (package)
3336                     (list (package-name package) package))
3337                   (append default-packages packages))))
3338         (native-inputs
3339          `(("coreutils" ,coreutils)
3340            ("sed" ,sed)
3341            ("updmap.cfg"
3342             ,(origin
3343                (method url-fetch)
3344                (uri (string-append "https://tug.org/svn/texlive/tags/"
3345                                    %texlive-tag "/Master/texmf-dist/web2c/updmap.cfg"
3346                                    "?revision=" (number->string %texlive-revision)))
3347                (file-name (string-append "updmap.cfg-"
3348                                          (number->string %texlive-revision)))
3349                (sha256
3350                 (base32
3351                  "06mwpy5i218g5k3sf4gba0fmxgas82hkzx9fhwn67z5ik37d8apq"))))))
3352         (home-page (package-home-page texlive-bin))
3353         (synopsis "Union of TeX Live packages")
3354         (description "This package provides a subset of the TeX Live
3355 distribution.")
3356         (license (fold (lambda (package result)
3357                          (match (package-license package)
3358                            ((lst ...)
3359                             (append lst result))
3360                            ((? license:license? license)
3361                             (cons license result))))
3362                        '()
3363                        (append default-packages packages)))))))
3364
3365 ;; For use in package definitions only
3366 (define-public texlive-tiny
3367   (package
3368     (inherit (texlive-union))
3369     (name "texlive-tiny")
3370     (description "This is a very limited subset of the TeX Live distribution.
3371 It includes little more than the required set of LaTeX packages.")))
3372
3373 (define-public texlive-latex-amsrefs
3374   (package
3375     (name "texlive-latex-amsrefs")
3376     (version (number->string %texlive-revision))
3377     (source (origin
3378               (method svn-fetch)
3379               (uri (texlive-ref "latex" "amsrefs"))
3380               (file-name (string-append name "-" version "-checkout"))
3381               (sha256
3382                (base32
3383                 "15i4k479dwrpr0kspmm70g1yn4p3dkh0whyzmr93hph9bggnh1i1"))))
3384     (build-system texlive-build-system)
3385     (arguments '(#:tex-directory "latex/amsrefs"))
3386     (home-page "https://www.ctan.org/pkg/amsrefs")
3387     (synopsis "LaTeX-based replacement for BibTeX")
3388     (description
3389      "Amsrefs is a LaTeX package for bibliographies that provides an archival
3390 data format similar to the format of BibTeX database files, but adapted to
3391 make direct processing by LaTeX easier.  The package can be used either in
3392 conjunction with BibTeX or as a replacement for BibTeX.")
3393     (license license:lppl1.3+)))
3394
3395 (define-public texlive-latex-bigfoot
3396   (package
3397     (name "texlive-latex-bigfoot")
3398     (version (number->string %texlive-revision))
3399     (source (origin
3400               (method svn-fetch)
3401               (uri (texlive-ref "latex" "bigfoot"))
3402               (file-name (string-append name "-" version "-checkout"))
3403               (sha256
3404                (base32
3405                 "092g8alnsdwlgl1isdnqrr32l161994295kadr1n05d81xgj5wnv"))))
3406     (build-system texlive-build-system)
3407     (arguments
3408      '(#:tex-directory "latex/bigfoot"
3409        #:phases
3410        (modify-phases %standard-phases
3411          (add-after 'unpack 'remove-generated-file
3412            (lambda _
3413              (for-each delete-file (find-files "." "\\.drv$"))
3414              #t)))))
3415     (home-page "https://www.ctan.org/pkg/bigfoot")
3416     (synopsis "Footnotes for critical editions")
3417     (description
3418      "This package aims to provide a one-stop solution to requirements for
3419 footnotes.  It offers: Multiple footnote apparatus superior to that of
3420 @code{manyfoot}.  Footnotes can be formatted in separate paragraphs, or be run
3421 into a single paragraph (this choice may be selected per footnote series);
3422 Things you might have expected (such as @code{\\verb}-like material in
3423 footnotes, and color selections over page breaks) now work.  Note that the
3424 majority of the bigfoot package's interface is identical to that of
3425 @code{manyfoot}; users should seek information from that package's
3426 documentation.  The bigfoot bundle also provides the @code{perpage} and
3427 @code{suffix} packages.")
3428     (license license:gpl2+)))
3429
3430 (define-public texlive-latex-blindtext
3431   (package
3432     (name "texlive-latex-blindtext")
3433     (version (number->string %texlive-revision))
3434     (source (origin
3435               (method svn-fetch)
3436               (uri (texlive-ref "latex" "blindtext"))
3437               (file-name (string-append name "-" version "-checkout"))
3438               (sha256
3439                (base32
3440                 "1jrja9b1pzdh9zgv1jh807w4xijqja58n2mqny6dkwicv8qfgbfg"))))
3441     (build-system texlive-build-system)
3442     (arguments '(#:tex-directory "latex/blindtext"))
3443     (home-page "https://www.ctan.org/pkg/blindtext")
3444     (synopsis "Producing 'blind' text for testing")
3445     (description
3446      "The package provides the commands @code{\\blindtext} and
3447 @code{\\Blindtext} for creating \"blind\" text useful in testing new classes
3448 and packages, and @code{\\blinddocument}, @code{\\Blinddocument} for creating
3449 an entire random document with sections, lists, mathematics, etc.  The package
3450 supports three languages, @code{english}, @code{(n)german} and @code{latin};
3451 the @code{latin} option provides a short \"lorem ipsum\" (for a fuller \"lorem
3452 ipsum\" text, see the @code{lipsum} package).")
3453     (license license:lppl)))
3454
3455 (define-public texlive-latex-dinbrief
3456   (package
3457     (name "texlive-latex-dinbrief")
3458     (version (number->string %texlive-revision))
3459     (source (origin
3460               (method svn-fetch)
3461               (uri (texlive-ref "latex" "dinbrief"))
3462               (file-name (string-append name "-" version "-checkout"))
3463               (sha256
3464                (base32
3465                 "0lb0kiy8fxzl6cnhcw1sggy6jrjvcd6kj1kkw3k9lkimm388yjz6"))))
3466     (build-system texlive-build-system)
3467     (arguments
3468      '(#:tex-directory "latex/dinbrief"
3469        #:phases
3470        (modify-phases %standard-phases
3471          (add-after 'unpack 'remove-generated-file
3472            (lambda _
3473              (delete-file "dinbrief.drv")
3474              #t))
3475          (add-after 'unpack 'fix-encoding-error
3476            (lambda _
3477              (with-fluids ((%default-port-encoding "ISO-8859-1"))
3478                (substitute* "dinbrief.dtx"
3479                  (("zur Verf.+ung. In der Pr\"aambel")
3480                   "zur Verf\"ung. In der Pr\"aambel")))
3481              #t)))))
3482     (home-page "https://www.ctan.org/pkg/dinbrief")
3483     (synopsis "German letter DIN style")
3484     (description
3485      "This package implements a document layout for writing letters according
3486 to the rules of DIN (Deutsches Institut für Normung, German standardisation
3487 institute).  A style file for LaTeX 2.09 (with limited support of the
3488 features) is part of the package.  Since the letter layout is based on a
3489 German standard, the user guide is written in German, but most macros have
3490 English names from which the user can recognize what they are used for.  In
3491 addition there are example files showing how letters may be created with the
3492 package.")
3493     (license license:lppl)))
3494
3495 (define-public texlive-latex-draftwatermark
3496   (package
3497     (name "texlive-latex-draftwatermark")
3498     (version (number->string %texlive-revision))
3499     (source (origin
3500               (method svn-fetch)
3501               (uri (texlive-ref "latex" "draftwatermark"))
3502               (file-name (string-append name "-" version "-checkout"))
3503               (sha256
3504                (base32
3505                 "1zyl2pcz2x529gzj5m93a1s4ipymdabf7qdjl3l1673pizd4hfyv"))))
3506     (build-system texlive-build-system)
3507     (arguments '(#:tex-directory "latex/draftwatermark"))
3508     (home-page "https://www.ctan.org/pkg/draftwatermark")
3509     (synopsis "Put a grey textual watermark on document pages")
3510     (description
3511      "This package provides a means to add a textual, light grey watermark on
3512 every page or on the first page of a document.  Typical usage may consist in
3513 writing words such as DRAFT or CONFIDENTIAL across document pages.  The
3514 package performs a similar function to that of @code{draftcopy}, but its
3515 implementation is output device independent, and made very simple by relying
3516 on everypage.")
3517     (license license:lppl1.3+)))
3518
3519 (define-public texlive-latex-environ
3520   (package
3521     (name "texlive-latex-environ")
3522     (version (number->string %texlive-revision))
3523     (source (origin
3524               (method svn-fetch)
3525               (uri (texlive-ref "latex" "environ"))
3526               (file-name (string-append name "-" version "-checkout"))
3527               (sha256
3528                (base32
3529                 "06h28b26dyjkj9shksphgqfv4130jfkwhbw737hxn7d3yvdfffyd"))))
3530     (build-system texlive-build-system)
3531     (arguments '(#:tex-directory "latex/environ"))
3532     (home-page "https://www.ctan.org/pkg/environ")
3533     (synopsis "New interface for environments in LaTeX")
3534     (description
3535      "This package provides the @code{\\collect@@body} command (as in
3536 @code{amsmath}), as well as a @code{\\long} version @code{\\Collect@@Body},
3537 for collecting the body text of an environment.  These commands are used to
3538 define a new author interface to creating new environments.")
3539     (license license:lppl)))
3540
3541 (define-public texlive-latex-eqparbox
3542   (package
3543     (name "texlive-latex-eqparbox")
3544     (version (number->string %texlive-revision))
3545     (source (origin
3546               (method svn-fetch)
3547               (uri (texlive-ref "latex" "eqparbox"))
3548               (file-name (string-append name "-" version "-checkout"))
3549               (sha256
3550                (base32
3551                 "1ib5xdwcj5wk23wgk41m2hdcjr1dzrs4l3wwnpink9mlapz12wjs"))))
3552     (build-system texlive-build-system)
3553     (arguments '(#:tex-directory "latex/eqparbox"))
3554     (home-page "https://www.ctan.org/pkg/eqparbox")
3555     (synopsis "Create equal-widthed parboxes")
3556     (description
3557      "LaTeX users sometimes need to ensure that two or more blocks of text
3558 occupy the same amount of horizontal space on the page.  To that end, the
3559 @code{eqparbox} package defines a new command, @code{\\eqparbox}, which works
3560 just like @code{\\parbox}, except that instead of specifying a width, one
3561 specifies a tag.  All @code{eqparbox}es with the same tag---regardless of
3562 where they are in the document---will stretch to fit the widest
3563 @code{eqparbox} with that tag.  This simple, equal-width mechanism can be used
3564 for a variety of alignment purposes, as is evidenced by the examples in
3565 @code{eqparbox}'s documentation.  Various derivatives of @code{\\eqparbox} are
3566 also provided.")
3567     (license license:lppl1.3+)))
3568
3569 (define-public texlive-latex-expdlist
3570   (package
3571     (name "texlive-latex-expdlist")
3572     (version (number->string %texlive-revision))
3573     (source (origin
3574               (method svn-fetch)
3575               (uri (texlive-ref "latex" "expdlist"))
3576               (file-name (string-append name "-" version "-checkout"))
3577               (sha256
3578                (base32
3579                 "1x7byk6x10njir3y9rm56glhdzrxwqag7gsnw2sqn1czlq525w7r"))))
3580     (build-system texlive-build-system)
3581     (arguments
3582      '(#:tex-directory "latex/expdlist"
3583        #:phases
3584        (modify-phases %standard-phases
3585          (add-after 'unpack 'remove-generated-file
3586            (lambda _
3587              (for-each delete-file
3588                        (find-files "." "\\.drv$"))
3589              #t)))))
3590     (home-page "https://www.ctan.org/pkg/expdlist")
3591     (synopsis "Expanded description environments")
3592     (description
3593      "The package provides additional features for the LaTeX
3594 @code{description} environment, including adjustable left margin.  The package
3595 also allows the user to \"break\" a list (for example, to interpose a comment)
3596 without affecting the structure of the list (this works for @code{itemize} and
3597 @code{enumerate} lists, and numbered lists remain in sequence).")
3598     (license license:lppl)))
3599
3600 (define-public texlive-latex-filemod
3601   (package
3602     (name "texlive-latex-filemod")
3603     (version (number->string %texlive-revision))
3604     (source (origin
3605               (method svn-fetch)
3606               (uri (svn-reference
3607                     (url (string-append "svn://www.tug.org/texlive/tags/"
3608                                         %texlive-tag "/Master/texmf-dist/"
3609                                         "/tex/latex/filemod"))
3610                     (revision %texlive-revision)))
3611               (file-name (string-append name "-" version "-checkout"))
3612               (sha256
3613                (base32
3614                 "0vpxilfw69xv78f03g0j0zw0bw4qcn36whqp8phcq48qk1ax2kr2"))))
3615     (build-system trivial-build-system)
3616     (arguments
3617      `(#:modules ((guix build utils))
3618        #:builder
3619        (begin
3620          (use-modules (guix build utils))
3621          (let ((target (string-append (assoc-ref %outputs "out")
3622                                       "/share/texmf-dist/tex/latex/filemod")))
3623            (mkdir-p target)
3624            (copy-recursively (assoc-ref %build-inputs "source") target)
3625            #t))))
3626     (home-page "https://www.ctan.org/pkg/filemod")
3627     (synopsis "Provide file modification times, and compare them")
3628     (description
3629      "This package provides macros to read and compare the modification dates
3630 of files.  The files may be @code{.tex} files, images or other files (as long
3631 as they can be found by LaTeX).  It uses the @code{\\pdffilemoddate} primitive
3632 of pdfLaTeX to find the file modification date as PDF date string, parses the
3633 string and returns the value to the user.  The package will also work for DVI
3634 output with recent versions of the LaTeX compiler which uses pdfLaTeX in DVI
3635 mode.  The functionality is provided by purely expandable macros or by faster
3636 but non-expandable ones.")
3637     (license license:lppl1.3+)))
3638
3639 (define-public texlive-latex-ifplatform
3640   (package
3641     (name "texlive-latex-ifplatform")
3642     (version (number->string %texlive-revision))
3643     (source (origin
3644               (method svn-fetch)
3645               (uri (texlive-ref "latex" "ifplatform"))
3646               (file-name (string-append name "-" version "-checkout"))
3647               (sha256
3648                (base32
3649                 "157pplavvm2z97b3jl4x41w11k6q9wgy074mfg0dwmsx5lm328jy"))))
3650     (build-system texlive-build-system)
3651     (arguments '(#:tex-directory "latex/ifplatform"))
3652     (home-page "https://www.ctan.org/pkg/ifplatform")
3653     (synopsis "Conditionals to test which platform is being used")
3654     (description
3655      "This package uses the (La)TeX extension @code{-shell-escape} to
3656 establish whether the document is being processed on a Windows or on a
3657 Unix-like system, or on Cygwin (Unix environment over a Windows system).
3658 Booleans provided are: @code{\\ifwindows}, @code{\\iflinux}, @code{\\ifmacosx}
3659 and @code{\\ifcygwin}.  The package also preserves the output of @code{uname}
3660 on a Unix-like system, which may be used to distinguish between various
3661 classes of systems.")
3662     (license license:lppl)))
3663
3664 (define-public texlive-latex-natbib
3665   (package
3666     (name "texlive-latex-natbib")
3667     (version (number->string %texlive-revision))
3668     (source (origin
3669               (method svn-fetch)
3670               (uri (texlive-ref "latex" "natbib"))
3671               (file-name (string-append name "-" version "-checkout"))
3672               (sha256
3673                (base32
3674                 "0aqliq0nwblxyrzhwhv77pnmk7qh2y3prgq7z7qhwcbgz5kisld7"))))
3675     (build-system texlive-build-system)
3676     (arguments '(#:tex-directory "latex/natbib"))
3677     (home-page "https://www.ctan.org/pkg/natbib")
3678     (synopsis "Flexible bibliography support")
3679     (description
3680      "This bundle provides a package that implements both author-year and
3681 numbered references, as well as much detailed of support for other
3682 bibliography use.  Also provided are versions of the standard BibTeX styles
3683 that are compatible with @code{natbib}: @code{plainnat}, @code{unsrtnat},
3684 @code{abbrnat}.  The bibliography styles produced by @code{custom-bib} are
3685 designed from the start to be compatible with @code{natbib}.")
3686     (license license:lppl)))
3687
3688 (define-public texlive-latex-psfrag
3689   (package
3690     (name "texlive-latex-psfrag")
3691     (version (number->string %texlive-revision))
3692     (source (origin
3693               (method svn-fetch)
3694               (uri (texlive-ref "latex" "psfrag"))
3695               (file-name (string-append name "-" version "-checkout"))
3696               (sha256
3697                (base32
3698                 "1dxbl5il7wbbsp0v45vk884xi1192wxw03849pb1g5q4x808n352"))))
3699     (build-system texlive-build-system)
3700     (arguments '(#:tex-directory "latex/psfrag"))
3701     (home-page "https://www.ctan.org/pkg/psfrag")
3702     (synopsis "Replace strings in encapsulated PostScript figures")
3703     (description
3704      "This package allows LaTeX constructions (equations, picture
3705 environments, etc.) to be precisely superimposed over Encapsulated PostScript
3706 figures, using your own favorite drawing tool to create an EPS figure and
3707 placing simple text \"tags\" where each replacement is to be placed, with
3708 PSfrag automatically removing these tags from the figure and replacing them
3709 with a user specified LaTeX construction, properly aligned, scaled, and/or
3710 rotated.")
3711     (license (license:fsf-free "file://psfrag.dtx"))))
3712
3713 (define-public texlive-latex-xkeyval
3714   (package
3715     (name "texlive-latex-xkeyval")
3716     (version (number->string %texlive-revision))
3717     (source (origin
3718               (method svn-fetch)
3719               (uri (texlive-ref "latex" "xkeyval"))
3720               (file-name (string-append name "-" version "-checkout"))
3721               (sha256
3722                (base32
3723                 "0wancavix39j240pd8m9cgmwsijwx6jd6n54v8wg0x2rk5m44myp"))))
3724     (build-system texlive-build-system)
3725     (arguments '(#:tex-directory "latex/xkeyval"))
3726     (home-page "https://www.ctan.org/pkg/xkeyval")
3727     (synopsis "Macros for defining and setting keys")
3728     (description
3729      "This package is an extension of the @code{keyval} package and offers
3730 more flexible macros for defining and setting keys.  The package provides a
3731 pointer and a preset system.  Furthermore, it supplies macros to allow class
3732 and package options to contain options of the @code{key=value} form.  A LaTeX
3733 kernel patch is provided to avoid premature expansions of macros in class or
3734 package options.  A specialized system for setting @code{PSTricks} keys is
3735 provided by the @code{pst-xkey} package.")
3736     (license license:lppl1.3+)))
3737
3738 (define-public texlive-latex-pstool
3739   (package
3740     (name "texlive-latex-pstool")
3741     (version (number->string %texlive-revision))
3742     (source (origin
3743               (method svn-fetch)
3744               (uri (svn-reference
3745                     (url (string-append "svn://www.tug.org/texlive/tags/"
3746                                         %texlive-tag "/Master/texmf-dist/"
3747                                         "/tex/latex/pstool"))
3748                     (revision %texlive-revision)))
3749               (file-name (string-append name "-" version "-checkout"))
3750               (sha256
3751                (base32
3752                 "1h816jain8c9nky75kk8pmmwj5b4yf9dpqvdvi2l6jhfj5iqkzr8"))))
3753     (build-system trivial-build-system)
3754     (arguments
3755      `(#:modules ((guix build utils))
3756        #:builder
3757        (begin
3758          (use-modules (guix build utils))
3759          (let ((target (string-append (assoc-ref %outputs "out")
3760                                       "/share/texmf-dist/tex/latex/pstool")))
3761            (mkdir-p target)
3762            (copy-recursively (assoc-ref %build-inputs "source") target)
3763            #t))))
3764     (propagated-inputs
3765      `(("texlive-latex-bigfoot" ,texlive-latex-bigfoot) ; for suffix
3766        ("texlive-latex-filemod" ,texlive-latex-filemod)
3767        ("texlive-latex-graphics" ,texlive-latex-graphics)
3768        ("texlive-latex-ifplatform" ,texlive-latex-ifplatform)
3769        ("texlive-latex-l3kernel" ,texlive-latex-l3kernel) ; for expl3
3770        ("texlive-latex-oberdiek" ,texlive-latex-oberdiek)
3771        ("texlive-latex-psfrag" ,texlive-latex-psfrag)
3772        ("texlive-latex-tools" ,texlive-latex-tools) ; for shellesc
3773        ("texlive-latex-trimspaces" ,texlive-latex-trimspaces)
3774        ("texlive-latex-xkeyval" ,texlive-latex-xkeyval)))
3775     (home-page "https://www.ctan.org/pkg/pstool")
3776     (synopsis "Process PostScript graphics within pdfLaTeX documents")
3777     (description
3778      "This is a package for processing PostScript graphics with @code{psfrag}
3779 labels within pdfLaTeX documents.  Every graphic is compiled individually,
3780 drastically speeding up compilation time when only a single figure needs
3781 re-processing.")
3782     (license license:lppl)))
3783
3784 (define-public texlive-latex-seminar
3785   (package
3786     (name "texlive-latex-seminar")
3787     (version (number->string %texlive-revision))
3788     (source (origin
3789               (method svn-fetch)
3790               (uri (svn-reference
3791                     (url (string-append "svn://www.tug.org/texlive/tags/"
3792                                         %texlive-tag "/Master/texmf-dist/"
3793                                         "/tex/latex/seminar"))
3794                     (revision %texlive-revision)))
3795               (file-name (string-append name "-" version "-checkout"))
3796               (sha256
3797                (base32
3798                 "0y4i651b75y6006n03x8n86bsqvjsailvvz9bhzy51dzsznqidq0"))))
3799     (build-system trivial-build-system)
3800     (arguments
3801      `(#:modules ((guix build utils))
3802        #:builder
3803        (begin
3804          (use-modules (guix build utils))
3805          (let ((target (string-append (assoc-ref %outputs "out")
3806                                       "/share/texmf-dist/tex/latex/seminar")))
3807            (mkdir-p target)
3808            (copy-recursively (assoc-ref %build-inputs "source") target)
3809            #t))))
3810     (home-page "https://www.ctan.org/pkg/seminar")
3811     (synopsis "Make overhead slides")
3812     ;; TODO: This package may need fancybox and xcomment at runtime.
3813     (description
3814      "This package provides a class that produces overhead
3815 slides (transparencies), with many facilities.  Seminar is not nowadays
3816 reckoned a good basis for a presentation — users are advised to use more
3817 recent classes such as powerdot or beamer, both of which are tuned to
3818 21st-century presentation styles.")
3819     (license license:lppl1.2+)))
3820
3821 (define-public texlive-latex-trimspaces
3822   (package
3823     (name "texlive-latex-trimspaces")
3824     (version (number->string %texlive-revision))
3825     (source (origin
3826               (method svn-fetch)
3827               (uri (texlive-ref "latex" "trimspaces"))
3828               (file-name (string-append name "-" version "-checkout"))
3829               (sha256
3830                (base32
3831                 "0da00lb32am4g63mn96625wg48p3pj3spx79lajrk17d549apwqa"))))
3832     (build-system texlive-build-system)
3833     (arguments
3834      '(#:tex-directory "latex/trimspaces"
3835        #:tex-format "latex"
3836        #:phases
3837        (modify-phases %standard-phases
3838          (add-after 'unpack 'fix-bug
3839            (lambda _
3840              ;; The "ins" file refers to the wrong source file.
3841              (substitute* "trimspaces.ins"
3842                (("pstool.tex") "trimspaces.tex"))
3843              #t)))))
3844     (inputs
3845      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
3846     (home-page "https://www.ctan.org/pkg/trimspaces")
3847     (synopsis "Trim spaces around an argument or within a macro")
3848     (description
3849      "This very short package allows you to expandably remove spaces around a
3850 token list (commands are provided to remove spaces before, spaces after, or
3851 both); or to remove surrounding spaces within a macro definition, or to define
3852 space-stripped macros.")
3853     (license license:lppl)))
3854
3855 (define-public texlive-latex-capt-of
3856   (package
3857     (name "texlive-latex-capt-of")
3858     (version (number->string %texlive-revision))
3859     (source (origin
3860               (method svn-fetch)
3861               (uri (svn-reference
3862                     (url (string-append "svn://www.tug.org/texlive/tags/"
3863                                         %texlive-tag "/Master/texmf-dist/"
3864                                         "/tex/latex/capt-of"))
3865                     (revision %texlive-revision)))
3866               (file-name (string-append name "-" version "-checkout"))
3867               (sha256
3868                (base32
3869                 "1y2s50f6lz0jx2748lj3iy56hrpcczgnbzmvphxv7aqndyyamd4x"))))
3870     (build-system trivial-build-system)
3871     (arguments
3872      `(#:modules ((guix build utils))
3873        #:builder
3874        (begin
3875          (use-modules (guix build utils))
3876          (let ((target (string-append (assoc-ref %outputs "out")
3877                                       "/share/texmf-dist/tex/latex/capt-of")))
3878            (mkdir-p target)
3879            (copy-recursively (assoc-ref %build-inputs "source") target)
3880            #t))))
3881     (home-page "https://www.ctan.org/pkg/capt-of")
3882     (synopsis "Captions on more than floats")
3883     (description
3884      "This package defines a command @code{\\captionof} for putting a caption
3885 to something that's not a float.")
3886     (license license:lppl)))
3887
3888 (define-public texlive-latex-doi
3889   (package
3890     (name "texlive-latex-doi")
3891     (version (number->string %texlive-revision))
3892     (source (origin
3893               (method svn-fetch)
3894               (uri (svn-reference
3895                     (url (string-append "svn://www.tug.org/texlive/tags/"
3896                                         %texlive-tag "/Master/texmf-dist/"
3897                                         "/tex/latex/doi"))
3898                     (revision %texlive-revision)))
3899               (file-name (string-append name "-" version "-checkout"))
3900               (sha256
3901                (base32
3902                 "0378rdmrgr2lzbfi4qqy4dfpj5im20diyd8z8b9m4mlg05r7wgnb"))))
3903     (build-system trivial-build-system)
3904     (arguments
3905      `(#:modules ((guix build utils))
3906        #:builder
3907        (begin
3908          (use-modules (guix build utils))
3909          (let ((target (string-append (assoc-ref %outputs "out")
3910                                       "/share/texmf-dist/tex/latex/doi")))
3911            (mkdir-p target)
3912            (copy-recursively (assoc-ref %build-inputs "source") target)
3913            #t))))
3914     (home-page "https://www.ctan.org/pkg/doi")
3915     (synopsis "Create correct hyperlinks for DOI numbers")
3916     (description
3917      "You can hyperlink DOI numbers to doi.org.  However, some publishers have
3918 elected to use nasty characters in their DOI numbering scheme (@code{<},
3919 @code{>}, @code{_} and @code{;} have all been spotted).  This will either
3920 upset LaTeX, or your PDF reader.  This package contains a single user-level
3921 command @code{\\doi{}}, which takes a DOI number, and creates a correct
3922 hyperlink to the target of the DOI.")
3923     ;; Any version of the LPPL.
3924     (license license:lppl1.3+)))
3925
3926 (define-public texlive-latex-etoolbox
3927   (package
3928     (name "texlive-latex-etoolbox")
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/etoolbox"))
3936                     (revision %texlive-revision)))
3937               (file-name (string-append name "-" version "-checkout"))
3938               (sha256
3939                (base32
3940                 "1agmq6bf8wzcd77n20ng8bl4kh69cg5f6sjniii7bcw4llhd3nc8"))))
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/etoolbox")))
3949            (mkdir-p target)
3950            (copy-recursively (assoc-ref %build-inputs "source") target)
3951            #t))))
3952     (home-page "https://www.ctan.org/pkg/etoolbox")
3953     (synopsis "e-TeX tools for LaTeX")
3954     (description
3955      "This package is a toolbox of programming facilities geared primarily
3956 towards LaTeX class and package authors.  It provides LaTeX frontends to some
3957 of the new primitives provided by e-TeX as well as some generic tools which
3958 are not strictly related to e-TeX but match the profile of this package.  The
3959 package provides functions that seem to offer alternative ways of implementing
3960 some LaTeX kernel commands; nevertheless, the package will not modify any part
3961 of the LaTeX kernel.")
3962     (license license:lppl1.3+)))
3963
3964 (define-public texlive-latex-fncychap
3965   (package
3966     (name "texlive-latex-fncychap")
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/fncychap"))
3974                     (revision %texlive-revision)))
3975               (file-name (string-append name "-" version "-checkout"))
3976               (sha256
3977                (base32
3978                 "0fdk84dbicfjfprkz6vk15x36mvlhaw9isjmgkc56jp2khwjswwq"))))
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/fncychap")))
3987            (mkdir-p target)
3988            (copy-recursively (assoc-ref %build-inputs "source") target)
3989            #t))))
3990     (home-page "https://www.ctan.org/pkg/fncychap")
3991     (synopsis "Seven predefined chapter heading styles")
3992     (description
3993      "This package provides seven predefined chapter heading styles.  Each
3994 style can be modified using a set of simple commands.  Optionally one can
3995 modify the formatting routines in order to create additional chapter
3996 headings.")
3997     (license license:lppl1.3+)))
3998
3999 (define-public texlive-latex-framed
4000   (package
4001     (name "texlive-latex-framed")
4002     (version (number->string %texlive-revision))
4003     (source (origin
4004               (method svn-fetch)
4005               (uri (svn-reference
4006                     (url (string-append "svn://www.tug.org/texlive/tags/"
4007                                         %texlive-tag "/Master/texmf-dist/"
4008                                         "/tex/latex/framed"))
4009                     (revision %texlive-revision)))
4010               (file-name (string-append name "-" version "-checkout"))
4011               (sha256
4012                (base32
4013                 "14a4ydqsvp3vcfavl21jrv0ybiqypaaqzg2q2cs3rzkandg7w98x"))))
4014     (build-system trivial-build-system)
4015     (arguments
4016      `(#:modules ((guix build utils))
4017        #:builder
4018        (begin
4019          (use-modules (guix build utils))
4020          (let ((target (string-append (assoc-ref %outputs "out")
4021                                       "/share/texmf-dist/tex/latex/framed")))
4022            (mkdir-p target)
4023            (copy-recursively (assoc-ref %build-inputs "source") target)
4024            #t))))
4025     (home-page "https://www.ctan.org/pkg/framed")
4026     (synopsis "Framed or shaded regions that can break across pages")
4027     (description
4028      "The package creates three environments: @code{framed}, which puts an
4029 ordinary frame box around the region, @code{shaded}, which shades the region,
4030 and @code{leftbar}, which places a line at the left side.  The environments
4031 allow a break at their start (the @code{\\FrameCommand} enables creation of a
4032 title that is “attached” to the environment); breaks are also allowed in the
4033 course of the framed/shaded matter.  There is also a command
4034 @code{\\MakeFramed} to make your own framed-style environments.")
4035     ;; The header states: "These macros may be freely transmitted, reproduced,
4036     ;; or modified for any purpose provided that this notice is left intact."
4037     (license (license:fsf-free "file://framed.sty"))))
4038
4039 (define-public texlive-latex-g-brief
4040   (package
4041     (name "texlive-latex-g-brief")
4042     (version (number->string %texlive-revision))
4043     (source (origin
4044               (method svn-fetch)
4045               (uri (texlive-ref "latex" "g-brief"))
4046               (file-name (string-append name "-" version "-checkout"))
4047               (sha256
4048                (base32
4049                 "0sikazkg0dpkcpzlbqw8qzxr81paf2f443vsrh14jnw7s4gswvc5"))))
4050     (build-system texlive-build-system)
4051     (arguments
4052      '(#:tex-directory "latex/g-brief"
4053        #:phases
4054        (modify-phases %standard-phases
4055          (add-after 'unpack 'remove-generated-file
4056            (lambda _
4057              (delete-file "g-brief.drv")
4058              #t)))))
4059     (home-page "https://www.ctan.org/pkg/g-brief")
4060     (synopsis "Letter document class")
4061     (description
4062      "This package is designed for formatting formless letters in German; it
4063 can also be used for English (by those who can read the documentation).  There
4064 are LaTeX 2.09 @code{documentstyle} and LaTeX 2e class files for both an
4065 \"old\" and a \"new\" version of g-brief.")
4066     (license license:lppl)))
4067
4068 (define-public texlive-latex-galois
4069   (package
4070     (name "texlive-latex-galois")
4071     (version (number->string %texlive-revision))
4072     (source (origin
4073               (method svn-fetch)
4074               (uri (texlive-ref "latex" "galois"))
4075               (file-name (string-append name "-" version "-checkout"))
4076               (sha256
4077                (base32
4078                 "0d4l0msk8j5pi95xnmm9wygv1vbpkwkv5amx9l0km86cs79jpp1h"))))
4079     (build-system texlive-build-system)
4080     (arguments '(#:tex-directory "latex/galois"))
4081     (home-page "https://www.ctan.org/pkg/galois")
4082     (synopsis "Typeset Galois connections")
4083     (description
4084      "The package deals with connections in two-dimensional style, optionally
4085 in colour.")
4086     (license license:lppl)))
4087
4088 (define-public texlive-latex-gcite
4089   (package
4090     (name "texlive-latex-gcite")
4091     (version (number->string %texlive-revision))
4092     (source (origin
4093               (method svn-fetch)
4094               (uri (texlive-ref "latex" "gcite"))
4095               (file-name (string-append name "-" version "-checkout"))
4096               (sha256
4097                (base32
4098                 "03g9by54yrypn599y98r1xh7qw0bbbmpzq0bfwpj6j5q5rkl1mfa"))))
4099     (build-system texlive-build-system)
4100     (arguments '(#:tex-directory "latex/gcite"))
4101     (home-page "https://www.ctan.org/pkg/gcite")
4102     (synopsis "Citations in a reader-friendly style")
4103     (description
4104      "The package allows citations in the German style, which is considered by
4105 many to be particularly reader-friendly.  The citation provides a small amount
4106 of bibliographic information in a footnote on the page where each citation is
4107 made.  It combines a desire to eliminate unnecessary page-turning with the
4108 look-up efficiency afforded by numeric citations.  The package makes use of
4109 BibLaTeX, and is considered experimental.")
4110     (license license:lppl1.3+)))
4111
4112 (define-public texlive-latex-geometry
4113   (package
4114     (name "texlive-latex-geometry")
4115     (version (number->string %texlive-revision))
4116     (source (origin
4117               (method svn-fetch)
4118               (uri (texlive-ref "latex" "geometry"))
4119               (file-name (string-append name "-" version "-checkout"))
4120               (sha256
4121                (base32
4122                 "0yw6bjfgsli3s1dldsgb7mkr7lnk329cgdjbgs8z2xn59pmmdsn4"))))
4123     (build-system texlive-build-system)
4124     (arguments '(#:tex-directory "latex/geometry"))
4125     (propagated-inputs
4126      `(("texlive-latex-oberdiek" ,texlive-latex-oberdiek))) ;for ifpdf
4127     (home-page "https://www.ctan.org/pkg/geometry")
4128     (synopsis "Flexible and complete interface to document dimensions")
4129     (description
4130      "This package provides an easy and flexible user interface to customize
4131 page layout, implementing auto-centering and auto-balancing mechanisms so that
4132 the users have only to give the least description for the page layout.  The
4133 package knows about all the standard paper sizes, so that the user need not
4134 know what the nominal \"real\" dimensions of the paper are, just its standard
4135 name (such as a4, letter, etc.).  An important feature is the package's
4136 ability to communicate the paper size it's set up to the output.")
4137     (license license:lppl)))
4138
4139 (define-public texlive-latex-mdwtools
4140   (package
4141     (name "texlive-latex-mdwtools")
4142     (version (number->string %texlive-revision))
4143     (source (origin
4144               (method svn-fetch)
4145               (uri (texlive-ref "latex" "mdwtools"))
4146               (file-name (string-append name "-" version "-checkout"))
4147               (sha256
4148                (base32
4149                 "0caxs74hla28hc67csf5i5ahadx97w8vxh3mdmsprxbpd1mr7ssg"))))
4150     (build-system texlive-build-system)
4151     (arguments '(#:tex-directory "latex/mdwtools"))
4152     (home-page "https://www.ctan.org/pkg/mdwtools")
4153     (synopsis "Miscellaneous tools by Mark Wooding")
4154     (description
4155      "This collection of tools includes: @code{atsupport} for short commands
4156 starting with @code{@@}, macros to sanitize the OT1 encoding of the
4157 @code{cmtt} fonts; a @code{doafter} command; improved @code{footnote} support;
4158 @code{mathenv} for various alignment in maths; list handling; @code{mdwmath}
4159 which adds some minor changes to LaTeX maths; a rewrite of LaTeX's tabular and
4160 array environments; verbatim handling; and syntax diagrams.")
4161     (license license:gpl3+)))
4162
4163 (define-public texlive-latex-polyglossia
4164   (package
4165     (name "texlive-latex-polyglossia")
4166     (version (number->string %texlive-revision))
4167     (source (origin
4168               (method svn-fetch)
4169               (uri (texlive-ref "latex" "polyglossia"))
4170               (file-name (string-append name "-" version "-checkout"))
4171               (sha256
4172                (base32
4173                 "03ma58z3ypsbp7zgkzb1ylpn2ygr27cxzkf042ns0rif4g8s491f"))))
4174     (build-system texlive-build-system)
4175     (arguments '(#:tex-directory "latex/polyglossia"))
4176     (home-page "https://www.ctan.org/pkg/polyglossia")
4177     (synopsis "Alternative to babel for XeLaTeX and LuaLaTeX")
4178     (description
4179      "This package provides a complete Babel replacement for users of LuaLaTeX
4180 and XeLaTeX; it relies on the @code{fontspec} package, version 2.0 at least.")
4181     (license license:lppl1.3+)))
4182
4183 (define-public texlive-latex-supertabular
4184   (package
4185     (name "texlive-latex-supertabular")
4186     (version (number->string %texlive-revision))
4187     (source (origin
4188               (method svn-fetch)
4189               (uri (texlive-ref "latex" "supertabular"))
4190               (file-name (string-append name "-" version "-checkout"))
4191               (sha256
4192                (base32
4193                 "14b2bc7cqz4ckxxycim9sw6jkrr1pahivm1rdbpz5k6hl967w1s3"))))
4194     (build-system texlive-build-system)
4195     (arguments '(#:tex-directory "latex/supertabular"))
4196     (home-page "https://www.ctan.org/pkg/supertabular")
4197     (synopsis "Multi-page tables package")
4198     (description
4199      "This package was a predecessor of @code{longtable}; the newer
4200 package (designed on quite different principles) is easier to use and more
4201 flexible, in many cases, but supertabular retains its usefulness in a few
4202 situations where longtable has problems.")
4203     (license license:lppl1.3+)))
4204
4205 (define-public texlive-tex-texinfo
4206   (package
4207     (name "texlive-tex-texinfo")
4208     (version (number->string %texlive-revision))
4209     (source (origin
4210               (method svn-fetch)
4211               (uri (svn-reference
4212                     (url (string-append "svn://www.tug.org/texlive/tags/"
4213                                         %texlive-tag "/Master/texmf-dist/"
4214                                         "/tex/texinfo"))
4215                     (revision %texlive-revision)))
4216               (file-name (string-append name "-" version "-checkout"))
4217               (sha256
4218                (base32
4219                 "06cf821y1j7jdg93pb41ayigrfwgn0y49d7w1025zlijjxi6bvjp"))))
4220     (build-system trivial-build-system)
4221     (arguments
4222      `(#:modules ((guix build utils))
4223        #:builder
4224        (begin
4225          (use-modules (guix build utils))
4226          (let ((target (string-append (assoc-ref %outputs "out")
4227                                       "/share/texmf-dist/tex/texinfo")))
4228            (mkdir-p target)
4229            (copy-recursively (assoc-ref %build-inputs "source") target)
4230            #t))))
4231     (home-page "https://www.ctan.org/pkg/texinfo")
4232     (synopsis "TeX macros to handle Texinfo files")
4233     (description
4234      "Texinfo is the preferred format for documentation in the GNU project;
4235 the format may be used to produce online or printed output from a single
4236 source.  The Texinfo macros may be used to produce printable output using TeX;
4237 other programs in the distribution offer online interactive use (with
4238 hypertext linkages in some cases).")
4239     (license license:gpl3+)))
4240
4241 (define-public texlive-latex-upquote
4242   (package
4243     (name "texlive-latex-upquote")
4244     (version (number->string %texlive-revision))
4245     (source (origin
4246               (method svn-fetch)
4247               (uri (texlive-ref "latex" "upquote"))
4248               (file-name (string-append name "-" version "-checkout"))
4249               (sha256
4250                (base32
4251                 "0d1050i973wnxigy0xpky5l7vn4ff7ldhkjpdqsw5s653gagwixp"))))
4252     (build-system texlive-build-system)
4253     (arguments '(#:tex-directory "latex/upquote"))
4254     (home-page "https://www.ctan.org/pkg/upquote")
4255     (synopsis "Show \"realistic\" quotes in verbatim")
4256     (description
4257      "Typewriter-style fonts are best for program listings, but Computer
4258 Modern Typewriter prints @code{`} and @code{'} as bent opening and closing
4259 single quotes.  Other fonts, and most programming languages, print @code{`} as
4260 a grave accent and @code{'} upright; @code{'} is used both to open and to
4261 close quoted strings.  The package switches the typewriter font to Computer
4262 Modern Typewriter in OT1 encoding, and modifies the behaviour of
4263 @code{verbatim}, @code{verbatim*}, @code{\\verb}, and @code{\\verb*} to print
4264 in the expected way.  It does this regardless of other fonts or encodings in
4265 use, so long as the package is loaded after the other fonts were.  The package
4266 does not affect @code{\\tt}, @code{\\texttt}, etc.")
4267     (license license:lppl1.2+)))
4268
4269 (define-public texlive-latex-anysize
4270   (package
4271     (name "texlive-latex-anysize")
4272     (version (number->string %texlive-revision))
4273     (source (origin
4274               (method svn-fetch)
4275               (uri (svn-reference
4276                     (url (string-append "svn://www.tug.org/texlive/tags/"
4277                                         %texlive-tag "/Master/texmf-dist/"
4278                                         "/tex/latex/anysize"))
4279                     (revision %texlive-revision)))
4280               (file-name (string-append name "-" version "-checkout"))
4281               (sha256
4282                (base32
4283                 "19khwqjlvznc955sijhww3c4zbb0053rvzwv9nz738qknq7y18vb"))))
4284     (build-system trivial-build-system)
4285     (arguments
4286      `(#:modules ((guix build utils))
4287        #:builder
4288        (begin
4289          (use-modules (guix build utils))
4290          (let ((target (string-append (assoc-ref %outputs "out")
4291                                       "/share/texmf-dist/tex/latex/anysize")))
4292            (mkdir-p target)
4293            (copy-recursively (assoc-ref %build-inputs "source") target)
4294            #t))))
4295     (home-page "https://www.ctan.org/pkg/anysize")
4296     (synopsis "Simple package to set up document margins")
4297     (description
4298      "This is a simple package to set up document margins.  This package is
4299 considered obsolete; alternatives are the @code{typearea} package from the
4300 @code{koma-script} bundle, or the @code{geometry} package.")
4301     (license license:public-domain)))
4302
4303 (define-public texlive-latex-appendix
4304   (package
4305     (name "texlive-latex-appendix")
4306     (version (number->string %texlive-revision))
4307     (source (origin
4308               (method svn-fetch)
4309               (uri (texlive-ref "latex" "appendix"))
4310               (file-name (string-append name "-" version "-checkout"))
4311               (sha256
4312                (base32
4313                 "0rxfpr8vq3brwx5rc7qn91ixlp9zva4zrms8a579fqa1g5yva7vg"))))
4314     (build-system texlive-build-system)
4315     (arguments '(#:tex-directory "latex/appendix"))
4316     (home-page "https://www.ctan.org/pkg/appendix")
4317     (synopsis "Extra control of appendices")
4318     (description
4319      "The appendix package provides various ways of formatting the titles of
4320 appendices.  Also (sub)appendices environments are provided that can be used,
4321 for example, for per chapter/section appendices.  An @code{appendices}
4322 environment is provided which can be used instead of the @code{\\appendix}
4323 command.")
4324     (license license:lppl)))
4325
4326 (define-public texlive-latex-changebar
4327   (package
4328     (name "texlive-latex-changebar")
4329     (version (number->string %texlive-revision))
4330     (source (origin
4331               (method svn-fetch)
4332               (uri (texlive-ref "latex" "changebar"))
4333               (file-name (string-append name "-" version "-checkout"))
4334               (sha256
4335                (base32
4336                 "05x15ilynqrl448h8l6qiraygamdldlngz89a2bw7kg74fym14ch"))))
4337     (build-system texlive-build-system)
4338     (arguments '(#:tex-directory "latex/changebar"))
4339     (home-page "https://www.ctan.org/pkg/changebar")
4340     (synopsis "Generate changebars in LaTeX documents")
4341     (description
4342      "Identify areas of text to be marked with changebars with the
4343 @code{\\cbstart} and @code{\\cbend} commands; the bars may be coloured.  The
4344 package uses @code{drivers} to place the bars; the available drivers can work
4345 with @code{dvitoln03}, @code{dvitops}, @code{dvips}, the emTeX and TeXtures DVI
4346 drivers, and VTeX and pdfTeX.")
4347     (license license:lppl)))
4348
4349 (define-public texlive-latex-cmap
4350   (package
4351     (name "texlive-latex-cmap")
4352     (version (number->string %texlive-revision))
4353     (source (origin
4354               (method svn-fetch)
4355               (uri (svn-reference
4356                     (url (string-append "svn://www.tug.org/texlive/tags/"
4357                                         %texlive-tag "/Master/texmf-dist/"
4358                                         "/tex/latex/cmap"))
4359                     (revision %texlive-revision)))
4360               (file-name (string-append name "-" version "-checkout"))
4361               (sha256
4362                (base32
4363                 "1s1rv6zgw105w2j6ffhnk914qrix87y1ndzri1q72g2kbr91zlbg"))))
4364     (build-system trivial-build-system)
4365     (arguments
4366      `(#:modules ((guix build utils))
4367        #:builder
4368        (begin
4369          (use-modules (guix build utils))
4370          (let ((target (string-append (assoc-ref %outputs "out")
4371                                       "/share/texmf-dist/tex/latex/cmap")))
4372            (mkdir-p target)
4373            (copy-recursively (assoc-ref %build-inputs "source") target)
4374            #t))))
4375     (home-page "https://www.tug.org/svn/texlive/tags/texlive-2017.1/\
4376 Master/texmf-dist/tex/latex/cmap/")
4377     (synopsis "CMap support for PDF files")
4378     (description
4379      "This package embeds CMap tables into PDF files to make search and
4380 copy-and-paste functions work properly.")
4381     (license license:lppl)))
4382
4383 (define-public texlive-latex-colortbl
4384   (package
4385     (name "texlive-latex-colortbl")
4386     (version (number->string %texlive-revision))
4387     (source (origin
4388               (method svn-fetch)
4389               (uri (texlive-ref "latex" "colortbl"))
4390               (file-name (string-append name "-" version "-checkout"))
4391               (sha256
4392                (base32
4393                 "190pmq8la2rq07xry8bn8z8yywzxv6fqyqaj7yjfj5rgw6x0mas8"))))
4394     (build-system texlive-build-system)
4395     (arguments '(#:tex-directory "latex/colortbl"))
4396     (home-page "https://www.ctan.org/pkg/colortbl")
4397     (synopsis "Add colour to LaTeX tables")
4398     (description
4399      "This package allows rows, columns, and even individual cells in LaTeX
4400 tables to be coloured.")
4401     (license license:lppl)))
4402
4403 (define-public texlive-latex-fancybox
4404   (package
4405     (name "texlive-latex-fancybox")
4406     (version (number->string %texlive-revision))
4407     (source (origin
4408               (method svn-fetch)
4409               (uri (svn-reference
4410                     (url (string-append "svn://www.tug.org/texlive/tags/"
4411                                         %texlive-tag "/Master/texmf-dist/"
4412                                         "/tex/latex/fancybox"))
4413                     (revision %texlive-revision)))
4414               (file-name (string-append name "-" version "-checkout"))
4415               (sha256
4416                (base32
4417                 "0smmnaad2q8qwicay1frri990lv65l0k8cwzsvdsyp3jk8kp042w"))))
4418     (build-system trivial-build-system)
4419     (arguments
4420      `(#:modules ((guix build utils))
4421        #:builder
4422        (begin
4423          (use-modules (guix build utils))
4424          (let ((target (string-append (assoc-ref %outputs "out")
4425                                       "/share/texmf-dist/tex/latex/fancybox")))
4426            (mkdir-p target)
4427            (copy-recursively (assoc-ref %build-inputs "source") target)
4428            #t))))
4429     (home-page "https://www.ctan.org/pkg/fancybox")
4430     (synopsis "Variants of \\fbox and other games with boxes")
4431     (description
4432      "This package provides variants of @code{\\fbox}: @code{\\shadowbox},
4433 @code{\\doublebox}, @code{\\ovalbox}, @code{\\Ovalbox}, with helpful tools for
4434 using box macros and flexible verbatim macros.  You can box mathematics,
4435 floats, center, flushleft, and flushright, lists, and pages.")
4436     (license license:lppl1.2+)))
4437
4438 (define-public texlive-latex-fancyhdr
4439   (package
4440     (name "texlive-latex-fancyhdr")
4441     (version (number->string %texlive-revision))
4442     (source (origin
4443               (method svn-fetch)
4444               (uri (svn-reference
4445                     (url (string-append "svn://www.tug.org/texlive/tags/"
4446                                         %texlive-tag "/Master/texmf-dist/"
4447                                         "/tex/latex/fancyhdr"))
4448                     (revision %texlive-revision)))
4449               (file-name (string-append name "-" version "-checkout"))
4450               (sha256
4451                (base32
4452                 "1xsnzx7vgdfh9zh2m7bjz6bgdpxsgb1kyc19p50vhs34x5nbgsnr"))))
4453     (build-system trivial-build-system)
4454     (arguments
4455      `(#:modules ((guix build utils))
4456        #:builder
4457        (begin
4458          (use-modules (guix build utils))
4459          (let ((target (string-append (assoc-ref %outputs "out")
4460                                       "/share/texmf-dist/tex/latex/fancyhdr")))
4461            (mkdir-p target)
4462            (copy-recursively (assoc-ref %build-inputs "source") target)
4463            #t))))
4464     (home-page "https://www.ctan.org/pkg/fancyhdr")
4465     (synopsis "Extensive control of page headers and footers in LaTeX2e")
4466     (description
4467      "The package provides extensive facilities, both for constructing headers
4468 and footers, and for controlling their use (for example, at times when LaTeX
4469 would automatically change the heading style in use).")
4470     (license license:lppl)))
4471
4472 (define-public texlive-latex-float
4473   (package
4474     (name "texlive-latex-float")
4475     (version (number->string %texlive-revision))
4476     (source (origin
4477               (method svn-fetch)
4478               (uri (texlive-ref "latex" "float"))
4479               (file-name (string-append name "-" version "-checkout"))
4480               (sha256
4481                (base32
4482                 "0nbl7wylkv22fcdv4p8byhhj575fli6jnqjpkhrkbv8dzwah84nq"))))
4483     (build-system texlive-build-system)
4484     (arguments '(#:tex-directory "latex/float"))
4485     (home-page "https://www.ctan.org/pkg/float")
4486     (synopsis "Improved interface for floating objects")
4487     (description
4488      "This package improves the interface for defining floating objects such
4489 as figures and tables.  It introduces the boxed float, the ruled float and the
4490 plaintop float.  You can define your own floats and improve the behaviour of
4491 the old ones.  The package also provides the @code{H} float modifier option of
4492 the obsolete @code{here} package.  You can select this as automatic default
4493 with @code{\\floatplacement{figure}{H}}.")
4494     (license license:lppl)))
4495
4496 (define-public texlive-latex-footmisc
4497   (package
4498     (name "texlive-latex-footmisc")
4499     (version (number->string %texlive-revision))
4500     (source (origin
4501               (method svn-fetch)
4502               (uri (texlive-ref "latex" "footmisc"))
4503               (file-name (string-append name "-" version "-checkout"))
4504               (sha256
4505                (base32
4506                 "03x61wwql8nh6zrqiiiq3rb0x7m3pn48c606zapy19y21fybwdxs"))))
4507     (build-system texlive-build-system)
4508     (arguments '(#:tex-directory "latex/footmisc"))
4509     (home-page "https://www.ctan.org/pkg/footmisc")
4510     (synopsis "Range of footnote options")
4511     (description
4512      "This is a collection of ways to change the typesetting of footnotes.
4513 The package provides means of changing the layout of the footnotes themselves,
4514 a way to number footnotes per page, to make footnotes disappear in a
4515 \"moving\" argument, and to deal with multiple references to footnotes from
4516 the same place.  The package also has a range of techniques for labelling
4517 footnotes with symbols rather than numbers.")
4518     (license license:lppl1.3+)))
4519
4520 (define-public texlive-latex-listings
4521   (package
4522     (name "texlive-latex-listings")
4523     (version (number->string %texlive-revision))
4524     (source (origin
4525               (method svn-fetch)
4526               (uri (texlive-ref "latex" "listings"))
4527               (file-name (string-append name "-" version "-checkout"))
4528               (sha256
4529                (base32
4530                 "1nsn9wp3wl12b36c0sqrim33lf33cr5wky0h4ncnw8lvqgm7h8wf"))))
4531     (build-system texlive-build-system)
4532     (arguments
4533      '(#:tex-directory "latex/listings"
4534        #:build-targets '("listings.ins")))
4535     (home-page "https://www.ctan.org/pkg/listings")
4536     (synopsis "Typeset source code listings using LaTeX")
4537     (description
4538      "The package enables the user to typeset programs (programming code)
4539 within LaTeX; the source code is read directly by TeX---no front-end processor
4540 is needed.  Keywords, comments and strings can be typeset using different
4541 styles.  Support for @code{hyperref} is provided.")
4542     (license license:lppl1.3+)))
4543
4544 (define-public texlive-latex-jknapltx
4545   (package
4546     (name "texlive-latex-jknapltx")
4547     (version (number->string %texlive-revision))
4548     (source (origin
4549               (method svn-fetch)
4550               (uri (svn-reference
4551                     (url (string-append "svn://www.tug.org/texlive/tags/"
4552                                         %texlive-tag "/Master/texmf-dist/"
4553                                         "/tex/latex/jknapltx"))
4554                     (revision %texlive-revision)))
4555               (file-name (string-append name "-" version "-checkout"))
4556               (sha256
4557                (base32
4558                 "0m034x72f2g07icr50gacyxfb9g1lz2rmqh4kqr1qjb421x2kds9"))))
4559     (build-system trivial-build-system)
4560     (arguments
4561      `(#:modules ((guix build utils))
4562        #:builder
4563        (begin
4564          (use-modules (guix build utils))
4565          (let ((target (string-append (assoc-ref %outputs "out")
4566                                       "/share/texmf-dist/tex/latex/jknapltx")))
4567            (mkdir-p target)
4568            (copy-recursively (assoc-ref %build-inputs "source") target)
4569            #t))))
4570     (home-page "https://www.ctan.org/pkg/jknappen")
4571     (synopsis "Miscellaneous packages by Joerg Knappen")
4572     (description
4573      "This package provides miscellaneous macros by Joerg Knappen, including:
4574 represent counters in greek; Maxwell's non-commutative division;
4575 @code{latin1jk}, @code{latin2jk} and @code{latin3jk}, which are
4576 @code{inputenc} definition files that allow verbatim input in the respective
4577 ISO Latin codes; blackboard bold fonts in maths; use of RSFS fonts in maths;
4578 extra alignments for @code{\\parboxes}; swap Roman and Sans fonts;
4579 transliterate semitic languages; patches to make (La)TeX formulae embeddable
4580 in SGML; use maths minus in text as appropriate; simple Young tableaux.")
4581     (license license:gpl2)))
4582
4583 (define-public texlive-fonts-ec
4584   (package
4585     (name "texlive-fonts-ec")
4586     (version (number->string %texlive-revision))
4587     (source (origin
4588               (method svn-fetch)
4589               (uri (svn-reference
4590                     (url (string-append "svn://www.tug.org/texlive/tags/"
4591                                         %texlive-tag "/Master/texmf-dist/"
4592                                         "/fonts/source/jknappen/ec/"))
4593                     (revision %texlive-revision)))
4594               (file-name (string-append name "-" version "-checkout"))
4595               (sha256
4596                (base32
4597                 "12av65fbz9xiashm09c9m1fj1mijxls5xspd7652ry1n5s0nixy4"))))
4598     (build-system gnu-build-system)
4599     (arguments
4600      `(#:modules ((guix build gnu-build-system)
4601                   (guix build utils)
4602                   (srfi srfi-1)
4603                   (srfi srfi-26))
4604        #:tests? #f                      ; no tests
4605        #:phases
4606        (modify-phases %standard-phases
4607          (delete 'configure)
4608          (replace 'build
4609            (lambda* (#:key inputs #:allow-other-keys)
4610              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
4611                ;; Tell mf where to find mf.base
4612                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
4613                ;; Tell mf where to look for source files
4614                (setenv "MFINPUTS"
4615                        (string-append (getcwd) ":"
4616                                       mf "/share/texmf-dist/metafont/base:"
4617                                       (assoc-ref inputs "texlive-fonts-cm")
4618                                       "/share/texmf-dist/fonts/source/public/cm")))
4619              (mkdir "build")
4620              (for-each (lambda (font)
4621                          (format #t "building font ~a\n" font)
4622                          (invoke "mf" "-progname=mf"
4623                                  "-output-directory=build"
4624                                  (string-append "\\"
4625                                                 "mode:=ljfour; "
4626                                                 "mag:=1; "
4627                                                 "batchmode; "
4628                                                 "input " (basename font ".mf"))))
4629                        (find-files "." "[0-9]+\\.mf$"))
4630              #t))
4631          (replace 'install
4632            (lambda* (#:key outputs #:allow-other-keys)
4633              (let* ((out (assoc-ref outputs "out"))
4634                     (tfm (string-append
4635                           out "/share/texmf-dist/fonts/tfm/jknappen/ec"))
4636                     (mf  (string-append
4637                           out "/share/texmf-dist/fonts/source/jknappen/ec")))
4638                (for-each (cut install-file <> tfm)
4639                          (find-files "build" "\\.*"))
4640                (for-each (cut install-file <> mf)
4641                          (find-files "." "\\.mf"))
4642                #t))))))
4643     (native-inputs
4644      `(("texlive-bin" ,texlive-bin)
4645        ("texlive-metafont-base" ,texlive-metafont-base)
4646        ("texlive-fonts-cm" ,texlive-fonts-cm)))
4647     (home-page "https://www.ctan.org/pkg/ec")
4648     (synopsis "Computer modern fonts in T1 and TS1 encodings")
4649     (description
4650      "The EC fonts are European Computer Modern Fonts, supporting the complete
4651 LaTeX T1 encoding defined at the 1990 TUG conference hold at Cork/Ireland.
4652 These fonts are intended to be stable with no changes being made to the tfm
4653 files.  The set also contains a Text Companion Symbol font, called @code{tc},
4654 featuring many useful characters needed in text typesetting, for example
4655 oldstyle digits, currency symbols (including the newly created Euro symbol),
4656 the permille sign, copyright, trade mark and servicemark as well as a copyleft
4657 sign, and many others.  Recent releases of LaTeX2e support the EC fonts.  The
4658 EC fonts supersede the preliminary version released as the DC fonts.  The
4659 fonts are available in (traced) Adobe Type 1 format, as part of the
4660 @code{cm-super} bundle.  The other Computer Modern-style T1-encoded Type 1
4661 set, Latin Modern, is not actually a direct development of the EC set, and
4662 differs from the EC in a number of particulars.")
4663     (license (license:fsf-free "https://www.tug.org/svn/texlive/tags/\
4664 texlive-2017.1/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
4665
4666 (define-public texlive-fonts-adobe-times
4667   (package
4668     (name "texlive-fonts-adobe-times")
4669     (version (number->string %texlive-revision))
4670     (source (origin
4671               (method svn-fetch)
4672               (uri (svn-reference
4673                     (url (string-append "svn://www.tug.org/texlive/tags/"
4674                                         %texlive-tag "/Master/texmf-dist/"
4675                                         "/fonts/type1/urw/times/"))
4676                     (revision %texlive-revision)))
4677               (file-name (string-append name "-" version "-checkout"))
4678               (sha256
4679                (base32
4680                 "15vzyr7favkv1mj00qxr03s89kw78nd066fh69by93272g8p5sgd"))))
4681     (build-system trivial-build-system)
4682     (arguments
4683      `(#:modules ((guix build utils)
4684                   (ice-9 match))
4685        #:builder
4686        (begin
4687          (use-modules (guix build utils)
4688                       (ice-9 match))
4689          (let ((root (string-append (assoc-ref %outputs "out")
4690                                     "/share/texmf-dist/"))
4691                (pkgs '(("source"        . "fonts/type1/urw/times")
4692
4693                        ("times-afm"     . "fonts/afm/adobe/times")
4694                        ("times-tfm"     . "fonts/tfm/adobe/times")
4695                        ("times-vf"      . "fonts/vf/adobe/times")
4696
4697                        ("urw-afm"       . "fonts/afm/urw/times")
4698                        ("urw35vf-tfm"   . "fonts/tfm/urw35vf/times")
4699                        ("urw35vf-vf"    . "fonts/vf/urw35vf/times")
4700
4701                        ("times-tex"     . "tex/latex/times")
4702                        ("dvips"         . "dvips/times")
4703                        ("fonts-map"     . "fonts/map/dvips/times"))))
4704            (for-each (match-lambda
4705                        ((pkg . dir)
4706                         (let ((target (string-append root dir)))
4707                           (mkdir-p target)
4708                           (copy-recursively (assoc-ref %build-inputs pkg)
4709                                             target))))
4710                      pkgs)
4711            #t))))
4712     (native-inputs
4713      `(("times-afm"
4714         ,(origin
4715            (method svn-fetch)
4716            (uri (svn-reference
4717                  (url (string-append "svn://www.tug.org/texlive/tags/"
4718                                      %texlive-tag "/Master/texmf-dist/"
4719                                      "/fonts/afm/adobe/times"))
4720                  (revision %texlive-revision)))
4721            (file-name (string-append name "-afm-" version "-checkout"))
4722            (sha256
4723             (base32
4724              "1k7h6vihfc6ri2lq9ggnq2g4zq3qcgq1vd0hr486g9cqrdpys6cy"))))
4725        ("times-tfm"
4726         ,(origin
4727            (method svn-fetch)
4728            (uri (svn-reference
4729                  (url (string-append "svn://www.tug.org/texlive/tags/"
4730                                      %texlive-tag "/Master/texmf-dist/"
4731                                      "/fonts/tfm/adobe/times"))
4732                  (revision %texlive-revision)))
4733            (file-name (string-append name "-tfm-" version "-checkout"))
4734            (sha256
4735             (base32
4736              "1hbgkjnf5xyganbznwpwszvr3iyk4bzb0ys4hd8ybawp60paadrr"))))
4737        ("times-vf"
4738         ,(origin
4739            (method svn-fetch)
4740            (uri (svn-reference
4741                  (url (string-append "svn://www.tug.org/texlive/tags/"
4742                                      %texlive-tag "/Master/texmf-dist/"
4743                                      "/fonts/vf/adobe/times"))
4744                  (revision %texlive-revision)))
4745            (file-name (string-append name "-vf-" version "-checkout"))
4746            (sha256
4747             (base32
4748              "18rfspnwdw9r81dy18lb4w96d09b6c4g7y80azwylalkhwdf2lfp"))))
4749        ("urw-afm"
4750         ,(origin
4751            (method svn-fetch)
4752            (uri (svn-reference
4753                  (url (string-append "svn://www.tug.org/texlive/tags/"
4754                                      %texlive-tag "/Master/texmf-dist/"
4755                                      "/fonts/afm/urw/times"))
4756                  (revision %texlive-revision)))
4757            (file-name (string-append name "-urw-afm-" version "-checkout"))
4758            (sha256
4759             (base32
4760              "0g0xpsyn6634g0b4rpd420v7i4gkz3zr12vcy2b8csbcscjvwri5"))))
4761        ("urw35vf-tfm"
4762         ,(origin
4763            (method svn-fetch)
4764            (uri (svn-reference
4765                  (url (string-append "svn://www.tug.org/texlive/tags/"
4766                                      %texlive-tag "/Master/texmf-dist/"
4767                                      "/fonts/tfm/urw35vf/times"))
4768                  (revision %texlive-revision)))
4769            (file-name (string-append name "-urw35vf-tfm-" version "-checkout"))
4770            (sha256
4771             (base32
4772              "0a4idlvpaqd0ypqgy1xw0rpx8q23bvssg8xq757zzn3zikj0w7pr"))))
4773        ("urw35vf-vf"
4774         ,(origin
4775            (method svn-fetch)
4776            (uri (svn-reference
4777                  (url (string-append "svn://www.tug.org/texlive/tags/"
4778                                      %texlive-tag "/Master/texmf-dist/"
4779                                      "/fonts/vf/urw35vf/times"))
4780                  (revision %texlive-revision)))
4781            (file-name (string-append name "-urw35vf-vf-" version "-checkout"))
4782            (sha256
4783             (base32
4784              "05mppwxd4c5x0yw50gca726f0ylc1rk8jf0jjkrriixq6rnw03di"))))
4785        ("times-tex"
4786         ,(origin
4787            (method svn-fetch)
4788            (uri (svn-reference
4789                  (url (string-append "svn://www.tug.org/texlive/tags/"
4790                                      %texlive-tag "/Master/texmf-dist/"
4791                                      "/tex/latex/times"))
4792                  (revision %texlive-revision)))
4793            (file-name (string-append name "-tex-" version "-checkout"))
4794            (sha256
4795             (base32
4796              "1gmd0x7c3vkvfzgmrsp4866rcdbyimfk3bjr91zaadc41r1i8xrp"))))
4797        ("dvips"
4798         ,(origin
4799            (method svn-fetch)
4800            (uri (svn-reference
4801                  (url (string-append "svn://www.tug.org/texlive/tags/"
4802                                      %texlive-tag "/Master/texmf-dist/"
4803                                      "/dvips/times/"))
4804                  (revision %texlive-revision)))
4805            (file-name (string-append name "-dvips-" version "-checkout"))
4806            (sha256
4807             (base32
4808              "1fvqpgqi7bp2q76nf5kmlhsdijxw65arqfy3ax3djwih3yg12mp0"))))
4809        ("fonts-map"
4810         ,(origin
4811            (method svn-fetch)
4812            (uri (svn-reference
4813                  (url (string-append "svn://www.tug.org/texlive/tags/"
4814                                      %texlive-tag "/Master/texmf-dist/"
4815                                      "/fonts/map/dvips/times/"))
4816                  (revision %texlive-revision)))
4817            (file-name (string-append name "-fonts-map-" version "-checkout"))
4818            (sha256
4819             (base32
4820              "12f00gzs2zgllkm59qdhw2xxj7lvg3p256232f1l275z3pldfqqi"))))))
4821     (home-page "https://ctan.org/pkg/urw-base35")
4822     (synopsis "URW Base 35 font pack for LaTeX")
4823     (description
4824      "This package provides a drop-in replacements for the Times font from
4825 Adobe's basic set.")
4826     ;; No license version specified.
4827     (license license:gpl3+)))
4828
4829 (define-public texlive-fonts-adobe-palatino
4830   (package
4831     (name "texlive-fonts-adobe-palatino")
4832     (version (number->string %texlive-revision))
4833     (source (origin
4834               (method svn-fetch)
4835               (uri (svn-reference
4836                     (url (string-append "svn://www.tug.org/texlive/tags/"
4837                                         %texlive-tag "/Master/texmf-dist/"
4838                                         "/fonts/type1/urw/palatino/"))
4839                     (revision %texlive-revision)))
4840               (file-name (string-append name "-" version "-checkout"))
4841               (sha256
4842                (base32
4843                 "18dw5260c6fy7acxaqwrg3hw04kg63ijq4lkn56q5pa2g6nyylrp"))))
4844     (build-system trivial-build-system)
4845     (arguments
4846      `(#:modules ((guix build utils)
4847                   (ice-9 match))
4848        #:builder
4849        (begin
4850          (use-modules (guix build utils)
4851                       (ice-9 match))
4852          (let ((root (string-append (assoc-ref %outputs "out")
4853                                     "/share/texmf-dist/"))
4854                (pkgs '(("source"        . "fonts/type1/urw/palatino")
4855
4856                        ("palatino-afm"  . "fonts/afm/adobe/palatino")
4857                        ("palatino-tfm"  . "fonts/tfm/adobe/palatino")
4858                        ("palatino-vf"   . "fonts/vf/adobe/palatino")
4859
4860                        ("urw-afm"       . "fonts/afm/urw/palatino")
4861                        ("urw35vf-tfm"   . "fonts/tfm/urw35vf/palatino")
4862                        ("urw35vf-vf"    . "fonts/vf/urw35vf/palatino")
4863
4864                        ("palatino-tex"  . "tex/latex/palatino")
4865                        ("dvips"         . "dvips/palatino")
4866                        ("fonts-map"     . "fonts/map/dvips/palatino"))))
4867            (for-each (match-lambda
4868                        ((pkg . dir)
4869                         (let ((target (string-append root dir)))
4870                           (mkdir-p target)
4871                           (copy-recursively (assoc-ref %build-inputs pkg)
4872                                             target))))
4873                      pkgs)
4874            #t))))
4875     (native-inputs
4876      `(("palatino-afm"
4877         ,(origin
4878            (method svn-fetch)
4879            (uri (svn-reference
4880                  (url (string-append "svn://www.tug.org/texlive/tags/"
4881                                      %texlive-tag "/Master/texmf-dist/"
4882                                      "/fonts/afm/adobe/palatino"))
4883                  (revision %texlive-revision)))
4884            (file-name (string-append name "-afm-" version "-checkout"))
4885            (sha256
4886             (base32
4887              "0pxizay730cx7rb9y5bqq9dn1zxx3arc33rmdsn7l29pc51flmmi"))))
4888        ("palatino-tfm"
4889         ,(origin
4890            (method svn-fetch)
4891            (uri (svn-reference
4892                  (url (string-append "svn://www.tug.org/texlive/tags/"
4893                                      %texlive-tag "/Master/texmf-dist/"
4894                                      "/fonts/tfm/adobe/palatino"))
4895                  (revision %texlive-revision)))
4896            (file-name (string-append name "-tfm-" version "-checkout"))
4897            (sha256
4898             (base32
4899              "1w1vm0sk9kpsy14yhyf1v1q3c6b97cgbba74g578bcwjlh810mg0"))))
4900        ("palatino-vf"
4901         ,(origin
4902            (method svn-fetch)
4903            (uri (svn-reference
4904                  (url (string-append "svn://www.tug.org/texlive/tags/"
4905                                      %texlive-tag "/Master/texmf-dist/"
4906                                      "/fonts/vf/adobe/palatino"))
4907                  (revision %texlive-revision)))
4908            (file-name (string-append name "-vf-" version "-checkout"))
4909            (sha256
4910             (base32
4911              "1maqfis8hpybcn9lmm8r2b1g56620lfpsncg0742c3kkjd6dh97h"))))
4912        ("urw-afm"
4913         ,(origin
4914            (method svn-fetch)
4915            (uri (svn-reference
4916                  (url (string-append "svn://www.tug.org/texlive/tags/"
4917                                      %texlive-tag "/Master/texmf-dist/"
4918                                      "/fonts/afm/urw/palatino"))
4919                  (revision %texlive-revision)))
4920            (file-name (string-append name "-urw-afm-" version "-checkout"))
4921            (sha256
4922             (base32
4923              "0gk0xwy1fs2si5kb1j3dzgm52c8sagv32gd9dmw88m7sgh5qkd87"))))
4924        ("urw35vf-tfm"
4925         ,(origin
4926            (method svn-fetch)
4927            (uri (svn-reference
4928                  (url (string-append "svn://www.tug.org/texlive/tags/"
4929                                      %texlive-tag "/Master/texmf-dist/"
4930                                      "/fonts/tfm/urw35vf/palatino"))
4931                  (revision %texlive-revision)))
4932            (file-name (string-append name "-urw35vf-tfm-" version "-checkout"))
4933            (sha256
4934             (base32
4935              "19aq3xwfg7vkf1qzjdxgcvcdqwpvpavq3l25y64xni72qx0kmppz"))))
4936        ("urw35vf-vf"
4937         ,(origin
4938            (method svn-fetch)
4939            (uri (svn-reference
4940                  (url (string-append "svn://www.tug.org/texlive/tags/"
4941                                      %texlive-tag "/Master/texmf-dist/"
4942                                      "/fonts/vf/urw35vf/palatino"))
4943                  (revision %texlive-revision)))
4944            (file-name (string-append name "-urw35vf-vf-" version "-checkout"))
4945            (sha256
4946             (base32
4947              "1lkn4p6zimrs0ah6mxsang4bicp8j7xzl016529a3f168an7mdmj"))))
4948        ("palatino-tex"
4949         ,(origin
4950            (method svn-fetch)
4951            (uri (svn-reference
4952                  (url (string-append "svn://www.tug.org/texlive/tags/"
4953                                      %texlive-tag "/Master/texmf-dist/"
4954                                      "/tex/latex/palatino"))
4955                  (revision %texlive-revision)))
4956            (file-name (string-append name "-tex-" version "-checkout"))
4957            (sha256
4958             (base32
4959              "0ng9w7i0p1nb51amla32jj86vx6p84m6qc7asam3g4x8w5jf7s27"))))
4960        ("dvips"
4961         ,(origin
4962            (method svn-fetch)
4963            (uri (svn-reference
4964                  (url (string-append "svn://www.tug.org/texlive/tags/"
4965                                      %texlive-tag "/Master/texmf-dist/"
4966                                      "/dvips/palatino/"))
4967                  (revision %texlive-revision)))
4968            (file-name (string-append name "-dvips-" version "-checkout"))
4969            (sha256
4970             (base32
4971              "1pdbkfmhx4kk3brh5lg6fyl9ad2kbjmkrhgcx84klnlhq01mfdhb"))))
4972        ("fonts-map"
4973         ,(origin
4974            (method svn-fetch)
4975            (uri (svn-reference
4976                  (url (string-append "svn://www.tug.org/texlive/tags/"
4977                                      %texlive-tag "/Master/texmf-dist/"
4978                                      "/fonts/map/dvips/palatino/"))
4979                  (revision %texlive-revision)))
4980            (file-name (string-append name "-fonts-map-" version "-checkout"))
4981            (sha256
4982             (base32
4983              "0rg13hyp652hp3gnrj5pbyb84zkqmyi1qnm8c6spcyaq8pm06l0d"))))))
4984     (home-page "https://ctan.org/pkg/urw-base35")
4985     (synopsis "URW Base 35 font pack for LaTeX")
4986     (description
4987      "This package provides a drop-in replacements for the Palatino font from
4988 Adobe's basic set.")
4989     ;; No license version specified.
4990     (license license:gpl3+)))
4991
4992 (define-public texlive-fonts-adobe-zapfding
4993   (package
4994     (name "texlive-fonts-adobe-zapfding")
4995     (version (number->string %texlive-revision))
4996     (source (origin
4997               (method svn-fetch)
4998               (uri (svn-reference
4999                     (url (string-append "svn://www.tug.org/texlive/tags/"
5000                                         %texlive-tag "/Master/texmf-dist/"
5001                                         "/fonts/type1/urw/zapfding/"))
5002                     (revision %texlive-revision)))
5003               (file-name (string-append name "-" version "-checkout"))
5004               (sha256
5005                (base32
5006                 "1sp3jblg3khp0yj121blvhph6ib09919kyrsk5x2lg258yypqyis"))))
5007     (build-system trivial-build-system)
5008     (arguments
5009      `(#:modules ((guix build utils)
5010                   (ice-9 match))
5011        #:builder
5012        (begin
5013          (use-modules (guix build utils)
5014                       (ice-9 match))
5015          (let ((root (string-append (assoc-ref %outputs "out")
5016                                     "/share/texmf-dist/"))
5017                (pkgs '(("source"      . "fonts/type1/urw/zapfding")
5018                        ("zapf-afm"    . "fonts/afm/adobe/zapfding")
5019                        ("zapf-tfm"    . "fonts/tfm/adobe/zapfding")
5020                        ("urw-afm"     . "fonts/afm/urw/zapfding")
5021                        ("urw35vf-tfm" . "fonts/tfm/urw35vf/zapfding")
5022
5023                        ("zapf-tex"    . "tex/latex/zapfding")
5024                        ("dvips"       . "dvips/zapfding")
5025                        ("fonts-map"   . "fonts/map/dvips/zapfding"))))
5026            (for-each (match-lambda
5027                        ((pkg . dir)
5028                         (let ((target (string-append root dir)))
5029                           (mkdir-p target)
5030                           (copy-recursively (assoc-ref %build-inputs pkg)
5031                                             target))))
5032                      pkgs)
5033            #t))))
5034     (native-inputs
5035      `(("zapf-afm"
5036         ,(origin
5037            (method svn-fetch)
5038            (uri (svn-reference
5039                  (url (string-append "svn://www.tug.org/texlive/tags/"
5040                                      %texlive-tag "/Master/texmf-dist/"
5041                                      "/fonts/afm/adobe/zapfding"))
5042                  (revision %texlive-revision)))
5043            (file-name (string-append name "-afm-" version "-checkout"))
5044            (sha256
5045             (base32
5046              "0qvl4w1bfcpiakkd8rvkism46qnvzj9w7x4r8z9m0y7mspbkblyr"))))
5047        ("zapf-tfm"
5048         ,(origin
5049            (method svn-fetch)
5050            (uri (svn-reference
5051                  (url (string-append "svn://www.tug.org/texlive/tags/"
5052                                      %texlive-tag "/Master/texmf-dist/"
5053                                      "/fonts/tfm/adobe/zapfding"))
5054                  (revision %texlive-revision)))
5055            (file-name (string-append name "-tfm-" version "-checkout"))
5056            (sha256
5057             (base32
5058              "1i8mh9xsl8l4cgsg3nl4ha9q6m55j122riclaxsvkc5ka83432qm"))))
5059        ("urw-afm"
5060         ,(origin
5061            (method svn-fetch)
5062            (uri (svn-reference
5063                  (url (string-append "svn://www.tug.org/texlive/tags/"
5064                                      %texlive-tag "/Master/texmf-dist/"
5065                                      "/fonts/afm/urw/zapfding"))
5066                  (revision %texlive-revision)))
5067            (file-name (string-append name "-urw-afm-" version "-checkout"))
5068            (sha256
5069             (base32
5070              "0m4qndqh7ji723ff82c5c1q8ziqvblbaip7vx05vnl15fqbsnfx1"))))
5071        ("urw35vf-tfm"
5072         ,(origin
5073            (method svn-fetch)
5074            (uri (svn-reference
5075                  (url (string-append "svn://www.tug.org/texlive/tags/"
5076                                      %texlive-tag "/Master/texmf-dist/"
5077                                      "/fonts/tfm/urw35vf/zapfding"))
5078                  (revision %texlive-revision)))
5079            (file-name (string-append name "-urw35vf-tfm-" version "-checkout"))
5080            (sha256
5081             (base32
5082              "167g2x6mpjfqh0w1fhjbw14qcx6ridrj2zm1bd8bi0l2d7phj28m"))))
5083        ("zapf-tex"
5084         ,(origin
5085            (method svn-fetch)
5086            (uri (svn-reference
5087                  (url (string-append "svn://www.tug.org/texlive/tags/"
5088                                      %texlive-tag "/Master/texmf-dist/"
5089                                      "/tex/latex/zapfding"))
5090                  (revision %texlive-revision)))
5091            (file-name (string-append name "-tex-" version "-checkout"))
5092            (sha256
5093             (base32
5094              "0hp7i8f6nbrg7irrwc8fd7n1hrzjysa84d6iyivwlc65v9p7lmd0"))))
5095        ("dvips"
5096         ,(origin
5097            (method svn-fetch)
5098            (uri (svn-reference
5099                  (url (string-append "svn://www.tug.org/texlive/tags/"
5100                                      %texlive-tag "/Master/texmf-dist/"
5101                                      "/dvips/zapfding/"))
5102                  (revision %texlive-revision)))
5103            (file-name (string-append name "-dvips-" version "-checkout"))
5104            (sha256
5105             (base32
5106              "1f18sc4qwxykd786zhn6szcrycqvpvfhlcim71aamxmwghakd7fa"))))
5107        ("fonts-map"
5108         ,(origin
5109            (method svn-fetch)
5110            (uri (svn-reference
5111                  (url (string-append "svn://www.tug.org/texlive/tags/"
5112                                      %texlive-tag "/Master/texmf-dist/"
5113                                      "/fonts/map/dvips/zapfding/"))
5114                  (revision %texlive-revision)))
5115            (file-name (string-append name "-fonts-map-" version "-checkout"))
5116            (sha256
5117             (base32
5118              "17kwxmdrgz2fb072hx57a3pidcrhbgayphx11zyld2hv9149pkyl"))))))
5119     (home-page "https://ctan.org/pkg/urw-base35")
5120     (synopsis "URW Base 35 font pack for LaTeX")
5121     (description
5122      "This package provides a drop-in replacements for the Zapfding font from
5123 Adobe's basic set.")
5124     ;; No license version specified.
5125     (license license:gpl3+)))
5126
5127 (define-public texlive-fonts-rsfs
5128   (package
5129     (name "texlive-fonts-rsfs")
5130     (version (number->string %texlive-revision))
5131     (source (origin
5132               (method svn-fetch)
5133               (uri (svn-reference
5134                     (url (string-append "svn://www.tug.org/texlive/tags/"
5135                                         %texlive-tag "/Master/texmf-dist/"
5136                                         "/fonts/source/public/rsfs/"))
5137                     (revision %texlive-revision)))
5138               (file-name (string-append name "-" version "-checkout"))
5139               (sha256
5140                (base32
5141                 "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
5142     (build-system gnu-build-system)
5143     (arguments
5144      `(#:modules ((guix build gnu-build-system)
5145                   (guix build utils)
5146                   (srfi srfi-1)
5147                   (srfi srfi-26))
5148        #:tests? #f                      ; no tests
5149        #:phases
5150        (modify-phases %standard-phases
5151          (delete 'configure)
5152          (replace 'build
5153            (lambda* (#:key inputs #:allow-other-keys)
5154              (let ((mf (assoc-ref inputs "texlive-metafont-base")))
5155                ;; Tell mf where to find mf.base
5156                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
5157                ;; Tell mf where to look for source files
5158                (setenv "MFINPUTS"
5159                        (string-append (getcwd) ":"
5160                                       mf "/share/texmf-dist/metafont/base:"
5161                                       (assoc-ref inputs "texlive-fonts-cm")
5162                                       "/share/texmf-dist/fonts/source/public/cm")))
5163              (mkdir "build")
5164              (for-each (lambda (font)
5165                          (format #t "building font ~a\n" font)
5166                          (invoke "mf" "-progname=mf"
5167                                  "-output-directory=build"
5168                                  (string-append "\\"
5169                                                 "mode:=ljfour; "
5170                                                 "mag:=1; "
5171                                                 "batchmode; "
5172                                                 "input " (basename font ".mf"))))
5173                        (find-files "." "[0-9]+\\.mf$"))
5174              #t))
5175          (replace 'install
5176            (lambda* (#:key outputs #:allow-other-keys)
5177              (let* ((out (assoc-ref outputs "out"))
5178                     (tfm (string-append
5179                           out "/share/texmf-dist/fonts/tfm/public/rsfs"))
5180                     (mf  (string-append
5181                           out "/share/texmf-dist/fonts/source/public/rsfs")))
5182                (for-each (cut install-file <> tfm)
5183                          (find-files "build" "\\.*"))
5184                (for-each (cut install-file <> mf)
5185                          (find-files "." "\\.mf"))
5186                #t))))))
5187     (native-inputs
5188      `(("texlive-bin" ,texlive-bin)
5189        ("texlive-metafont-base" ,texlive-metafont-base)
5190        ("texlive-fonts-cm" ,texlive-fonts-cm)))
5191     (home-page "https://www.ctan.org/pkg/rsfs")
5192     (synopsis "Ralph Smith's Formal Script font")
5193     (description
5194      "The fonts provide uppercase formal script letters for use as symbols in
5195 scientific and mathematical typesetting (in contrast to the informal script
5196 fonts such as that used for the calligraphic symbols in the TeX maths symbol
5197 font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
5198 format.  LaTeX support, for using these fonts in mathematics, is available via
5199 one of the packages @code{calrsfs} and @code{mathrsfs}.")
5200     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README"))))
5201
5202 (define-public texlive-latex-eso-pic
5203   (package
5204     (name "texlive-latex-eso-pic")
5205     (version (number->string %texlive-revision))
5206     (source (origin
5207               (method svn-fetch)
5208               (uri (texlive-ref "latex" "eso-pic"))
5209               (file-name (string-append name "-" version "-checkout"))
5210               (sha256
5211                (base32
5212                 "1xvmms28mvvfpks9x7lfya2xhh5k8jy3qnlih1mzcnf156xnb89z"))))
5213     (build-system texlive-build-system)
5214     (arguments '(#:tex-directory "latex/eso-pic"))
5215     (home-page "https://www.ctan.org/pkg/eso-pic")
5216     (synopsis "Add picture commands (or backgrounds) to every page")
5217     (description
5218      "The package adds one or more user commands to LaTeX's @code{shipout}
5219 routine, which may be used to place the output at fixed positions.  The
5220 @code{grid} option may be used to find the correct places.")
5221     (license license:lppl1.3+)))
5222
5223 (define-public texlive-latex-eepic
5224   (package
5225     (name "texlive-latex-eepic")
5226     (version (number->string %texlive-revision))
5227     (source (origin
5228               (method svn-fetch)
5229               (uri (svn-reference
5230                     (url (string-append "svn://www.tug.org/texlive/tags/"
5231                                         %texlive-tag "/Master/texmf-dist/"
5232                                         "/tex/latex/eepic"))
5233                     (revision %texlive-revision)))
5234               (file-name (string-append name "-" version "-checkout"))
5235               (sha256
5236                (base32
5237                 "1c68gvh021pvybg07apsd2xhq2ljbg80kq94wh71drdga3c2zqjw"))))
5238     (build-system trivial-build-system)
5239     (arguments
5240      `(#:modules ((guix build utils))
5241        #:builder
5242        (begin
5243          (use-modules (guix build utils))
5244          (let ((target (string-append (assoc-ref %outputs "out")
5245                                       "/share/texmf-dist/tex/latex/eepic")))
5246            (mkdir-p target)
5247            (copy-recursively (assoc-ref %build-inputs "source") target)
5248            #t))))
5249     (home-page "https://www.ctan.org/pkg/eepic")
5250     (synopsis "Extensions to epic and the LaTeX drawing tools")
5251     (description
5252      "Extensions to @code{epic} and the LaTeX picture drawing environment,
5253 include the drawing of lines at any slope, the drawing of circles in any
5254 radii, and the drawing of dotted and dashed lines much faster with much less
5255 TeX memory, and providing several new commands for drawing ellipses, arcs,
5256 splines, and filled circles and ellipses.  The package uses @code{tpic}
5257 @code{\\special} commands.")
5258     (license license:public-domain)))
5259
5260 (define-public texlive-latex-enumitem
5261   (package
5262     (name "texlive-latex-enumitem")
5263     (version (number->string %texlive-revision))
5264     (source (origin
5265               (method svn-fetch)
5266               (uri (svn-reference
5267                     (url (string-append "svn://www.tug.org/texlive/tags/"
5268                                         %texlive-tag "/Master/texmf-dist/"
5269                                         "/tex/latex/enumitem"))
5270                     (revision %texlive-revision)))
5271               (file-name (string-append name "-" version "-checkout"))
5272               (sha256
5273                (base32
5274                 "0q24b1bkdi9l6bw787bpggww83jh2vj8955aw2m5yccqbx4vgr5r"))))
5275     (build-system trivial-build-system)
5276     (arguments
5277      `(#:modules ((guix build utils))
5278        #:builder
5279        (begin
5280          (use-modules (guix build utils))
5281          (let ((target (string-append (assoc-ref %outputs "out")
5282                                       "/share/texmf-dist/tex/latex/enumitem")))
5283            (mkdir-p target)
5284            (copy-recursively (assoc-ref %build-inputs "source") target)
5285            #t))))
5286     (home-page "https://www.ctan.org/pkg/enumitem")
5287     (synopsis "Customize basic list environments")
5288     (description
5289      "This package is intended to ease customizing the three basic list
5290 environments: @code{enumerate}, @code{itemize} and @code{description}.  It
5291 extends their syntax to allow an optional argument where a set of parameters
5292 in the form @code{key=value} are available, for example:
5293 @code{\\begin{itemize}[itemsep=1ex,leftmargin=1cm]}.")
5294     (license license:lppl1.3+)))
5295
5296 (define-public texlive-latex-multirow
5297   (package
5298     (name "texlive-latex-multirow")
5299     (version (number->string %texlive-revision))
5300     (source (origin
5301               (method svn-fetch)
5302               (uri (texlive-ref "latex" "multirow"))
5303               (file-name (string-append name "-" version "-checkout"))
5304               (sha256
5305                (base32
5306                 "0qlxy47f1f8plgch3jqfsnrdgpyz20sz46yp33i2jwvf9hvfczf0"))))
5307     (build-system texlive-build-system)
5308     (arguments '(#:tex-directory "latex/multirow"))
5309     (home-page "https://www.ctan.org/pkg/multirow")
5310     (synopsis "Create tabular cells spanning multiple rows")
5311     (description
5312      "The package provides tools for creating tabular cells spanning multiple
5313 rows.  It has a lot of flexibility, including an option for specifying an
5314 entry at the \"natural\" width of its text.")
5315     (license license:lppl1.3+)))
5316
5317 (define-public texlive-latex-overpic
5318   (package
5319     (name "texlive-latex-overpic")
5320     (version (number->string %texlive-revision))
5321     (source (origin
5322               (method svn-fetch)
5323               (uri (svn-reference
5324                     (url (string-append "svn://www.tug.org/texlive/tags/"
5325                                         %texlive-tag "/Master/texmf-dist/"
5326                                         "/tex/latex/overpic"))
5327                     (revision %texlive-revision)))
5328               (file-name (string-append name "-" version "-checkout"))
5329               (sha256
5330                (base32
5331                 "1rpx4ibjncj5416rg19v0xjbj3z9avhfdfn2gzp8r8sz9vz25c6g"))))
5332     (build-system trivial-build-system)
5333     (arguments
5334      `(#:modules ((guix build utils))
5335        #:builder
5336        (begin
5337          (use-modules (guix build utils))
5338          (let ((target (string-append (assoc-ref %outputs "out")
5339                                       "/share/texmf-dist/tex/latex/overpic")))
5340            (mkdir-p target)
5341            (copy-recursively (assoc-ref %build-inputs "source") target)
5342            #t))))
5343     (home-page "https://www.ctan.org/pkg/overpic")
5344     (synopsis "Combine LaTeX commands over included graphics")
5345     (description
5346      "The @code{overpic} environment is a cross between the LaTeX
5347 @code{picture} environment and the @code{\\includegraphics} command of
5348 @code{graphicx}.  The resulting picture environment has the same dimensions as
5349 the included graphic.  LaTeX commands can be placed on the graphic at defined
5350 positions; a grid for orientation is available.")
5351     (license license:lppl1.0+)))
5352
5353 (define-public texlive-latex-parskip
5354   (package
5355     (name "texlive-latex-parskip")
5356     (version (number->string %texlive-revision))
5357     (source (origin
5358               (method svn-fetch)
5359               (uri (svn-reference
5360                     (url (string-append "svn://www.tug.org/texlive/tags/"
5361                                         %texlive-tag "/Master/texmf-dist/"
5362                                         "/tex/latex/parskip"))
5363                     (revision %texlive-revision)))
5364               (file-name (string-append name "-" version "-checkout"))
5365               (sha256
5366                (base32
5367                 "14r6h9hqb0qgccxj5l1208694fx8sb8avmgzps36lsbbpszl7i7m"))))
5368     (build-system trivial-build-system)
5369     (arguments
5370      `(#:modules ((guix build utils))
5371        #:builder
5372        (begin
5373          (use-modules (guix build utils))
5374          (let ((target (string-append (assoc-ref %outputs "out")
5375                                       "/share/texmf-dist/tex/latex/parskip")))
5376            (mkdir-p target)
5377            (copy-recursively (assoc-ref %build-inputs "source") target)
5378            #t))))
5379     (home-page "https://www.ctan.org/pkg/parskip")
5380     (synopsis "Layout with zero \\parindent, non-zero \\parskip")
5381     (description
5382      "Simply changing @code{\\parskip} and @code{\\parindent} leaves a layout
5383 that is untidy; this package (though it is no substitute for a properly
5384 designed class) helps alleviate this untidiness.")
5385     (license license:lppl)))
5386
5387 (define-public texlive-latex-pdfpages
5388   (package
5389     (name "texlive-latex-pdfpages")
5390     (version (number->string %texlive-revision))
5391     (source (origin
5392               (method svn-fetch)
5393               (uri (texlive-ref "latex" "pdfpages"))
5394               (file-name (string-append name "-" version "-checkout"))
5395               (sha256
5396                (base32
5397                 "0s4izcah7im67889qz4d26pcfpasmm35sj1rw4ragkkdk3rlbbbd"))))
5398     (build-system texlive-build-system)
5399     (arguments '(#:tex-directory "latex/pdfpages"))
5400     (home-page "https://www.ctan.org/pkg/pdfpages")
5401     (synopsis "Include PDF documents in LaTeX")
5402     (description
5403      "This package simplifies the inclusion of external multi-page PDF
5404 documents in LaTeX documents.  Pages may be freely selected and it is possible
5405 to put several logical pages onto each sheet of paper.  Furthermore a lot of
5406 hypertext features like hyperlinks and article threads are provided.  The
5407 package supports pdfTeX (pdfLaTeX) and VTeX.  With VTeX it is even possible to
5408 use this package to insert PostScript files, in addition to PDF files.")
5409     (license license:lppl1.3+)))
5410
5411 (define-public texlive-fonts-stmaryrd
5412   (package
5413     (name "texlive-fonts-stmaryrd")
5414     (version (number->string %texlive-revision))
5415     (source (origin
5416               (method svn-fetch)
5417               (uri (texlive-ref "fonts" "stmaryrd"))
5418               (file-name (string-append name "-" version "-checkout"))
5419               (sha256
5420                (base32
5421                 "08pn4ca3vl6qm9l3wm5h5iyjsrg411kkm1yana329xwg2j14s9n6"))))
5422     (build-system texlive-build-system)
5423     (arguments
5424      '(#:tex-directory "latex/stmaryrd"
5425        #:phases
5426        (modify-phases %standard-phases
5427          (add-after 'configure 'patch-ins
5428            (lambda _
5429              (substitute* "stmaryrd.ins"
5430                (("^%% LaTeX2e.*") "\\input docstrip\n")
5431                (("fontdef\\}\\}" line)
5432                 (string-append line "\n\\endbatchfile")))
5433              #t)))))
5434     (home-page "https://www.ctan.org/pkg/stmaryrd")
5435     (synopsis "St Mary Road symbols for theoretical computer science")
5436     (description
5437      "The fonts were originally distributed as Metafont sources only, but
5438 Adobe Type 1 versions are also now available.  Macro support is provided for
5439 use under LaTeX; the package supports the @code{only} option (provided by the
5440 @code{somedefs} package) to restrict what is loaded, for those who don't need
5441 the whole font.")
5442     (license license:lppl)))
5443
5444 (define-public texlive-latex-subfigure
5445   (package
5446     (name "texlive-latex-subfigure")
5447     (version (number->string %texlive-revision))
5448     (source (origin
5449               (method svn-fetch)
5450               (uri (texlive-ref "latex" "subfigure"))
5451               (file-name (string-append name "-" version "-checkout"))
5452               (sha256
5453                (base32
5454                 "15spcl5wb7w269qd6y596vp4yi8sa5ppcx8w4z2i9kyp02r3a0yb"))))
5455     (build-system texlive-build-system)
5456     (arguments '(#:tex-directory "latex/subfigure"))
5457     (home-page "https://www.ctan.org/pkg/subfigure")
5458     (synopsis "Figures divided into subfigures")
5459     (description
5460      "This (deprecated) package provides support for the manipulation and
5461 reference of small or \"sub\" figures and tables within a single figure or
5462 table environment.  It is convenient to use this package when your subfigures
5463 are to be separately captioned, referenced, or are to be included in the
5464 List-of-Figures.  A new @code{\\subfigure} command is introduced which can be
5465 used inside a figure environment for each subfigure.  An optional first
5466 argument is used as the caption for that subfigure.  The package is now
5467 considered obsolete: it was superseded by @code{subfig}, but users may find
5468 the more recent @code{subcaption} package more satisfactory.")
5469     (license license:lppl)))
5470
5471 (define-public texlive-latex-tabulary
5472   (package
5473     (name "texlive-latex-tabulary")
5474     (version (number->string %texlive-revision))
5475     (source (origin
5476               (method svn-fetch)
5477               (uri (texlive-ref "latex" "tabulary"))
5478               (file-name (string-append name "-" version "-checkout"))
5479               (sha256
5480                (base32
5481                 "1adkdx2zkk42g82nqf57lv1nc1z7kwl13jmy8vpcsizsa0xdnx9n"))))
5482     (build-system texlive-build-system)
5483     (arguments '(#:tex-directory "latex/tabulary"))
5484     (home-page "https://www.ctan.org/pkg/tabulary")
5485     (synopsis "Tabular with variable width columns balanced")
5486     (description
5487      "The package defines a @code{tabular*}-like environment, @code{tabulary},
5488 taking a \"total width\" argument as well as the column specifications.  The
5489 environment uses column types @code{L}, @code{C}, @code{R} and @code{J} for
5490 variable width columns (@code{\\raggedright}, @code{\\centering},
5491 @code{\\raggedleft}, and normally justified).  In contrast to
5492 @code{tabularx}'s @code{X} columns, the width of each column is weighted
5493 according to the natural width of the widest cell in the column.")
5494     (license license:lppl)))
5495
5496 (define-public texlive-latex-threeparttable
5497   (package
5498     (name "texlive-latex-threeparttable")
5499     (version (number->string %texlive-revision))
5500     (source (origin
5501               (method svn-fetch)
5502               (uri (svn-reference
5503                     (url (string-append "svn://www.tug.org/texlive/tags/"
5504                                         %texlive-tag "/Master/texmf-dist/"
5505                                         "/tex/latex/threeparttable"))
5506                     (revision %texlive-revision)))
5507               (file-name (string-append name "-" version "-checkout"))
5508               (sha256
5509                (base32
5510                 "10vy9k150w2lviw8h22s2mcykff38xci653m5823s2vv44pwbmzq"))))
5511     (build-system trivial-build-system)
5512     (arguments
5513      `(#:modules ((guix build utils))
5514        #:builder
5515        (begin
5516          (use-modules (guix build utils))
5517          (let ((target (string-append (assoc-ref %outputs "out")
5518                                       "/share/texmf-dist/tex/latex/threeparttable")))
5519            (mkdir-p target)
5520            (copy-recursively (assoc-ref %build-inputs "source") target)
5521            #t))))
5522     (home-page "https://www.ctan.org/pkg/threeparttable")
5523     (synopsis "Tables with captions and notes all the same width")
5524     (description
5525      "This package facilitates tables with titles (captions) and notes.  The
5526 title and notes are given a width equal to the body of the table (a
5527 @code{tabular} environment).  By itself, a @code{threeparttable} does not
5528 float, but you can put it in a @code{table} or a @code{table*} or some other
5529 environment.")
5530     (license (license:fsf-free "file://threeparttable.sty"))))
5531
5532 (define-public texlive-fonts-txfonts
5533   (package
5534     (name "texlive-fonts-txfonts")
5535     (version (number->string %texlive-revision))
5536     (source (origin
5537               (method svn-fetch)
5538               (uri (svn-reference
5539                     (url (string-append "svn://www.tug.org/texlive/tags/"
5540                                         %texlive-tag "/Master/texmf-dist/"
5541                                         "/tex/latex/txfonts"))
5542                     (revision %texlive-revision)))
5543               (file-name (string-append name "-" version "-checkout"))
5544               (sha256
5545                (base32
5546                 "0jl921qdphg8i7bkfprackn3xd4gmvxckc526nmzqsmahqkavgg2"))))
5547     (build-system trivial-build-system)
5548     (arguments
5549      `(#:modules ((guix build utils)
5550                   (ice-9 match))
5551        #:builder
5552        (begin
5553          (use-modules (guix build utils)
5554                       (ice-9 match))
5555          (let ((root (string-append (assoc-ref %outputs "out")
5556                                     "/share/texmf-dist/"))
5557                (pkgs '(("source"        . "tex/latex/txfonts")
5558                        ("txfonts-vf"    . "fonts/tfm/public/txfonts")
5559                        ("txfonts-afm"   . "fonts/afm/public/txfonts")
5560                        ("txfonts-tfm"   . "fonts/tfm/public/txfonts")
5561                        ("txfonts-type1" . "fonts/type1/public/txfonts")
5562                        ("txfonts-enc"   . "fonts/enc/dvips/txfonts")
5563                        ("txfonts-map"   . "fonts/map/dvips/txfonts"))))
5564            (for-each (match-lambda
5565                        ((pkg . dir)
5566                         (let ((target (string-append root dir)))
5567                           (mkdir-p target)
5568                           (copy-recursively (assoc-ref %build-inputs pkg)
5569                                             target))))
5570                      pkgs)
5571            #t))))
5572     (native-inputs
5573      `(("txfonts-tfm"
5574         ,(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                                      "/fonts/tfm/public/txfonts"))
5580                  (revision %texlive-revision)))
5581            (file-name (string-append name "-tfm-" version "-checkout"))
5582            (sha256
5583             (base32
5584              "12ffmbrp48ap35qa3b4mi6ckif9q2vf7972jxh5dc1yzykhla2xv"))))
5585        ("txfonts-vf"
5586         ,(origin
5587            (method svn-fetch)
5588            (uri (svn-reference
5589                  (url (string-append "svn://www.tug.org/texlive/tags/"
5590                                      %texlive-tag "/Master/texmf-dist/"
5591                                      "/fonts/vf/public/txfonts"))
5592                  (revision %texlive-revision)))
5593            (file-name (string-append name "-vf-" version "-checkout"))
5594            (sha256
5595             (base32
5596              "04acyfdwvxpfx4l2xh2bpzdmpvwdf2pzbs7a236b0xckz2jvc1ci"))))
5597        ("txfonts-afm"
5598         ,(origin
5599            (method svn-fetch)
5600            (uri (svn-reference
5601                  (url (string-append "svn://www.tug.org/texlive/tags/"
5602                                      %texlive-tag "/Master/texmf-dist/"
5603                                      "/fonts/afm/public/txfonts"))
5604                  (revision %texlive-revision)))
5605            (file-name (string-append name "-afm-" version "-checkout"))
5606            (sha256
5607             (base32
5608              "1705klz51pnqzcs89s3521b84b6c89wlczflsh0vci66nl155yis"))))
5609        ("txfonts-type1"
5610         ,(origin
5611            (method svn-fetch)
5612            (uri (svn-reference
5613                  (url (string-append "svn://www.tug.org/texlive/tags/"
5614                                      %texlive-tag "/Master/texmf-dist/"
5615                                      "/fonts/type1/public/txfonts"))
5616                  (revision %texlive-revision)))
5617            (file-name (string-append name "-type1-" version "-checkout"))
5618            (sha256
5619             (base32
5620              "0ajwr7zb6ch3gxd0g8p2i4llhy2wr9a9saz6jq6hm6fxf4pgl5h3"))))
5621        ("txfonts-map"
5622         ,(origin
5623            (method svn-fetch)
5624            (uri (svn-reference
5625                  (url (string-append "svn://www.tug.org/texlive/tags/"
5626                                      %texlive-tag "/Master/texmf-dist/"
5627                                      "/fonts/map/dvips/txfonts"))
5628                  (revision %texlive-revision)))
5629            (file-name (string-append name "-map-" version "-checkout"))
5630            (sha256
5631             (base32
5632              "0kamr8a9x24jakas3v09dgv7kkpybj3i7qv4vz1iyypqr6kk1raj"))))
5633        ("txfonts-enc"
5634         ,(origin
5635            (method svn-fetch)
5636            (uri (svn-reference
5637                  (url (string-append "svn://www.tug.org/texlive/tags/"
5638                                      %texlive-tag "/Master/texmf-dist/"
5639                                      "/fonts/enc/dvips/txfonts"))
5640                  (revision %texlive-revision)))
5641            (file-name (string-append name "-enc-" version "-checkout"))
5642            (sha256
5643             (base32
5644              "1bal5fhw0xlhl37ayv8vlnqnsn1y82kadzfjhbgr223blspp4zsj"))))))
5645     (home-page "https://www.ctan.org/pkg/threeparttable")
5646     (synopsis "Times-like fonts in support of mathematics")
5647     (description
5648      "Txfonts supplies virtual text roman fonts using Adobe Times (or URW
5649 NimbusRomNo9L) with some modified and additional text symbols in the OT1, T1,
5650 and TS1 encodings; maths alphabets using Times/URW Nimbus; maths fonts
5651 providing all the symbols of the Computer Modern and AMS fonts, including all
5652 the Greek capital letters from CMR; and additional maths fonts of various
5653 other symbols.
5654
5655 The set is complemented by a sans-serif set of text fonts, based on
5656 Helvetica/NimbusSanL, and a monospace set.
5657
5658 All the fonts are in Type 1 format (AFM and PFB files), and are supported by
5659 TeX metrics (VF and TFM files) and macros for use with LaTeX.")
5660     ;; Any version of the GPL with font exception.
5661     (license license:gpl3+)))
5662
5663 (define-public texlive-fonts-iwona
5664   (package
5665     (name "texlive-fonts-iwona")
5666     (version "0.995b")
5667     (source (origin
5668               (method url-fetch)
5669               (uri (string-append "http://jmn.pl/pliki/Iwona-tex-"
5670                                   (string-map (lambda (c)
5671                                                 (if (char=? c #\.)
5672                                                     #\_ c))
5673                                               version)
5674                                   ".zip"))
5675               (sha256
5676                (base32
5677                 "13684iqx5granpc5rfvqnmyvdpgpbr1x9y7i7y7bcaq0qxv7ph1x"))))
5678     (build-system trivial-build-system)
5679     (arguments
5680      `(#:modules ((guix build utils))
5681        #:builder
5682        (begin
5683          (use-modules (guix build utils))
5684          (let ((target (string-append (assoc-ref %outputs "out")
5685                                       "/share/texmf-dist/"))
5686                (unzip  (string-append (assoc-ref %build-inputs "unzip")
5687                                       "/bin/unzip")))
5688            (invoke unzip (assoc-ref %build-inputs "source"))
5689            (mkdir-p target)
5690            (copy-recursively "iwona" target)
5691            #t))))
5692     (native-inputs
5693      `(("unzip" ,unzip)))
5694     (home-page "http://jmn.pl/en/kurier-i-iwona/")
5695     (synopsis "Sans-serif typeface for TeX")
5696     (description "Iwona is a two-element sans-serif typeface. It was created
5697 as an alternative version of the Kurier typeface, which was designed in 1975
5698 for a diploma in typeface design at the Warsaw Academy of Fine Arts under the
5699 supervision of Roman Tomaszewski.  Kurier was designed for linotype
5700 typesetting of newspapers and similar periodicals. The Iwona fonts are an
5701 alternative version of the Kurier fonts.  The difference lies in the absence
5702 of ink traps which typify the Kurier font.")
5703     (license license:gfl1.0)))
5704
5705 (define-public texlive-latex-titlesec
5706   (package
5707     (name "texlive-latex-titlesec")
5708     (version (number->string %texlive-revision))
5709     (source (origin
5710               (method svn-fetch)
5711               (uri (svn-reference
5712                     (url (string-append "svn://www.tug.org/texlive/tags/"
5713                                         %texlive-tag "/Master/texmf-dist/"
5714                                         "/tex/latex/titlesec"))
5715                     (revision %texlive-revision)))
5716               (file-name (string-append name "-" version "-checkout"))
5717               (sha256
5718                (base32
5719                 "04nmkhqx6jxcxx9a30zbcd5smxi5fd0cbp132bki7fnvhspnhg21"))))
5720     (build-system trivial-build-system)
5721     (arguments
5722      `(#:modules ((guix build utils))
5723        #:builder
5724        (begin
5725          (use-modules (guix build utils))
5726          (let ((target (string-append (assoc-ref %outputs "out")
5727                                       "/share/texmf-dist/tex/latex/titlesec")))
5728            (mkdir-p target)
5729            (copy-recursively (assoc-ref %build-inputs "source") target)
5730            #t))))
5731     (home-page "https://www.ctan.org/pkg/titlesec")
5732     (synopsis "Select alternative section titles")
5733     (description
5734      "This package provides an interface to sectioning commands for selection
5735 from various title styles, e.g. for marginal titles and to change the font of
5736 all headings with a single command, also providing simple one-step page
5737 styles.  It also includes a package to change the page styles when there are
5738 floats in a page.  You may assign headers/footers to individual floats, too.")
5739     (license license:lppl)))
5740
5741 (define-public texlive-latex-type1cm
5742   (package
5743     (name "texlive-latex-type1cm")
5744     (version (number->string %texlive-revision))
5745     (source (origin
5746               (method svn-fetch)
5747               (uri (texlive-ref "latex" "type1cm"))
5748               (file-name (string-append name "-" version "-checkout"))
5749               (sha256
5750                (base32
5751                 "1lvxrqfwcwa4p31zyfm80gr05v8c28xybv5ri79zi2ngz6834z12"))))
5752     (build-system texlive-build-system)
5753     (arguments '(#:tex-directory "latex/type1cm"))
5754     (home-page "https://www.ctan.org/pkg/type1cm")
5755     (synopsis "Arbitrary size font selection in LaTeX")
5756     (description
5757      "LaTeX, by default, restricts the sizes at which you can use its default
5758 computer modern fonts, to a fixed set of discrete sizes (effectively, a set
5759 specified by Knuth).  The @code{type1cm} package removes this restriction;
5760 this is particularly useful when using scalable versions of the CM
5761 fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
5762 PCTeX, etc.).  In fact, since modern distributions will automatically generate
5763 any bitmap font you might need, @code{type1cm} has wider application than just
5764 those using scalable versions of the fonts.  Note that the LaTeX distribution
5765 now contains a package @code{fix-cm},f which performs the task of
5766 @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
5767 @code{ec} fonts.")
5768     (license license:lppl)))
5769
5770 (define-public texlive-latex-lh
5771   (package
5772     (name "texlive-latex-lh")
5773     (version (number->string %texlive-revision))
5774     (source (origin
5775               (method svn-fetch)
5776               (uri (texlive-ref "latex" "lh"))
5777               (file-name (string-append name "-" version "-checkout"))
5778               (sha256
5779                (base32
5780                 "00gdiwh3sfhh1iimjhpja7lm7k4vzqzql2irgwnpz94qvh25zwi5"))))
5781     (build-system texlive-build-system)
5782     (arguments '(#:tex-directory "latex/lh"))
5783     (home-page "https://www.ctan.org/pkg/lh")
5784     (synopsis "Cyrillic fonts that support LaTeX standard encodings")
5785     (description
5786      "The LH fonts address the problem of the wide variety of alphabets that
5787 are written with Cyrillic-style characters.  The fonts are the original basis
5788 of the set of T2* and X2 encodings that are now used when LaTeX users need to
5789 write in Cyrillic languages.  Macro support in standard LaTeX encodings is
5790 offered through the latex-cyrillic and t2 bundles, and the package itself
5791 offers support for other (more traditional) encodings.  The fonts, in the
5792 standard T2* and X2 encodings are available in Adobe Type 1 format, in the
5793 CM-Super family of fonts.  The package also offers its own LaTeX support for
5794 OT2 encoded fonts, CM bright shaped fonts and Concrete shaped fonts.")
5795     (license license:lppl)))
5796
5797 (define-public texlive-metapost
5798   (package
5799     (name "texlive-metapost")
5800     (version (number->string %texlive-revision))
5801     (source (origin
5802               (method svn-fetch)
5803               (uri (svn-reference
5804                     (url (string-append "svn://www.tug.org/texlive/tags/"
5805                                         %texlive-tag "/Master/texmf-dist/"
5806                                         "/metapost"))
5807                     (revision %texlive-revision)))
5808               (file-name (string-append name "-" version "-checkout"))
5809               (sha256
5810                (base32
5811                 "0sf18pc6chgy26p9bxxn44xcqhzjrfb53jxjr2y7l3jb6xllhblq"))))
5812     (build-system trivial-build-system)
5813     (arguments
5814      `(#:modules ((guix build utils))
5815        #:builder
5816        (begin
5817          (use-modules (guix build utils))
5818          (let ((target (string-append (assoc-ref %outputs "out")
5819                                       "/share/texmf-dist/metapost")))
5820            (mkdir-p target)
5821            (copy-recursively (assoc-ref %build-inputs "source") target)
5822            #t))))
5823     (home-page "https://www.ctan.org/pkg/metapost")
5824     (synopsis "Create scalable illustrations")
5825     (description
5826      "MetaPost uses a language based on that of Metafont to produce precise
5827 technical illustrations.  Its output is scalable PostScript or SVG, rather
5828 than the bitmaps Metafont creates.")
5829     (license license:lppl)))
5830
5831 (define-public texlive-latex-acmart
5832   (package
5833     (name "texlive-latex-acmart")
5834     (version "1.60")
5835     (source (origin
5836               (method svn-fetch)
5837               (uri (texlive-ref "latex" "acmart"))
5838               (sha256
5839                (base32
5840                 "0n62cs8dhcbn29y9ij1nnyigzr76yhk36kyahhqkkmvbafbys9s7"))
5841               (file-name (string-append name "-" version "-checkout"))))
5842     (build-system texlive-build-system)
5843     (arguments '(#:tex-directory "latex/acmart"))
5844     (home-page "https://www.ctan.org/pkg/acmart")
5845     (synopsis "Class for typesetting publications of ACM")
5846     (description
5847      "This package provides a class for typesetting publications of the
5848 Association for Computing Machinery (ACM).")
5849     (license license:lppl1.3+)))
5850
5851 (define-public texlive-latex-varwidth
5852   (package
5853     (name "texlive-latex-varwidth")
5854     (version (number->string %texlive-revision))
5855     (source (origin
5856               (method svn-fetch)
5857               (uri (svn-reference
5858                     (url (string-append "svn://www.tug.org/texlive/tags/"
5859                                         %texlive-tag "/Master/texmf-dist/"
5860                                         "/tex/latex/varwidth"))
5861                     (revision %texlive-revision)))
5862               (file-name (string-append name "-" version "-checkout"))
5863               (sha256
5864                (base32
5865                 "1bmz9ap0ffyg7qry2xi7lki06qx4809w028xvk88cl66h7p46g52"))))
5866     (build-system trivial-build-system)
5867     (arguments
5868      `(#:modules ((guix build utils))
5869        #:builder
5870        (begin
5871          (use-modules (guix build utils))
5872          (let ((target (string-append (assoc-ref %outputs "out")
5873                                       "/share/texmf-dist/tex/latex/varwidth")))
5874            (mkdir-p target)
5875            (copy-recursively (assoc-ref %build-inputs "source") target)
5876            #t))))
5877     (home-page "https://www.ctan.org/pkg/varwidth")
5878     (synopsis "Variable-width minipage")
5879     (description
5880      "The @code{varwidth} environment is superficially similar to
5881 @code{minipage}, but the specified width is just a maximum value — the box may
5882 get a narrower “natural” width.")
5883     (license license:lppl)))
5884
5885 (define-public texlive-latex-wasysym
5886   (package
5887     (name "texlive-latex-wasysym")
5888     (version (number->string %texlive-revision))
5889     (source (origin
5890               (method svn-fetch)
5891               (uri (texlive-ref "latex" "wasysym"))
5892               (file-name (string-append name "-" version "-checkout"))
5893               (sha256
5894                (base32
5895                 "1sgwbfwjjf70g54hh93gsd9jp9nm67w6n74x9d72a56n07jbk5hv"))))
5896     (build-system texlive-build-system)
5897     (arguments '(#:tex-directory "latex/wasysym"))
5898     (home-page "https://www.ctan.org/pkg/wasysym")
5899     (synopsis "LaTeX support file to use the WASY2 fonts")
5900     (description
5901      "The wasy2WASY2 (Waldi Symbol) font by Roland Waldi provides many glyphs
5902 like male and female symbols and astronomical symbols, as well as the complete
5903 lasy font set and other odds and ends.  The wasysym package implements an easy
5904 to use interface for these symbols.")
5905     (license license:lppl)))
5906
5907 (define-public texlive-latex-wrapfig
5908   (package
5909     (name "texlive-latex-wrapfig")
5910     (version (number->string %texlive-revision))
5911     (source (origin
5912               (method svn-fetch)
5913               (uri (svn-reference
5914                     (url (string-append "svn://www.tug.org/texlive/tags/"
5915                                         %texlive-tag "/Master/texmf-dist/"
5916                                         "/tex/latex/wrapfig"))
5917                     (revision %texlive-revision)))
5918               (file-name (string-append name "-" version "-checkout"))
5919               (sha256
5920                (base32
5921                 "16xpyl0csmmwndz1xhzqfg9l0zcsnqxslsixsqkwd4zsvfj30sv4"))))
5922     (build-system trivial-build-system)
5923     (arguments
5924      `(#:modules ((guix build utils))
5925        #:builder
5926        (begin
5927          (use-modules (guix build utils))
5928          (let ((target (string-append (assoc-ref %outputs "out")
5929                                       "/share/texmf-dist/tex/latex/wrapfig")))
5930            (mkdir-p target)
5931            (copy-recursively (assoc-ref %build-inputs "source") target)
5932            #t))))
5933     (home-page "https://www.ctan.org/pkg/wrapfig")
5934     (synopsis "Produces figures which text can flow around")
5935     (description
5936      "This package allows figures or tables to have text wrapped around them.
5937 It does not work in combination with list environments, but can be used in a
5938 @code{parbox} or @code{minipage}, and in two-column format.")
5939     (license license:lppl)))
5940
5941 (define-public texlive-latex-ucs
5942   (package
5943     (name "texlive-latex-ucs")
5944     (version (number->string %texlive-revision))
5945     (source (origin
5946               (method svn-fetch)
5947               (uri (svn-reference
5948                     (url (string-append "svn://www.tug.org/texlive/tags/"
5949                                         %texlive-tag "/Master/texmf-dist/"
5950                                         "/tex/latex/ucs"))
5951                     (revision %texlive-revision)))
5952               (file-name (string-append name "-" version "-checkout"))
5953               (sha256
5954                (base32
5955                 "0rrxwi60wmz5dfjifl4fwk66plf7wix85qnhfv4ylvmj6qi6hw37"))))
5956     (build-system trivial-build-system)
5957     (arguments
5958      `(#:modules ((guix build utils))
5959        #:builder
5960        (begin
5961          (use-modules (guix build utils))
5962          (let ((target (string-append (assoc-ref %outputs "out")
5963                                       "/share/texmf-dist/tex/latex/ucs")))
5964            (mkdir-p target)
5965            (copy-recursively (assoc-ref %build-inputs "source") target)
5966            #t))))
5967     (home-page "https://www.ctan.org/pkg/ucs")
5968     (synopsis "Extended UTF-8 input encoding support for LaTeX")
5969     (description
5970      "The bundle provides the @code{ucs} package, and @code{utf8x.def},
5971 together with a large number of support files.  The @code{utf8x.def}
5972 definition file for use with @code{inputenc} covers a wider range of Unicode
5973 characters than does @code{utf8.def} in the LaTeX distribution.  The package
5974 provides facilities for efficient use of its large sets of Unicode characters.
5975 Glyph production may be controlled by various options, which permits use of
5976 non-ASCII characters when coding mathematical formulae.  Note that the bundle
5977 previously had an alias “unicode”; that alias has now been withdrawn, and no
5978 package of that name now exists.")
5979     (license license:lppl1.3+)))
5980
5981 (define-public texlive-latex-preview
5982   (package
5983     (name "texlive-latex-preview")
5984     (version (number->string %texlive-revision))
5985     (source (origin
5986               (method svn-fetch)
5987               (uri (texlive-ref "latex" "preview"))
5988               (file-name (string-append name "-" version "-checkout"))
5989               (sha256
5990                (base32
5991                 "1hpsk4yp08qvbl43kqiv0hhwxv3gcqqxcpahyv6ch2b38pbj4bh6"))))
5992     (build-system texlive-build-system)
5993     (arguments
5994      '(#:tex-directory "latex/preview"
5995        #:phases
5996        (modify-phases %standard-phases
5997          (add-after 'unpack 'remove-generated-file
5998            (lambda _
5999              (delete-file "preview.drv")
6000              #t)))))
6001     (home-page "https://www.ctan.org/pkg/preview")
6002     (synopsis "Extract bits of a LaTeX source for output")
6003     (description
6004      "The main purpose of the preview package is the extraction of selected
6005 elements from a LaTeX source, like formulas or graphics, into separate
6006 pages of a DVI file.  A flexible and convenient interface allows it to
6007 specify what commands and constructs should be extracted.  This works
6008 with DVI files postprocessed by either Dvips and Ghostscript or
6009 dvipng, but it also works when you are using PDFTeX for generating PDF
6010 files.")
6011     (license license:gpl3+)))
6012
6013 (define-public texlive-latex-acronym
6014   (package
6015     (name "texlive-latex-acronym")
6016     (version (number->string %texlive-revision))
6017     (source (origin
6018               (method svn-fetch)
6019               (uri (texlive-ref "latex" "acronym"))
6020               (file-name (string-append name "-" version "-checkout"))
6021               (sha256
6022                (base32
6023                 "0jmasg40bk53zdd2jc8nc18jvdai3p2wmamy7hwli8gls4nf25qp"))))
6024     (build-system texlive-build-system)
6025     (arguments '(#:tex-directory "latex/acronym"))
6026     (home-page "https://www.ctan.org/pkg/acronym")
6027     (synopsis "Expand acronyms at least once")
6028     (description
6029      "This package ensures that all acronyms used in the text are spelled out
6030 in full at least once.  It also provides an environment to build a list of
6031 acronyms used.  The package is compatible with PDF bookmarks.  The package
6032 requires the suffix package, which in turn requires that it runs under
6033 e-TeX.")
6034     (license license:lppl1.3+)))
6035
6036 (define-public texlive-generic-pdftex
6037   (package
6038     (name "texlive-generic-pdftex")
6039     (version (number->string %texlive-revision))
6040     (source (origin
6041               (method svn-fetch)
6042               (uri (svn-reference
6043                     (url (string-append "svn://www.tug.org/texlive/tags/"
6044                                         %texlive-tag "/Master/texmf-dist/"
6045                                         "/tex/generic/pdftex"))
6046                     (revision %texlive-revision)))
6047               (file-name (string-append name "-" version "-checkout"))
6048               (sha256
6049                (base32
6050                 "0k68zmqzs4qvrqxdwsrawbjb14hxqjfamq649azvai0jjxdpkljd"))))
6051     (build-system trivial-build-system)
6052     (arguments
6053      `(#:modules ((guix build utils))
6054        #:builder
6055        (begin
6056          (use-modules (guix build utils))
6057          (let ((target (string-append (assoc-ref %outputs "out")
6058                                       "/share/texmf-dist/tex/generic/pdftex"))
6059                (target-map (string-append (assoc-ref %outputs "out")
6060                                       "/share/texmf-dist/fonts/map/pdftex")))
6061            (mkdir-p target)
6062            (copy-recursively (assoc-ref %build-inputs "source") target)
6063            (mkdir-p target-map)
6064            (copy-recursively (assoc-ref %build-inputs "pdftex-map") target-map)
6065            #t))))
6066     (native-inputs
6067      `(("pdftex-map"
6068         ,(origin
6069            (method svn-fetch)
6070            (uri (svn-reference
6071                  (url (string-append "svn://www.tug.org/texlive/tags/"
6072                                      %texlive-tag "/Master/texmf-dist/"
6073                                      "/fonts/map/pdftex"))
6074                  (revision %texlive-revision)))
6075            (file-name (string-append name "-map-" version "-checkout"))
6076            (sha256
6077             (base32
6078              "18jvcm0vwpg6wwzijvnb92xx78la45kkh71k6l44425krp2vnwm0"))))))
6079     (home-page "https://www.ctan.org/pkg/pdftex")
6080     (synopsis "TeX extension for direct creation of PDF")
6081     (description
6082      "This package provides an extension of TeX which can be configured to
6083 directly generate PDF documents instead of DVI.")
6084     (license license:gpl2+)))
6085
6086 (define texlive-texmf
6087   (package
6088    (name "texlive-texmf")
6089    (version "20180414")
6090    (source texlive-texmf-src)
6091    (build-system gnu-build-system)
6092    (inputs
6093     `(("texlive-bin" ,texlive-bin)
6094       ("lua" ,lua)
6095       ("perl" ,perl)
6096       ("python" ,python-2) ; incompatible with Python 3 (print syntax)
6097       ("ruby" ,ruby)
6098       ("tcsh" ,tcsh)))
6099    (arguments
6100     `(#:modules ((guix build gnu-build-system)
6101                  (guix build utils)
6102                  (srfi srfi-26))
6103
6104       ;; This package takes 4 GiB, which we can't afford to distribute from
6105       ;; our servers.
6106       #:substitutable? #f
6107
6108       #:phases
6109         (modify-phases (map (cut assq <> %standard-phases)
6110                             '(set-paths unpack patch-source-shebangs))
6111           (add-after 'unpack 'unset-environment-variables
6112             (lambda _
6113               (unsetenv "TEXMF")
6114               (unsetenv "TEXMFCNF")
6115               #t))
6116           (add-after 'patch-source-shebangs 'install
6117             (lambda* (#:key outputs #:allow-other-keys)
6118               (let ((share (string-append (assoc-ref outputs "out") "/share")))
6119                 (mkdir-p share)
6120                 (invoke "mv" "texmf-dist" share))))
6121           (add-after 'install 'texmf-config
6122             (lambda* (#:key inputs outputs #:allow-other-keys)
6123               (let* ((out (assoc-ref outputs "out"))
6124                      (share (string-append out "/share"))
6125                      (texmfroot (string-append share "/texmf-dist/web2c"))
6126                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
6127                      (texlive-bin (assoc-ref inputs "texlive-bin"))
6128                      (texbin (string-append texlive-bin "/bin"))
6129                      (tlpkg (string-append texlive-bin "/share/tlpkg")))
6130                 ;; Register SHARE as TEXMFROOT in texmf.cnf.
6131                 (substitute* texmfcnf
6132                   (("TEXMFROOT = \\$SELFAUTOPARENT")
6133                    (string-append "TEXMFROOT = " share))
6134                   (("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
6135                    "TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
6136                   (("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
6137                 ;; Register paths in texmfcnf.lua, needed for context.
6138                 (substitute* (string-append texmfroot "/texmfcnf.lua")
6139                   (("selfautodir:") out)
6140                   (("selfautoparent:") (string-append share "/")))
6141                 ;; Set path to TeXLive Perl modules
6142                 (setenv "PERL5LIB"
6143                         (string-append (getenv "PERL5LIB") ":" tlpkg))
6144                 ;; Configure the texmf-dist tree; inspired from
6145                 ;; http://slackbuilds.org/repository/13.37/office/texlive/
6146                 (setenv "PATH" (string-append (getenv "PATH") ":" texbin))
6147                 (setenv "TEXMFCNF" texmfroot)
6148                 (invoke "updmap-sys" "--nohash" "--syncwithtrees")
6149                 (invoke "mktexlsr")
6150                 (invoke "fmtutil-sys" "--all")))))))
6151    (properties `((max-silent-time . 9600))) ; don't time out while grafting
6152    (synopsis "TeX Live, a package of the TeX typesetting system")
6153    (description
6154     "TeX Live provides a comprehensive TeX document production system.
6155 It includes all the major TeX-related programs, macro packages, and fonts
6156 that are free software, including support for many languages around the
6157 world.
6158
6159 This package contains the complete tree of texmf-dist data.")
6160    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6161    (home-page "https://www.tug.org/texlive/")))
6162
6163 (define-public texlive
6164   (package
6165    (name "texlive")
6166    (version "20180414")
6167    (source #f)
6168    (build-system trivial-build-system)
6169    (inputs `(("bash" ,bash) ; for wrap-program
6170              ("texlive-bin" ,texlive-bin)
6171              ("texlive-texmf" ,texlive-texmf)))
6172    (native-search-paths
6173     (list (search-path-specification
6174            (variable "TEXMFLOCAL")
6175            (files '("share/texmf-local")))))
6176    (arguments
6177     `(#:modules ((guix build utils))
6178       #:builder
6179         ;; Build the union of texlive-bin and texlive-texmf, but take the
6180         ;; conflicting subdirectory share/texmf-dist from texlive-texmf.
6181         (begin
6182           (use-modules (guix build utils))
6183           (let ((out (assoc-ref %outputs "out"))
6184                 (bin (assoc-ref %build-inputs "texlive-bin"))
6185                 (texmf (assoc-ref %build-inputs "texlive-texmf"))
6186                 (bash (assoc-ref %build-inputs "bash")))
6187                (mkdir out)
6188                (with-directory-excursion out
6189                  (for-each
6190                    (lambda (name)
6191                      (symlink (string-append bin "/" name) name))
6192                    '("include" "lib"))
6193                  (mkdir "bin")
6194                  (with-directory-excursion "bin"
6195                    (setenv "PATH" (string-append bash "/bin"))
6196                    (for-each
6197                      (lambda (name)
6198                        (symlink name (basename name))
6199                        (wrap-program
6200                          (basename name)
6201                          `("TEXMFCNF" =
6202                            (,(string-append texmf "/share/texmf-dist/web2c")))))
6203                      (find-files (string-append bin "/bin/") "")))
6204                  (mkdir "share")
6205                  (with-directory-excursion "share"
6206                    (for-each
6207                      (lambda (name)
6208                        (symlink (string-append bin "/share/" name) name))
6209                      '("info" "man" "tlpkg"))
6210                    (for-each
6211                      (lambda (name)
6212                        (symlink (string-append texmf "/share/" name) name))
6213                      '("texmf-dist" "texmf-var"))))
6214                #t))))
6215    (synopsis "TeX Live, a package of the TeX typesetting system")
6216    (description
6217     "TeX Live provides a comprehensive TeX document production system.
6218 It includes all the major TeX-related programs, macro packages, and fonts
6219 that are free software, including support for many languages around the
6220 world.
6221
6222 This package contains the complete TeX Live distribution.")
6223    (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
6224    (home-page "https://www.tug.org/texlive/")))
6225
6226 (define-public perl-text-bibtex
6227   (package
6228     (name "perl-text-bibtex")
6229     (version "0.85")
6230     (source
6231      (origin
6232        (method url-fetch)
6233        (uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
6234                            version ".tar.gz"))
6235        (sha256
6236         (base32
6237          "036kxgbn1jf70pfm2lmjlzjwnhbkd888fp5lyvmkjpdd15gla18h"))))
6238     (build-system perl-build-system)
6239     (arguments
6240      `(#:phases
6241        (modify-phases %standard-phases
6242          (add-after 'unpack 'add-output-directory-to-rpath
6243            (lambda* (#:key outputs #:allow-other-keys)
6244              (substitute* "inc/MyBuilder.pm"
6245                (("-Lbtparse" line)
6246                 (string-append "-Wl,-rpath="
6247                                (assoc-ref outputs "out") "/lib " line)))
6248              #t))
6249          (add-after 'unpack 'install-libraries-to-/lib
6250            (lambda* (#:key outputs #:allow-other-keys)
6251              (substitute* "Build.PL"
6252                (("lib64") "lib"))
6253              #t)))))
6254     (native-inputs
6255      `(("perl-capture-tiny" ,perl-capture-tiny)
6256        ("perl-config-autoconf" ,perl-config-autoconf)
6257        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6258        ("perl-module-build" ,perl-module-build)))
6259     (home-page "https://metacpan.org/release/Text-BibTeX")
6260     (synopsis "Interface to read and parse BibTeX files")
6261     (description "@code{Text::BibTeX} is a Perl library for reading, parsing,
6262 and processing BibTeX files.  @code{Text::BibTeX} gives you access to the data
6263 at many different levels: you may work with BibTeX entries as simple field to
6264 string mappings, or get at the original form of the data as a list of simple
6265 values (strings, macros, or numbers) pasted together.")
6266     (license license:perl-license)))
6267
6268 (define-public biber
6269   (package
6270     (name "biber")
6271     (version "2.12")
6272     (source (origin
6273               (method git-fetch)
6274               (uri (git-reference
6275                     (url "https://github.com/plk/biber/")
6276                     (commit (string-append "v" version))))
6277               (file-name (git-file-name name version))
6278               ;; TODO: Patch awaiting inclusion upstream (see:
6279               ;; https://github.com/plk/biber/issues/239).
6280               (patches (search-patches "biber-fix-encoding-write.patch"))
6281               (sha256
6282                (base32
6283                 "1g1hi6zvf2hmrjly1sidjaxy5440gfqm4p7p3n7kayshnjsmlskx"))))
6284     (build-system perl-build-system)
6285     (arguments
6286      `(#:phases
6287        (modify-phases %standard-phases
6288          (add-after 'install 'wrap-programs
6289            (lambda* (#:key outputs #:allow-other-keys)
6290              (let* ((out (assoc-ref outputs "out"))
6291                     (perl5lib (getenv "PERL5LIB")))
6292                (wrap-program (string-append out "/bin/biber")
6293                  `("PERL5LIB" ":" prefix
6294                    (,(string-append perl5lib ":" out
6295                                     "/lib/perl5/site_perl")))))
6296              #t)))))
6297     (inputs
6298      `(("perl-autovivification" ,perl-autovivification)
6299        ("perl-class-accessor" ,perl-class-accessor)
6300        ("perl-data-dump" ,perl-data-dump)
6301        ("perl-data-compare" ,perl-data-compare)
6302        ("perl-data-uniqid" ,perl-data-uniqid)
6303        ("perl-datetime-format-builder" ,perl-datetime-format-builder)
6304        ("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
6305        ("perl-file-slurper" ,perl-file-slurper)
6306        ("perl-ipc-cmd" ,perl-ipc-cmd)
6307        ("perl-ipc-run3" ,perl-ipc-run3)
6308        ("perl-list-allutils" ,perl-list-allutils)
6309        ("perl-list-moreutils" ,perl-list-moreutils)
6310        ("perl-mozilla-ca" ,perl-mozilla-ca)
6311        ("perl-regexp-common" ,perl-regexp-common)
6312        ("perl-log-log4perl" ,perl-log-log4perl)
6313        ;; We cannot use perl-unicode-collate here, because otherwise the
6314        ;; hardcoded hashes in the tests would differ.  See
6315        ;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
6316        ;;("perl-unicode-collate" ,perl-unicode-collate)
6317        ("perl-unicode-normalize" ,perl-unicode-normalize)
6318        ("perl-unicode-linebreak" ,perl-unicode-linebreak)
6319        ("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
6320        ("perl-encode-jis2k" ,perl-encode-jis2k)
6321        ("perl-encode-hanextra" ,perl-encode-hanextra)
6322        ("perl-xml-libxml" ,perl-xml-libxml)
6323        ("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
6324        ("perl-xml-libxslt" ,perl-xml-libxslt)
6325        ("perl-xml-writer" ,perl-xml-writer)
6326        ("perl-sort-key" ,perl-sort-key)
6327        ("perl-text-csv" ,perl-text-csv)
6328        ("perl-text-csv-xs" ,perl-text-csv-xs)
6329        ("perl-text-roman" ,perl-text-roman)
6330        ("perl-uri" ,perl-uri)
6331        ("perl-text-bibtex" ,perl-text-bibtex)
6332        ("perl-libwww" ,perl-libwww)
6333        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
6334        ("perl-business-isbn" ,perl-business-isbn)
6335        ("perl-business-issn" ,perl-business-issn)
6336        ("perl-business-ismn" ,perl-business-ismn)
6337        ("perl-lingua-translit" ,perl-lingua-translit)))
6338     (native-inputs
6339      `(("perl-config-autoconf" ,perl-config-autoconf)
6340        ("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
6341        ("perl-module-build" ,perl-module-build)
6342        ;; for tests
6343        ("perl-file-which" ,perl-file-which)
6344        ("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
6345        ("perl-test-differences" ,perl-test-differences)))
6346     (home-page "http://biblatex-biber.sourceforge.net/")
6347     (synopsis "Backend for the BibLaTeX citation management tool")
6348     (description "Biber is a BibTeX replacement for users of biblatex.  Among
6349 other things it comes with full Unicode support.")
6350     (license license:artistic2.0)))
6351
6352 (define-public rubber
6353   (package
6354     (name "rubber")
6355     (version "1.1")
6356     (source (origin
6357              (method url-fetch)
6358              (uri (list (string-append "https://launchpad.net/rubber/trunk/"
6359                                        version "/+download/rubber-"
6360                                        version ".tar.gz")
6361                         (string-append "http://ebeffara.free.fr/pub/rubber-"
6362                                        version ".tar.gz")))
6363              (sha256
6364               (base32
6365                "1xbkv8ll889933gyi2a5hj7hhh216k04gn8fwz5lfv5iz8s34gbq"))))
6366     (build-system gnu-build-system)
6367     (arguments '(#:tests? #f))                    ; no `check' target
6368     (inputs `(("texinfo" ,texinfo)
6369               ("python" ,python-2) ; incompatible with Python 3 (print syntax)
6370               ("which" ,which)))
6371     (home-page "https://launchpad.net/rubber")
6372     (synopsis "Wrapper for LaTeX and friends")
6373     (description
6374      "Rubber is a program whose purpose is to handle all tasks related to the
6375 compilation of LaTeX documents.  This includes compiling the document itself,
6376 of course, enough times so that all references are defined, and running BibTeX
6377 to manage bibliographic references.  Automatic execution of dvips to produce
6378 PostScript documents is also included, as well as usage of pdfLaTeX to produce
6379 PDF documents.")
6380     (license license:gpl2+)))
6381
6382 (define-public texmaker
6383   (package
6384     (name "texmaker")
6385     (version "5.0.3")
6386     (source (origin
6387               (method url-fetch)
6388               (uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
6389                                   version ".tar.bz2"))
6390               (sha256
6391                (base32
6392                 "0vrj9w5lk3vf6138n5bz8phmy3xp5kv4dq1rgirghcf4hbxdyx30"))))
6393     (build-system gnu-build-system)
6394     (arguments
6395      `(#:phases
6396        (modify-phases %standard-phases
6397          ;; Qt has its own configuration utility.
6398          (replace 'configure
6399            (lambda* (#:key outputs #:allow-other-keys)
6400              (let ((out (assoc-ref outputs "out")))
6401                (invoke "qmake"
6402                        (string-append "PREFIX=" out)
6403                        (string-append "DESKTOPDIR=" out "/share/applications")
6404                        (string-append "ICONDIR=" out "/share/pixmaps")
6405                        (string-append "METAINFODIR=" out "/share/metainfo")
6406                        "texmaker.pro")))))))
6407     (inputs
6408      `(("poppler-qt5" ,poppler-qt5)
6409        ("qtbase" ,qtbase)
6410        ("qtscript" ,qtscript)
6411        ("qtwebkit" ,qtwebkit)
6412        ("zlib" ,zlib)))
6413     (native-inputs
6414      `(("pkg-config" ,pkg-config)))
6415     (home-page "http://www.xm1math.net/texmaker/")
6416     (synopsis "LaTeX editor")
6417     (description "Texmaker is a program that integrates many tools needed to
6418 develop documents with LaTeX, in a single application.")
6419     (license license:gpl2+)))
6420
6421 (define-public teximpatient
6422   (package
6423     (name "teximpatient")
6424     (version "2.4")
6425     (source (origin
6426               (method url-fetch/tarbomb)
6427               (uri (string-append "mirror://gnu/" name "/" name "-"
6428                                   version ".tar.gz"))
6429               (sha256
6430                (base32
6431                 "0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
6432     (build-system gnu-build-system)
6433     (arguments
6434      `(#:tests? #f ; there are none
6435        #:phases
6436        (modify-phases %standard-phases
6437          (add-after 'unpack 'fix-packaging-error
6438            (lambda* (#:key inputs #:allow-other-keys)
6439              ;; This file should have been part of the tarball.
6440              (install-file (car
6441                             (find-files
6442                              (assoc-ref inputs "automake")
6443                              "^install-sh$"))
6444                            ".")
6445              ;; Remove generated file.
6446              (delete-file "book.pdf")
6447              #t)))))
6448     (native-inputs
6449      `(("texlive" ,(texlive-union (list texlive-latex-amsfonts
6450                                         texlive-fonts-amsfonts
6451                                         texlive-fonts-adobe-palatino
6452                                         texlive-fonts-adobe-zapfding
6453                                         texlive-fonts-knuth-lib
6454                                         texlive-fonts-mflogo-font
6455                                         texlive-generic-pdftex)))
6456        ("automake" ,automake)))
6457     (home-page "https://www.gnu.org/software/teximpatient/")
6458     (synopsis "Book on TeX, plain TeX and Eplain")
6459     (description "@i{TeX for the Impatient} is a ~350 page book on TeX,
6460 plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
6461 and Karl Berry.")
6462     (license license:fdl1.3+)))
6463
6464 (define-public lyx
6465   (package
6466     (name "lyx")
6467     (version "2.3.2-2")
6468     (source (origin
6469               (method url-fetch)
6470               (uri (string-append "http://ftp.lyx.org/pub/lyx/stable/"
6471                                   (version-major+minor version) ".x/"
6472                                   name "-" version ".tar.gz"))
6473               (sha256
6474                (base32
6475                 "0vr0qwis6rhind6azfa270hqxci7rj8qb1kk5x6lm80mc34nvrqi"))
6476               (modules '((guix build utils)))
6477               (snippet
6478                '(begin
6479                   (delete-file-recursively "3rdparty")
6480                   #t))))
6481     (build-system cmake-build-system)
6482     (arguments
6483      `(#:configure-flags `("-DLYX_USE_QT=QT5"
6484                            "-DLYX_EXTERNAL_BOOST=1"
6485                            "-DLYX_INSTALL=1"
6486                            "-DLYX_RELEASE=1"
6487                            ,(string-append "-DLYX_INSTALL_PREFIX="
6488                                            (assoc-ref %outputs "out")
6489                                            ;; Exact name and level is necessary.
6490                                            "/lyx" ,(version-major+minor version)))
6491        #:phases
6492        (modify-phases %standard-phases
6493          ;; See ;; https://www.lyx.org/trac/changeset/3a123b90af838b08680471d87170c38e56787df9/lyxgit
6494          (add-after 'unpack 'fix-compilation-with-boost-1.69
6495            (lambda _
6496              (substitute* "src/support/FileName.cpp"
6497                (("^template struct boost::detail::crc_table_t.*") ""))
6498              #t))
6499          (add-after 'unpack 'patch-python
6500            (lambda* (#:key inputs #:allow-other-keys)
6501              (substitute* '("src/support/os.cpp")
6502                (("\"python ")
6503                 (string-append "\""
6504                                (assoc-ref inputs "python")
6505                                "/bin/python ")))
6506              #t))
6507          (add-after 'patch-python 'patch-desktop-file
6508            (lambda* (#:key outputs #:allow-other-keys)
6509              (substitute* "lib/lyx.desktop.in"
6510                (("Exec=")
6511                 (string-append "Exec="
6512                                (assoc-ref outputs "out")
6513                                "/")))
6514              #t))
6515          (add-before 'check 'setenv-check
6516            (lambda _
6517              ;; Create missing file that would cause tests to fail.
6518              (with-output-to-file (string-append "../lyx-"
6519                                                  ,version
6520                                                  "/src/tests/check_layout.cmake")
6521                (const #t))
6522              (setenv (string-append "LYX_DIR_"
6523                                     (string-join
6524                                       (string-split
6525                                         ,(version-major+minor version) #\-)) "x")
6526                      (string-append (getcwd) "/../lyx-" ,version "/lib"))
6527              #t))
6528          (add-after 'install 'install-symlinks
6529            (lambda* (#:key outputs #:allow-other-keys)
6530              (let ((out (assoc-ref outputs "out")))
6531                (mkdir-p (string-append out "/bin"))
6532                (symlink (string-append "../lyx" ,(version-major+minor version)
6533                                        "/bin/lyx" ,(version-major+minor version))
6534                         (string-append out "/bin/lyx" ,(version-major+minor version)))
6535                #t))))))
6536     (inputs
6537      `(("boost" ,boost)
6538        ("hunspell" ,hunspell)           ; Note: Could also use aspell instead.
6539        ("libx11" ,libx11)
6540        ("mythes" ,mythes)
6541        ("python" ,python-2)
6542        ("qtbase" ,qtbase)
6543        ("qtsvg" ,qtsvg)
6544        ("zlib" ,zlib)))
6545     (propagated-inputs
6546      `(("texlive" ,(texlive-union (list texlive-fonts-ec)))))
6547     ;; FIXME: Python 3.7.0 cannot be used because the test infrastructure
6548     ;; "requires a bytes-like object, not 'str'".  This may be fixed with
6549     ;; upgrades to Python.
6550     (native-inputs
6551      `(("python" ,python-2)
6552        ("pkg-config" ,pkg-config)
6553        ("bc" ,bc)))
6554     (home-page "https://www.lyx.org/")
6555     (synopsis "Document preparation system with GUI")
6556     (description "LyX is a document preparation system.  It excels at letting
6557 you create complex technical and scientific articles with mathematics,
6558 cross-references, bibliographies, indexes, etc.  It is very good for working
6559 with documents of any length in which the usual processing abilities are
6560 required: automatic sectioning and pagination, spell checking and so forth.")
6561     (license license:gpl2+)))
6562
6563 (define-public texlive-latex-media9
6564   (package
6565     (name "texlive-latex-media9")
6566     (version (number->string %texlive-revision))
6567     (source (origin
6568               (method svn-fetch)
6569               (uri (svn-reference
6570                     (url (string-append "svn://www.tug.org/texlive/tags/"
6571                                         %texlive-tag "/Master/texmf-dist/"
6572                                         "/tex/latex/media9"))
6573                     (revision %texlive-revision)))
6574               (file-name (string-append name "-" version "-checkout"))
6575               (sha256
6576                (base32
6577                 "0lhb2h5hxjq9alpk4r3gvg21pwyifs4ah6hqzp92k55mkp1xv73j"))))
6578     (build-system trivial-build-system)
6579     (arguments
6580      `(#:modules ((guix build utils))
6581        #:builder
6582        (begin
6583          (use-modules (guix build utils))
6584          (let ((target (string-append (assoc-ref %outputs "out")
6585                                       "/share/texmf-dist/tex/latex/media9")))
6586            (mkdir-p target)
6587            (copy-recursively (assoc-ref %build-inputs "source") target)
6588            #t))))
6589     (home-page "https://www.ctan.org/pkg/media9")
6590     (synopsis "Multimedia inclusion package with Adobe Reader-9/X compatibility")
6591     (description
6592      "The package provides an interface to embed interactive Flash (SWF) and 3D
6593 objects (Adobe U3D & PRC), as well as video and sound files or streams in the
6594 popular MP4, FLV and MP3 formats into PDF documents with Acrobat-9/X
6595 compatibility.  Playback of multimedia files uses the built-in Flash Player of
6596 Adobe Reader and does, therefore, not depend on external plug-ins.  Flash Player
6597 supports the efficient H.264 codec for video compression.
6598
6599 The package is based on the RichMedia Annotation, an Adobe addition to the PDF
6600 specification.  It replaces the now obsolete @code{movie15} package.")
6601     (license license:lppl)))
6602
6603 (define-public texlive-latex-ocgx2
6604   (package
6605     (name "texlive-latex-ocgx2")
6606     (version (number->string %texlive-revision))
6607     (source (origin
6608               (method svn-fetch)
6609               (uri (svn-reference
6610                     (url (string-append "svn://www.tug.org/texlive/tags/"
6611                                         %texlive-tag "/Master/texmf-dist/"
6612                                         "/tex/latex/ocgx2"))
6613                     (revision %texlive-revision)))
6614               (file-name (string-append name "-" version "-checkout"))
6615               (sha256
6616                (base32
6617                 "0zp00jg058djx8xp0xqwas92y3j97clkyd8z6pqr890yqy06myqb"))))
6618     (build-system trivial-build-system)
6619     (arguments
6620      `(#:modules ((guix build utils))
6621        #:builder
6622        (begin
6623          (use-modules (guix build utils))
6624          (let ((target (string-append (assoc-ref %outputs "out")
6625                                       "/share/texmf-dist/tex/latex/ogcx2")))
6626            (mkdir-p target)
6627            (copy-recursively (assoc-ref %build-inputs "source") target)
6628            #t))))
6629     (home-page "https://www.ctan.org/pkg/ocgx2")
6630     (synopsis "Provide OCG (Optional Content Groups) support within a PDF document")
6631     (description
6632      "This package provides OCG (Optional Content Groups) support within a PDF
6633 document.
6634
6635 It re-implements the functionality of the @code{ocg}, @code{ocgx}, and
6636 @code{ocg-p} packages and adds support for all known engines and back-ends
6637 including:
6638
6639 @itemize
6640 @item LaTeX → dvips → @code{ps2pdf}/Distiller
6641 @item (Xe)LaTeX(x) → @code{dvipdfmx}
6642 @item pdfLaTeX and LuaLaTeX .
6643 @end itemize
6644
6645 It also ensures compatibility with the @code{media9} and @code{animate} packages.")
6646     (license license:lppl)))
6647
6648 (define-public texlive-latex-ms
6649   (package
6650     (name "texlive-latex-ms")
6651     (version (number->string %texlive-revision))
6652     (source (origin
6653               (method svn-fetch)
6654               (uri (texlive-ref "latex" "ms"))
6655               (file-name (string-append name "-" version "-checkout"))
6656               (sha256
6657                (base32
6658                 "0m4wx3yjb5al1qsv995z8fii8xxy96mcfihbnlx43lpgayiwz35s"))))
6659     (build-system texlive-build-system)
6660     (arguments
6661      '(#:tex-directory "latex/ms"
6662        #:tex-format "latex"))
6663     (home-page "https://ctan.org/pkg/ms")
6664     (synopsis "Various LATEX packages by Martin Schröder")
6665     (description
6666      "A bundle of LATEX packages by Martin Schröder; the collection comprises:
6667
6668 @itemize
6669 @item @command{count1to}, make use of fixed TEX counters;
6670 @item @command{everysel}, set commands to execute every time a font is selected;
6671 @item @command{everyshi}, set commands to execute whenever a page is shipped out;
6672 @item @command{multitoc}, typeset the table of contents in multiple columns;
6673 @item @command{prelim2e}, mark typeset pages as preliminary; and
6674 @item @command{ragged2e}, typeset ragged text and allow hyphenation.
6675 @end itemize\n")
6676     (license license:lppl1.3c+)))
6677
6678 (define-public texlive-latex-needspace
6679   (package
6680     (name "texlive-latex-needspace")
6681     (version (number->string %texlive-revision))
6682     (source (origin
6683               (method svn-fetch)
6684               (uri (texlive-ref "latex" "needspace"))
6685               (file-name (string-append name "-" version "-checkout"))
6686               (sha256
6687                (base32
6688                 "0kw80f5jh4gdpa2ka815abza3gr5z8b929w0745vrlc59pl0017y"))))
6689     (build-system texlive-build-system)
6690     (arguments
6691      '(#:tex-directory "latex/needspace"
6692        #:tex-format "latex"))
6693     (inputs
6694      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
6695     (home-page "https://www.ctan.org/pkg/needspace")
6696     (synopsis "Insert pagebreak if not enough space")
6697     (description
6698      "Provides commands to disable pagebreaking within a given vertical
6699 space.  If there is not enough space between the command and the bottom of the
6700 page, a new page will be started.")
6701     (license license:lppl)))
6702
6703 (define-public texlive-latex-changepage
6704   (package
6705     (name "texlive-latex-changepage")
6706     (version (number->string %texlive-revision))
6707     (source
6708      (origin
6709        (method svn-fetch)
6710        (uri (texlive-ref "latex" "changepage"))
6711        (sha256
6712         (base32
6713          "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb"))))
6714     (build-system texlive-build-system)
6715     (arguments
6716      '(#:tex-directory "latex/changepage"
6717        #:tex-format "latex"))
6718     (inputs
6719      `(("texlive-latex-filecontents" ,texlive-latex-filecontents)))
6720     (home-page "https://www.ctan.org/pkg/changepage")
6721     (synopsis "Margin adjustment and detection of odd/even pages")
6722     (description
6723      "The package provides commands to change the page layout in the middle of
6724 a document, and to robustly check for typesetting on odd or even pages.
6725 Instructions for use are at the end of the file.  The package is an extraction
6726 of code from the @code{memoir} class, whose user interface it shares.")
6727     (license license:lppl1.3+)))
6728
6729 (define-public texlive-latex-eukdate
6730   (package
6731     (name "texlive-latex-eukdate")
6732     (version (number->string %texlive-revision))
6733     (source
6734      (origin
6735        (method svn-fetch)
6736        (uri (svn-reference
6737              (url (string-append "svn://www.tug.org/texlive/tags/"
6738                                  %texlive-tag "/Master/texmf-dist/"
6739                                  "/tex/latex/eukdate"))
6740              (revision %texlive-revision)))
6741        (file-name (string-append name "-" version "-checkout"))
6742        (sha256
6743         (base32
6744          "18xan116l8w47v560bkw6nbhkrml7g04xrlzk3jrpc7qsyf3n5fz"))))
6745     (build-system trivial-build-system)
6746     (arguments
6747      `(#:modules ((guix build utils))
6748        #:builder
6749        (begin
6750          (use-modules (guix build utils))
6751          (let ((target (string-append (assoc-ref %outputs "out")
6752                                       "/share/texmf-dist/tex/latex/eukdate")))
6753            (mkdir-p target)
6754            (copy-recursively (assoc-ref %build-inputs "source") target)
6755            #t))))
6756     (home-page "https://www.ctan.org/pkg/eukdate")
6757     (synopsis "UK format dates, with weekday")
6758     (description
6759      "The package is used to change the format of @code{\\today}’s date,
6760 including the weekday, e.g., \"Saturday, 26 June 2008\", the 'UK format', which
6761 is preferred in many parts of the world, as distinct from that which is used in
6762 @code{\\maketitle} of the article class, \"June 26, 2008\", the 'US format'.")
6763     (license license:lppl)))
6764
6765 (define-public texlive-generic-ulem
6766   (package
6767     (name "texlive-generic-ulem")
6768     (version (number->string %texlive-revision))
6769     (source
6770      (origin
6771        (method svn-fetch)
6772        (uri (svn-reference
6773              (url (string-append "svn://www.tug.org/texlive/tags/"
6774                                  %texlive-tag "/Master/texmf-dist/"
6775                                  "/tex/generic/ulem"))
6776              (revision %texlive-revision)))
6777        (file-name (string-append name "-" version "-checkout"))
6778        (sha256
6779         (base32
6780          "1rzdniqq9zk39w8ch8ylx3ywh2mj87s4ivchrsk2b8nx06jyn797"))))
6781     (build-system trivial-build-system)
6782     (arguments
6783      `(#:modules ((guix build utils))
6784        #:builder
6785        (begin
6786          (use-modules (guix build utils))
6787          (let ((target (string-append (assoc-ref %outputs "out")
6788                                       "/share/texmf-dist/tex/generic/ulem")))
6789            (mkdir-p target)
6790            (copy-recursively (assoc-ref %build-inputs "source") target)
6791            #t))))
6792     (home-page "https://www.ctan.org/pkg/ulem")
6793     (synopsis "Underline text in TeX")
6794     (description
6795      "The package provides an @code{\\ul} (underline) command which will break
6796 over line ends; this technique may be used to replace @code{\\em} (both in that
6797 form and as the @code{\\emph} command), so as to make output look as if it comes
6798 from a typewriter.  The package also offers double and wavy underlining, and
6799 striking out (line through words) and crossing out (/// over words).")
6800     (license license:lppl1.3c+)))
6801
6802 (define-public texlive-latex-pgf
6803   (package
6804     (name "texlive-latex-pgf")
6805     (version (number->string %texlive-revision))
6806     (source
6807      (origin
6808        (method svn-fetch)
6809        (uri (svn-reference
6810              (url (string-append "svn://www.tug.org/texlive/tags/"
6811                                  %texlive-tag "/Master/texmf-dist/"
6812                                  "/tex/latex/pgf"))
6813              (revision %texlive-revision)))
6814        (file-name (string-append name "-" version "-checkout"))
6815        (sha256
6816         (base32
6817          "1dq8p10pz8wn0vx412m7d7d5gj1syxly3yqdqvf7lv2xl8zndn5h"))))
6818     (build-system trivial-build-system)
6819     (native-inputs
6820      `(("texlive-latex-pgf-generic"
6821         ,(origin
6822            (method svn-fetch)
6823            (uri (svn-reference
6824              (url (string-append "svn://www.tug.org/texlive/tags/"
6825                                  %texlive-tag "/Master/texmf-dist/"
6826                                  "/tex/generic/pgf"))
6827              (revision %texlive-revision)))
6828            (file-name (string-append "texlive-latex-pgf-generic" version "-checkout"))
6829            (sha256
6830             (base32
6831              "0xkxw26sjzr5npjpzpr28yygwdbhzpdd0hsk80gjpidhcxmz393i"))))))
6832     (propagated-inputs
6833      `(("texlive-latex-xcolor" ,texlive-latex-xcolor)))
6834     (arguments
6835      `(#:modules ((guix build utils))
6836        #:builder
6837        (begin
6838          (use-modules (guix build utils))
6839          (let ((target-generic (string-append (assoc-ref %outputs "out")
6840                                               "/share/texmf-dist/tex/generic/pgf"))
6841                (target-latex (string-append (assoc-ref %outputs "out")
6842                                             "/share/texmf-dist/tex/latex/pgf")))
6843            (mkdir-p target-generic)
6844            (mkdir-p target-latex)
6845            (copy-recursively (assoc-ref %build-inputs "texlive-latex-pgf-generic") target-generic)
6846            (copy-recursively (assoc-ref %build-inputs "source") target-latex)
6847            #t))))
6848     (home-page "https://www.ctan.org/pkg/tikz")
6849     (synopsis "Create PostScript and PDF graphics in TeX")
6850     (description
6851      "PGF is a macro package for creating graphics.  It is platform- and
6852 format-independent and works together with the most important TeX backend
6853 drivers, including pdfTeX and dvips.  It comes with a user-friendly syntax layer
6854 called TikZ.
6855
6856 Its usage is similar to pstricks and the standard picture environment.  PGF
6857 works with plain (pdf-)TeX, (pdf-)LaTeX, and ConTeXt.  Unlike pstricks, it can
6858 produce either PostScript or PDF output.")
6859     (license license:lppl1.3c+)))
6860
6861 (define-public texlive-latex-koma-script
6862   (package
6863     (name "texlive-latex-koma-script")
6864     (version (number->string %texlive-revision))
6865     (source (origin
6866               (method svn-fetch)
6867               (uri (svn-reference
6868                     (url (string-append "svn://www.tug.org/texlive/tags/"
6869                                         %texlive-tag "/Master/texmf-dist/"
6870                                         "/tex/latex/koma-script"))
6871                     (revision %texlive-revision)))
6872               (file-name (string-append name "-" version "-checkout"))
6873               (sha256
6874                (base32
6875                 "0nqwf0sr4mf3v9gqa6apv6ml2xhcdwax0vgyf12a672g7rpdyvgm"))))
6876     (build-system trivial-build-system)
6877     (arguments
6878      `(#:modules ((guix build utils)
6879                   (ice-9 match))
6880        #:builder
6881        (begin
6882          (use-modules (guix build utils)
6883                       (ice-9 match))
6884          (let ((root (string-append (assoc-ref %outputs "out")
6885                                     "/share/texmf-dist/"))
6886                (pkgs '(("source" . "tex/latex/koma-script"))))
6887            (for-each (match-lambda
6888                        ((pkg . dir)
6889                         (let ((target (string-append root dir)))
6890                           (mkdir-p target)
6891                           (copy-recursively (assoc-ref %build-inputs pkg)
6892                                             target))))
6893                      pkgs)
6894            #t))))
6895     (home-page "https://www.ctan.org/pkg/koma-script")
6896     (synopsis "Bundle of versatile classes and packages")
6897     (description
6898      "The KOMA-Script bundle provides replacements for the article, report, and
6899 book classes with emphasis on typography and versatility.  There is also a
6900 letter class.
6901
6902 The bundle also offers:
6903
6904 @itemize
6905 @item a package for calculating type areas in the way laid down by the
6906 typographer Jan Tschichold,
6907 @item packages for easily changing and defining page styles,
6908 @item a package scrdate for getting not only the current date but also the name
6909 of the day, and
6910 @item a package scrtime for getting the current time.
6911 @end itemize
6912
6913 All these packages may be used not only with KOMA-Script classes but also with
6914 the standard classes.
6915
6916 Since every package has its own version number, the version number quoted only
6917 refers to the version of scrbook, scrreprt, scrartcl, scrlttr2 and
6918 typearea (which are the main parts of the bundle).")
6919     (license license:lppl1.3+)))
6920
6921 (define-public texlive-generic-listofitems
6922   (package
6923     (name "texlive-generic-listofitems")
6924     (version (number->string %texlive-revision))
6925     (source (origin
6926               (method svn-fetch)
6927               (uri (svn-reference
6928                     (url (string-append "svn://www.tug.org/texlive/tags/"
6929                                         %texlive-tag "/Master/texmf-dist/"
6930                                         "/tex/generic/listofitems"))
6931                     (revision %texlive-revision)))
6932               (file-name (string-append name "-" version "-checkout"))
6933               (sha256
6934                (base32
6935                 "0hs28fc0v2l92ad9las9b8xcckyrdrwmyhcx1yzmbr6s7s6nvsx8"))))
6936     (build-system trivial-build-system)
6937     (arguments
6938      `(#:modules ((guix build utils))
6939        #:builder
6940        (begin
6941          (use-modules (guix build utils))
6942          (let ((target (string-append (assoc-ref %outputs "out")
6943                                       "/share/texmf-dist/tex/generic/listofitems")))
6944            (mkdir-p target)
6945            (copy-recursively (assoc-ref %build-inputs "source") target)
6946            #t))))
6947     (home-page "https://www.ctan.org/pkg/listofitems")
6948     (synopsis "Grab items in lists using user-specified separation character")
6949     (description
6950      "This package allows one to capture all the items of a list, for which
6951 the parsing character has been selected by the user, and to access any of
6952 these items with a simple syntax.")
6953     (license license:lppl1.3c+)))
6954
6955 (define-public texlive-latex-readarray
6956   (package
6957     (name "texlive-latex-readarray")
6958     (version (number->string %texlive-revision))
6959     (source (origin
6960               (method svn-fetch)
6961               (uri (svn-reference
6962                     (url (string-append "svn://www.tug.org/texlive/tags/"
6963                                         %texlive-tag "/Master/texmf-dist/"
6964                                         "/tex/latex/readarray"))
6965                     (revision %texlive-revision)))
6966               (file-name (string-append name "-" version "-checkout"))
6967               (sha256
6968                (base32
6969                 "0c53k180ivn1n7fz3ngvd2w1i5dw3kxml0n64vhki88xsylz7lxp"))))
6970     (build-system trivial-build-system)
6971     (arguments
6972      `(#:modules ((guix build utils))
6973        #:builder
6974        (begin
6975          (use-modules (guix build utils))
6976          (let ((target (string-append (assoc-ref %outputs "out")
6977                                       "/share/texmf-dist/tex/latex/readarray")))
6978            (mkdir-p target)
6979            (copy-recursively (assoc-ref %build-inputs "source") target)
6980            #t))))
6981     (propagated-inputs
6982      `(("texlive-generic-listofitems" ,texlive-generic-listofitems)))
6983     (home-page "https://www.ctan.org/pkg/readarray")
6984     (synopsis "Read, store and recall array-formatted data")
6985     (description
6986      "This package allows the user to input formatted data into elements of a
6987 2-D or 3-D array and to recall that data at will by individual cell number.
6988 The data can be but need not be numerical in nature.  It can be, for example,
6989 formatted text.")
6990     (license license:lppl1.3)))
6991
6992 (define-public texlive-latex-verbatimbox
6993   (package
6994     (name "texlive-latex-verbatimbox")
6995     (version (number->string %texlive-revision))
6996     (source (origin
6997               (method svn-fetch)
6998               (uri (svn-reference
6999                     (url (string-append "svn://www.tug.org/texlive/tags/"
7000                                         %texlive-tag "/Master/texmf-dist/"
7001                                         "/tex/latex/verbatimbox"))
7002                     (revision %texlive-revision)))
7003               (file-name (string-append name "-" version "-checkout"))
7004               (sha256
7005                (base32
7006                 "0qh1cgvfs463zsi2pjg490gj0mkjfdpfc381j10cbb5la304psna"))))
7007     (build-system trivial-build-system)
7008     (arguments
7009      `(#:modules ((guix build utils))
7010        #:builder
7011        (begin
7012          (use-modules (guix build utils))
7013          (let ((target (string-append (assoc-ref %outputs "out")
7014                                       "/share/texmf-dist/tex/latex/verbatimbox")))
7015            (mkdir-p target)
7016            (copy-recursively (assoc-ref %build-inputs "source") target)
7017            #t))))
7018     (propagated-inputs
7019      `(("texlive-latex-readarray" ,texlive-latex-readarray)))
7020     (home-page "https://www.ctan.org/pkg/verbatimbox")
7021     (synopsis "Deposit verbatim text in a box")
7022     (description
7023      "The package provides a @code{verbbox} environment to place its contents
7024 into a globally available box, or into a box specified by the user.  The
7025 global box may then be used in a variety of situations (for example, providing
7026 a replica of the @code{boxedverbatim} environment itself).  A valuable use is
7027 in places where the standard @code{verbatim} environment (which is based on a
7028 @code{trivlist}) may not appear.")
7029     (license license:lppl1.3+)))
7030
7031 (define-public texlive-latex-examplep
7032   (package
7033     (name "texlive-latex-examplep")
7034     (version (number->string %texlive-revision))
7035     (source (origin
7036               (method svn-fetch)
7037               (uri (svn-reference
7038                     (url (string-append "svn://www.tug.org/texlive/tags/"
7039                                         %texlive-tag "/Master/texmf-dist/"
7040                                         "/tex/latex/examplep"))
7041                     (revision %texlive-revision)))
7042               (file-name (string-append name "-" version "-checkout"))
7043               (sha256
7044                (base32
7045                 "0fsvvmz68ij0zwfzrny6x13d92grxr4ap59lxgah4smbkccd6s27"))))
7046     (build-system trivial-build-system)
7047     (arguments
7048      `(#:modules ((guix build utils))
7049        #:builder
7050        (begin
7051          (use-modules (guix build utils))
7052          (let ((target (string-append (assoc-ref %outputs "out")
7053                                       "/share/texmf-dist/tex/latex/examplep")))
7054            (mkdir-p target)
7055            (copy-recursively (assoc-ref %build-inputs "source") target)
7056            #t))))
7057     (home-page "https://www.ctan.org/pkg/examplep")
7058     (synopsis "Verbatim phrases and listings in LaTeX")
7059     (description
7060      "Examplep provides sophisticated features for typesetting verbatim source
7061 code listings, including the display of the source code and its compiled LaTeX
7062 or METAPOST output side-by-side, with automatic width detection and enabled
7063 page breaks (in the source), without the need for specifying the source twice.
7064 Special care is taken that section, page and footnote numbers do not interfere
7065 with the main document.  For typesetting short verbatim phrases, a replacement
7066 for the @code{\\verb} command is also provided in the package, which can be
7067 used inside tables and moving arguments such as footnotes and section
7068 titles.")
7069     ;; No version of the GPL is specified.
7070     (license license:gpl3+)))
7071
7072 (define-public texlive-generic-xypic
7073   (package
7074     (name "texlive-generic-xypic")
7075     (version (number->string %texlive-revision))
7076     (source
7077      (origin
7078        (method svn-fetch)
7079        (uri (svn-reference
7080              (url (string-append "svn://www.tug.org/texlive/tags/"
7081                                  %texlive-tag "/Master/texmf-dist/"
7082                                  "/tex/generic/xypic"))
7083              (revision %texlive-revision)))
7084        (file-name (string-append name "-" version "-checkout"))
7085        (sha256
7086         (base32
7087          "1g5cyxwdfznq4lk9zl6fkjkapmhmwd2cm4m5aibxj20qgwnaggfz"))))
7088     (build-system trivial-build-system)
7089     (arguments
7090      `(#:modules ((guix build utils))
7091        #:builder
7092        (begin
7093          (use-modules (guix build utils))
7094          (let ((target (string-append (assoc-ref %outputs "out")
7095                                       "/share/texmf-dist/tex/generic/xypic")))
7096            (mkdir-p target)
7097            (copy-recursively (assoc-ref %build-inputs "source") target)
7098            #t))))
7099     (home-page "https://www.ctan.org/pkg/xypic")
7100     (synopsis "Flexible diagramming macros for TeX")
7101     (description
7102      "A package for typesetting a variety of graphs and diagrams with TeX.
7103 Xy-pic works with most formats (including LaTeX, AMS-LaTeX, AMS-TeX, and plain
7104 TeX).")
7105     (license license:gpl3+)))
7106
7107 (define-public texlive-fonts-xypic
7108   (package
7109     (name "texlive-fonts-xypic")
7110     (version (number->string %texlive-revision))
7111     (source (origin
7112               (method svn-fetch)
7113               (uri (svn-reference
7114                     (url (string-append "svn://www.tug.org/texlive/tags/"
7115                                         %texlive-tag "/Master/texmf-dist/"
7116                                         "/fonts/source/public/xypic"))
7117                     (revision %texlive-revision)))
7118               (file-name (string-append name "-" version "-checkout"))
7119               (sha256
7120                (base32
7121                 "0p20v1257kwsqnrk98cdhhiz2viv8l3ly4xay4by0an3j37m9xs3"))))
7122     (build-system trivial-build-system)
7123     (arguments
7124      `(#:modules ((guix build utils)
7125                   (ice-9 match))
7126        #:builder
7127        (begin
7128          (use-modules (guix build utils)
7129                       (ice-9 match))
7130          (let ((root (string-append (assoc-ref %outputs "out")
7131                                     "/share/texmf-dist/"))
7132                (pkgs '(("source" . "fonts/source/public/xypic")
7133                        ("xypic-afm" . "fonts/afm/public/xypic")
7134                        ("xypic-type1" . "fonts/type1/public/xypic")
7135                        ("xypic-enc" . "fonts/enc/dvips/xypic"))))
7136            (for-each (match-lambda
7137                        ((pkg . dir)
7138                         (let ((target (string-append root dir)))
7139                           (mkdir-p target)
7140                           (copy-recursively (assoc-ref %build-inputs pkg)
7141                                             target))))
7142                      pkgs)
7143            #t))))
7144     (native-inputs
7145      `(("xypic-afm"
7146         ,(origin
7147            (method svn-fetch)
7148            (uri (svn-reference
7149                  (url (string-append "svn://www.tug.org/texlive/tags/"
7150                                      %texlive-tag "/Master/texmf-dist/"
7151                                      "/fonts/afm/public/xypic"))
7152                  (revision %texlive-revision)))
7153            (file-name (string-append name "-afm-" version "-checkout"))
7154            (sha256
7155             (base32
7156              "149xdijxp8lw3s0qv2aqxxxyyn748z57dpr596rjvkqdffpnsddh"))))
7157        ("xypic-type1"
7158         ,(origin
7159            (method svn-fetch)
7160            (uri (svn-reference
7161                  (url (string-append "svn://www.tug.org/texlive/tags/"
7162                                      %texlive-tag "/Master/texmf-dist/"
7163                                      "/fonts/type1/public/xypic"))
7164                  (revision %texlive-revision)))
7165            (file-name (string-append name "-type1-" version "-checkout"))
7166            (sha256
7167             (base32
7168              "1bln89wib7g3hcv2jny3qi6jb73k9d2vbgx3wnnjwp3ryg0846if"))))
7169        ("xypic-enc"
7170         ,(origin
7171            (method svn-fetch)
7172            (uri (svn-reference
7173                  (url (string-append "svn://www.tug.org/texlive/tags/"
7174                                      %texlive-tag "/Master/texmf-dist/"
7175                                      "/fonts/enc/dvips/xypic"))
7176                  (revision %texlive-revision)))
7177            (file-name (string-append name "-enc-" version "-checkout"))
7178            (sha256
7179             (base32
7180              "0yi8vms3203l3p5slnhrrlzzp0f0jw77fkcvcaicrz2vmw9z99x7"))))))
7181     (home-page "https://www.ctan.org/pkg/xypic")
7182     (synopsis "Fonts for XY-pic")
7183     (description "This package provides the XY-pic fonts.")
7184     (license license:gpl3+)))
7185
7186 (define-public texlive-bibtex
7187   (package
7188     (name "texlive-bibtex")
7189     (version (number->string %texlive-revision))
7190     (source
7191      (origin
7192        (method svn-fetch)
7193        (uri (svn-reference
7194              (url (string-append "svn://www.tug.org/texlive/tags/"
7195                                  %texlive-tag "/Master/texmf-dist/"
7196                                  "/bibtex"))
7197              (revision %texlive-revision)))
7198        (file-name (string-append name "-" version "-checkout"))
7199        (sha256
7200         (base32
7201          "0hnbs0s1znbn32hfcsyijl39z81sdb00jf092a4blqz421qs2mbv"))))
7202     (build-system trivial-build-system)
7203     (arguments
7204      `(#:modules ((guix build utils))
7205        #:builder
7206        (begin
7207          (use-modules (guix build utils))
7208          (let ((target (string-append (assoc-ref %outputs "out")
7209                                       "/share/texmf-dist/bibtex")))
7210            (mkdir-p target)
7211            (copy-recursively (assoc-ref %build-inputs "source") target)
7212            #t))))
7213     (home-page "https://www.ctan.org/pkg/bibtex")
7214     (synopsis "Process bibliographies for LaTeX")
7215     (description
7216      "BibTeX allows the user to store his citation data in generic form, while
7217 printing citations in a document in the form specified by a BibTeX style, to
7218 be specified in the document itself (one often needs a LaTeX citation-style
7219 package, such as @command{natbib} as well).")
7220     (license license:knuth)))
7221
7222 (define-public texlive-fonts-charter
7223   (package
7224     (name "texlive-fonts-charter")
7225     (version (number->string %texlive-revision))
7226     (source (origin
7227               (method svn-fetch)
7228               (uri (svn-reference
7229                     (url (string-append "svn://www.tug.org/texlive/tags/"
7230                                         %texlive-tag "/Master/texmf-dist/"
7231                                         "/fonts/type1/bitstrea/charter"))
7232                     (revision %texlive-revision)))
7233               (file-name (string-append name "-" version "-checkout"))
7234               (sha256
7235                (base32
7236                 "0yvib45xxff3jm5270zij4q888pivbc18cqs7lz4pqfhn1am4wnv"))))
7237     (build-system trivial-build-system)
7238     (arguments
7239      `(#:modules ((guix build utils)
7240                   (ice-9 match))
7241        #:builder
7242        (begin
7243          (use-modules (guix build utils)
7244                       (ice-9 match))
7245          (let ((root (string-append (assoc-ref %outputs "out")
7246                                     "/share/texmf-dist/"))
7247                (pkgs '(("source" . "fonts/type1/bitstrea/charter")
7248                        ("charter-afm" . "fonts/afm/bitstrea/charter")
7249                        ("charter-tfm" . "fonts/tfm/bitstrea/charter"))))
7250            (for-each (match-lambda
7251                        ((pkg . dir)
7252                         (let ((target (string-append root dir)))
7253                           (mkdir-p target)
7254                           (copy-recursively (assoc-ref %build-inputs pkg)
7255                                             target))))
7256                      pkgs)
7257            #t))))
7258     (native-inputs
7259      `(("charter-afm"
7260         ,(origin
7261            (method svn-fetch)
7262            (uri (svn-reference
7263                  (url (string-append "svn://www.tug.org/texlive/tags/"
7264                                      %texlive-tag "/Master/texmf-dist/"
7265                                      "/fonts/afm/bitstrea/charter"))
7266                  (revision %texlive-revision)))
7267            (file-name (string-append name "-afm-" version "-checkout"))
7268            (sha256
7269             (base32
7270              "02nbkqrlr3vypnzslmr7dxg1353mmc0rl4ynx0s6qbvf313fq76a"))))
7271        ("charter-tfm"
7272         ,(origin
7273            (method svn-fetch)
7274            (uri (svn-reference
7275                  (url (string-append "svn://www.tug.org/texlive/tags/"
7276                                      %texlive-tag "/Master/texmf-dist/"
7277                                      "/fonts/tfm/bitstrea/charter"))
7278                  (revision %texlive-revision)))
7279            (file-name (string-append name "-tfm-" version "-checkout"))
7280            (sha256
7281             (base32
7282              "0j7ci9vprivbhac70aq0z7m23hqcpx1g0i3wp1k0h8ilhimj80xk"))))))
7283     (home-page "https://www.ctan.org/pkg/charter")
7284     (synopsis "Charter fonts for TeX")
7285     (description "A commercial text font donated for the common good.  Support
7286 for use with LaTeX is available in @code{freenfss}, part of
7287 @command{psnfss}. ")
7288     (license (license:non-copyleft (string-append "http://mirrors.ctan.org/"
7289                                                   "fonts/charter/readme.charter")))))
7290
7291 (define-public texlive-context-base
7292   (package
7293     (name "texlive-context-base")
7294     (version (number->string %texlive-revision))
7295     (source (origin
7296               (method svn-fetch)
7297               (uri (svn-reference
7298                     (url (string-append "svn://www.tug.org/texlive/tags/"
7299                                         %texlive-tag "/Master/texmf-dist/"
7300                                         "/tex/context/base"))
7301                     (revision %texlive-revision)))
7302               (file-name (string-append name "-" version "-checkout"))
7303               (sha256
7304                (base32
7305                 "0rlx4qqijms1n64gjx475kvip8l322fh7v17zkmwp1l1g0w3vlyz"))))
7306     (build-system trivial-build-system)
7307     (arguments
7308      `(#:modules ((guix build utils))
7309        #:builder
7310        (begin
7311          (use-modules (guix build utils))
7312          (let ((target (string-append (assoc-ref %outputs "out")
7313                                       "/share/texmf-dist/tex/context/case")))
7314            (mkdir-p target)
7315            (copy-recursively (assoc-ref %build-inputs "source") target)
7316            #t))))
7317     (home-page "https://www.ctan.org/pkg/context")
7318     (synopsis "Full featured, parameter driven macro package for TeX")
7319     (description "A full featured, parameter driven macro package, which fully
7320 supports advanced interactive documents.  See the ConTeXt garden for a wealth
7321 of support information.")
7322     (license license:gpl2+)))
7323
7324 (define-public texlive-latex-beamer
7325   (package
7326     (name "texlive-latex-beamer")
7327     (version (number->string %texlive-revision))
7328     (source (origin
7329               (method svn-fetch)
7330               (uri (svn-reference
7331                     (url (string-append "svn://www.tug.org/texlive/tags/"
7332                                         %texlive-tag "/Master/texmf-dist/"
7333                                         "/tex/latex/beamer"))
7334                     (revision %texlive-revision)))
7335               (file-name (string-append name "-" version "-checkout"))
7336               (sha256
7337                (base32
7338                 "09y3qwbj0nckshvg9afgwcv9v3zdif1d7bnpzrggsa1fbr80mgk2"))))
7339     (build-system trivial-build-system)
7340     (outputs '("out" "doc"))
7341     (arguments
7342      `(#:modules ((guix build utils))
7343        #:builder
7344        (begin
7345          (use-modules (guix build utils))
7346          (let ((target (string-append (assoc-ref %outputs "out")
7347                                       "/share/texmf-dist/tex/latex/beamer"))
7348                (docs   (string-append (assoc-ref %outputs "doc")
7349                                       "/share/texmf-dist/doc/latex/beamer/")))
7350            (mkdir-p target)
7351            (copy-recursively (assoc-ref %build-inputs "source") target)
7352
7353            (mkdir-p docs)
7354            (copy-recursively (assoc-ref %build-inputs "docs") docs)
7355            #t))))
7356     (propagated-inputs
7357      `(("texlive-latex-hyperref" ,texlive-latex-hyperref)
7358        ("texlive-latex-oberdiek" ,texlive-latex-oberdiek)
7359        ("texlive-latex-etoolbox" ,texlive-latex-etoolbox)
7360        ("texlive-latex-pgf" ,texlive-latex-pgf)))
7361     (native-inputs
7362      `(("docs"
7363         ,(origin
7364            (method svn-fetch)
7365            (uri (svn-reference
7366                  (url (string-append "svn://www.tug.org/texlive/tags/"
7367                                      %texlive-tag "/Master/texmf-dist/"
7368                                      "/doc/latex/beamer"))
7369                  (revision %texlive-revision)))
7370            (file-name (string-append name "-" version "-checkout"))
7371            (sha256
7372             (base32
7373              "102b18b9nw9dicqqgjwx0srh1mav8vh9wdvwayn741niza9hac23"))))))
7374     (home-page "https://www.ctan.org/pkg/beamer")
7375     (synopsis "LaTeX class for producing presentations and slides")
7376     (description "The beamer LaTeX class can be used for producing slides.
7377 The class works in both PostScript and direct PDF output modes, using the
7378 @code{pgf} graphics system for visual effects.  Content is created in the
7379 @code{frame} environment, and each frame can be made up of a number of slides
7380 using a simple notation for specifying material to appear on each slide within
7381 a frame.  Short versions of title, authors, institute can also be specified as
7382 optional parameters.  Whole frame graphics are supported by plain frames.  The
7383 class supports @code{figure} and @code{table} environments, transparency
7384 effects, varying slide transitions and animations.")
7385     ;; Code is dual licensed under GPLv2+ or LPPL1.3c+; documentation is
7386     ;; dual-licensed under either FDLv1.3+ or LPPL1.3c+.
7387     (license (list license:lppl1.3c+ license:gpl2+ license:fdl1.3+))))
7388
7389 (define-public texlive-latex-xmpincl
7390   (package
7391     (name "texlive-latex-xmpincl")
7392     (version (number->string %texlive-revision))
7393     (source
7394      (origin
7395        (method svn-fetch)
7396        (uri (texlive-ref "latex" "xmpincl"))
7397        (sha256
7398         (base32
7399          "0lq3dfb4fsw955gjwllnk7cg00ciq5mva64mlpbva6g2jz117734"))))
7400     (build-system texlive-build-system)
7401     (arguments '(#:tex-directory "latex/xmpincl"))
7402     (home-page "http://www.ctan.org/pkg/xmpincl")
7403     (synopsis "Include eXtensible Metadata Platform data in pdfLaTeX")
7404     (description
7405      "The XMP (eXtensible Metadata platform) is a framework to add metadata to
7406 digital material to enhance the workflow in publication.  The essence is that
7407 the metadata is stored in an XML file, and this XML stream is then embedded in
7408 the file to which it applies.")
7409     (license license:gpl3+)))
7410
7411 (define-public texlive-latex-pdfx
7412   (package
7413     (name "texlive-latex-pdfx")
7414     (version (number->string %texlive-revision))
7415     (source
7416      (origin
7417        (method svn-fetch)
7418        (uri (texlive-ref "latex" "pdfx"))
7419        (sha256
7420         (base32
7421          "0ikxg8yzq78hy5b9x13d4nah46d0yvmwlqmdri06pygbx116dcac"))))
7422     (build-system texlive-build-system)
7423     (arguments
7424      '(#:tex-directory "latex/pdfx"
7425        #:phases
7426        (modify-phases %standard-phases
7427          (add-after 'unpack 'fix-encoding
7428            (lambda _
7429              (substitute* "pdfx.dtx"
7430                (("    .+umaczy") "umaczy"))
7431              #t))
7432          (add-before 'install 'install-tex-files
7433            (lambda* (#:key inputs outputs #:allow-other-keys)
7434              (let ((target (string-append (assoc-ref outputs "out")
7435                                           "/share/texmf-dist/tex/latex/pdfx")))
7436                (mkdir-p target)
7437                (copy-recursively (assoc-ref inputs "texlive-tex-pdfx") target)
7438                ;; Install the generated version in the "install" phase.
7439                (delete-file (string-append target "/pdfx.sty"))
7440                #t))))))
7441     (propagated-inputs
7442      `(("texlive-generic-pdftex" ,texlive-generic-pdftex)))
7443     (native-inputs
7444      `(("texlive-tex-pdfx"
7445         ,(origin
7446            (method svn-fetch)
7447            (uri (svn-reference
7448                  (url (string-append "svn://www.tug.org/texlive/tags/"
7449                                      %texlive-tag "/Master/texmf-dist/"
7450                                      "/tex/latex/pdfx"))
7451                  (revision %texlive-revision)))
7452            (file-name (string-append "texlive-tex-latex-pdfx-" version "-checkout"))
7453            (sha256
7454             (base32
7455              "14j1zsvqc59ims3sk34v6km8db6cimks28y5fcxcr5mi2ykvj4vf"))))))
7456     (home-page "https://www.ctan.org/pkg/pdfx")
7457     (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
7458     (description
7459      "This package helps LaTeX users to create PDF/X, PFD/A and other
7460 standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
7461     (license license:lppl1.2+)))