diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index a78995c804..f7d58424d9 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -524,3 +524,47 @@ (define-public font-tex-gyre 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)))