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

Added form control

Browse source
This commit is contained in:
David Botton 2022-01-20 20:42:49 -05:00
parent 805fabffc7
commit f27de22895
2 changed files with 57 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder.lisp
View file

@ -110,7 +110,10 @@
"Return a new control based on CONTROL-RECORD as a child of PARENT"
(let* ((create-type (getf control-record :create-type))
(control-type-name (getf control-record :name))
(control (cond ((eq create-type :element)
(control (cond ((eq create-type :base)
(funcall (getf control-record :create) parent
:html-id uid))
((eq create-type :element)
(funcall (getf control-record :create) parent
:html-id uid
:content (getf control-record :create-content)))