From 2832a7c9e75400e36ca12a028ffcbeece44c8216 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Fri, 31 May 2024 10:06:47 -0700
Subject: checkpoint

---
 site/home.lisp  | 22 ++++++++++++++++++++++
 site/login.lisp | 10 ++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 site/home.lisp
 create mode 100644 site/login.lisp

(limited to 'site')

diff --git a/site/home.lisp b/site/home.lisp
new file mode 100644
index 0000000..97c2a87
--- /dev/null
+++ b/site/home.lisp
@@ -0,0 +1,22 @@
+(in-package #:vampire)
+
+(defclass user-known ()
+  ((user :accessor user)))
+
+(defmethod wknd:authenticate ((req user-known))
+  (or
+   (do>
+     key :when= (wknd:get-cookie +session-cookie+)
+     session :when= (object-with-key key)
+     :when (typep session 'session)
+     (setf (user req) (user session)))
+   (weekend:endpoint-redirect 'login)))
+
+(defun home-page (user)
+  (format nil "hey ~a" (user-name user)))
+
+(wknd:defendpoint home
+  :using user-known
+  :get :route ""
+  :returns "text/html"
+  :handle (home-page user))
diff --git a/site/login.lisp b/site/login.lisp
new file mode 100644
index 0000000..afbd80e
--- /dev/null
+++ b/site/login.lisp
@@ -0,0 +1,10 @@
+(in-package #:vampire)
+
+(defun login-page ()
+  "login")
+
+(wknd:defendpoint login
+  :get :route "login"
+  :returns "text/html"
+  :handle (login-page))
+
-- 
cgit v1.2.3