~ruther/guix-local

824e5fe6404e6ae42ffab3270326b4e6da9c8223 — José Miguel Sánchez García 9 years ago be4f149
gnu: Add font-google-material-design-icons.

* gnu/packages/font.scm (font-google-material-design-icons): New
variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
1 files changed, 48 insertions(+), 0 deletions(-)

M gnu/packages/fonts.scm
M gnu/packages/fonts.scm => gnu/packages/fonts.scm +48 -0
@@ 1142,3 1142,51 @@ Holmes type foundry, released under the same license as the Go programming
language.  It includes a set of proportional, sans-serif fonts, and a set of
monospace, slab-serif fonts.")
     (license (package-license go-1.4)))))

(define-public font-google-material-design-icons
  (package
   (name "font-google-material-design-icons")
   (version "3.0.1")
   (source (origin
            (method url-fetch)
            (uri (string-append
                   "https://github.com/google/material-design-icons/archive/"
                    version ".tar.gz"))
            (sha256
             (base32
              "183n0qv3q8w6n27libarq1fhc4mqv2d3sasbfmbn7x9r5pw9c6ga"))
            (file-name (string-append name "-" version ".tar.gz"))))
   (build-system trivial-build-system)
   (native-inputs
    `(("tar" ,tar)
      ("gzip" ,gzip)))
   (arguments
    `(#:modules ((guix build utils))
      #:builder (begin
                  (use-modules (guix build utils))
                  (let* ((font-dir (string-append %output
                                                  "/share/fonts/truetype"))
                         (source (assoc-ref %build-inputs "source"))
                         (font-filename "MaterialIcons-Regular.ttf")
                         (src-ttf-file (string-append "material-design-icons-"
                                                      ,version
                                                      "/iconfont/"
                                                      font-filename))
                         (dest-ttf-file (string-append font-dir font-filename))
                         (gzip (assoc-ref %build-inputs "gzip"))
                         (tar (assoc-ref %build-inputs "tar")))
                    (setenv "PATH" (string-append gzip "/bin:"
                                                  tar "/bin:"))
                    (system* "tar" "xf" source)
                    (mkdir-p font-dir)
                    (copy-file src-ttf-file dest-ttf-file)))))
   (home-page "http://google.github.io/material-design-icons")
   (synopsis "Icon font of Google Material Design icons")
   (description
    "Material design system icons are simple, modern, friendly, and sometimes
quirky.  Each icon is created using our design guidelines to depict in simple
and minimal forms the universal concepts used commonly throughout a UI.
Ensuring readability and clarity at both large and small sizes, these icons
have been optimized for beautiful display on all common platforms and display
resolutions.")
   (license license:asl2.0)))