Add: basic page stub to view an adventure

1 files changed, 10 insertions, 0 deletions

diff --git a/src/endpoints.lisp b/src/endpoints.lisp
index 288f39e..f1151cf 100644
--- a/src/endpoints.lisp
+++ b/src/endpoints.lisp
@@ -149,4 +149,14 @@ functions in url parameters in endpoint definitions."
                             :description description
                             :seers possible-seers)))))))
 
+(defun an-adventure-with-id (id)
+  (let ((object (object-with-uid (string-upcase id))))
+    (unless (typep object 'adventure)
+      (lzb:http-err 404))
+    object))
 
+
+(defendpoint* :get "/adventure/:adventure an-adventure-with-id:/:title:" () ()
+  (with-session (player)
+    (render (page-render-mode)
+            adventure))) ;; for now, render raw adventure.