<todo-list> ( -- responder )

Vocabulary

webapps.todo

Inputs

None

Outputs

responder

an object

Definition

USING: accessors furnace.auth furnace.boilerplate
furnace.redirection http.server.dispatchers urls ;

IN: webapps.todo

: <todo-list> ( -- responder )
    todo-list new-dispatcher <list-action> "list" add-responder
    URL" /list" <redirect-responder> "" add-responder
    <view-action> "view" add-responder
    <new-action> "new" add-responder
    <edit-action> "edit" add-responder
    <delete-action> "delete" add-responder <boilerplate>
    { todo-list "todo" } >>template
    <protected> "view your todo list" >>description ;