mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -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

60
tools/clog-builder.lisp
View file

@ -339,34 +339,38 @@
(dolist (placer placer-list)
(setf (hiddenp placer) t))))))
(set-on-click btn-save (lambda (obj)
(dolist (placer placer-list)
(setf (hiddenp placer) t))
(let* ((cw (on-show-layout-code obj))
(result (format nil
*builder-template1*
panel-name
(escape-string
(ppcre:regex-replace-all "\\x22"
(inner-html content)
"\\\\\\\""))
panel-name
(mapcar (lambda (e)
(let ((vname (attribute e "data-lisp-name")))
(when vname
(format nil *builder-template2*
vname
(html-id e)
(format nil "CLOG:~A" (type-of e))))))
control-list)
(html-id cw)
(html-id cw))))
(js-execute obj (format nil
"editor_~A.setValue('~A');editor_~A.moveCursorTo(0,0);"
(html-id cw)
(escape-string result)
(html-id cw))))
(dolist (placer placer-list)
(setf (hiddenp placer) nil))))
(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
*builder-template1*
panel-name
(escape-string
(ppcre:regex-replace-all "\\x22"
(inner-html content)
"\\\\\\\""))
panel-name
(mapcar (lambda (e)
(let ((vname (attribute e "data-lisp-name")))
(when vname
(format nil *builder-template2*
vname
(html-id e)
(format nil "CLOG:~A" (type-of e))))))
control-list)
(html-id cw)
(html-id cw))))
(js-execute obj (format nil
"editor_~A.setValue('~A');editor_~A.moveCursorTo(0,0);"
(html-id cw)
(escape-string result)
(html-id cw))))
(setf (inner-html content) cache)
(dolist (placer placer-list)
(setf (hiddenp placer) nil)
(clog::jquery-execute placer "draggable().resizable()")))))
(set-on-click btn-prop
(lambda (obj)
(input-dialog obj