From 38f497565ac4d204f01f4f596dd0ab8a43307c02 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 23 May 2019 11:26:23 -0700 Subject: [PATCH] support hard page breaks --- quad/quadwriter/core.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/quad/quadwriter/core.rkt b/quad/quadwriter/core.rkt index 2b601ae3..f82fa2c3 100644 --- a/quad/quadwriter/core.rkt +++ b/quad/quadwriter/core.rkt @@ -174,7 +174,7 @@ (define hrbr (make-q:hr-break #:printable #t #:id 'hrbr)) -(define-quad q:page-break quad ()) +(define-quad q:page-break q:line-break ()) (define pgbr (make-q:page-break #:printable #f #:id 'pgbr)) (module+ test @@ -340,8 +340,9 @@ elems)]) 'sw))]))] [_ null])])) (append new-lines (cond - [ending-q null] - [else (list q:line-spacer)]))) + [(q:page-break? ending-q) (list ending-q)] ; hard page break + [ending-q null] ; hard line break + [else (list q:line-spacer)]))) ; paragraph break (define (line-wrap qs wrap-size) (unless (positive? wrap-size)