<fjsc> ( -- fjsc )

Vocabulary

webapps.fjsc

Inputs

None

Outputs

fjsc

an object

Definition

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

IN: webapps.fjsc

: <fjsc> ( -- fjsc )
    dispatcher new-dispatcher "resource:extra/webapps/fjsc/www"
    <static> "static" add-responder
    "resource:extra/fjsc/resources" <static> "fjsc"
    add-responder
    fjsc new-dispatcher <main-action> "" add-responder
    <compile-action> "compile" add-responder
    <compile-url-action> "compile-url" add-responder
    <boilerplate> { fjsc "fjsc" } >>template >>default ;