mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-15 06:50:20 -08:00
70 lines
2 KiB
Common Lisp
70 lines
2 KiB
Common Lisp
(in-package :clog-tools)
|
|
|
|
(defparameter supported-controls
|
|
(list
|
|
'(:name "select"
|
|
:description "Selection Tool"
|
|
:create nil
|
|
:create-type nil
|
|
:properties nil
|
|
:positioning nil
|
|
:events nil)
|
|
'(:name "label"
|
|
:description "Text Label"
|
|
:clog-type clog:clog-label
|
|
:create clog:create-label
|
|
:create-type :element
|
|
:create-content "label"
|
|
:properties ((:name "text"
|
|
:prop clog:text)
|
|
(:name "positioning"
|
|
:prop clog:positioning)
|
|
(:name "color"
|
|
:prop clog:color)
|
|
(:name "background-color"
|
|
:prop clog:background-color)))
|
|
'(:name "button"
|
|
:description "Button"
|
|
:clog-type clog:clog-form-element
|
|
:create clog:create-form-element
|
|
:create-type :form
|
|
:create-param :button
|
|
:create-value "button"
|
|
:properties ((:name "value"
|
|
:prop clog:value)
|
|
(:name "positioning"
|
|
:prop clog:positioning)
|
|
(:name "color"
|
|
:prop clog:color)
|
|
(:name "background-color"
|
|
:prop clog:background-color)))
|
|
'(:name "input"
|
|
:description "Text Input"
|
|
:clog-type clog:clog-form-element
|
|
:create clog:create-form-element
|
|
:create-type :form
|
|
:create-param :input
|
|
:create-value ""
|
|
:properties ((:name "value"
|
|
:prop clog:value)
|
|
(:name "positioning"
|
|
:prop clog:positioning)
|
|
(:name "color"
|
|
:prop clog:color)
|
|
(:name "background-color"
|
|
:prop clog:background-color)))
|
|
'(:name "div"
|
|
:description "DIV Control"
|
|
:clog-type clog:clog-div
|
|
:create clog:create-div
|
|
:create-type :element
|
|
:create-content ""
|
|
:properties ((:name "text"
|
|
:prop clog:text)
|
|
(:name "positioning"
|
|
:prop clog:positioning)
|
|
(:name "color"
|
|
:prop clog:color)
|
|
(:name "background-color"
|
|
:prop clog:background-color)))))
|
|
|