649 lines
27 KiB
Scheme
649 lines
27 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
|
||
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
|
||
;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
|
||
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages tex)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system perl)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix git-download)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages gd)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages icu4c)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages multiprecision)
|
||
#:use-module (gnu packages pdf)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages ruby)
|
||
#:use-module (gnu packages shells)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages zip)
|
||
#:autoload (gnu packages texinfo) (texinfo)
|
||
#:use-module (ice-9 ftw)
|
||
#:use-module (srfi srfi-1))
|
||
|
||
(define texlive-extra-src
|
||
(origin
|
||
(method url-fetch)
|
||
(uri "ftp://tug.org/historic/systems/texlive/2016/texlive-20160523-extra.tar.xz")
|
||
(sha256 (base32
|
||
"0q4a92zmwhn4ry6xgrp4k8wq11ax2sg9rg9yrsrdkr719y0x887a"))))
|
||
|
||
(define texlive-texmf-src
|
||
(origin
|
||
(method url-fetch)
|
||
(uri "ftp://tug.org/historic/systems/texlive/2016/texlive-20160523b-texmf.tar.xz")
|
||
(patches (search-patches "texlive-texmf-CVE-2016-10243.patch"))
|
||
(patch-flags '("-p2"))
|
||
(sha256 (base32
|
||
"1dv8vgfzpczqw82hv9g7a8djhhyzywljmrarlcyy6g2qi5q51glr"))))
|
||
|
||
(define texlive-bin
|
||
(package
|
||
(name "texlive-bin")
|
||
(version "2016")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri "ftp://tug.org/historic/systems/texlive/2016/texlive-20160523b-source.tar.xz")
|
||
(sha256 (base32
|
||
"1v91vahxlxkdra0qz3f132vvx5d9cx2jy84yl1hkch0agyj2rcx8"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("texlive-extra-src" ,texlive-extra-src)
|
||
("cairo" ,cairo)
|
||
("fontconfig" ,fontconfig)
|
||
("fontforge" ,fontforge)
|
||
("freetype" ,freetype)
|
||
("gd" ,gd)
|
||
("gmp" ,gmp)
|
||
("ghostscript" ,ghostscript)
|
||
("graphite2" ,graphite2)
|
||
("harfbuzz" ,harfbuzz)
|
||
("icu4c" ,icu4c)
|
||
("libpaper" ,libpaper)
|
||
("libpng" ,libpng)
|
||
("libxaw" ,libxaw)
|
||
("libxt" ,libxt)
|
||
("mpfr" ,mpfr)
|
||
("perl" ,perl)
|
||
("pixman" ,pixman)
|
||
("poppler" ,poppler)
|
||
("potrace" ,potrace)
|
||
("python" ,python-2) ; incompatible with Python 3 (print syntax)
|
||
("ruby" ,ruby)
|
||
("tcsh" ,tcsh)
|
||
("teckit" ,teckit)
|
||
("zlib" ,zlib)
|
||
("zziplib" ,zziplib)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(arguments
|
||
`(#:out-of-source? #t
|
||
#:configure-flags
|
||
`("--disable-native-texlive-build"
|
||
"--with-system-cairo"
|
||
"--with-system-freetype2"
|
||
"--with-system-gd"
|
||
"--with-system-gmp"
|
||
"--with-system-graphite2"
|
||
"--with-system-harfbuzz"
|
||
"--with-system-icu"
|
||
"--with-system-libgs"
|
||
"--with-system-libpaper"
|
||
"--with-system-libpng"
|
||
"--with-system-mpfr"
|
||
"--with-system-pixman"
|
||
"--with-system-poppler"
|
||
"--with-system-potrace"
|
||
"--with-system-teckit"
|
||
"--with-system-xpdf"
|
||
"--with-system-zlib"
|
||
"--with-system-zziplib")
|
||
|
||
;; Disable tests on mips64 to cope with a failure of luajiterr.test.
|
||
;; XXX FIXME fix luajit properly on mips64.
|
||
#:tests? ,(not (string-prefix? "mips64" (or (%current-target-system)
|
||
(%current-system))))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'postint
|
||
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(share (string-append out "/share"))
|
||
(texlive-extra (assoc-ref inputs "texlive-extra-src"))
|
||
(unpack (assoc-ref %standard-phases 'unpack))
|
||
(patch-source-shebangs
|
||
(assoc-ref %standard-phases 'patch-source-shebangs)))
|
||
;; Create symbolic links for the latex variants and their
|
||
;; man pages.
|
||
(with-directory-excursion (string-append out "/bin/")
|
||
(for-each symlink
|
||
'("pdftex" "pdftex" "xetex" "luatex")
|
||
'("latex" "pdflatex" "xelatex" "lualatex")))
|
||
(with-directory-excursion (string-append share "/man/man1/")
|
||
(symlink "luatex.1" "lualatex.1"))
|
||
;; Unpack texlive-extra and install tlpkg.
|
||
(mkdir "texlive-extra")
|
||
(with-directory-excursion "texlive-extra"
|
||
(apply unpack (list #:source texlive-extra))
|
||
(apply patch-source-shebangs (list #:source texlive-extra))
|
||
(system* "mv" "tlpkg" share))))))))
|
||
(synopsis "TeX Live, a package of the TeX typesetting system")
|
||
(description
|
||
"TeX Live provides a comprehensive TeX document production system.
|
||
It includes all the major TeX-related programs, macro packages, and fonts
|
||
that are free software, including support for many languages around the
|
||
world.
|
||
|
||
This package contains the binaries.")
|
||
(license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
|
||
(home-page "https://www.tug.org/texlive/")))
|
||
|
||
(define texlive-texmf
|
||
(package
|
||
(name "texlive-texmf")
|
||
(version "2016")
|
||
(source texlive-texmf-src)
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("texlive-bin" ,texlive-bin)
|
||
("lua" ,lua)
|
||
("perl" ,perl)
|
||
("python" ,python-2) ; incompatible with Python 3 (print syntax)
|
||
("ruby" ,ruby)
|
||
("tcsh" ,tcsh)))
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
(guix build utils)
|
||
(srfi srfi-26))
|
||
|
||
;; This package takes 4 GiB, which we can't afford to distribute from
|
||
;; our servers.
|
||
#:substitutable? #f
|
||
|
||
#:phases
|
||
(modify-phases (map (cut assq <> %standard-phases)
|
||
'(set-paths unpack patch-source-shebangs))
|
||
(add-after 'patch-source-shebangs 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((share (string-append (assoc-ref outputs "out") "/share")))
|
||
(mkdir-p share)
|
||
(system* "mv" "texmf-dist" share))))
|
||
(add-after 'install 'texmf-config
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(share (string-append out "/share"))
|
||
(texmfroot (string-append share "/texmf-dist/web2c"))
|
||
(texmfcnf (string-append texmfroot "/texmf.cnf"))
|
||
(texlive-bin (assoc-ref inputs "texlive-bin"))
|
||
(texbin (string-append texlive-bin "/bin"))
|
||
(tlpkg (string-append texlive-bin "/share/tlpkg")))
|
||
;; Register SHARE as TEXMFROOT in texmf.cnf.
|
||
(substitute* texmfcnf
|
||
(("TEXMFROOT = \\$SELFAUTOPARENT")
|
||
(string-append "TEXMFROOT = " share))
|
||
(("TEXMFLOCAL = \\$SELFAUTOGRANDPARENT/texmf-local")
|
||
"TEXMFLOCAL = $SELFAUTODIR/share/texmf-local")
|
||
(("!!\\$TEXMFLOCAL") "$TEXMFLOCAL"))
|
||
;; Register paths in texmfcnf.lua, needed for context.
|
||
(substitute* (string-append texmfroot "/texmfcnf.lua")
|
||
(("selfautodir:") out)
|
||
(("selfautoparent:") (string-append share "/")))
|
||
;; Set path to TeXLive Perl modules
|
||
(setenv "PERL5LIB"
|
||
(string-append (getenv "PERL5LIB") ":" tlpkg))
|
||
;; Configure the texmf-dist tree; inspired from
|
||
;; http://slackbuilds.org/repository/13.37/office/texlive/
|
||
(setenv "PATH" (string-append (getenv "PATH") ":" texbin))
|
||
(setenv "TEXMFCNF" texmfroot)
|
||
(system* "updmap-sys" "--nohash" "--syncwithtrees")
|
||
(system* "mktexlsr")
|
||
(system* "fmtutil-sys" "--all")))))))
|
||
(properties `((max-silent-time . 9600))) ; don't time out while grafting
|
||
(synopsis "TeX Live, a package of the TeX typesetting system")
|
||
(description
|
||
"TeX Live provides a comprehensive TeX document production system.
|
||
It includes all the major TeX-related programs, macro packages, and fonts
|
||
that are free software, including support for many languages around the
|
||
world.
|
||
|
||
This package contains the complete tree of texmf-dist data.")
|
||
(license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
|
||
(home-page "https://www.tug.org/texlive/")))
|
||
|
||
(define-public texlive
|
||
(package
|
||
(name "texlive")
|
||
(version "2016")
|
||
(source #f)
|
||
(build-system trivial-build-system)
|
||
(inputs `(("bash" ,bash) ; for wrap-program
|
||
("texlive-bin" ,texlive-bin)
|
||
("texlive-texmf" ,texlive-texmf)))
|
||
(native-search-paths
|
||
(list (search-path-specification
|
||
(variable "TEXMFLOCAL")
|
||
(files '("share/texmf-local")))))
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
;; Build the union of texlive-bin and texlive-texmf, but take the
|
||
;; conflicting subdirectory share/texmf-dist from texlive-texmf.
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(let ((out (assoc-ref %outputs "out"))
|
||
(bin (assoc-ref %build-inputs "texlive-bin"))
|
||
(texmf (assoc-ref %build-inputs "texlive-texmf"))
|
||
(bash (assoc-ref %build-inputs "bash")))
|
||
(mkdir out)
|
||
(with-directory-excursion out
|
||
(for-each
|
||
(lambda (name)
|
||
(symlink (string-append bin "/" name) name))
|
||
'("include" "lib"))
|
||
(mkdir "bin")
|
||
(with-directory-excursion "bin"
|
||
(setenv "PATH" (string-append bash "/bin"))
|
||
(for-each
|
||
(lambda (name)
|
||
(symlink name (basename name))
|
||
(wrap-program
|
||
(basename name)
|
||
`("TEXMFCNF" =
|
||
(,(string-append texmf "/share/texmf-dist/web2c")))))
|
||
(find-files (string-append bin "/bin/") "")))
|
||
(mkdir "share")
|
||
(with-directory-excursion "share"
|
||
(for-each
|
||
(lambda (name)
|
||
(symlink (string-append bin "/share/" name) name))
|
||
'("info" "man" "tlpkg"))
|
||
(for-each
|
||
(lambda (name)
|
||
(symlink (string-append texmf "/share/" name) name))
|
||
'("texmf-dist" "texmf-var"))))))))
|
||
(synopsis "TeX Live, a package of the TeX typesetting system")
|
||
(description
|
||
"TeX Live provides a comprehensive TeX document production system.
|
||
It includes all the major TeX-related programs, macro packages, and fonts
|
||
that are free software, including support for many languages around the
|
||
world.
|
||
|
||
This package contains the complete TeX Live distribution.")
|
||
(license (license:fsf-free "https://www.tug.org/texlive/copying.html"))
|
||
(home-page "https://www.tug.org/texlive/")))
|
||
|
||
|
||
;; texlive-texmf-minimal is a pruned, small version of the texlive tree,
|
||
;; in particular dropping documentation and fonts. It weighs in at 470 MiB
|
||
;; instead of 4 GiB.
|
||
(define texlive-texmf-minimal
|
||
(package (inherit texlive-texmf)
|
||
(name "texlive-texmf-minimal")
|
||
(arguments
|
||
(substitute-keyword-arguments
|
||
(package-arguments texlive-texmf)
|
||
((#:modules modules)
|
||
`((ice-9 ftw)
|
||
(srfi srfi-1)
|
||
,@modules))
|
||
((#:phases phases)
|
||
`(modify-phases ,phases
|
||
(add-after 'unpack 'prune
|
||
(lambda _
|
||
(define (delete subdir exclude)
|
||
"Delete all files and directories in SUBDIR except for those
|
||
given in the list EXCLUDE."
|
||
(with-directory-excursion subdir
|
||
(for-each delete-file-recursively
|
||
(lset-difference equal?
|
||
(scandir ".")
|
||
(append '("." "..")
|
||
exclude)))))
|
||
(with-directory-excursion "texmf-dist"
|
||
(for-each delete-file-recursively
|
||
'("doc" "source" "tex4ht"))
|
||
;; Delete all subdirectories of "fonts", except for "tfm" and
|
||
;; any directories named "cm".
|
||
(delete "fonts" '("afm" "map" "pk" "source" "tfm" "type1"))
|
||
(delete "fonts/afm" '("public"))
|
||
(delete "fonts/afm/public" '("amsfonts"))
|
||
(delete "fonts/afm/public/amsfonts" '("cm"))
|
||
(delete "fonts/map" '("dvips"))
|
||
(delete "fonts/map/dvips" '("cm"))
|
||
(delete "fonts/source" '("public"))
|
||
(delete "fonts/source/public" '("cm"))
|
||
(delete "fonts/tfm" '("public"))
|
||
(delete "fonts/type1" '("public"))
|
||
(delete "fonts/type1/public" '("amsfonts"))
|
||
(delete "fonts/type1/public/amsfonts" '("cm")))
|
||
#t))))))
|
||
(description
|
||
"TeX Live provides a comprehensive TeX document production system.
|
||
It includes all the major TeX-related programs, macro packages, and fonts
|
||
that are free software, including support for many languages around the
|
||
world.
|
||
|
||
This package contains a small subset of the texmf-dist data.")))
|
||
|
||
|
||
;; texlive-minimal is the same as texlive, but using texlive-texmf-minimal
|
||
;; instead of the full texlive-texmf. It can be used, for instance, as a
|
||
;; native input to packages that need texlive to build their documentation.
|
||
(define-public texlive-minimal
|
||
(package (inherit texlive)
|
||
(name "texlive-minimal")
|
||
(inputs
|
||
`(("texlive-texmf" ,texlive-texmf-minimal)
|
||
,@(alist-delete "texlive-texmf" (package-inputs texlive))))
|
||
(native-search-paths
|
||
(list (search-path-specification
|
||
(variable "TEXMFLOCAL")
|
||
(files '("share/texmf-local")))))
|
||
(description
|
||
"TeX Live provides a comprehensive TeX document production system.
|
||
It includes all the major TeX-related programs, macro packages, and fonts
|
||
that are free software, including support for many languages around the
|
||
world.
|
||
|
||
This package contains a small working part of the TeX Live distribution.")))
|
||
|
||
(define-public perl-text-bibtex
|
||
(package
|
||
(name "perl-text-bibtex")
|
||
(version "0.77")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/A/AM/AMBS/Text-BibTeX-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0kkfx8skk763pivz6h2ffy2zdp1lvy6d5sz0kjaj0mdbjffvnnb4"))))
|
||
(build-system perl-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'add-output-directory-to-rpath
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "inc/MyBuilder.pm"
|
||
(("-Lbtparse" line)
|
||
(string-append "-Wl,-rpath="
|
||
(assoc-ref outputs "out") "/lib " line)))
|
||
#t))
|
||
(add-after 'unpack 'install-libraries-to-/lib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "Build.PL"
|
||
(("lib64") "lib"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("perl-capture-tiny" ,perl-capture-tiny)
|
||
("perl-config-autoconf" ,perl-config-autoconf)
|
||
("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
|
||
("perl-module-build" ,perl-module-build)))
|
||
(home-page "http://search.cpan.org/dist/Text-BibTeX")
|
||
(synopsis "Interface to read and parse BibTeX files")
|
||
(description "@code{Text::BibTeX} is a Perl library for reading, parsing,
|
||
and processing BibTeX files. @code{Text::BibTeX} gives you access to the data
|
||
at many different levels: you may work with BibTeX entries as simple field to
|
||
string mappings, or get at the original form of the data as a list of simple
|
||
values (strings, macros, or numbers) pasted together.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public biber
|
||
(package
|
||
(name "biber-next")
|
||
(version "2.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/plk/biber/archive/v"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"158smzgjhjvyabdv97si5q88zjj5l8j1zbfnddvzy6fkpfhskgkp"))))
|
||
(build-system perl-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-programs
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(perl5lib (getenv "PERL5LIB")))
|
||
(wrap-program (string-append out "/bin/biber")
|
||
`("PERL5LIB" ":" prefix
|
||
(,(string-append perl5lib ":" out
|
||
"/lib/perl5/site_perl")))))
|
||
#t)))))
|
||
(inputs
|
||
`(("perl-autovivification" ,perl-autovivification)
|
||
("perl-class-accessor" ,perl-class-accessor)
|
||
("perl-data-dump" ,perl-data-dump)
|
||
("perl-data-compare" ,perl-data-compare)
|
||
("perl-data-uniqid" ,perl-data-uniqid)
|
||
("perl-datetime-format-builder" ,perl-datetime-format-builder)
|
||
("perl-datetime-calendar-julian" ,perl-datetime-calendar-julian)
|
||
("perl-file-slurp" ,perl-file-slurp)
|
||
("perl-ipc-cmd" ,perl-ipc-cmd)
|
||
("perl-ipc-run3" ,perl-ipc-run3)
|
||
("perl-list-allutils" ,perl-list-allutils)
|
||
("perl-list-moreutils" ,perl-list-moreutils)
|
||
("perl-mozilla-ca" ,perl-mozilla-ca)
|
||
("perl-regexp-common" ,perl-regexp-common)
|
||
("perl-log-log4perl" ,perl-log-log4perl)
|
||
;; We cannot use perl-unicode-collate here, because otherwise the
|
||
;; hardcoded hashes in the tests would differ. See
|
||
;; https://mail-archive.com/debian-bugs-dist@lists.debian.org/msg1469249.html
|
||
;;("perl-unicode-collate" ,perl-unicode-collate)
|
||
("perl-unicode-normalize" ,perl-unicode-normalize)
|
||
("perl-unicode-linebreak" ,perl-unicode-linebreak)
|
||
("perl-encode-eucjpascii" ,perl-encode-eucjpascii)
|
||
("perl-encode-jis2k" ,perl-encode-jis2k)
|
||
("perl-encode-hanextra" ,perl-encode-hanextra)
|
||
("perl-xml-libxml" ,perl-xml-libxml)
|
||
("perl-xml-libxml-simple" ,perl-xml-libxml-simple)
|
||
("perl-xml-libxslt" ,perl-xml-libxslt)
|
||
("perl-xml-writer" ,perl-xml-writer)
|
||
("perl-sort-key" ,perl-sort-key)
|
||
("perl-text-csv" ,perl-text-csv)
|
||
("perl-text-csv-xs" ,perl-text-csv-xs)
|
||
("perl-text-roman" ,perl-text-roman)
|
||
("perl-uri" ,perl-uri)
|
||
("perl-text-bibtex" ,perl-text-bibtex)
|
||
("perl-libwww" ,perl-libwww)
|
||
("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
|
||
("perl-business-isbn" ,perl-business-isbn)
|
||
("perl-business-issn" ,perl-business-issn)
|
||
("perl-business-ismn" ,perl-business-ismn)
|
||
("perl-lingua-translit" ,perl-lingua-translit)))
|
||
(native-inputs
|
||
`(("perl-config-autoconf" ,perl-config-autoconf)
|
||
("perl-extutils-libbuilder" ,perl-extutils-libbuilder)
|
||
("perl-module-build" ,perl-module-build)
|
||
;; for tests
|
||
("perl-file-which" ,perl-file-which)
|
||
("perl-test-more" ,perl-test-most) ; FIXME: "more" would be sufficient
|
||
("perl-test-differences" ,perl-test-differences)))
|
||
(home-page "http://biblatex-biber.sourceforge.net/")
|
||
(synopsis "Backend for the BibLaTeX citation management tool")
|
||
(description "Biber is a BibTeX replacement for users of biblatex. Among
|
||
other things it comes with full Unicode support.")
|
||
(license license:artistic2.0)))
|
||
|
||
;; Our version of texlive comes with biblatex 3.4, which is only compatible
|
||
;; with biber 2.5 according to the compatibility matrix in the biber
|
||
;; documentation.
|
||
(define-public biber-2.5
|
||
(package (inherit biber)
|
||
(name "biber")
|
||
(version "2.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/plk/biber/archive/v"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"163sd343wkrzwnvj2003m2j0kz517jmjr4savw6f8bjxhj8fdrqv"))))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments biber)
|
||
((#:phases phases)
|
||
`(modify-phases ,phases
|
||
(add-before 'check 'delete-failing-test
|
||
(lambda _
|
||
(delete-file "t/sort-order.t")
|
||
#t))))))
|
||
(inputs
|
||
`(("perl-date-simple" ,perl-date-simple)
|
||
,@(package-inputs biber)))))
|
||
|
||
(define-public rubber
|
||
(package
|
||
(name "rubber")
|
||
(version "1.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "https://launchpad.net/rubber/trunk/"
|
||
version "/+download/rubber-"
|
||
version ".tar.gz")
|
||
(string-append "http://ebeffara.free.fr/pub/rubber-"
|
||
version ".tar.gz")))
|
||
(sha256
|
||
(base32
|
||
"1xbkv8ll889933gyi2a5hj7hhh216k04gn8fwz5lfv5iz8s34gbq"))))
|
||
(build-system gnu-build-system)
|
||
(arguments '(#:tests? #f)) ; no `check' target
|
||
(inputs `(("texinfo" ,texinfo)
|
||
("python" ,python-2) ; incompatible with Python 3 (print syntax)
|
||
("which" ,which)))
|
||
(home-page "https://launchpad.net/rubber")
|
||
(synopsis "Wrapper for LaTeX and friends")
|
||
(description
|
||
"Rubber is a program whose purpose is to handle all tasks related to the
|
||
compilation of LaTeX documents. This includes compiling the document itself,
|
||
of course, enough times so that all references are defined, and running BibTeX
|
||
to manage bibliographic references. Automatic execution of dvips to produce
|
||
PostScript documents is also included, as well as usage of pdfLaTeX to produce
|
||
PDF documents.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public texmaker
|
||
(package
|
||
(name "texmaker")
|
||
(version "4.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.xm1math.net/texmaker/texmaker-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"056njk6j8wma23mlp7xa3rgfaxx0q8ynwx8wkmj7iy0b85p9ds9c"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
;; Qt has its own configuration utility.
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(zero? (system* "qmake"
|
||
(string-append "PREFIX=" out)
|
||
(string-append "DESKTOPDIR=" out
|
||
"/share/applications")
|
||
(string-append "ICONDIR=" out "/share/pixmaps")
|
||
"texmaker.pro"))))))))
|
||
(inputs
|
||
`(("poppler-qt5" ,poppler-qt5)
|
||
("qtbase" ,qtbase)
|
||
("qtscript" ,qtscript)
|
||
("qtwebkit" ,qtwebkit)
|
||
("zlib" ,zlib)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "http://www.xm1math.net/texmaker/")
|
||
(synopsis "LaTeX editor")
|
||
(description "Texmaker is a program that integrates many tools needed to
|
||
develop documents with LaTeX, in a single application.")
|
||
(license license:gpl2+)))
|
||
|
||
|
||
(define-public teximpatient
|
||
(package
|
||
(name "teximpatient")
|
||
(version "2.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/" name "/" name "-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0h56w22d99dh4fgld4ssik8ggnmhmrrbnrn1lnxi1zr0miphn1sd"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'check)
|
||
;; Unfortunately some mistakes have been made in packaging.
|
||
;; Work around them here ...
|
||
(replace 'unpack
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((srcdir "teximpatient-2.4"))
|
||
(system* "tar" "-xzf" (assoc-ref inputs "source")
|
||
(string-append "--one-top-level=" srcdir))
|
||
(delete-file (string-append srcdir "/book.pdf"))
|
||
(install-file (car
|
||
(find-files
|
||
(assoc-ref inputs "automake")
|
||
"^install-sh$"))
|
||
srcdir)
|
||
(chdir srcdir)))))))
|
||
(native-inputs
|
||
`(("texlive" ,texlive)
|
||
("automake" ,automake)))
|
||
(home-page "https://www.gnu.org/software/teximpatient/")
|
||
(synopsis "Book on TeX, plain TeX and Eplain")
|
||
(description "@i{TeX for the Impatient} is a ~350 page book on TeX,
|
||
plain TeX, and Eplain, originally written by Paul Abrahams, Kathryn Hargreaves,
|
||
and Karl Berry.")
|
||
(license license:fdl1.3+)))
|