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

Remove use of package local nicknames

Browse source
This commit is contained in:
David Botton 2021-11-05 13:25:42 -04:00
parent 0c5408f281
commit 8eb1bd753e
9 changed files with 32 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-element.lisp
View file

@ -40,8 +40,8 @@ clog[] but is not in the DOM. If HTML-ID is nil one is generated.
(private)"
(let ((web-id (if html-id
html-id
(cc:generate-id))))
(cc:execute
(clog-connection:generate-id))))
(clog-connection:execute
connection-id
(format nil
"clog['~A']=$(\"~A\").get(0); $(clog['~A']).first().prop('id','~A')"
@ -55,7 +55,7 @@ clog[] but is not in the DOM. If HTML-ID is nil one is generated.
(defun attach (connection-id html-id)
"Create a new clog-obj and attach an existing element with HTML-ID on
CONNECTION-ID to it and then return it. The HTML-ID must be unique. (private)"
(cc:execute connection-id
(clog-connection:execute connection-id
(format nil "clog['~A']=$('#~A').get(0)" html-id html-id))
(make-clog-element connection-id html-id))
@ -93,7 +93,7 @@ must be in DOM, ie placed or auto-placed."))
(defmethod attach-as-child ((obj clog-obj) html-id
&key (clog-type 'clog-element))
(cc:execute (connection-id obj)
(clog-connection:execute (connection-id obj)
(format nil "clog['~A']=$('#~A').get(0)" html-id html-id))
(make-clog-element (connection-id obj) html-id :clog-type clog-type))