@@ 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)))