From 9494ccb01b7d7e02ffe92e3a37341e47a2bbfa84 Mon Sep 17 00:00:00 2001
From: Grant Shoshin Shangreaux <shoshin@cicadas.surf>
Date: Sat, 6 Jul 2024 21:33:01 -0500
Subject: Add: some more refinement of hypno pages

---
 site/home.lisp | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'site/home.lisp')

diff --git a/site/home.lisp b/site/home.lisp
index ebc644b..5efb5c8 100644
--- a/site/home.lisp
+++ b/site/home.lisp
@@ -5,18 +5,18 @@
   :get :route ""
   :returns "text/html"
   :handle
-  (page
-   "V A M P I R E"
-   (<div>
-    ($vcenter
-     (<div> (<h3> "hey " (user-name user))
-	    (<form> (@ :method "POST" :action (wknd:route-to 'destroy.session))
-		    (<button> (@ :type "submit") "Logout"))))
-    (<div>
-     (<form> (@ :method "POST" :action (wknd:route-to 'create.invite))
-	     (<p> "Initiate an invitation...")
-	     (<button> (@ :type "submit") "Bite Someone")))
-    (<h2> "Outstanding inBites:")
-    (apply #'<ul>
-	   (mapcar (lambda (i) (<li> (key i)))
-		   (invites-by-maker (user-with-name "alucard")))))))
+  (page "V A M P I R E"
+    (<div> ($ :width "100%")
+     (<navbar>)
+     (<div> ($ :height "70%" )
+      (<h3> "hey " (user-name user))
+      (<form> (@ :method "POST" :action (wknd:route-to 'create.invite))
+	      (<p> "Initiate an invitation...")
+	      (<submit> "Bite Someone"))
+      (<h2> "Outstanding inBites:")
+      (<invite-list> user)))))
+
+(defun <invite-list> (user)
+  (apply #'<ul>
+	 (mapcar (lambda (i) (<li> (key i)))
+		 (invites-by-maker user))))
-- 
cgit v1.2.3