>From 42e291f301925f766436570fa8efabde51ef89a2 Mon Sep 17 00:00:00 2001
From: Alex Kost <address@hidden>
Date: Wed, 22 Oct 2014 20:36:33 +0400
Subject: [PATCH] gnu: Add ttf-symbola.

* gnu/packages/fonts.scm (ttf-symbola): New variable.
---
 gnu/packages/fonts.scm | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 7c95666..188f7b0 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2013 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2014 Mark H Weaver <address@hidden>
 ;;; Copyright © 2014 Guy Grant <address@hidden>
+;;; Copyright © 2014 Alex Kost <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -26,6 +27,7 @@
   #:use-module (guix build-system trivial)
   #:use-module ((gnu packages base)
                 #:select (tar))
+  #:use-module (gnu packages zip)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages xorg)
@@ -240,3 +242,52 @@ for long (8 and more hours per day) work with computers.")
     (license
      (license:x11-style
       "http://scripts.sil.org/cms/scripts/page.php?item_id=OFL_web"))))
+
+(define-public ttf-symbola
+  (package
+    (name "ttf-symbola")
+    (version "7.17")
+    (source (origin
+              (method url-fetch)
+              (uri "http://users.teilar.gr/~g1951d/Symbola.zip")
+              (sha256
+               (base32
+                "19q5wcqk1rz8ps7jvvx1rai6x8ais79z71sm8d36hvsk2vr135al"))))
+    (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)
+           (for-each (lambda (ttf)
+                       (copy-file ttf
+                                  (string-append font-dir "/"
+                                                 (basename ttf))))
+                     (find-files "." "\\.ttf$"))
+           (for-each (lambda (doc)
+                       (copy-file doc
+                                  (string-append doc-dir "/"
+                                                 (basename doc))))
+                     (find-files "." "\\.docx$|\\.htm$"))))))
+    (native-inputs
+     `(("source" ,source)
+       ("unzip" ,unzip)))
+    (home-page "http://users.teilar.gr/~g1951d/")
+    (synopsis "Font with many Unicode symbols")
+    (description
+     "Symbola is a TrueType font providing basic Latin, Greek, Cyrillic and many
+Symbol blocks of Unicode.")
+    (license
+     (license:fsf-free
+      "http://users.teilar.gr/~g1951d/"
+      "In lieu of a licence: Fonts in this site are offered free for any use;
+they may be opened, edited, modified, regenerated, posted, packaged and
+redistributed."))))
-- 
2.1.2