diff options
| author | colin <colin@cicadas.surf> | 2024-05-18 07:50:16 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-18 07:50:16 -0700 |
| commit | 23873b455554ba40f79be561b5150b4526a19d3f (patch) | |
| tree | bbb29e580e99f45c62fae376db5e75615015a830 /session.lisp | |
| parent | 9ab26f07d209a387252a87dc10e986995bbc154a (diff) | |
Remove: Purged CLOG
Diffstat (limited to 'session.lisp')
| -rw-r--r-- | session.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/session.lisp b/session.lisp index d7bd937..6d704f7 100644 --- a/session.lisp +++ b/session.lisp @@ -17,17 +17,3 @@ "Stored in the browser's local storage") -;;; SESSION ACCESSORS - -(defun session-key (window) - (jonathan:parse (storage-element window :local +session-key+))) - -(defun (setf session-key) (val window) - (setf (storage-element window :local +session-key+) (jonathan:to-json val))) - -(defun session-user (clog-obj) - (when-let (obj (object-with-key (session-key (window (connection-body clog-obj))))) - (when (typep obj 'session) - (user obj)))) - - |