allow upper or lowercase font extensions

3 years ago · e158569f86
parent a79266d421
commit e158569f86
1 changed files with 2 additions and 1 deletions
--- 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)]