mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 12:20:27 -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)
(setf (hiddenp placer) t))))))
(set-on-click btn-save (lambda (obj)
(let ((cache (inner-html content)))
(dolist (placer placer-list)
(clog::jquery-execute placer "draggable('destroy').resizable('destroy').remove()")
(setf (hiddenp placer) t))
(let* ((cw (on-show-layout-code obj))
(result (format nil
@ -365,8 +367,10 @@
(html-id cw)
(escape-string result)
(html-id cw))))
(setf (inner-html content) cache)
(dolist (placer placer-list)
(setf (hiddenp placer) nil))))
(setf (hiddenp placer) nil)
(clog::jquery-execute placer "draggable().resizable()")))))
(set-on-click btn-prop
(lambda (obj)
(input-dialog obj