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

Allow callbacks from javascript to clog using set-on-event or sent-on-event-data and on the js side using jQuery .trigger

Browse source
This commit is contained in:
David Botton 2022-06-10 17:30:36 -04:00
parent db4f088cfb
commit 13a09b2101
2 changed files with 37 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

33
source/clog-base.lisp
View file

@ -527,18 +527,45 @@ an application share per connection the same queue of serialized events."
;; set-on-event ;;
;;;;;;;;;;;;;;;;;;
(defgeneric set-on-event (clog-obj event-name handler)
(defgeneric set-on-event (clog-obj event-name handler &key cancel-event one-time)
(:documentation "Set a HANDLER for EVENT-NAME on CLOG-OBJ. If handler is
nil unbind all event handlers. (Internal)"))
(defmethod set-on-event ((obj clog-obj) event-name handler)
(defmethod set-on-event ((obj clog-obj) event-name handler
&key
(cancel-event nil)
(one-time nil))
(set-event obj event-name
(when handler
(lambda (data)
(declare (ignore data))
(funcall handler obj)))))
(funcall handler obj)))
:cancel-event cancel-event
:one-time one-time))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-event-with-date ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric set-on-event-with-data (clog-obj event-name handler
&key cancel-event one-time)
(:documentation "Set a HANDLER for EVENT-NAME on CLOG-OBJ. If handler is nil unbind
all event handlers. Handler is called with a data option passed from javascript
calling the jQuery custom event mechanism .trigger('event_name', data) (Internal)"))
(defmethod set-on-event-with-data ((obj clog-obj) event-name handler
&key
(cancel-event nil)
(one-time nil))
(set-event obj event-name
(when handler
(lambda (data)
(funcall handler obj data)))
:call-back-script "+data"
:cancel-event cancel-event
:one-time one-time))
;;;;;;;;;;;;;;;;;;;
;; set-on-resize ;;
;;;;;;;;;;;;;;;;;;;