<delete-paste-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.pastebin

: <delete-paste-action> ( -- action )
    <action> [ validate-integer-id ] >>validate [
        [
            "id" value <paste-state> delete-tuples
            "id" value f <annotation> delete-tuples
        ] with-transaction pastebin-url <redirect>
    ] >>submit <protected> "delete pastes" >>description
    { can-delete-pastes? } >>capabilities ;