<new-paste-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions furnace.redirection
html.forms kernel ;

IN: webapps.pastebin

: <new-paste-action> ( -- action )
    <page-action> [
        "factor" "mode" set-value
        paste-mode-names "modes" set-value
    ] >>init { pastebin "new-paste" } >>template
    [ paste-mode-names "modes" set-value validate-entity ]
    >>validate [
        f <paste-state>
        [ deposit-entity-slots ] [ insert-tuple ]
        [ id>> paste-url [ email-on-paste ] [ <redirect> ] bi ]
        tri
    ] >>submit ;