From 3e64c7dc9617cd02f93abad8e8a7497ee2f51b1c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 26 Mar 2018 05:12:12 -0700 Subject: [PATCH] clarity --- quad/quad/typewriter.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/quad/quad/typewriter.rkt b/quad/quad/typewriter.rkt index ce4f1a08..0cab81f6 100644 --- a/quad/quad/typewriter.rkt +++ b/quad/quad/typewriter.rkt @@ -31,14 +31,14 @@ 'font charter 'size (delay - (let ([fontsize (string->number (hash-ref (attrs q) 'fontsize "12"))] - [str (apply string (elems q))]) - (send* (current-doc) - [fontSize (string->number (hash-ref (attrs q) 'fontsize "12"))] - [font (path->string charter)]) - (list - (send (current-doc) widthOfString str) - (send (current-doc) currentLineHeight)))) + (define fontsize (string->number (hash-ref (attrs q) 'fontsize "12"))) + (define str (apply string (elems q))) + (send* (current-doc) + [fontSize fontsize] + [font (path->string charter)]) + (list + (send (current-doc) widthOfString str) + (send (current-doc) currentLineHeight))) 'printable? (case (car (elems q)) [(#\u00AD) (λ (sig) (memq sig '(end)))] [(#\space) (λ (sig) (not (memq sig '(start end))))]