From ba987b01c4e394989989c0647e292117cf6faf82 Mon Sep 17 00:00:00 2001 From: ng0 Date: Sat, 5 Aug 2017 17:21:23 +0000 Subject: [PATCH] gnu: Add font-lato. * gnu/packages/fonts.scm (font-lato): New variable. --- gnu/packages/fonts.scm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 51073eff9..8cdef4689 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -170,6 +170,45 @@ itself.")))) sans-serif designed for on-screen reading. It is used by address@hidden") (license license:silofl1.1))) +(define-public font-lato + (package + (name "font-lato") + (version "2.010") + (source (origin + (method url-fetch) + (uri (string-append "http://www.latofonts.com/download/Lato2OFL.zip")) + (sha256 + (base32 + "1f5540g0ja1nx3ddd3ywn77xc81ssrxpq8n3gyb9sabyq2b4xda2")))) + (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$")))))) + + (native-inputs `(("unzip" ,unzip))) + (home-page "http://www.latofonts.com/lato-free-fonts/") + (synopsis "Lato sans-serif typeface") + (description + "Lato is a sanserif typeface family. It covers over 3000 glyphs per style. +The Lato 2.010 family supports more than 100 Latin-based languages, over +50 Cyrillic-based languages as well as Greek and IPA phonetics.") + (license license:silofl1.1))) + (define-public font-gnu-freefont-ttf (package (name "font-gnu-freefont-ttf") -- 2.13.4