Add: initial draft of doorkeeper session management

1 files changed, 11 insertions, 8 deletions

diff --git a/pages.lisp b/pages.lisp
index 7bbf48b..72291e5 100644
--- a/pages.lisp
+++ b/pages.lisp
@@ -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))
+    ()))