article-pdf ( str name -- )

Vocabulary

help.pdf

Inputs

str	an object
name	an object

Outputs

None

Definition

USING: arrays help help.pdf.private kernel namespaces pdf.canvas
pdf.layout pdf.streams sequences ;

IN: help.pdf

: article-pdf ( str name -- )
    1.25 +line-height+ [
        [
            [ [ print-topic ] with-pdf-writer ]
            [ next-articles topics>pdf ] bi
            [ <pb> 1array glue ] unless-empty
        ] [ write-pdf ] bi*
    ] with-variable ;