USING: kernel http.server http.server.responses http.server.dispatchers accessors namespaces io.servers ;
USING: bonerbonerboner.actions ;

IN: bonerbonerboner.server

SYMBOL: current-bbb-server

: <bbb> ( -- responder )
    bbb-dispatcher new-dispatcher
    <404-subdomain-action> >>default
    <heartbeat-action> "heartbeat" add-responder
    <subdomain-action> "subdomains" add-responder
    <meta-action> "meta" add-responder ;

: <bbb-website-server> ( -- threaded-server )
    <http-server>
    f >>secure
    8069 >>insecure ;

: start-bbb-site ( -- )
    <bbb> main-responder set-global
    <bbb-website-server> start-server current-bbb-server set ;