<submit-article-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

USING: accessors calendar furnace.actions furnace.auth
furnace.recaptcha furnace.redirection html.forms kernel
validators ;

IN: webapps.wiki

: <submit-article-action> ( -- action )
    <action> [
        validate-recaptcha validate-title {
            { "content" [ v-required ] }
            { "description" [ [ v-one-line ] v-optional ] }
        } validate-params f <revision> "title" value >>title
        now >>date username >>author "content" value >>content
        "description" value >>description
        [ add-revision ] [ title>> view-url <redirect> ] bi
    ] >>submit <protected> "edit wiki articles" >>description ;