setup webserver

bonerbonerboner/bonerbonerboner.factor

@@ -39,15 +39,6 @@ TUPLE: bbb < dispatcher ;
     <slack-event-action> "slack-events" add-responder
     <theme-action> "subdomain" add-responder ;
 
-SYMBOL: current-bbb-server
-: run-bbb-server ( -- )
-    <bbb> main-responder set-global
-    8080 httpd current-bbb-server set ;
-
-: restart-bbb-server ( -- )
-    current-bbb-server get stop-server
-    run-bbb-server ;
-
 : add-default-slack-listeners ( -- )
     {
         [ check-mississippi-request ]
@@ -55,8 +46,16 @@ SYMBOL: current-bbb-server
         [ check-links ]
     } slack-callbacks set-global ;
 
-: start-bonerbonerboner ( -- )
-    add-default-slack-listeners
-    run-bbb-server ;
+SYMBOL: current-bbb-server
 
-MAIN: start-bonerbonerboner
+: <bbb-website-server> ( -- threaded-server )
+    <http-server>
+    f >>secure
+    8069 >>insecure ;
+
+: start-bbb-site ( -- )
+    add-default-slack-listeners
+    <bbb> main-responder set-global
+    <bbb-website-server> start-server wait-for-server ;
+
+MAIN: start-bbb-site