diff options
Diffstat (limited to 'site/home.lisp')
| -rw-r--r-- | site/home.lisp | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/site/home.lisp b/site/home.lisp index dcf929a..f84700e 100644 --- a/site/home.lisp +++ b/site/home.lisp @@ -5,4 +5,12 @@ :get :route "" :returns "text/html" :handle (page (:title "V A M P I R E") - (:p "hey " (user-name user)))) + (: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)))))) |