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

add convert to div for html block

Browse source
This commit is contained in:
David Botton 2022-07-21 12:47:24 -04:00
parent 2028bb2d7a
commit 3d4f354093
1 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
tools/clog-builder-settings.lisp
View file

@ -332,10 +332,23 @@
nil)))) nil))))
(defparameter *props-raw-contents* (defparameter *props-raw-contents*
`((:name "html contents" `((:name "commands"
:setup ,(lambda (control td1 td2) :setup ,(lambda (control td1 td2)
(declare (ignore td1)) (declare (ignore td1))
(let ((d1 (create-text-area td2 :value (escape-string (attribute control "data-original-html") :html t)))) (let ((exp (create-button td2 :content "convert to div")))
(set-on-click exp (lambda (obj)
(setf (attribute control "data-clog-type") "div")
(remove-attribute control "data-original-html")
(remove-attribute control "data-clog-composite-control")
(clog-web-alert obj
"Convert to Div"
"Save and reload panel to access child controls."
:color-class "w3-yellow"))))))
(:name "html contents"
:setup ,(lambda (control td1 td2)
(declare (ignore td1))
(let ((app (connection-data-item td1 "builder-app-data"))
(d1 (create-text-area td2 :value (escape-string (attribute control "data-original-html") :html t))))
(set-on-change d1 (lambda (obj) (set-on-change d1 (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(setf (attribute control "data-original-html") (value d1)) (setf (attribute control "data-original-html") (value d1))