<posts-by-feed-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.syndication html.forms sequences ;

IN: webapps.blogs

: <posts-by-feed-action> ( -- action )
    <feed-action> "author" >>rest [ validate-author ] >>init
    [ "Recent Posts by " "author" value append ] >>title
    [ list-posts ] >>entries
    [ "author" value posts-by-url ] >>url ;