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-awaits.lisp | 36 ------------------------------------ src/pages/adventure-page.lisp | 24 ------------------------ src/pages/doorkeeper.lisp | 19 ------------------- src/pages/goddess-shrine.lisp | 13 ------------- src/pages/hero-page.lisp | 12 ------------ src/pages/join.lisp | 13 ------------- src/pages/quest-page.lisp | 11 ----------- src/pages/spymaster.lisp | 18 ------------------ src/pages/tavern.lisp | 30 ------------------------------ 9 files changed, 176 deletions(-) delete mode 100644 src/pages/adventure-awaits.lisp delete mode 100644 src/pages/adventure-page.lisp delete mode 100644 src/pages/doorkeeper.lisp delete mode 100644 src/pages/goddess-shrine.lisp delete mode 100644 src/pages/hero-page.lisp delete mode 100644 src/pages/join.lisp delete mode 100644 src/pages/quest-page.lisp delete mode 100644 src/pages/tavern.lisp (limited to 'src/pages') 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)))) -- cgit v1.2.3