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.")))
|