<edit-post-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.blogs

: <edit-post-action> ( -- action )
    <page-action> "id" >>rest [ do-post-action ] >>init
    [ do-post-action validate-post ] >>validate
    [ "author" value authorize-author ] >>authorize [
        "id" value <post-state> dup
        { "title" "author" "date" "content" } to-object
        [ update-tuple ] [ entity-url <redirect> ] bi
    ] >>submit { blogs "edit-post" } >>template
    <protected> "edit a blog post" >>description ;