<list-action> ( -- action )

Vocabulary

webapps.todo

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.todo

: <list-action> ( -- action )
    <page-action>
    [ f <todo> select-tuples "items" set-value ] >>init
    { todo-list "todo-list" } >>template ;