|
|
|
|
|
#lang racket/base
|
|
|
|
|
|
(require "racket.rkt")
|
|
|
|
|
|
|
|
|
|
|
|
(require "default-shaper.rkt")
|
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
|
|
|
|
|
|
#|
|
|
|
|
|
|
approximates
|
|
|
|
|
|
https://github.com/mbutterick/fontkit/blob/master/src/opentype/shapers/index.js
|
|
|
|
|
|
|#
|
|
|
|
|
|
|
|
|
|
|
|
;; todo: alternative shapers
|
|
|
|
|
|
(define SHAPERS
|
|
|
|
|
|
(hasheq
|
|
|
|
|
|
; 'arab ArabicShaper ;; Arabic
|
|
|
|
|
|
; 'mong ArabicShaper ;; Mongolian
|
|
|
|
|
|
; 'syrc ArabicShaper ;; Syriac
|
|
|
|
|
|
; '|nko | ArabicShaper ;; N'Ko
|
|
|
|
|
|
; 'phag ArabicShaper ;; Phags Pa
|
|
|
|
|
|
; 'mand ArabicShaper ;; Mandaic
|
|
|
|
|
|
; 'mani ArabicShaper ;; Manichaean
|
|
|
|
|
|
; 'phlp ArabicShaper ;; Psalter Pahlavi
|
|
|
|
|
|
;
|
|
|
|
|
|
; 'hang HangulShaper ;; Hangul
|
|
|
|
|
|
;
|
|
|
|
|
|
; 'bali UniversalShaper ;; Balinese
|
|
|
|
|
|
; 'batk UniversalShaper ;; Batak
|
|
|
|
|
|
; 'brah UniversalShaper ;; Brahmi
|
|
|
|
|
|
; 'bugi UniversalShaper ;; Buginese
|
|
|
|
|
|
; 'buhd UniversalShaper ;; Buhid
|
|
|
|
|
|
; 'cakm UniversalShaper ;; Chakma
|
|
|
|
|
|
; 'cham UniversalShaper ;; Cham
|
|
|
|
|
|
; 'dupl UniversalShaper ;; Duployan
|
|
|
|
|
|
; 'egyp UniversalShaper ;; Egyptian Hieroglyphs
|
|
|
|
|
|
; 'gran UniversalShaper ;; Grantha
|
|
|
|
|
|
; 'hano UniversalShaper ;; Hanunoo
|
|
|
|
|
|
; 'java UniversalShaper ;; Javanese
|
|
|
|
|
|
; 'kthi UniversalShaper ;; Kaithi
|
|
|
|
|
|
; 'kali UniversalShaper ;; Kayah Li
|
|
|
|
|
|
; 'khar UniversalShaper ;; Kharoshthi
|
|
|
|
|
|
; 'khoj UniversalShaper ;; Khojki
|
|
|
|
|
|
; 'sind UniversalShaper ;; Khudawadi
|
|
|
|
|
|
; 'lepc UniversalShaper ;; Lepcha
|
|
|
|
|
|
; 'limb UniversalShaper ;; Limbu
|
|
|
|
|
|
; 'mahj UniversalShaper ;; Mahajani
|
|
|
|
|
|
; ';; mand UniversalShaper ;; Mandaic
|
|
|
|
|
|
; ';; mani UniversalShaper ;; Manichaean
|
|
|
|
|
|
; 'mtei UniversalShaper ;; Meitei Mayek
|
|
|
|
|
|
; 'modi UniversalShaper ;; Modi
|
|
|
|
|
|
; ';; mong UniversalShaper ;; Mongolian
|
|
|
|
|
|
; ';; 'nko ' UniversalShaper ;; N’Ko
|
|
|
|
|
|
; 'hmng UniversalShaper ;; Pahawh Hmong
|
|
|
|
|
|
; ';; phag UniversalShaper ;; Phags-pa
|
|
|
|
|
|
; ';; phlp UniversalShaper ;; Psalter Pahlavi
|
|
|
|
|
|
; 'rjng UniversalShaper ;; Rejang
|
|
|
|
|
|
; 'saur UniversalShaper ;; Saurashtra
|
|
|
|
|
|
; 'shrd UniversalShaper ;; Sharada
|
|
|
|
|
|
; 'sidd UniversalShaper ;; Siddham
|
|
|
|
|
|
; 'sinh UniversalShaper ;; Sinhala
|
|
|
|
|
|
; 'sund UniversalShaper ;; Sundanese
|
|
|
|
|
|
; 'sylo UniversalShaper ;; Syloti Nagri
|
|
|
|
|
|
; 'tglg UniversalShaper ;; Tagalog
|
|
|
|
|
|
; 'tagb UniversalShaper ;; Tagbanwa
|
|
|
|
|
|
; 'tale UniversalShaper ;; Tai Le
|
|
|
|
|
|
; 'lana UniversalShaper ;; Tai Tham
|
|
|
|
|
|
; 'tavt UniversalShaper ;; Tai Viet
|
|
|
|
|
|
; 'takr UniversalShaper ;; Takri
|
|
|
|
|
|
; 'tibt UniversalShaper ;; Tibetan
|
|
|
|
|
|
; 'tfng UniversalShaper ;; Tifinagh
|
|
|
|
|
|
; 'tirh UniversalShaper ;; Tirhuta
|
|
|
|
|
|
'latn DefaultShaper ;; Latin
|
|
|
|
|
|
'DFLT DefaultShaper)) ;; Default
|
|
|
|
|
|
|
|
|
|
|
|
(define (choose script)
|
|
|
|
|
|
(dict-ref SHAPERS script DefaultShaper))
|
