From a9c6d1d7621dee20d6742feb1f07dfe1c9ba4513 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 24 Jan 2020 19:08:22 -0800 Subject: [PATCH] introduce break-quad --- quad/quadwriter/layout.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/quad/quadwriter/layout.rkt b/quad/quadwriter/layout.rkt index aad5e1a5..b70659b5 100644 --- a/quad/quadwriter/layout.rkt +++ b/quad/quadwriter/layout.rkt @@ -144,8 +144,8 @@ h)] [size #:parent quad (pt layout-width layout-height)])))) -(define (maybe-convert-line-break-quad q) - (and (line-break-quad? q) q)) +(define (maybe-convert-break-quad q) + (and (break-quad? q) q)) (define (do-string-quad q) ;; need to handle casing here so that it's reflected in subsequent sizing ops @@ -166,7 +166,7 @@ (define (generic->typed-quad q) (or - (maybe-convert-line-break-quad q) + (maybe-convert-break-quad q) (maybe-convert-draw-quad q) (maybe-convert-image-quad q) (do-string-quad q))) @@ -190,7 +190,9 @@ (restore doc))) -(define-quad line-break-quad quad) +(define-quad break-quad quad) + +(define-quad line-break-quad break-quad) (define q:line-break (make-line-break-quad #:printable #f #:id 'line-break)) (define-quad para-break-quad line-break-quad)