From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH] gnu: Add ttf-symbola. Date: Wed, 22 Oct 2014 20:51:04 +0400 Message-ID: <87iojcdp53.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60163) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xgz7y-0004un-E1 for guix-devel@gnu.org; Wed, 22 Oct 2014 12:51:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xgz7s-0006Gj-AO for guix-devel@gnu.org; Wed, 22 Oct 2014 12:51:14 -0400 Received: from mail-lb0-x233.google.com ([2a00:1450:4010:c04::233]:38254) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xgz7q-0006GK-Lp for guix-devel@gnu.org; Wed, 22 Oct 2014 12:51:08 -0400 Received: by mail-lb0-f179.google.com with SMTP id l4so3182000lbv.38 for ; Wed, 22 Oct 2014 09:51:05 -0700 (PDT) Received: from leviafan (128-74-164-65.broadband.corbina.ru. [128.74.164.65]) by mx.google.com with ESMTPSA id w8sm6006620lbp.46.2014.10.22.09.51.04 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Wed, 22 Oct 2014 09:51:04 -0700 (PDT) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable This font may be useful for resolving some symbols (like =F0=9F=90=BC, =F0= =9F=98=BB) in Emacs. I don't know what license should be used, as the only mention about the license is the following note from : =C2=ABIn 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.=C2=BB Is it OK to use "fsf-free" for this package? --=-=-= Content-Type: text/x-diff; charset=utf-8 Content-Disposition: attachment; filename=0001-gnu-Add-ttf-symbola.patch Content-Transfer-Encoding: quoted-printable >From 42e291f301925f766436570fa8efabde51ef89a2 Mon Sep 17 00:00:00 2001 From: Alex Kost 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 =C2=A9 2013 Ludovic Court=C3=A8s ;;; Copyright =C2=A9 2014 Mark H Weaver ;;; Copyright =C2=A9 2014 Guy Grant +;;; Copyright =C2=A9 2014 Alex Kost ;;; ;;; 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 computer= s.") (license (license:x11-style "http://scripts.sil.org/cms/scripts/page.php?item_id=3DOFL_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 an= d 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 u= se; +they may be opened, edited, modified, regenerated, posted, packaged and +redistributed.")))) --=20 2.1.2 --=-=-=--