gnu: font-tex-gyre: Use 'font-build-system'.

* gnu/packages/fonts.scm (font-tex-gyre): Switch to font-build-system.
[source]: Use url-fetch/zipbomb.
master
Arun Isaac 2017-06-16 11:17:13 +05:30
parent 40b784b4c7
commit c226f06c59
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 2 additions and 17 deletions

View File

@ -555,28 +555,13 @@ fonts.")
(version "2.005") (version "2.005")
(source (source
(origin (origin
(method url-fetch) (method url-fetch/zipbomb)
(uri (string-append "http://www.gust.org.pl/projects/e-foundry/" (uri (string-append "http://www.gust.org.pl/projects/e-foundry/"
"tex-gyre/whole/tg-" version "otf.zip")) "tex-gyre/whole/tg-" version "otf.zip"))
(sha256 (sha256
(base32 (base32
"0kph9l3g7jb2bpmxdbdg5zl56wacmnvdvsdn7is1gc750sqvsn31")))) "0kph9l3g7jb2bpmxdbdg5zl56wacmnvdvsdn7is1gc750sqvsn31"))))
(build-system trivial-build-system) (build-system font-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let ((unzip (string-append (assoc-ref %build-inputs "unzip")
"/bin/unzip"))
(font-dir (string-append %output "/share/fonts/opentype")))
(mkdir-p font-dir)
(system* unzip
(assoc-ref %build-inputs "source")
"-d" font-dir)))))
(native-inputs
`(("unzip" ,unzip)))
(home-page "http://www.gust.org.pl/projects/e-foundry/tex-gyre/") (home-page "http://www.gust.org.pl/projects/e-foundry/tex-gyre/")
(synopsis "Remake of Ghostscript fonts") (synopsis "Remake of Ghostscript fonts")
(description "The TeX Gyre collection of fonts is the result of an (description "The TeX Gyre collection of fonts is the result of an