<delete-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.wiki

: <delete-action> ( -- action )
    <action> [ validate-title ] >>validate [
        "title" value <article> delete-tuples
        f <revision> "title" value >>title delete-tuples
        URL" %24wiki" <redirect>
    ] >>submit <protected> "delete wiki articles" >>description
    { can-delete-wiki-articles? } >>capabilities ;