jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Tweak server startup

This commit is contained in:
Jaidyn Ann 2023-05-27 23:31:05 -05:00
parent cd2862cb93
commit b5961be00c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
activitypub-server.lisp
View File

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