<blogs> ( -- dispatcher )

Vocabulary

webapps.blogs

Inputs

None

Outputs

dispatcher

an object

Definition

USING: accessors furnace.boilerplate http.server.dispatchers ;

IN: webapps.blogs

: <blogs> ( -- dispatcher )
    blogs new-dispatcher <list-posts-action> "" add-responder
    <list-posts-feed-action> "posts.atom" add-responder
    <posts-by-action> "by" add-responder
    <posts-by-feed-action> "by.atom" add-responder
    <view-post-action> "post" add-responder
    <post-feed-action> "post.atom" add-responder
    <new-post-action> "new-post" add-responder
    <edit-post-action> "edit-post" add-responder
    <delete-post-action> "delete-post" add-responder
    <new-comment-action> "new-comment" add-responder
    <delete-comment-action> "delete-comment" add-responder
    <boilerplate> { blogs "blogs-common" } >>template ;