<paste-feed-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions furnace.syndication
html.forms math.parser sequences ;

IN: webapps.pastebin

: <paste-feed-action> ( -- action )
    <feed-action> [ validate-integer-id ] >>init
    [ "id" value paste-url ] >>url
    [ "Paste " "id" value number>string append ] >>title
    [ "id" value f <annotation> select-tuples ] >>entries ;