From 5a586d369c823a040989283a3650444a2b0c0913 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <grant@unabridgedsoftware.com>
Date: Wed, 19 Jun 2024 12:01:29 -0500
Subject: [87] Add: invite creation, listing, and deletion when used up

---
 site/home.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'site/home.lisp')

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))))))
-- 
cgit v1.2.3