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

clean up custom html

Browse source
This commit is contained in:
David Botton 2022-01-28 12:23:02 -05:00
parent e46f74abc3
commit c8152f60ca
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -517,7 +517,7 @@
:clog-type clog:clog-element
:create clog:create-child
:create-type :custom-query
:create-content "<div><button>test</button></div>"
:create-content "<div></div>"
:events (,@*events-element*)
:properties (,@*props-base*))
`(:name "label"

2
tools/clog-builder.lisp
View file

@ -193,7 +193,7 @@
(let* ((control-record (control-info (value (select-tool app))))
(control-type-name (getf control-record :create-type)))
(if (eq control-type-name :custom-query)
(input-dialog win "Enter custom html:"
(input-dialog win "Enter html (must have an outer element):"
(lambda (custom-query)
(when custom-query
(do-drop-new-control