From 187fce76197031dba1112bd6023b41166f039f3e Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 6 Mar 2023 19:44:53 -0800 Subject: Add: adventure creation --- src/pages/adventure-awaits.lisp | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 src/pages/adventure-awaits.lisp (limited to 'src/pages') diff --git a/src/pages/adventure-awaits.lisp b/src/pages/adventure-awaits.lisp new file mode 100644 index 0000000..8255d2e --- /dev/null +++ b/src/pages/adventure-awaits.lisp @@ -0,0 +1,36 @@ +;;;; 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