mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

custom block html

Browse source
This commit is contained in:
David Botton 2022-07-19 22:13:42 -04:00
parent 7e317de2e3
commit bb2b3a997d
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
templates/projects/clog-plugin/tmpl-tools.lisp.lt
View file

@ -28,7 +28,7 @@
:create-type :base :create-type :base
;; setup the control at _design time_ and custom attributes ;; setup the control at _design time_ and custom attributes
:setup ,(lambda (control content control-record) :setup ,(lambda (control content control-record)
(declare (ignore content) (ignore control-record)) (declare (ignore content control-record))
;; default custom attribute values and events at design time ;; default custom attribute values and events at design time
;; tell the builder this is a composite control, ie made of multiple ;; tell the builder this is a composite control, ie made of multiple

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

@ -854,6 +854,17 @@
:create-content "<div></div>" :create-content "<div></div>"
:events (,@*events-element*) :events (,@*events-element*)
:properties (,@*props-element*)) :properties (,@*props-element*))
`(:name "block"
:description "Custom HTML Block"
:clog-type clog:clog-element
:create clog:create-child
:setup ,(lambda (control content control-record)
(declare (ignore content control-record))
(setf (attribute control "data-clog-composite-control") "t"))
:create-type :custom-query
:create-content "<div></div>"
:events (,@*events-element*)
:properties (,@*props-element*))
`(:name "style-block" `(:name "style-block"
:description "Style Block" :description "Style Block"
:clog-type clog:clog-style-block :clog-type clog:clog-style-block