Paste number 343860: cns fonts guix

Paste number 343860: cns fonts guix
Pasted by: Brendan
When:3 years, 1 month ago
Share:Tweet this! |
Paste contents:
Raw Source | XML | Display As

(define (font-cns11643 style)
    (name (string-append "font-cns11643-" style))
    (version "98.1")
       (method url-fetch)
       (uri "")
       ;(uri "")
    (build-system trivial-build-system)
     `(("unzip" ,unzip)))
     `(#:modules ((guix build utils))
       #:builder (begin
                   (use-modules (guix build utils))
                   (let ((font-dir
                          (string-append %output "/share/fonts/truetype/cns11643"))
                          (string-append (assoc-ref %build-inputs "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))
(define-public font-cns11643-kai (font-cns11643 "kai"))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.