pdf-info - Factor Documentation

IN: pdf.layout

TUPLE: pdf-info title timestamp producer author creator ;

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 ;