diff options
| -rw-r--r-- | site/home.lisp | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/site/home.lisp b/site/home.lisp index f84700e..c8fe9d1 100644 --- a/site/home.lisp +++ b/site/home.lisp @@ -5,12 +5,14 @@ :get :route "" :returns "text/html" :handle (page (:title "V A M P I R E") - (:p "hey " (user-name user)) - (:div - (:form :method "POST" :action "/invites" - (:p "Initiate an invitation...") - (:button :type "submit" "Bite Someone"))) - (:br) - (:h2 "Outstanding inBites:") - (:ul (dolist (i (invites-by-maker user)) - (:li (key i)))))) + (:div :id "main" + (:h1 "hey " (user-name user)) + (:br) + (:div + (:form :method "POST" :action "/invites" + (:p "Initiate an invitation...") + (:button :type "submit" "Bite Someone"))) + (:br) + (:h2 "Outstanding inBites:") + (:ul (dolist (i (invites-by-maker user)) + (:li (key i))))))) |