aboutsummaryrefslogtreecommitdiffhomepage
path: root/site
diff options
context:
space:
mode:
authorGrant Shangreaux <grant@unabridgedsoftware.com>2024-06-19 12:10:31 -0500
committerGrant Shangreaux <grant@unabridgedsoftware.com>2024-06-19 12:10:31 -0500
commit07799c14c11f77534e762659e8e6c7ba06e167c8 (patch)
tree35bcd8aa00b0b9fb47552b37af1f7118d69350f8 /site
parent5a586d369c823a040989283a3650444a2b0c0913 (diff)
Fix: html on home page
Diffstat (limited to 'site')
-rw-r--r--site/home.lisp20
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)))))))