diff --git a/activitypub-servist.lisp b/activitypub-servist.lisp index b00334f..4a4ae01 100644 --- a/activitypub-servist.lisp +++ b/activitypub-servist.lisp @@ -27,7 +27,24 @@ (defun directories () "Alist of the server's paths and their response functions." - '(("u/" . http-user-dir) (".well-known/webfinger" . http-webfinger))) + '(("u/" . http-user-dir) + (".well-known/webfinger" . http-webfinger) + (".well-known/host-meta" . http-host-meta))) + + + +;; ———————————————————————————————————————— +;; Host-info response +;; ———————————————————————————————————————— +(defun http-host-meta (&optional env path-items params) + `(200 (:content-type "application/xrd+xml; charset=utf-8") + (,(str:concat " + + + +"))))