diff options
| author | Eric Dvorsak <eric@dvorsak.fr> | 2015-08-17 01:04:26 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-08-20 16:40:10 +0200 |
| commit | e93b88f78282db11b914544cb162c7e3bdf6021d (patch) | |
| tree | b76cf02008162b6388ec964cc8721e94ef23f2d0 | |
| parent | a6dcdcac762b0396b529a3794186f31da8779338 (diff) | |
| download | guix-e93b88f78282db11b914544cb162c7e3bdf6021d.tar.gz | |
gnu: Add font-ubuntu.
* gnu/packages/fonts/scm (font-ubuntu): New variable. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/fonts.scm | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index f72c542fda..694f7263eb 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2014 Joshua Grant <tadni@riseup.net> ;;; Copyright © 2014 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> +;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,10 +29,62 @@ #:use-module (guix build-system trivial) #:use-module (gnu packages base) #:use-module (gnu packages compression) + #:use-module (gnu packages zip) #:use-module (gnu packages perl) #:use-module (gnu packages xorg) #:use-module (gnu packages pkg-config)) +(define-public font-ubuntu + (package + (name "font-ubuntu") + (version "0.80") + (source (origin + (method url-fetch) + (uri (string-append "http://font.ubuntu.com/download/ubuntu-font-family-" + version ".zip")) + (sha256 + (base32 + "0k4f548riq23gmw4zhn30qqkcpaj4g2ab5rbc3lflfxwkc4p0w8h")))) + (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")) + (doc-dir (string-append %output "/share/doc/" + ,name "-" ,version))) + (setenv "PATH" PATH) + (system* "unzip" (assoc-ref %build-inputs "source")) + + (mkdir-p font-dir) + (mkdir-p doc-dir) + (chdir (string-append "ubuntu-font-family-" ,version)) + (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 `(("source" ,source) + ("unzip" ,unzip))) + (home-page "http://font.ubuntu.com/") + (synopsis "The Ubuntu Font Family") + (description "The Ubuntu Font Family is a unique, custom designed font +that has a very distinctive look and feel. This package provides the +TrueType (TTF) files.") + (license + (license:non-copyleft + "http://font.ubuntu.com/ufl/ubuntu-font-licence-1.0.txt" + "Ubuntu Font License v1.0")))) + (define-public font-dejavu (package (name "font-dejavu") |