<new-annotation-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.pastebin

: <new-annotation-action> ( -- action )
    <action> [
        paste-mode-names "modes" set-value
        { { "parent" [ v-integer ] } } validate-params
        validate-entity
    ] >>validate [
        "parent" value f <annotation>
        [ deposit-entity-slots ] [ insert-tuple ]
        [ entity-url <redirect> ] tri
    ] >>submit ;