pdf-info ( -- str )

Vocabulary

text-to-pdf.private

Inputs

None

Outputs

str

an object

Definition

USING: calendar environment formatting kernel make sequences
splitting ;

IN: text-to-pdf.private

: 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 join-lines ;