From 60d9e6fef424eb14e909a3ac37d5d931fd5e010a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 24 Jan 2020 15:50:52 -0800 Subject: [PATCH] drop leading breaks --- quad/quadwriter/render.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt index 6645b4c3..15504589 100644 --- a/quad/quadwriter/render.rkt +++ b/quad/quadwriter/render.rkt @@ -117,6 +117,8 @@ parse-font-features!))]) (proc attrs))) +(define (drop-leading-breaks qs) (dropf qs line-break-quad?)) + (define default-line-height-multiplier 1.42) (define (setup-qs qx-arg base-dir) (define qexpr (decode qx-arg @@ -136,7 +138,8 @@ #:emoji "fallback-emoji" #:math "fallback-math" #:font-path-resolver resolve-font-path!)) - (define hyphenated-qs (time-log hyphenate (handle-hyphenate atomized-qs))) + (define trimmed-qs (drop-leading-breaks atomized-qs)) + (define hyphenated-qs (time-log hyphenate (handle-hyphenate trimmed-qs))) (define typed-quads (map generic->typed-quad hyphenated-qs)) (define indented-qs (insert-first-line-indents typed-quads)) indented-qs)