pdf-info

Vocabulary

pdf.layout

Definition

IN: pdf.layout

TUPLE: pdf-info title timestamp producer author creator ;

Methods

USING: accessors combinators io io.streams.string kernel
pdf.layout pdf.values ;

M: pdf-info pdf-value
    [
        "<<" print [
            [
                timestamp>>
                [ "/CreationDate " write pdf-write nl ] when*
            ] [
                producer>>
                [ "/Producer " write pdf-write nl ] when*
            ]
            [ author>> [ "/Author " write pdf-write nl ] when* ]
            [ title>> [ "/Title " write pdf-write nl ] when* ] [
                creator>>
                [ "/Creator " write pdf-write nl ] when*
            ]
        ] cleave ">>" print
    ] with-string-writer ;