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

---
 package.lisp    |  1 +
 session.lisp    |  4 ++--
 site/home.lisp  | 22 ++++++++++++++++++++++
 site/login.lisp | 10 ++++++++++
 vampire.asd     |  3 ++-
 5 files changed, 37 insertions(+), 3 deletions(-)
 create mode 100644 site/home.lisp
 create mode 100644 site/login.lisp

diff --git a/package.lisp b/package.lisp
index 0335b3d..e88297e 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,6 +7,7 @@
    (#:wknd #:weekend)
    (#:a #:alexandria-2)
    (#:zippy #:org.shirakumo.zippy ))
+  (:import-from #:flatbind #:do>)
   (:import-from #:bknr.datastore
                 #:with-transaction
                 #:store-object
diff --git a/session.lisp b/session.lisp
index 6d704f7..77a3bfe 100644
--- a/session.lisp
+++ b/session.lisp
@@ -13,7 +13,7 @@
 
 ;;; SESSION PARAMETER KEYS
 
-(defparameter +session-key+ "vampire-session-key"
-  "Stored in the browser's local storage")
+(defparameter +session-cookie+ "session"
+  "Cookie name")
 
 
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))
+
diff --git a/vampire.asd b/vampire.asd
index 10c0453..c618e3b 100644
--- a/vampire.asd
+++ b/vampire.asd
@@ -15,7 +15,8 @@
                #:ironclad
                #:jonathan
                #:swank
-	       #:zippy)
+	       #:zippy
+               #:flatbind)
   :components (;(:file "hunchentoot-handle-static-file")
                (:file "package")
                (:file "definition-macros")
-- 
cgit v1.2.3