gnu: font-google-noto: Use font-build-system.

* gnu/packages/fonts.scm (font-google-noto)[build-system]: Use
font-build-system.
[source]: Use url-fetch/zipbomb.
[arguments]: Remove it.
[native-inputs]: Remove it.

Signed-off-by: Ricardo Wurmus <rekado@elephly.net>
This commit is contained in:
ng0 2017-08-08 12:37:27 +00:00 committed by Ricardo Wurmus
parent d534f3a4d3
commit 2f7966c8e2
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 3 additions and 24 deletions

View File

@ -622,35 +622,14 @@ utilities to ease adding new glyphs to the font.")
(name "font-google-noto")
(version "20170403")
(source (origin
(method url-fetch)
(method url-fetch/zipbomb)
(uri (string-append "https://noto-website.storage.googleapis.com/"
"pkgs/Noto-hinted.zip"))
(file-name (string-append name "-" version ".zip"))
(sha256
(base32
"1p92a6dvs7wqwjfpp1ahr9z1wz35am0l8r78521383spd77bmrfm"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder (begin
(use-modules (guix build utils)
(srfi srfi-26))
(let ((PATH (string-append (assoc-ref %build-inputs
"unzip")
"/bin"))
(font-dir (string-append %output
"/share/fonts/truetype")))
(setenv "PATH" PATH)
(system* "unzip" (assoc-ref %build-inputs "source"))
(mkdir-p font-dir)
(for-each (lambda (ttf)
(install-file ttf font-dir))
(find-files "." "\\.ttf$"))
(for-each (lambda (otf)
(install-file otf font-dir))
(find-files "." "\\.otf$"))))))
(native-inputs `(("unzip" ,unzip)))
(build-system font-build-system)
(home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support