Basic support for .well-known/host-meta

This commit is contained in:
Jaidyn Ann 2023-09-19 14:50:30 -05:00
parent bad902ac50
commit f48d5ed8c2

View File

@ -27,7 +27,24 @@
(defun directories () (defun directories ()
"Alist of the server's paths and their response functions." "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 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<XRD xmlns=\"http://docs.oasis-open.org/ns/xri/xrd-1.0\">
<link rel=\"lrdd\" template=\"https://"
(getf env :domain)
"/.well-known/webfinger?resource={uri}\"/>
</XRD>
"))))