allow number for font-weight argument

master
Matthew Butterick 8 months ago
parent a33fc64690
commit 90c8f8f106
  1. 9
      font-face.rkt

@ -72,13 +72,17 @@
(check-false (valid-font-style? "foobar")))
(define (valid-font-weight? x)
(and (string? x) (member x `("normal" "bold" ,@(map ~a (range 100 1000 100)))) #t))
(define str (format "~a" x))
(and (string? str) (member str `("normal" "bold" ,@(map ~a (range 100 1000 100)))) #t))
(module+ test
(check-true (valid-font-weight? "normal"))
(check-true (valid-font-weight? "100"))
(check-true (valid-font-weight? "300"))
(check-true (valid-font-weight? "900"))
(check-true (valid-font-weight? 100))
(check-true (valid-font-weight? 300))
(check-true (valid-font-weight? 900))
(check-false (valid-font-weight? "italic"))
(check-false (valid-font-weight? "1000")))
@ -120,7 +124,8 @@
(let* ([url (->url src-url)]
[url-value (if base64? (path->base64-font-string src-url) (->path url))]
[src (format "url('~a') format('~a')" url-value (font-format src-url))]
[src (string-append (if local-name (format "local(~v), " local-name) "") src)])
[src (string-append (if local-name (format "local(~v), " local-name) "") src)]
[font-weight (format "~a" font-weight)])
(string-append "@font-face {\n"
(join-css-strings (append
(map make-css-string

Loading…
Cancel
Save