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 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 src/pages/adventure-awaits.lisp (limited to 'src/pages/adventure-awaits.lisp') 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!"))))) -- cgit v1.2.3