From 1e037b8dbb4c2249849922dceb637ee58ad33c65 Mon Sep 17 00:00:00 2001 From: 8p8c Date: Thu, 6 Oct 2016 00:02:58 +0300 Subject: [PATCH] Add PT Astra font. --- gnu/packages/fonts.scm | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index fe6c227..9482d7a 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -865,3 +865,46 @@ powerline support.") (license (license:x11-style "https://github.com/chrissimpkins/Hack/blob/master/LICENSE.md" "Hack Open Font License v2.0")))) + +(define-public font-pt-astra + (package + (name "font-pt-astra") + (version "1001") + (source (origin + (method url-fetch) + (uri (string-append + "http://astralinux.com/images/fonts/PTAstraSan&Serif_TTF_ver" + version + ".zip")) + (sha256 + (base32 + "11aaj3wq0z8f4w52axdb7ca44l7zm72cx7a1w11qvyl71bzl28ms")) + (file-name "font-pt-astra.zip"))) + (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) + (copy-file ttf + (string-append font-dir "/" ttf))) + (find-files "." "\\.ttf$")))))) + (native-inputs + `(("source" ,source) + ("unzip" ,unzip))) + (home-page "https://astralinux.com/fonts.html") + (synopsis "A typeface metric compatible with Times New Roman.") + (description "PT Astra is a free typeface which is metric +compatible with proprietary Times New Roman.") + (license license:silofl1.1))) -- 2.10.0