From a39930fbd27ff624578ca33c69427cd3ba2e9b28 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 11 Feb 2018 17:13:31 -0600
Subject: [PATCH] tiny

---
 quad/quad/typewriter-test.rkt |  2 +-
 quad/quad/typewriter.rkt      | 20 ++++++++++----------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/quad/quad/typewriter-test.rkt b/quad/quad/typewriter-test.rkt
index d1f0653a..350e9683 100644
--- a/quad/quad/typewriter-test.rkt
+++ b/quad/quad/typewriter-test.rkt
@@ -1,3 +1,3 @@
 #lang quad/typewriter
 
-line line line line
\ No newline at end of file
+a b cd e f gh
\ No newline at end of file
diff --git a/quad/quad/typewriter.rkt b/quad/quad/typewriter.rkt
index de46c2e7..04a1df04 100644
--- a/quad/quad/typewriter.rkt
+++ b/quad/quad/typewriter.rkt
@@ -4,28 +4,28 @@
 
 (define optional-break? (λ (q) (and (quad? q) (memv (car (qe q)) '(#\space)))))
 (struct $slug $quad () #:transparent)
-(define (slug . xs) ($slug #f xs))
+(define (slug . xs) ($slug (hasheq) xs))
+(struct $break $quad () #:transparent)
+(define (break . xs) ($break (hasheq 'size (delay (values 0 0 0))) xs))
 (define (lbs xs size [debug #f])
   (insert-breaks xs size debug
-                 #:break-val 'lb
+                 #:break-val (break #\newline)
                  #:optional-break-proc optional-break?
                  #:size-proc (λ (q) (let ([val (hash-ref (qa q) 'size (λ ()
                                                                         (if (memv (car (qe q)) '(#\space))
                                                                             (delay (values 0 1 0))
                                                                             (delay (values 1 1 1)))))])
                                       (if (promise? val) (force val) (val))))
-                 #:finish-segment-proc (λ (pcs) (list ($slug #f pcs)))))
+                 #:finish-segment-proc (λ (pcs) (list ($slug (hasheq) pcs)))))
 
 (define (pbs xs size [debug #f])
-    (insert-breaks xs size debug
-                   #:break-val 'pb
-                   #:optional-break-proc (λ (x) (eq? x 'lb))
-                   #:size-proc (λ (q) (case q
-                                        [(lb) (values 0 0 0)]
-                                        [else (values 1 1 1)]))))
+  (insert-breaks xs size debug
+                 #:break-val (break #\page)
+                 #:optional-break-proc $break?
+                 #:size-proc (λ (q) (force (hash-ref (qa q) 'size (λ () (delay (values 1 1 1))))))))
 
 (define (typeset args)
-  (pbs (lbs (atomize (apply quad #f args)) 5) 2))
+  (pbs (lbs (atomize (apply quad #f args)) 3) 2))
 
 (define-syntax-rule (mb lang-line-config-arg . args)
   (#%module-begin