<edit-article-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.wiki

: <edit-article-action> ( -- action )
    <page-action> "title" >>rest [
        validate-title "title" value <article> select-tuple
        [ revision>> <revision> select-tuple ]
        [ f <revision> "title" value >>title ] if*
        [ title>> "title" set-value ]
        [ content>> "content" set-value ] bi
    ] >>init { wiki "edit" } >>template <article-boilerplate> ;