<delete-annotation-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.pastebin

: <delete-annotation-action> ( -- action )
    <action>
    [ { { "id" [ v-number ] } } validate-params ] >>validate [
        "id" value lookup-annotation
        [ delete-tuples ] [ parent>> paste-url <redirect> ] bi
    ] >>submit <protected> "delete annotations" >>description
    { can-delete-pastes? } >>capabilities ;