From 07799c14c11f77534e762659e8e6c7ba06e167c8 Mon Sep 17 00:00:00 2001 From: Grant Shangreaux Date: Wed, 19 Jun 2024 12:10:31 -0500 Subject: Fix: html on home page --- site/home.lisp | 20 +++++++++++--------- 1 file 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))))))) -- cgit v1.2.3