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

exported create-jquery

Browse source
This commit is contained in:
David Botton 2022-02-16 22:16:26 -05:00
parent 9d37229175
commit 3f91a82ce6
2 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-jquery.lisp
View file

@ -28,11 +28,11 @@ can represent one or even my CLOG objects as a single element."))
(defmethod create-jquery ((obj clog-obj) jquery)
(let ((html-id (format nil "CLOG~A" (clog-connection:generate-id))))
(clog-connection:execute
connection-id
(connection-id obj)
(format nil
"clog['~A']=$(\"~A\")"
html-id jquery)))
(make-clog-element (connection-id obj) html-id :clog-type 'clog-jquery))
html-id jquery))
(make-clog-element (connection-id obj) html-id :clog-type 'clog-jquery)))
;;;;;;;;;;;;
;; jquery ;;

22
source/clog.lisp
View file

@ -90,16 +90,6 @@ embedded in a native template application.)"
"CLOG Unit utilities"
(unit function))
(defsection @clog-jquery (:title "CLOG jQuery Objects")
"CLOG-jQuery - Base class for CLOG jQuery Objects"
(clog-jQuery class)
"CLOG-jQuery methods"
(jquery generic-function)
(jquery-execute generic-function)
(jquery-query generic-function))
(defsection @clog-obj (:title "CLOG Objects")
"CLOG-Obj - Base class for CLOG Objects"
(clog-obj class)
@ -355,6 +345,18 @@ embedded in a native template application.)"
(previous-sibling generic-function)
(next-sibling generic-function))
(defsection @clog-jquery (:title "CLOG jQuery Objects")
"CLOG-jQuery - Base class for CLOG jQuery Objects"
(clog-jQuery class)
"CLOG-jQuery creation"
(create-jquery generic-function)
"CLOG-jQuery methods"
(jquery generic-function)
(jquery-execute generic-function)
(jquery-query generic-function))
(defsection @clog-element-common (:title "Common CLOG Elements")
"CLOG-A - Class for CLOG Anchors"
(clog-a class)