mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-16 23:30:56 -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 :clog-type clog:clog-element
:create clog:create-child :create clog:create-child
:create-type :custom-query :create-type :custom-query
:create-content "<div><button>test</button></div>" :create-content "<div></div>"
:events (,@*events-element*) :events (,@*events-element*)
:properties (,@*props-base*)) :properties (,@*props-base*))
`(:name "label" `(:name "label"

2
tools/clog-builder.lisp
View file

@ -193,7 +193,7 @@
(let* ((control-record (control-info (value (select-tool app)))) (let* ((control-record (control-info (value (select-tool app))))
(control-type-name (getf control-record :create-type))) (control-type-name (getf control-record :create-type)))
(if (eq control-type-name :custom-query) (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) (lambda (custom-query)
(when custom-query (when custom-query
(do-drop-new-control (do-drop-new-control