diff options
| author | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-19 12:01:29 -0500 |
|---|---|---|
| committer | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-19 12:01:29 -0500 |
| commit | 5a586d369c823a040989283a3650444a2b0c0913 (patch) | |
| tree | a617035409c3c076c10bcd1449cf5ad70ef8127a /site/home.lisp | |
| parent | 132bb57d594894f7c9bdfea23e17971028acaedf (diff) | |
[87] Add: invite creation, listing, and deletion when used up
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)))))) |