USING: math kernel accessors http.server http.server.dispatchers
furnace furnace.actions furnace.sessions furnace.redirection
html.components html.forms fry namespaces urls webapps.help ;
IN: webapps.docs

: <docs-app> ( -- responder )
    dispatcher new-dispatcher
        "path-to-docs-here" <help-webapp> "" add-responder ;

: run-docs ( -- )
    <docs-app>
        main-responder set-global
    8080 httpd ;

MAIN: run-docs