From f48d5ed8c26b94c0fe75182c7d3da783c1ab0116 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Tue, 19 Sep 2023 14:50:30 -0500
Subject: [PATCH] Basic support for .well-known/host-meta

---
 activitypub-servist.lisp | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

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 "<?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>
+"))))