[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: gnu: Add Anonymous Pro fonts.
From: |
Alex Kost |
Subject: |
01/03: gnu: Add Anonymous Pro fonts. |
Date: |
Sun, 06 Sep 2015 09:40:22 +0000 |
alezost pushed a commit to branch master
in repository guix.
commit 761b3d44fb826f0707d32afce4edfb749dcda0e4
Author: Leo Famulari <address@hidden>
Date: Thu Sep 3 17:53:51 2015 -0400
gnu: Add Anonymous Pro fonts.
* gnu/packages/fonts.scm (font-anonymous-pro): New variable.
Signed-off-by: Alex Kost <address@hidden>
---
gnu/packages/fonts.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 44 insertions(+), 0 deletions(-)
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index a78995c..f7d5842 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -524,3 +524,47 @@ distributed with Ghostscript version 4.00. The collection
contains the
following fonts in the OpenType format: Adventor, Bonum, Chorus, Cursor,
Heros, Pagella, Schola, Termes.")
(license license:gfl1.0)))
+
+(define-public font-anonymous-pro
+ (package
+ (name "font-anonymous-pro")
+ (version "1.002")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "http://www.marksimonson.com/assets/content/fonts/"
+ "AnonymousPro-" version ".zip"))
+ (sha256
+ (base32
+ "1asj6lykvxh46czbal7ymy2k861zlcdqpz8x3s5bbpqwlm3mhrl6"))))
+ (build-system trivial-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/truetype"))
+ (doc-dir (string-append %output "/share/doc/" ,name)))
+ (system* unzip (assoc-ref %build-inputs "source"))
+ (mkdir-p font-dir)
+ (mkdir-p doc-dir)
+ (chdir (string-append "AnonymousPro-" ,version ".001"))
+ (for-each (lambda (ttf)
+ (copy-file ttf
+ (string-append font-dir "/" ttf)))
+ (find-files "." "\\.ttf$"))
+ (for-each (lambda (doc)
+ (copy-file doc
+ (string-append doc-dir "/" doc)))
+ (find-files "." "\\.txt$"))))))
+ (native-inputs
+ `(("unzip" ,unzip)))
+ (home-page "http://www.marksimonson.com/fonts/view/anonymous-pro")
+ (synopsis "Fixed-width fonts designed with coding in mind")
+ (description "Anonymous Pro is a family of four fixed-width fonts designed
+with coding in mind. Anonymous Pro features an international, Unicode-based
+character set, with support for most Western and Central European Latin-based
+languages, plus Greek and Cyrillic.")
+ (license license:silofl1.1)))