From 5ff4b6ef24c07b01ef85a21003283fcba8bd33bb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 2 Jan 2022 16:44:45 -0800 Subject: [PATCH] document default interparagraph spacing --- quad/quad/scribblings/quad.scrbl | 2 +- quad/quadwriter/line.rkt | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/quad/quad/scribblings/quad.scrbl b/quad/quad/scribblings/quad.scrbl index c104e039..948fe00f 100644 --- a/quad/quad/scribblings/quad.scrbl +++ b/quad/quad/scribblings/quad.scrbl @@ -454,7 +454,7 @@ The Q-expressions @racketresult['#,line-break], @racketresult['#,column-break], @defthing[para-break qexpr?]{ -The @tech{Q-expression} @racketresult['#,para-break]. Used to denote the start of a new paragraph. +The @tech{Q-expression} @racketresult['#,para-break]. Used to denote the start of a new paragraph. The default @racket[space-before] a paragraph is 0; the default @racket[space-after] is 60% of the paragraph's @racket[line-height]. } diff --git a/quad/quadwriter/line.rkt b/quad/quadwriter/line.rkt index 13d556ce..3ce7470e 100644 --- a/quad/quadwriter/line.rkt +++ b/quad/quadwriter/line.rkt @@ -245,7 +245,9 @@ new-lines (match q-after [(? column-break-quad? column-break) (list column-break)] ; hard column (or section or page) break - [#false (list (make-paragraph-spacer maybe-first-line :space-after (* default-line-height 0.6)))] ; paragraph break + [#false + (define default-paragraph-spacing (* default-line-height 0.6)) + (list (make-paragraph-spacer maybe-first-line :space-after default-paragraph-spacing))] ; paragraph break [_ null]))) ; hard line break