From cd841ff460a5ff105002fc73e76eb1558a7cd17d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 28 Dec 2018 15:55:53 -0800 Subject: [PATCH] reform --- fontland/fontland/glyph.rkt | 4 ++++ fontland/fontland/tables.rkt | 1 - 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/fontland/fontland/glyph.rkt b/fontland/fontland/glyph.rkt index 4cb4e20a..a01ab70c 100644 --- a/fontland/fontland/glyph.rkt +++ b/fontland/fontland/glyph.rkt @@ -18,6 +18,10 @@ https://github.com/mbutterick/fontkit/blob/master/src/glyph/Glyph.js ; There are several subclasses of the base Glyph class internally that may be returned depending ; on the font format, but they all inherit from this class. +(define (is-mark? codepoint) + ;; mark classes = Mn Me Mc + (regexp-match #px"\\p{Mn}|\\p{Me}|\\p{Mc}" (string (integer->char codepoint)))) + (define (+glyph id codepoints font [is-mark? (andmap is-mark? codepoints)] [is-ligature? (> (length codepoints) 1)] diff --git a/fontland/fontland/tables.rkt b/fontland/fontland/tables.rkt index 1e2aafbf..7d6521bb 100644 --- a/fontland/fontland/tables.rkt +++ b/fontland/fontland/tables.rkt @@ -14,7 +14,6 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/index.js (syntax->list #'(TABLE-ID ...)))]) #'(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 ...))))))])) (define-table-codecs table-codecs head hhea hmtx maxp OS/2 post cvt_ fpgm loca prep glyf)