main
Matthew Butterick 10 years ago
parent 9be58c7014
commit f1fcd6317f

@ -189,7 +189,10 @@
(define/contract (typeset x)
(coerce/input? . -> . doc?)
(load-text-cache-file)
(define pages (append-map (λ(mp) (columns->pages (append-map (λ(mc) (lines->columns (append-map block-quads->lines mc))) mp))) (input->nested-blocks x)))
(define pages (append* (for/list ([multipage (in-list (input->nested-blocks x))])
(columns->pages (append* (for/list ([multicolumn (in-list multipage)])
(lines->columns (append* (for/list ([block-quads (in-list multicolumn)])
(block-quads->lines block-quads))))))))))
(define doc (pages->doc pages))
(update-text-cache-file)
doc)

Loading…
Cancel
Save