From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nils Gillmann Subject: Re: [PATCH] Add un-fonts (new patch, closes old thread) Date: Sun, 06 Mar 2016 17:43:14 +0100 Message-ID: <87wppfd0bh.fsf@grrlz.net> References: <878u1xq4g2.fsf@grrlz.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:59039) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1acbmP-0005iW-9U for guix-devel@gnu.org; Sun, 06 Mar 2016 11:43:42 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1acbmM-00053A-1T for guix-devel@gnu.org; Sun, 06 Mar 2016 11:43:41 -0500 Received: from plane.gmane.org ([80.91.229.3]:44616) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1acbmL-000536-R9 for guix-devel@gnu.org; Sun, 06 Mar 2016 11:43:37 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1acbmG-00078k-67 for guix-devel@gnu.org; Sun, 06 Mar 2016 17:43:32 +0100 Received: from xd9bb8d49.dyn.telefonica.de ([217.187.141.73]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 06 Mar 2016 17:43:32 +0100 Received: from niasterisk by xd9bb8d49.dyn.telefonica.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 06 Mar 2016 17:43:32 +0100 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 added correction and renamed package according to what I described and submitted in the messages in this thread. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-gnu-Add-font-un.patch >From a473a240fbea1ef6bd4bd2aeab1f5244c64ae385 Mon Sep 17 00:00:00 2001 From: Nils Gillmann Date: Sun, 6 Mar 2016 17:26:21 +0100 Subject: [PATCH] gnu: Add font-un. * gnu/packages/fonts.scm (font-un): New variable. --- gnu/packages/fonts.scm | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 72 insertions(+) diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 69e195d..c09d558 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -628,3 +628,75 @@ Unicode's Basic Multilingual Plane. The package also includes utilities to ease adding new glyphs to the font.") (home-page "http://unifoundry.com/unifont.html") (license license:gpl2+))) + +(define-public font-un + (package + (name "font-un") + (version "1.0.2-080608") + ;; The upstream server at kldp.net is serving us broken MIME. + ;; See . + (source (origin + (method url-fetch) + (uri (string-append + "http://krosos.sdf.org/static/unix/" + "un-fonts-core-" version "-080608" ".tar.gz")) + (uri (list + (string-append + "http://krosos.sdf.org/static/unix/" + "un-fonts-core-" version ".tar.gz") + ;; XXX: The upstream server at kldp.net + (string-append + "https://kldp.net/projects/unfonts/download/4695?filename=" + "un-fonts-core-" version ".tar.gz"))) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13liaz2pmww3aqabm55la5npd08m1skh334ky7qfidxaz5s742iv")))) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + + (let ((tar (string-append (assoc-ref %build-inputs "tar") + "/bin/tar")) + (PATH (string-append (assoc-ref %build-inputs "gzip") + "/bin")) + (font-dir (string-append %output "/share/fonts/truetype")) + (doc-dir (string-append %output "/share/doc/" ,name))) + (setenv "PATH" PATH) + (system* tar "xvf" (assoc-ref %build-inputs "source")) + (mkdir-p font-dir) + (mkdir-p doc-dir) + (chdir (string-append "un-fonts")) + (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)))) + '("COPYING" "README")))))) + (native-inputs + `(("source" ,source) + ("tar" ,tar) + ("gzip" ,gzip))) + (home-page "https://kldp.net/projects/unfonts/") + (synopsis + "Collection of Korean fonts.") + (description + "Un-fonts is a family of mainly Korean fonts. +It contains the following fonts and styles: +@enumerate +@item UnBatang, UnBatangBold: serif; +@item UnDotum, UnDotumBold: sans-serif; +@item UnGraphic, UnGraphicBold: sans-serif style; +@item UnDinaru, UnDinaruBold, UnDinaruLight; +@item UnPilgi, UnPilgiBold: script; +@item UnGungseo: cursive, brush-stroke. +") + ;; GPL + embed exception for documents / images + (license license:gpl2+))) -- 2.6.3 --=-=-= Content-Type: text/plain this succeds, although I should possibly rename the font directory. I will do this when I update the package to be font-un:core and font-un:extra. -- ng irc://loupsycedyglgamf.onion:67/~NiAsterisk https://psyced.org:34443/NiAsterisk/ EDN: https://wiki.c3d2.de/Echt_Dezentrales_Netz/en --=-=-=--