From 0b21729661ed1905eb886b1eba6f8b062305c9a3 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 07:52:50 -0500
Subject: Modify+Add: Added pw hashing stuff to user. Add login file.

---
 session.lisp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'session.lisp')

diff --git a/session.lisp b/session.lisp
index 770bc8d..0ad10c2 100644
--- a/session.lisp
+++ b/session.lisp
@@ -2,7 +2,12 @@
 
 (in-package :vampire)
 
-;;; session parameter keys
+;;; SESSION CLASS 
+
+(defclass/bknr session (keyed)
+  ((user :std (error "Sessions must be associated with users."))))
+
+;;; SESSION PARAMETER KEYS
 
 (defparameter +session-key+ "vampire-session-key"
   "Stored in the browser's local storage")
@@ -19,7 +24,9 @@
   (setf (storage-element window :local +session-key+) (jonathan:to-json val)))
 
 (defun session-user (clog-obj)
-  (user-with-key (session-key (window (connection-body clog-obj)))))
+  (when-let (obj (object-with-key (session-key (window (connection-body clog-obj)))))
+    (when (typep obj 'session)
+      (user obj))))
 
 (defun cur-playlist-ctl (obj)
   (connection-data-item obj +playlist-connection-key+))
-- 
cgit v1.2.3