mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-10 04:40:13 -08:00
Code Issues Projects Releases Wiki Activity

Clean html on render

Browse source
This commit is contained in:
David Botton 2022-01-10 18:48:13 -05:00
parent cebb81f061
commit 71f17032e3
1 changed files with 32 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder.lisp
View file

@ -339,7 +339,9 @@
(dolist (placer placer-list) (dolist (placer placer-list)
(setf (hiddenp placer) t)))))) (setf (hiddenp placer) t))))))
(set-on-click btn-save (lambda (obj) (set-on-click btn-save (lambda (obj)
(let ((cache (inner-html content)))
(dolist (placer placer-list) (dolist (placer placer-list)
(clog::jquery-execute placer "draggable('destroy').resizable('destroy').remove()")
(setf (hiddenp placer) t)) (setf (hiddenp placer) t))
(let* ((cw (on-show-layout-code obj)) (let* ((cw (on-show-layout-code obj))
(result (format nil (result (format nil
@ -365,8 +367,10 @@
(html-id cw) (html-id cw)
(escape-string result) (escape-string result)
(html-id cw)))) (html-id cw))))
(setf (inner-html content) cache)
(dolist (placer placer-list) (dolist (placer placer-list)
(setf (hiddenp placer) nil)))) (setf (hiddenp placer) nil)
(clog::jquery-execute placer "draggable().resizable()")))))
(set-on-click btn-prop (set-on-click btn-prop
(lambda (obj) (lambda (obj)
(input-dialog obj (input-dialog obj