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

update documentation, remove tabs

Browse source
This commit is contained in:
David Botton 2022-07-18 22:26:37 -04:00
parent 2c9ce0864f
commit 25a9462f1f
84 changed files with 2163 additions and 2278 deletions
Download patch file Download diff file Expand all files Collapse all files

24
source/clog-base.lisp
View file

@ -347,25 +347,25 @@ result or if time out DEFAULT-ANSWER. see JQUERY-QUERY (Internal)"))
(cancel-event nil)
(one-time nil))
(let ((hook (format nil "~A:~A" (html-id obj) event))
(cd (connection-data obj)))
(cd (connection-data obj)))
(if cd
(cond (handler
(cond (handler
(bind-event-script
obj event (format nil "~Aws.send('E:~A '~A)~A~@[~A~]~@[~A~]"
eval-script
hook
call-back-script
post-eval
(when one-time
obj event (format nil "~Aws.send('E:~A '~A)~A~@[~A~]~@[~A~]"
eval-script
hook
call-back-script
post-eval
(when one-time
(format nil "; ~A.off('~A')"
(jquery obj)
event))
(when cancel-event "; return false")))
(setf (gethash hook cd) handler))
(t
(when cancel-event "; return false")))
(setf (gethash hook cd) handler))
(t
(unbind-event-script obj event)
(remhash hook cd)))
(format t "Attempt to set event on non-existant connection."))))
(format t "Attempt to set event on non-existant connection."))))
;;;;;;;;;;;;;;
;; property ;;