aboutsummaryrefslogtreecommitdiffhomepage
path: root/user.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-27 07:17:04 -0500
committerColin Okay <colin@cicadas.surf>2022-10-27 07:17:04 -0500
commit52c0408569a0b1de932d52e71fee5fb0163782e2 (patch)
tree33501b371d3f036b4a60f76ca1177ba484720ac3 /user.lisp
parentf0eff7d9c69de2e6c7257b8d94e7deb7b89becdf (diff)
Add: session file
Diffstat (limited to 'user.lisp')
-rw-r--r--user.lisp14
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