<planet> ( -- responder )

Vocabulary

webapps.planet

Inputs

None

Outputs

responder

an object

Definition

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

IN: webapps.planet

: <planet> ( -- responder )
    planet new-dispatcher <planet-action> "" add-responder
    <planet-feed-action> "feed.xml" add-responder
    <planet-admin> "admin" add-responder
    "vocab:webapps/planet/icons/" <static> "icons" add-responder
    <boilerplate> { planet "planet-common" } >>template ;