(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"))