From b5961be00c1c1b7a9d91a6b0208beec4b3339f06 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Sat, 27 May 2023 23:31:05 -0500
Subject: [PATCH] Tweak server startup

---
 activitypub-server.lisp | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/activitypub-server.lisp b/activitypub-server.lisp
index 7995623..a8b304f 100644
--- a/activitypub-server.lisp
+++ b/activitypub-server.lisp
@@ -25,6 +25,8 @@
 (defun directories () '(("u/" . http-user-dir)
                         (".well-known/webfinger" . http-webfinger)))
 
+;; (defparameter *s* (start-server '(:domain "etc.xwx.moe")))
+
 
 ;; The default 404 response.
 (defun http-404 (env path-items params)
@@ -70,12 +72,13 @@
 
 
 ;; Start the server.
-(defparameter *handler*
-  (let ((config '(:domain "localhost")))
-    (clack:clackup (lambda (env)
-                     (funcall 'server
-                              (append env config)))
-                   :server 'woo)))
+(defun start-server (&optional (config '(:domain "localhost")))
+  (clack:clackup (lambda (env)
+                   (funcall 'server
+                            (append env config)))
+                 :server 'woo
+                 :address "0.0.0.0"
+                 :port 8080))
 
 
 ;; The JSON of a user's actor.