pdf-info ( -- str )


Vocabulary
text-to-pdf.private

Inputs and outputs
stran object


Definition


: pdf-info ( -- str )
[
"<<" ,
"/CreationDate D:" now "%Y%m%d%H%M%S" strftime append ,
"/Producer (Factor)" ,
"/Author " "USER" os-env "unknown" or pdf-string append
, "/Creator (created with Factor)" , ">>" ,
] { } make "\n" join ;