<paste-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions html.forms ;

IN: webapps.pastebin

: <paste-action> ( -- action )
    <page-action> [
        validate-integer-id "id" value paste from-object
        "id" value "new-annotation" [
            "parent" set-value
            paste-mode-names "modes" set-value
            "factor" "mode" set-value
        ] nest-form
    ] >>init { pastebin "paste" } >>template ;