diff options
author | colin <colin@cicadas.surf> | 2023-04-01 09:48:08 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-04-01 09:48:08 -0700 |
commit | cc3f850c514967ae2f9effef7e68e1d4965c6865 (patch) | |
tree | 6d0b52c3a65d53f247f4c8272667aca5a4e05bac /src/pages/adventure-page.lisp | |
parent | 56a584ab1b13ff9510dd5145a778000169901a76 (diff) |
Refactor to make cooperative hacking nicer
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"))))) |