aboutsummaryrefslogtreecommitdiffhomepage
path: root/site/home.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'site/home.lisp')
-rw-r--r--site/home.lisp30
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))))