Paste number 343860: | cns fonts guix |
Pasted by: | Brendan |
When: | 3 years, 10 months ago |
Share: | Tweet this! | http://paste.lisp.org/+7DBO |
Channel: | None |
Paste contents: |
(define (font-cns11643 style)
(package
(name (string-append "font-cns11643-" style))
(version "98.1")
(source
(origin
(method url-fetch)
(uri "http://127.0.0.1/pp94dir9f02qcwx13z78d6djb6psizx1-Open_Data.zip")
;(uri "http://www.cns11643.gov.tw/AIDB/Open_Data.zip")
(sha256
(base32
"1q3pq8cdg7vd773an68djlm8ck7hzw2b4s6vhzmnylagapyp8w5h"
;"0zhw95ghazqbp28j16cvazr407ab5r1wv0imzkndnazbblnrxb0q"
))))
(build-system trivial-build-system)
(native-inputs
`(("unzip" ,unzip)))
(arguments
`(#:modules ((guix build utils))
#:builder (begin
(use-modules (guix build utils))
(let ((font-dir
(string-append %output "/share/fonts/truetype/cns11643"))
(unzip
(string-append (assoc-ref %build-inputs "unzip")
"/bin/unzip"))
(capitalised-style (string-capitalize! style)))
(system* unzip (assoc-ref %build-inputs "source"))
(chdir "Open_Data/Fonts/")
(mkdir-p font-dir)
(install-file (string-append "TW-" capitalized-style "-98_1.ttf") font-dir)
(install-file (string-append "TW-" capitalised-style "-Ext-B-98_1.ttf") font-dir)
(install-file (string-append "TW-" capitalized-style "-Plus-98_1.ttf") font-dir)
))))
(home-page "ttt")
(synopsis "ttt")
(description "ttt")
(license license:expat))
;;http://http.debian.net/debian/pool/main/f/fonts-cns11643/fonts-cns11643_98.1+20150923.orig.tar.xz
;;
)
(define-public font-cns11643-kai (font-cns11643 "kai"))
This paste has no annotations.