diff options
Diffstat (limited to 'site/home.lisp')
| -rw-r--r-- | site/home.lisp | 30 |
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)))) |