font-size attr key

quad2/constants.rkt

@@ -12,4 +12,5 @@
   [:font-family (attr-uncased-string 'font-family)]
   [:font-path (attr-path 'font-path)]
   [:font-bold (attr-boolean 'font-bold)]
-  [:font-italic (attr-boolean 'font-italic)])
+  [:font-italic (attr-boolean 'font-italic)]
+  [:font-size (attr-dimension-string 'font-size)])

quad2/dimension.rkt

@@ -1,10 +1,8 @@
 #lang debug racket/base
-(require racket/match)
+(require racket/match
+         "constants.rkt")
 (provide (all-defined-out))
 
-;; TODO: define :font-size properly
-(define :font-size 'font-size)
-
 (define (pica->pts prefix [suffix #false])
   ;; both pieces of measurement are either positive or negative
   ((if (negative? prefix) - +) (+ (* (abs prefix) 12) (or suffix 0))))