From c2eb5fa657a12f00534ac5c1037a4b48dd733e0d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 23 May 2019 21:43:28 -0700 Subject: [PATCH] recognize woff --- quad/quadwriter/font.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quad/quadwriter/font.rkt b/quad/quadwriter/font.rkt index 21b4898e..6b17f0b5 100644 --- a/quad/quadwriter/font.rkt +++ b/quad/quadwriter/font.rkt @@ -37,12 +37,12 @@ (define-values (dir path _) (split-path base-path)) (define doc-fonts-dir (build-path dir "fonts")) ;; run doc-fonts-dir first because earlier fonts take precedence - (for* ([fonts-dir (in-list (list quadwriter-fonts-dir doc-fonts-dir ))] + (for* ([fonts-dir (in-list (list quadwriter-fonts-dir doc-fonts-dir))] #:when (directory-exists? fonts-dir) [font-family-subdir (in-directory fonts-dir)] #:when (directory-exists? font-family-subdir) [font-path (in-directory font-family-subdir)] - #:when (member (path-get-extension font-path) '(#".otf" #".ttf"))) + #:when (member (path-get-extension font-path) '(#".otf" #".ttf" #".woff"))) (match-define (list font-path-string family-name) (map (λ (x) (path->string (find-relative-path fonts-dir x))) (list font-path font-family-subdir))) ;; search for subdir in path matching style name