mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Add support to encode call back messages

Browse source
This commit is contained in:
David Botton 2020-12-30 20:38:09 -05:00
parent 3c9e011cd8
commit 39ff5175ef
3 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
clog-window.lisp
View file

@ -473,16 +473,16 @@ If ON-ORIENTATION-CHANGE-HANDLER is nil unbind the event."))
;; need to change to use a true on-storage event
(defparameter storage-event-script
"+ e.originalEvent.key + ':' +
e.originalEvent.oldValue + ':' +
e.originalEvent.newValue + ':'")
"+ encodeURIComponent(e.originalEvent.key) + ':' +
encodeURIComponent(e.originalEvent.oldValue) + ':' +
encodeURIComponent(e.originalEvent.newValue) + ':'")
(defun parse-storage-event (data)
(let ((f (ppcre:split ":" data)))
(list
:key-value (nth 0 f)
:old-value (nth 1 f)
:new-value (nth 2 f))))
:key-value (quri:url-decode (nth 0 f))
:old-value (quri:url-decode (nth 1 f))
:new-value (quri:url-decode (nth 2 f)))))
(defgeneric set-on-storage (clog-window on-storage-handler)
(:documentation "Set the ON-STORAGE-HANDLER for CLOG-OBJ. If