This font may be useful for resolving some symbols (like 🐼, 😻) in Emacs.
I don't know what license should be used, as the only mention about the
license is the following note from <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.»
Is it OK to use "fsf-free" for this package?
>From 42e291f301925f766436570fa8efabde51ef89a2 Mon Sep 17 00:00:00 2001
From: Alex Kost <alez...@gmail.com>
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 <l...@gnu.org>
;;; Copyright © 2014 Mark H Weaver <m...@netris.org>
;;; Copyright © 2014 Guy Grant <tadn...@gnu.org>
+;;; Copyright © 2014 Alex Kost <alez...@gmail.com>
;;;
;;; 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
