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