<new-action> ( -- action )

Vocabulary

webapps.todo

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.todo

: <new-action> ( -- action )
    <page-action> [ 0 "priority" set-value ] >>init
    { todo-list "new-todo" } >>template
    [ validate-todo ] >>validate [
        f <todo> dup
        { "summary" "priority" "description" } to-object
        [ insert-tuple ] [ id>> view-todo-url <redirect> ] bi
    ] >>submit ;