Reorganized codebase

1 files changed, 20 insertions, 0 deletions

diff --git a/src/pages/tavern.lisp b/src/pages/tavern.lisp
new file mode 100644
index 0000000..79b0e58
--- /dev/null
+++ b/src/pages/tavern.lisp
@@ -0,0 +1,20 @@
+;;;; pages/tavern.lisp -- enter the tavern 
+
+(in-package :dnd)
+
+(defclass/std tavern ()
+  ((player)))
+
+(defrender t ((tavern tavern))
+  (let ((player (player tavern)))
+    (with-html
+      (render :details player)
+      (render :list (player-heroes player))
+      (:a :href "/spymaster" "Report a Roguish Rumour...")
+      ;; (:table
+      ;;  (:tr (:td (:h4 "Your Heroes"))
+      ;; 	    (:td (:h4 "Your Campaigns")))
+      ;;  (:tr (:td (:h4 "Gossip & Gab"))
+      ;; 	    (:td (:h4 "Comrades in Arms"))))
+
+      )))