diff options
Diffstat (limited to 'src/pages/adventure-page.lisp')
-rw-r--r-- | src/pages/adventure-page.lisp | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/pages/adventure-page.lisp b/src/pages/adventure-page.lisp deleted file mode 100644 index 96264e3..0000000 --- a/src/pages/adventure-page.lisp +++ /dev/null @@ -1,24 +0,0 @@ -;;;; adventure-page.lisp -- shows a particular adventure - -(in-package :dnd) - -(defclass adventure-page () - ((adventure :reader adventure :initarg :adventure) - (player :reader player :initarg :player))) - -(defrender t ((page adventure-page)) - (let ((adventure (adventure page))) - (with-page (:title (title adventure)) - (:h1 (title adventure)) - (:p (description adventure)) - (:h2 "Rumors: ") - ; (render :list (rumors adventure)) - (:h2 "Architect of this Adventure: " (nickname (creator adventure))) - (:h2 "Seers: ") - (render :list (seers adventure)) - (:form :method "POST" :action (urlpath adventure) - (:label :for "SEER" "Add a seer to this adventure:") (:br) - (:select :name "SEER" - (loop :for p :in (all-other-players (player page)) - :collect (:option :value (nickname p) (nickname p)))) - (:button :type "submit" "Add Seer"))))) |