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

Added *store-new-objects

Browse source
This commit is contained in:
David Botton 2022-08-18 11:36:50 -04:00
parent a8cd449ff2
commit 6ef9b9c20a
2 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

26
source/clog-element.lisp
View file

@ -10,6 +10,10 @@
;;; clog-elements represent the base object for visual html elements.
(defvar *store-new-objects* nil
"Dynamic variable that when true every create-* or attach-* will also
create a connection-data-item keyed by the html-id")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-element
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -24,7 +28,11 @@ element objects."))
(defun make-clog-element (connection-id html-id &key (clog-type 'clog-element))
"Construct a new clog-element or sub-element of CLOG-TYPE. (Private)"
(make-instance clog-type :connection-id connection-id :html-id html-id))
(let ((obj (make-instance clog-type :connection-id connection-id
:html-id html-id)))
(when *store-new-objects*
(setf (connection-data-item obj html-id) obj))
obj))
;;;;;;;;;;;;;;;;;;;;;;
;; create-with-html ;;
@ -2191,6 +2199,7 @@ is set to :table-cell or for labels on form elements."))
(:documentation "Remove CLOG-Element from the clog cache on browser."))
(defmethod remove-from-clog ((obj clog-element))
(remove-connection-data-item obj (html-id obj))
(js-execute obj (format nil "~A=null;" (script-id obj))))
;;;;;;;;;;;;;
@ -2229,6 +2238,21 @@ Returns CLOG-ELEMENT"))
(jquery-execute obj (format nil "replaceWith(~A)" (jquery new)))
obj)
;;;;;;;;;;;;;;;;;;;;;;
;; replace-children ;;
;;;;;;;;;;;;;;;;;;;;;;
(defgeneric replace-children (clog-element new-clog-element)
(:documentation "All CLOG-ELEMENT's children will we removed from DOM
but not destroyed and NEW-CLOG-ELEMENT will be placed in CLOG-ELEMENT.
DESTROY CLOG-ELEMENT if need to clear from browser memory.
Returns CLOG-ELEMENT"))
(defmethod replace-children ((obj clog-element) (new clog-element))
(setf (inner-html obj) "")
(place-inside-top-of obj new)
obj)
;;;;;;;;;;;;;;;;;;;;;;;;
;; swap-element-by-id ;;
;;;;;;;;;;;;;;;;;;;;;;;;