From cc3f850c514967ae2f9effef7e68e1d4965c6865 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 1 Apr 2023 09:48:08 -0700 Subject: Refactor to make cooperative hacking nicer --- src/pages/adventure-page.lisp | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 src/pages/adventure-page.lisp (limited to 'src/pages/adventure-page.lisp') 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"))))) -- cgit v1.2.3