From af15ee95bb021881c346cf0524aec56544026402 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 21 Aug 2019 14:04:22 -0700 Subject: [PATCH] parse "pt" in dimension strings --- quad/quadwriter/attrs.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/attrs.rkt b/quad/quadwriter/attrs.rkt index 8a68799f..a9fa7f76 100644 --- a/quad/quadwriter/attrs.rkt +++ b/quad/quadwriter/attrs.rkt @@ -18,9 +18,10 @@ [#false #false] [(? number?) x] [(? string? x) - (match (cdr (regexp-match #rx"^(-?[0-9\\.]+)([a-z]+)$" (string-downcase x))) + (match (cdr (regexp-match #px"^(-?[0-9\\.]+)\\s*([a-z]+)$" (string-downcase x))) [(list num-string unit) ((match unit + [(regexp #rx"(pt|point)(s)?$") values] [(regexp #rx"in(ch(es)?)?$") in->pts] [(regexp #rx"cm$") (compose1 in->pts cm->in)] [(regexp #rx"mm$") (compose1 in->pts cm->in mm->cm)]