diff options
author | colin <colin@cicadas.surf> | 2023-02-18 09:18:10 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-02-18 09:18:10 -0800 |
commit | a6c251123bbe9c174294287d494c4be99e40287a (patch) | |
tree | eb665c9d45f97c0ad84079ff146d78594d40e92b /pages.lisp | |
parent | a0cfd78039197e45ce8dd8aacea4efb575c0b1c1 (diff) |
Saturday Pair Session
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:") |