From 87e4acd8e0b595fd64d0877130c145550b78e255 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 25 May 2019 10:54:45 -0700 Subject: [PATCH] insensitize case --- quad/quadwriter/font.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/quad/quadwriter/font.rkt b/quad/quadwriter/font.rkt index 6b17f0b5..db2e6d68 100644 --- a/quad/quadwriter/font.rkt +++ b/quad/quadwriter/font.rkt @@ -47,9 +47,9 @@ (map (λ (x) (path->string (find-relative-path fonts-dir x))) (list font-path font-family-subdir))) ;; search for subdir in path matching style name ;; note that this will work if fonts are contained in another subdirectory (e.g., real font name) - (define path-parts (map path->string (explode-path (string->path (string-downcase font-path-string))))) + (define path-parts (map string-downcase (map path->string (explode-path (string->path (string-downcase font-path-string)))))) (define key - (cons family-name + (cons (string-downcase family-name) (cond [(member "bold-italic" path-parts) 'bi] [(member "bold" path-parts) 'b] @@ -61,7 +61,7 @@ (define (font-attrs->path font-family bold italic) ;; find the font-path corresponding to a certain family name and style. - (define key (cons font-family + (define key (cons (string-downcase font-family) (cond [(and bold italic) 'bi] [bold 'b]