From c780502a8ccbac57b87f27f3940f96b18202d30d Mon Sep 17 00:00:00 2001
From: Steve Ayerhart <steve@ayerh.art>
Date: Thu, 1 Jul 2021 15:00:42 -0400
Subject: [PATCH] setup webserver

---
 bonerbonerboner/bonerbonerboner.factor | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/bonerbonerboner/bonerbonerboner.factor b/bonerbonerboner/bonerbonerboner.factor
index c1e1fcd..72f6218 100644
--- a/bonerbonerboner/bonerbonerboner.factor
+++ b/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