You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
typesetting/pitfall/fontkit/tables.rkt

26 lines
973 B
Racket

#lang fontkit/racket
(provide (all-defined-out))
7 years ago
(require (for-syntax racket/string))
7 years ago
#|
approximates
https://github.com/mbutterick/fontkit/blob/master/src/tables/index.js
|#
7 years ago
(define-macro (define-table-codecs ID TABLE-ID ...)
(with-pattern ([(TABLE-ID-STRING ...) (pattern-case-filter #'(TABLE-ID ...)
7 years ago
[STX (datum->syntax caller-stx (string-replace (format "~a.rkt" (syntax->datum #'STX)) "/" ""))])])
#'(begin
(r+p TABLE-ID-STRING ...)
(test-module (require (submod TABLE-ID-STRING test) ...))
(define ID (make-hasheq (map cons (list 'TABLE-ID ...) (list TABLE-ID ...)))))))
7 years ago
(define-table-codecs table-codecs
;; required tables
#;cmap head hhea hmtx maxp #;name OS/2 post
;; TrueType outlines
cvt_ fpgm loca prep glyf
;; PostScript outlines
CFF_ CFF2 #;VORG
;; Advanced OpenType Tables
#;BASE #;GDEF GPOS GSUB #;JSTF)