From 19dbffd8138e500f49ef4f5303d8ffe342421708 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 6 Apr 2022 07:40:32 -0700 Subject: [PATCH] font-size attr key --- quad2/constants.rkt | 3 ++- quad2/dimension.rkt | 6 ++---- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/quad2/constants.rkt b/quad2/constants.rkt index 3ee74733..021c6bf2 100644 --- a/quad2/constants.rkt +++ b/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)]) \ No newline at end of file + [:font-italic (attr-boolean 'font-italic)] + [:font-size (attr-dimension-string 'font-size)]) \ No newline at end of file diff --git a/quad2/dimension.rkt b/quad2/dimension.rkt index b6bfab0b..56685fe7 100644 --- a/quad2/dimension.rkt +++ b/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))))