Add: minor tweaks, player list item view in adventure

1 files changed, 6 insertions, 3 deletions

diff --git a/src/pages/adventure-page.lisp b/src/pages/adventure-page.lisp
index 80361a0..01424a0 100644
--- a/src/pages/adventure-page.lisp
+++ b/src/pages/adventure-page.lisp
@@ -7,6 +7,9 @@
    (player :reader player :initarg :player)))
 
 (defrender t ((page adventure-page))
-  (with-page (:title (title (adventure page)))
-    (:h1 (title (adventure page)))
-    (:p "uhh......")))
+  (let ((adventure (adventure page)))
+    (with-page (:title (title adventure))
+      (:h1 (title adventure))
+      (:p (description adventure))
+      (:h2 "Seers: " (render :list (cons (creator adventure)
+					 (seers adventure)))))))