diff options
author | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2023-01-21 09:08:08 -0600 |
---|---|---|
committer | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2023-01-21 09:08:08 -0600 |
commit | 25c1854c8306d4550c0ced886cbd36cb43099129 (patch) | |
tree | 0aa35ba8bb8997b178a5ab10ea7924a688dbcb75 /pages.lisp | |
parent | aee7f487f97c10c15b6c7b48156cc95db19d9137 (diff) |
Add: initial draft of doorkeeper session management
Diffstat (limited to 'pages.lisp')
-rw-r--r-- | pages.lisp | 19 |
1 files changed, 11 insertions, 8 deletions
@@ -8,12 +8,12 @@ (:title ,title)) (:body ,@body)))) -(defun a-hero-is-born () - (with-page (:title "A Hero Is Born!") +(defun godess-shrine () + (with-page (:title "A Sacred Shrine") (:header - (:h1 "A Hero Is Materializing From the Void...")) - (:form :method "POST" :action "/a-hero-is-born" - (:label :for "NAME" "Thy Hero's Appelation") + (:h1 "Pray and become a hero...")) + (:form :method "POST" :action "/godess-shrine" + (:label :for "NAME" "Enter the epithet thy hero shall be called:") (:input :name "NAME") (:button :type "submit")))) @@ -21,10 +21,13 @@ (with-page (:title "Tavern Door") (:h1 "Wot's yer name 'ero?") (:form :method "POST" :action "/tavern-door" - (:label :for "NAME" "Thy Hero's Appelation") + (:label :for "NAME" "Thy Hero's Appelation:") (:input :name "NAME") - (:button :type "submit")))) + (:button :type "submit")) + (:h2 "Eh? Ye need to birth a new hero?") + (:a :href "/godess-shrine" "Follow me..."))) (defun tavern (hero) (with-page (:title "A Bustling Tavern") - (:h1 "Aye! Welcome " (hero-name hero)))) + (:h1 "Aye! Welcome " (hero-name hero)) + ())) |