diff options
Diffstat (limited to 'pages.lisp')
| -rw-r--r-- | pages.lisp | 22 |
1 files changed, 15 insertions, 7 deletions
@@ -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:") |