gnu/packages/tex.scm

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