Add: session file

1 files changed, 0 insertions, 14 deletions

diff --git a/user.lisp b/user.lisp
index 4f1db96..65163b2 100644
--- a/user.lisp
+++ b/user.lisp
@@ -7,24 +7,10 @@
 (defclass/std user-ctl ()
   ())
 
-;;; CLIENT SESSION 
-
-(defparameter +user-key+ "vampire.userkey")
-
-(defun user-key (window)
-  (jonathan:parse (storage-element window :local +user-key+)))
-
-(defun (setf user-key) (val window)
-  (setf (storage-element window :local +user-key+) (jonathan:to-json val)))
-
-(defun session-user (clog-obj)
-  (user-with-key (user-key (window (connection-body clog-obj)))))
-
 ;;; CLIENT CONTROL
 
 ;;; CLIENT UI
 
-
 (defun create-new-playlist-form (parent &rest args)
   (declare (ignorable args))
   (with-clog-create parent