gnu: Add font-cns11643.

* gnu/packages/fonts.scm (font-cns11643): New variable.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>
This commit is contained in:
Brendan Tildesley 2017-04-29 04:30:48 +10:00 committed by Marius Bakke
parent 99aa2dce5d
commit 840b713613
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA

@ -18,6 +18,7 @@
;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.com>
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Brendan Tildesley <brendan.tildesley@openmailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -522,6 +523,66 @@ fonts are intended to support the characters necessary to render or display
text in Simplified Chinese, Traditional Chinese, Japanese, and Korean.")
(license license:silofl1.1)))
(define-public font-cns11643
(package
(name "font-cns11643")
(version "98.1.20170405")
(source (origin
(method url-fetch)
(uri "http://www.cns11643.gov.tw/AIDB/Open_Data.zip")
(sha256
(base32
"02kb3bwjrra0k2hlr2p8xswd2y0xs6j8d9vm6yrby734h02a40qf"))))
(outputs '("out" "tw-kai" "tw-sung"))
(build-system trivial-build-system)
(native-inputs
`(("unzip" ,unzip)))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((font-dir "/share/fonts/truetype/cns11643")
(out (string-append
(assoc-ref %outputs "out") font-dir))
(tw-kai (string-append
(assoc-ref %outputs "tw-kai") font-dir))
(tw-sung (string-append
(assoc-ref %outputs "tw-sung") font-dir))
(unzip (string-append
(assoc-ref %build-inputs "unzip") "/bin/unzip")))
(system* unzip (assoc-ref %build-inputs "source"))
(chdir "Open_Data/Fonts/")
(install-file "TW-Kai-98_1.ttf" tw-kai)
(install-file "TW-Sung-98_1.ttf" tw-sung)
(install-file "TW-Kai-98_1.ttf" out)
(install-file "TW-Kai-Ext-B-98_1.ttf" out)
(install-file "TW-Kai-Plus-98_1.ttf" out)
(install-file "TW-Sung-98_1.ttf" out)
(install-file "TW-Sung-Ext-B-98_1.ttf" out)
(install-file "TW-Sung-Plus-98_1.ttf" out)
#t))))
(home-page "http://www.cns11643.gov.tw/AIDB/welcome.do")
(synopsis "CJK TrueType fonts, TW-Kai and TW-Sung")
(description
"@code{CNS 11643} character set (Chinese National Standard, or Chinese
Standard Interchange Code) is the standard character set of the Republic of
China (Taiwan) for Chinese Characters and other Unicode symbols. Contained
are six TrueType fonts based on two script styles, Regular script (Kai), and
Sung/Ming script, each with three variants:
@itemize
@item @code{CNS 11643} (@code{TW-Kai} and @code{TW-Sung}): Tens of thousands
of CJK characters from frequency tables published by the Taiwanese
Ministry of Education. ISO 10646 and Unicode compatible encoding.
@item @code{Big-5 Plus}: Several thousand frequently used CJK characters
encoded in the user defined area of the Big-5 code.
@item @code{Big-5 Extended}: A Big-5 character set based on the
@code{Big-5 Plus} and @code{CNS 11643} character sets.
@end itemize\n")
(license (license:non-copyleft
"http://data.gov.tw/license")))) ; CC-BY 4.0 compatible
(define-public font-wqy-zenhei
(package
(name "font-wqy-zenhei")