diff options
| author | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-19 12:10:31 -0500 |
|---|---|---|
| committer | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-19 12:10:31 -0500 |
| commit | 07799c14c11f77534e762659e8e6c7ba06e167c8 (patch) | |
| tree | 35bcd8aa00b0b9fb47552b37af1f7118d69350f8 /site/home.lisp | |
| parent | 5a586d369c823a040989283a3650444a2b0c0913 (diff) | |
Fix: html on home page
Diffstat (limited to 'site/home.lisp')
| -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))))))) |