Add: some more refinement of hypno pages88-user-home-page

1 files changed, 15 insertions, 15 deletions

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))))