mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-30 12:23:00 -08:00
Code Issues Projects Releases Wiki Activity

reset-page-on-authentication-change change to set-on

Browse source
This commit is contained in:
David Botton 2022-04-18 21:22:40 -04:00
parent 47057b5000
commit 421ee95bf1
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
source/clog-auth.lisp
View file

@ -16,10 +16,10 @@
(defsection @clog-auth (:title "CLOG Auth Objects")
"CLOG-AUTH - authorization abstraction for CLOG"
(get-authentication-token function)
(store-authentication-token function)
(remove-authentication-token function)
(reset-page-on-authentication-change function))
(get-authentication-token function)
(store-authentication-token function)
(remove-authentication-token function)
(set-on-authentication-change function))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-auth
@ -56,15 +56,15 @@
(defun remove-authentication-token (body)
(storage-remove (window body) :local *clog-auth-key*))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; reset-page-on-authentication-change ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-authentication-change ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun reset-page-on-authentication-change (obj)
(defun set-on-authentication-change (obj handler)
(let ((body (connection-body obj)))
(set-on-storage (window body) (lambda (obj data)
(set-on-storage (window body) nil)
(when (equalp (getf data :key)
"clog-auth-token")
(reload (location body)))))))
(funcall handler body))))))