Re: [PATCH] gnu: Add font-awesome.

[ng0]

Jose Miguel Sánchez García <address@hidden> writes:

> --
>
> José Miguel Sánchez García
>
> From d4eb96046e2bd0538b16880295a5cd05275de7f8 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Jos=C3=A9=20Miguel=20S=C3=A1nchez=20Garc=C3=ADa?=
>  <address@hidden>
> Date: Sat, 28 Jan 2017 13:42:09 +0100
> Subject: [PATCH] gnu: Add font-awesome.
>
> * gnu/packages/fonts.scm (font-awesome): New variable.

Cool, thanks :)

> ---
>  gnu/packages/fonts.scm | 38 ++++++++++++++++++++++++++++++++++++++
>  1 file changed, 38 insertions(+)
>
> diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
> index 29ae579ba..a72c2df79 100644
> --- a/gnu/packages/fonts.scm
> +++ b/gnu/packages/fonts.scm
> @@ -15,6 +15,7 @@
>  ;;; Copyright © 2016 Marius Bakke <address@hidden>
>  ;;; Copyright © 2016 Toni Reina <address@hidden>
>  ;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
> +;;; Copyright © 2017 José Miguel Sánchez García <address@hidden>
>  ;;;
>  ;;; This file is part of GNU Guix.
>  ;;;
> @@ -996,3 +997,40 @@ designed to work well in user interface environments.")
>      (synopsis "Mozilla's monospace font")
>      (description "This is the typeface used by Mozilla in Firefox OS.")
>      (license license:silofl1.1)))
> +
> +(define-public font-awesome
> +  (package
> +   (name "font-awesome")
> +   (version "4.7.0")
> +   (source (origin
> +            (method url-fetch)
> +            (uri (string-append "http://fontawesome.io/assets/";
> +                                name "-" version ".zip"))
> +            (sha256
> +             (base32
> +              "1frhmw41lnnm9rda2zs202pvfi5vzlrsw4xfp4mswl0qgws61mcd"))))
> +   (build-system trivial-build-system)
> +   (native-inputs
> +    `(("unzip" ,unzip)))
> +   (arguments
> +    `(#:modules ((guix build utils))
> +      #:builder (begin
> +                  (use-modules (guix build utils))
> +                  (let* ((font-dir (string-append %output
> +                                                  "/share/fonts/opentype"))
> +                         (source (assoc-ref %build-inputs "source"))
> +                         (src-otf-file (string-append "font-awesome-"
> +                                                      ,version
> +                                                      
> "/fonts/FontAwesome.otf"))
> +                         (dest-otf-file (string-append font-dir 
> "/FontAwesome.otf"))
> +                         (unzip (assoc-ref %build-inputs "unzip")))
> +                    (setenv "PATH" (string-append unzip "/bin"))
> +                    (mkdir-p font-dir)
> +                    (system* "unzip" source "-d" ".")
> +                    (copy-file src-otf-file dest-otf-file)))))
> +   (home-page "http://fontawesome.io";)
> +   (synopsis "Font that contains an rich iconset")
> +   (description
> +    "Font Awesome is a full suite of pictographic icons for easy scalable
> +vector graphics.")
> +   (license license:silofl1.1)))
> -- 
> 2.11.0
>

Looks good to me!
-- 
ng0 -- https://www.inventati.org/patternsinthechaos/