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

move out builder settings

Browse source
This commit is contained in:
David Botton 2022-01-19 10:04:08 -05:00
parent b9498a616a
commit 4ce55710eb
3 changed files with 71 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

1
clog.asd
View file

@ -42,4 +42,5 @@
:depends-on (#:clog)
:pathname "tools/"
:components ((:file "clog-db-admin")
(:file "clog-builder-settings")
(:file "clog-builder")))

70
tools/clog-builder-settings.lisp Normal file
View file

@ -0,0 +1,70 @@
(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)))))

68
tools/clog-builder.lisp
View file

@ -1,73 +1,5 @@
(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)))))
(defclass builder-app-data ()
((copy-buf
:accessor copy-buf