From 530f4fad2d7aba4ff47a05c2471a93a198f5287d Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 6 Aug 2019 12:57:01 -0700
Subject: [PATCH] section splits

---
 quad/quadwriter/layout.rkt | 4 ----
 quad/quadwriter/render.rkt | 4 ++--
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/quad/quadwriter/layout.rkt b/quad/quadwriter/layout.rkt
index 7cde234a..f508c9b3 100644
--- a/quad/quadwriter/layout.rkt
+++ b/quad/quadwriter/layout.rkt
@@ -684,10 +684,6 @@
                        (pt-x (size x))))
         #:finish-wrap (page-finish-wrap page-quad (pdf-output-path (current-pdf)))))
 
-(define (section-wrap qs)
-  (wrap qs +inf.0
-        #:hard-break section-break-quad?))
-
 (define (insert-blocks lines)
   (define groups-of-lines (contiguous-group-by (λ (x) (quad-ref x :display)) lines))
   (append* (for/list ([line-group (in-list groups-of-lines)])
diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt
index bbf7d1b7..c4e72f11 100644
--- a/quad/quadwriter/render.rkt
+++ b/quad/quadwriter/render.rkt
@@ -14,6 +14,7 @@
          pollen/decode
          sugar/coerce
          sugar/debug
+         sugar/list
          "attrs.rkt"
          "param.rkt"
          "font.rkt"
@@ -177,9 +178,8 @@
   (parameterize ([current-pdf the-pdf]
                  [verbose-quad-printing? #false])
     (define qs (time-log setup-qs (setup-qs qx-arg pdf-path)))
-
     (define sections
-      (for/list ([qs (in-list (time-log section-wrap (section-wrap qs)))])
+      (for/list ([qs (in-list (filter-split qs section-break-quad?))])
         (match-define (list page-width page-height) (parse-page-size (and (pair? qs) (car qs))))
         (match-define (list left-margin top-margin right-margin bottom-margin)
           (setup-margins qs page-width page-height))