pdf-pages ( n -- str )

Vocabulary

text-to-pdf.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: formatting kernel make ranges sequences splitting ;

IN: text-to-pdf.private

: pdf-pages ( n -- str )
    [
        "<<" , "/Type /Pages" , "/MediaBox [ 0 0 612 792 ]" ,
        [ "/Count %d" sprintf , ] [
            5 swap 2 range boa [ "%d 0 R " sprintf ] map
            concat "/Kids [ " "]" surround ,
        ] bi ">>" ,
    ] { } make join-lines ;