172 lines
7.1 KiB
Scheme
172 lines
7.1 KiB
Scheme
(define-module (ambrevar tex)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (gnu packages tex)
|
||
#:use-module (guix build-system texlive)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (guix svn-download)
|
||
#:use-module (ice-9 ftw)
|
||
#:use-module (ice-9 match)
|
||
#:use-module ((srfi srfi-1) #:hide (zip)))
|
||
|
||
;; TODO: Marvosym fonts build but they can't be used properly.
|
||
;; http://www.tug.org/svn/texlive/tags/texlive-2017.1/Master/texmf-dist/source/fonts/marvosym/
|
||
;; https://github.com/mojca/marvosym
|
||
;; Check out texlive-fonts-ec, we need to patch some PATHS.
|
||
(define-public texlive-fonts-marvosym
|
||
(package
|
||
(name "texlive-fonts-marvosym")
|
||
(version (number->string %texlive-revision))
|
||
(source (origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
||
%texlive-tag "/Master/texmf-dist/"
|
||
"/tex/latex/marvosym"))
|
||
(revision %texlive-revision)))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"0qhrccc340ipmq93jh8dmpai81dk46wi34impd6lrzx72fi17s7g"))))
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build utils)
|
||
(ice-9 match))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils)
|
||
(ice-9 match))
|
||
(let ((root (string-append (assoc-ref %outputs "out")
|
||
"/share/texmf-dist/"))
|
||
(pkgs '(("source" . "tex/latex/marvosym")
|
||
("marvosym-truetype" . "fonts/truetype/public/marvosym")
|
||
("marvosym-afm" . "fonts/afm/public/marvosym")
|
||
("marvosym-tfm" . "fonts/tfm/public/marvosym")
|
||
("marvosym-type1" . "fonts/type1/public/marvosym")
|
||
;; ("marvosym-enc" . "fonts/enc/dvips/marvosym")
|
||
("marvosym-map" . "fonts/map/dvips/marvosym"))))
|
||
(for-each (match-lambda
|
||
((pkg . dir)
|
||
(let ((target (string-append root dir)))
|
||
(mkdir-p target)
|
||
(copy-recursively (assoc-ref %build-inputs pkg)
|
||
target))))
|
||
pkgs)
|
||
#t))))
|
||
(native-inputs
|
||
`(("marvosym-tfm"
|
||
,(origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
||
%texlive-tag "/Master/texmf-dist/"
|
||
"/fonts/tfm/public/marvosym"))
|
||
(revision %texlive-revision)))
|
||
(file-name (string-append name "-tfm-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1912j5p59baij47cr793jsjsp465077g990iif6vm6bgg7ha8b2v"))))
|
||
("marvosym-afm"
|
||
,(origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
||
%texlive-tag "/Master/texmf-dist/"
|
||
"/fonts/afm/public/marvosym"))
|
||
(revision %texlive-revision)))
|
||
(file-name (string-append name "-afm-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"09jb393ivgnk4brx8jgll5dpfx2hqb2h94i94lqv30snbnhw93k8"))))
|
||
("marvosym-type1"
|
||
,(origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
||
%texlive-tag "/Master/texmf-dist/"
|
||
"/fonts/type1/public/marvosym"))
|
||
(revision %texlive-revision)))
|
||
(file-name (string-append name "-type1-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"19kri8lf2z6j3b74iczppj01j28m3v2qbwq9507nxswfjxxlmb22"))))
|
||
("marvosym-truetype"
|
||
,(origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
||
%texlive-tag "/Master/texmf-dist/"
|
||
"/fonts/truetype/public/marvosym"))
|
||
(revision %texlive-revision)))
|
||
(file-name (string-append name "-truetype-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1x4yrpwwjfvhfvcby9w4dv0kdsgz0ic0c0i5zg1h692grvc0rzar"))))
|
||
("marvosym-map"
|
||
,(origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
||
%texlive-tag "/Master/texmf-dist/"
|
||
"/fonts/map/dvips/marvosym"))
|
||
(revision %texlive-revision)))
|
||
(file-name (string-append name "-map-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1ybwqpwmr79ma9sf0c7apyadhldzsxbwbqgnracaiy810mjzychf"))))))
|
||
(home-page "https://www.ctan.org/pkg/threeparttable")
|
||
(synopsis "Martin Vogel's Symbols (marvosym) font")
|
||
(description
|
||
"Martin Vogel’s Symbol font (marvosym) contains the Euro currency symbol as
|
||
;; defined by the European commission, along with symbols for structural
|
||
;; engineering; symbols for steel cross-sections; astronomy signs (sun, moon,
|
||
;; planets); the 12 signs of the zodiac; scissor symbols; CE sign and others.
|
||
|
||
;; The package contains both the original TrueType font and the derived Type 1
|
||
;; font, together with support files for TeX (LaTeX).")
|
||
;; TODO: Fix license.
|
||
(license license:gpl3+)))
|
||
|
||
(define-public texlive-medium
|
||
(package
|
||
(inherit
|
||
(texlive-union
|
||
(list
|
||
texlive-latex-oberdiek
|
||
texlive-generic-ifxetex
|
||
texlive-latex-wrapfig
|
||
texlive-fonts-amsfonts ; For custom letter?
|
||
;; texlive-dvips ; For custom letter and marvosym? Already in texlive-union?
|
||
;; texlive-latex-amscls
|
||
texlive-latex-amsfonts
|
||
;; texlive-latex-amsmath
|
||
;; texlive-latex-amsrefs
|
||
texlive-latex-capt-of
|
||
texlive-latex-hyperref
|
||
texlive-latex-url
|
||
;; For custom letter
|
||
texlive-fonts-ec
|
||
texlive-latex-geometry
|
||
texlive-latex-xcolor
|
||
;; For custom letter
|
||
texlive-fonts-marvosym
|
||
texlive-latex-eukdate
|
||
texlive-latex-needspace
|
||
;; TODO: Does needspace needs microtype?
|
||
texlive-latex-pgf
|
||
texlive-generic-ulem
|
||
;; For asymptote
|
||
;; TODO: Can asymptote be used without those? If not, add to propagated-input?
|
||
texlive-latex-media9
|
||
texlive-latex-l3kernel
|
||
texlive-latex-l3packages
|
||
texlive-latex-ocgx2
|
||
;; For atlas document
|
||
texlive-latex-enumitem
|
||
;; For org-letter
|
||
texlive-latex-koma-script
|
||
texlive-latex-ms)))
|
||
(name "texlive-medium")
|
||
(description "This is a very limited subset of the TeX Live distribution.
|
||
It includes little more than texlive-tiny.")))
|