pages>objects ( pdf -- objects )

Vocabulary

pdf.layout

Inputs

pdf

an object

Outputs

objects

an object

Definition

USING: accessors assocs colors combinators fonts kernel make
pdf.values ranges sequences ;

IN: pdf.layout

:: pages>objects ( pdf -- objects )
    [
        pdf info>> pdf-value , pdf-catalog , {
            T{ font
                { name "sans-serif" }
                { size 12 }
                { foreground COLOR: black }
                { background COLOR: white }
            }
            T{ font
                { name "serif" }
                { size 12 }
                { foreground COLOR: black }
                { background COLOR: white }
            }
            T{ font
                { name "monospace" }
                { size 12 }
                { foreground COLOR: black }
                { background COLOR: white }
            }
        } {
            [ [ f >>bold? f >>italic? pdf-value , ] each ]
            [ [ t >>bold? f >>italic? pdf-value , ] each ]
            [ [ f >>bold? t >>italic? pdf-value , ] each ]
            [ [ t >>bold? t >>italic? pdf-value , ] each ]
        } cleave pdf pages>> length pdf-pages ,
        pdf pages>> dup length 16 swap 2 range boa zip
        [ pdf-page , , ] assoc-each
    ] { } make dup length [1..b] zip [ first2 pdf-object ] map ;