docs-file-string ( vocab -- str2 )

Vocabulary

tools.scaffold.private

Inputs

vocab

an object

Outputs

str2

an object

Definition

USING: combinators io io.streams.string kernel prettyprint ;

IN: tools.scaffold.private

: docs-file-string ( vocab -- str2 )
    [
        {
            [ "IN: " write print nl ]
            [ interesting-words. ]
            [
                [ "ARTICLE: " write unparse dup write bl print ]
                [ "{ $vocab-link " write pprint " }" print ] bi
                ";" print nl
            ]
            [ "ABOUT: " write unparse print ]
        } cleave
    ] with-string-writer ;