From ddf08951d8d545d58b7c2858bcfc8cdf19d21025 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 27 Mar 2019 11:25:24 -0700 Subject: [PATCH] correct width calc --- quad/qtest/markdown.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/quad/qtest/markdown.rkt b/quad/qtest/markdown.rkt index fd1361f8..5e012d8d 100644 --- a/quad/qtest/markdown.rkt +++ b/quad/qtest/markdown.rkt @@ -290,10 +290,13 @@ (define words-width (for*/sum ([word-sublist (in-list word-sublists)] [word (in-list word-sublist)]) (pt-x (size word)))) - (define empty-hspace (- line-width words-width)) + (define empty-hspace (- line-width + (quad-ref (car qs) 'inset-left 0) + words-width + (quad-ref (car qs) 'inset-right 0))) (define space-width (/ empty-hspace (sub1 word-count))) (apply append (add-between word-sublists (list (make-quad #:size (pt space-width line-height)))))])] - [_ qs])) + [_ qs])) (define (line-wrap qs wrap-size) (wrap qs