From 52c0408569a0b1de932d52e71fee5fb0163782e2 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 07:17:04 -0500 Subject: Add: session file --- user.lisp | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'user.lisp') 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 -- cgit v1.2.3