From a95cdd714187903ed24e40804c449e8e4737f027 Mon Sep 17 00:00:00 2001
From: Grant Shoshin Shangreaux <shoshin@cicadas.surf>
Date: Sat, 6 Jul 2024 15:44:51 -0500
Subject: Add: redefined pages with hypnotisml syntax

---
 site/home.lisp | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

(limited to 'site/home.lisp')

diff --git a/site/home.lisp b/site/home.lisp
index 0b02e0c..ebc644b 100644
--- a/site/home.lisp
+++ b/site/home.lisp
@@ -4,20 +4,19 @@
   :using user-known
   :get :route ""
   :returns "text/html"
-  :handle (page (:title "V A M P I R E")
-	    (:div :id "main"
-		  (:h1 "hey " (user-name user))
-		  (:br)
-		  (:div
-		   (:form :method "POST" :action (wknd:route-to 'destroy.session)
-			  (:button :type "submit" "Logout")))
-		  (:br)
-		  (:br)
-		  (:div
-		   (:form :method "POST" :action (wknd:route-to 'create.invite)
-			  (:p "Initiate an invitation...")
-			  (:button :type "submit" "Bite Someone")))
-		  (:br)
-		  (:h2 "Outstanding inBites:")
-		  (:ul (dolist (i (invites-by-maker user))
-			 (:li (key i)))))))
+  :handle
+  (page
+   "V A M P I R E"
+   (<div>
+    ($vcenter
+     (<div> (<h3> "hey " (user-name user))
+	    (<form> (@ :method "POST" :action (wknd:route-to 'destroy.session))
+		    (<button> (@ :type "submit") "Logout"))))
+    (<div>
+     (<form> (@ :method "POST" :action (wknd:route-to 'create.invite))
+	     (<p> "Initiate an invitation...")
+	     (<button> (@ :type "submit") "Bite Someone")))
+    (<h2> "Outstanding inBites:")
+    (apply #'<ul>
+	   (mapcar (lambda (i) (<li> (key i)))
+		   (invites-by-maker (user-with-name "alucard")))))))
-- 
cgit v1.2.3