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

roll back render and move the resize observer to the clog framework

Browse source
This commit is contained in:
David Botton 2024-08-13 14:21:23 -04:00
parent d924cc437c
commit a34e516325
3 changed files with 15 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tools/clog-builder-render.lisp
View file

@ -111,28 +111,14 @@
handler)
events))))))
;; Set on-create (from user in builder) and on-setup (from control-record)
(let ((resizeh (attribute control "data-on-resize"))
(handler (attribute control "data-on-create")))
(let ((handler (attribute control "data-on-create")))
(when (equalp handler "undefined")
(setf handler ""))
(when (equalp resizeh "undefined")
(setf resizeh ""))
(when (getf control-record :on-setup)
(setf handler (format nil "~A~A"
(funcall (getf control-record :on-setup)
control control-record)
handler)))
(unless (equal resizeh "")
(push (format nil
" \(js-execute panel
\(format nil \"new ResizeObserver\(\(\) => {
~~A.trigger\('resize'\);
}\).observe\(~~A\)\"
\(jquery \(~A panel\)\)
\(script-id \(~A panel\)\)\)\)"
vname
vname)
creates))
(unless (equal handler "")
(push (format nil
" \(let \(\(target \(~A panel\)\)\) ~