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