pdf-layout ( seq -- pages )

Vocabulary

pdf.layout

Inputs

seq

an object

Outputs

pages

an object

Definition

USING: accessors kernel make pdf.canvas pdf.layout.private
sequences ;

IN: pdf.layout

: pdf-layout ( seq -- pages )
    [ <canvas> ] dip [
        [ (pdf-layout) ] each dup stream>> empty?
        [ drop ] [ , ] if
    ] { } make ;