From e158569f865f84050002c007e8544583d86456f6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 Jun 2022 10:35:12 -0700 Subject: [PATCH] allow upper or lowercase font extensions --- quad/quadwriter/font.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/font.rkt b/quad/quadwriter/font.rkt index 3adea968..9c75c2fc 100644 --- a/quad/quadwriter/font.rkt +++ b/quad/quadwriter/font.rkt @@ -19,7 +19,8 @@ (define font-paths (make-hash)) (define top-font-directory "fonts") -(define font-file-extensions '(#".otf" #".ttf" #".woff")) +(define base-extensions '(".otf" ".ttf" ".woff")) +(define font-file-extensions (map string->bytes/utf-8 (append base-extensions (map string-upcase base-extensions)))) (define (fonts-in-directory dir) (for/list ([font-path (in-directory dir)]