Refactor to make cooperative hacking nicer

9 files changed, 0 insertions, 176 deletions

diff --git a/src/pages/adventure-awaits.lisp b/src/pages/adventure-awaits.lisp
deleted file mode 100644
index 8255d2e..0000000
--- a/src/pages/adventure-awaits.lisp
+++ /dev/null
@@ -1,36 +0,0 @@
-;;;; adventure-awaits.lisp -- page make to make a new adventure
-
-(in-package :dnd)
-
-(defclass adventure-awaits ()
-  ((possible-seers
-    :reader possible-seers
-    :initarg :possible-seers
-    :initform nil)))
-
-
-(defrender t ((page adventure-awaits))
-  (with-page (:title "What sparkles in yer eye?")
-    (:h2 "Enscribe your new adventure in the book of the bards.")
-    (:div 
-     (:form :method "POST" :action "/adventure-awaits" :id "new-adventure-form"
-            (:label
-             :for "TITLE"
-             "To sing of deeds, the bards require a title equal in greatness to the adventure before you.")
-            (:br)
-            (:input :name "TITLE"
-                    :minlength "2"
-                    :maxlength "40"
-                    :placeholder "Dungeons & Deadlines")
-            (when (possible-seers page)
-              (:br)
-              (:label
-               :for "SEERS"
-               "Who may act as a seer on this adventure?")
-              (:br)
-              (render :checkboxes (possible-seers page)))
-            
-            (:h4 "Describe the adventure you're about to begin:")
-            (:textarea  :name "DESCRIPTION" :rows "5" :cols "60")
-            (:br)
-            (:button :type "submit" "Embark!")))))
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")))))
diff --git a/src/pages/doorkeeper.lisp b/src/pages/doorkeeper.lisp
deleted file mode 100644
index 15774fb..0000000
--- a/src/pages/doorkeeper.lisp
+++ /dev/null
@@ -1,19 +0,0 @@
-;;;; pages/doorkeeper.lisp -- announce yourself and enter the hero's tavern
-
-(in-package :dnd)
-
-;;; DOORKEEPER CLASS
-(defclass/std doorkeeper ()
-  ((message)))
-
-;; the t specialization works for all render targets 
-(defrender t ((page doorkeeper))
-  (with-page (:title "Tavern Door")
-    (:h1 (message page))
-    (:form :method "POST" :action "/tavern-door"
-	   (:label :for "NICKNAME" "Wut's yer handle?:")
-	   (:input :name "NICKNAME") (:br)
-	   (:button :type "submit" "Announce Thyself"))
-    (:h2 "Eh? Ye need to register for admission?")
-    (:a :href "/join" "Follow me...")))
-
diff --git a/src/pages/goddess-shrine.lisp b/src/pages/goddess-shrine.lisp
deleted file mode 100644
index 33e8011..0000000
--- a/src/pages/goddess-shrine.lisp
+++ /dev/null
@@ -1,13 +0,0 @@
-;;;; pages/goddess-shrine.lisp
-
-(in-package :dnd)
-
-(defrender t ((page (eql :goddess-shrine))) 
-  (with-page (:title "A Sacred Shrine")
-    (:header
-     (:h1 "Pray and become a hero..."))
-    (:form :method "POST" :action "/goddess-shrine"
-	   (:label :for "NAME" "Enter the epithet by which the ages shall know thy hero:")
-	   (:input :name "NAME")
-	   (:button :type "submit" "Pray To The Goddess"))))
-
diff --git a/src/pages/hero-page.lisp b/src/pages/hero-page.lisp
deleted file mode 100644
index f413d9f..0000000
--- a/src/pages/hero-page.lisp
+++ /dev/null
@@ -1,12 +0,0 @@
-;;;; hero-apge.lisp -- shows a particular hero
-
-(in-package :dnd)
-
-(defclass hero-page ()
-  ((hero :reader hero :initarg :hero)
-   (player :reader player :initarg :player)))
-
-(defrender t ((page hero-page))
-  (with-page (:title (unique-name (hero page)))
-    (:h1 (unique-name (hero page)))
-    (:p "uhhh.....")))
diff --git a/src/pages/join.lisp b/src/pages/join.lisp
deleted file mode 100644
index f1ebeff..0000000
--- a/src/pages/join.lisp
+++ /dev/null
@@ -1,13 +0,0 @@
-;;;; pages/join-gaming-group.lisp
-
-(in-package :dnd)
-
-(defrender t ((page (eql :join)))
-  (with-page (:title "Register Player")
-    (:header
-     (:h1 "Choose a Player Nickname"))
-    (:form :method "POST" :action "/join"
-           (:label  :for "NICKNAME" "Choose a nickname using only letters, numbers, and -._ (no spaces)") (:br)
-           (:input :name "NICKNAME" :placeholder "superbob")
-           (:button :type "submit" "Register"))))
-
diff --git a/src/pages/quest-page.lisp b/src/pages/quest-page.lisp
deleted file mode 100644
index 9c02d51..0000000
--- a/src/pages/quest-page.lisp
+++ /dev/null
@@ -1,11 +0,0 @@
-;;;; quest-page.lisp
-
-(in-package :dnd)
-
-(defclass quest-page ()
-  ((quest :reader quest :initarg :quest)
-   (player :reader player :initarg :player)))
-
-(defrender t ((page quest))
-  (with-page (:title (unique-name (quest page )))
-    (:h1 (unique-name (quest page)))))
diff --git a/src/pages/spymaster.lisp b/src/pages/spymaster.lisp
index 01deef2..0068862 100644
--- a/src/pages/spymaster.lisp
+++ b/src/pages/spymaster.lisp
@@ -2,21 +2,3 @@
 
 (in-package :dnd)
 
-(defclass spymaster ()
-  ((player :reader player :initarg :player)
-   (adventures :reader adventures :initarg :adventures)))
-
-
-(defrender t ((page spymaster))
-  (with-page (:title "spymaster - report a rumor")
-    (:h1 "Of what hazards have ye heard rumor?")
-    (:form :method "POST" :action "/spymaster"
-           (:label :for "ADVENTURE" "What adventure did ye hear a rumor about?")
-           (:br)
-           (render :select (adventures page) :name "ADVENTURE")
-           (:br)
-           (:label :for "REPORTED" "And what did ye have to report?")
-           (:br)
-           (:textarea :name "REPORTED" :rows "5" :cols "60")
-           (:br)
-           (:button :type "submit" "Report!"))))
diff --git a/src/pages/tavern.lisp b/src/pages/tavern.lisp
deleted file mode 100644
index 2fb7498..0000000
--- a/src/pages/tavern.lisp
+++ /dev/null
@@ -1,30 +0,0 @@
-;;;; pages/tavern.lisp -- enter the tavern 
-
-(in-package :dnd)
-
-(defclass/std tavern ()
-  ((player)))
-
-(defrender t ((tavern tavern))
-  (with-page (:title "A Bustling Tavern")
-      (let ((player (player tavern)))
-        (render :details player)
-        (when (player-heroes player)
-          (:h2 "Your Heroes:")
-          (render :list (player-heroes player)))
-        (:a :href "tavern/adventures"  "Adventures for which you are seer.")
-        (:br)
-        (:a :href "/goddess-shrine" "Pray a new hero rises.")
-        (:br)
-        (:a :href "/spymaster" "Report a Roguish Rumour...")
-        (:br)
-        (:a :href "/adventure-awaits" "Embark on a new Adventure!"))))
-
-
-(defclass/std tavern-adventures ()
-  ((your-adventures)))
-
-(defrender t ((page tavern-adventures))
-  (with-page (:title "Your Adventures")
-    (:h1 "You are seer on the following adventures")
-    (render :list (your-adventures page))))