Tweak server startup

This commit is contained in:
Jaidyn Ann 2023-05-27 23:31:05 -05:00
parent cd2862cb93
commit b5961be00c

View File

@ -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.