<post-feed-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.syndication html.forms
;

IN: webapps.blogs

: <post-feed-action> ( -- action )
    <feed-action> "id" >>rest
    [ validate-integer-id "id" value post "post" set-value ]
    >>init [ "post" value feed-entry-title ] >>title
    [ "post" value entity-url ] >>url
    [ "post" value comments>> ] >>entries ;