From a6c251123bbe9c174294287d494c4be99e40287a Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 18 Feb 2023 09:18:10 -0800 Subject: Saturday Pair Session --- pages.lisp | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) (limited to 'pages.lisp') diff --git a/pages.lisp b/pages.lisp index fb4026b..c435e8f 100644 --- a/pages.lisp +++ b/pages.lisp @@ -19,20 +19,28 @@ (:input :name "NAME") (:button :type "submit" "Pray To The Goddess")))) -(defun doorkeeper (&key (message "Wot's yer name 'ero?")) +(defun doorkeeper (&key (message "Come ye player, Wot's yer name?")) (with-page (:title "Tavern Door") (:h1 message) (:form :method "POST" :action "/tavern-door" - (:label :for "NAME" "Thy Hero's Appelation:") - (:input :name "NAME") + (:label :for "NICK" "Wut's yer handle?:") + (:input :name "NICK") (:button :type "submit" "Announce Thyself")) - (:h2 "Eh? Ye need to birth a new hero?") - (:a :href "/godess-shrine" "Follow me..."))) + (:h2 "Eh? Ye need to announce thyeself?") + (:a :href "/register" "Follow me..."))) + +(defun register () + (with-page (:title "Register Player") + (:header + (:h1 "Choose a Nickname Player")) + (:form :method "POST" :action "/register" + (:label :for "NICK" "Choose a nickname. No spaces. Letters, Numbers, and -._") + (:input :name "NICK" :placeholder "superbob") + (:button :type "submit" "Register")))) -(defun tavern (hero) +(defun tavern (player) (with-page (:title "A Bustling Tavern") (navbar) - (:h1 "Aye! Welcome " (hero-name hero)) (:div :class "heroes-container" (:h2 "Heroes of rampant renown:") -- cgit v1.2.3