(pdf-layout) ( page obj -- page )


Vocabulary
pdf.layout.private

Inputs
pagean object
objan object


Outputs
pagean object


Definition
USING: accessors io.streams.string kernel make pdf.canvas
pdf.layout sequences ;

IN: pdf.layout.private

: (pdf-layout) ( page obj -- page )
[ ] [
dupd [ pdf-render ] with-string-writer [ append ] curry
[ change-stream ] curry dip [ [ , <canvas> ] when ] keep
] while* ;