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

Prepare for additional connection types

Browse source
This commit is contained in:
David Botton 2024-03-11 23:20:23 -04:00
parent 64b0c663e9
commit 1c9fa342ad
17 changed files with 619 additions and 620 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-jquery.lisp
View file

@ -32,12 +32,11 @@ Some sample jquery selectors:
selector1, selectorN, ..."))
(defmethod create-jquery ((obj clog-obj) jquery)
(let ((html-id (format nil "CLOG~A" (clog-connection:generate-id))))
(clog-connection:execute
(connection-id obj)
(format nil
"clog['~A']=$(\"~A\")"
html-id jquery))
(let ((html-id (format nil "CLOG~A" (generate-id))))
(js-execute obj
(format nil
"clog['~A']=$(\"~A\")"
html-id jquery))
(make-clog-element (connection-id obj) html-id :clog-type 'clog-jquery)))
;;;;;;;;;;;;