From 132bb57d594894f7c9bdfea23e17971028acaedf Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 1 Jun 2024 05:59:17 -0700
Subject: Add: page macro, css. Refactor: endpoints for consistent naming

---
 site/home.lisp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'site/home.lisp')

diff --git a/site/home.lisp b/site/home.lisp
index b96b52e..dcf929a 100644
--- a/site/home.lisp
+++ b/site/home.lisp
@@ -1,10 +1,8 @@
 (in-package #:vampire)
 
-(defun home-page (user)
-  (format nil "hey ~a" (user-name user)))
-
-(wknd:defendpoint home
+(wknd:defendpoint home.html
   :using user-known
   :get :route ""
   :returns "text/html"
-  :handle (home-page user))
+  :handle (page (:title "V A M P I R E")
+            (:p "hey " (user-name user))))
-- 
cgit v1.2.3