From 12662d6a0fceb0c2adfdc4d0947800994bc85718 Mon Sep 17 00:00:00 2001 From: shoshin Date: Mon, 13 Mar 2023 21:52:18 -0500 Subject: Add: minor tweaks, player list item view in adventure --- src/pages/adventure-page.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/pages/adventure-page.lisp') 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))))))) -- cgit v1.2.3