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

sections in temlates

Browse source
This commit is contained in:
David Botton 2022-08-17 13:21:44 -04:00
parent 59401ad735
commit 8102e4a5f7
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2268,11 +2268,15 @@
(defparameter *supported-templates*
(list
'(:name "CLOG Builder - Panel Templates"
:code :group)
'(:name "New Builder Panel Project"
:code "nbp"
:type :system
:www "templates/www/"
:loc "templates/projects/clog-panel/")
'(:name "CLOG Templates - General"
:code :group)
'(:name "New CLOG Basic HTML Project"
:code "ncp"
:type :system
@ -2293,6 +2297,8 @@
:type :system
:www "templates/www/"
:loc "templates/projects/clog-web-site/")
'(:name "CLOG/CLOG Builder - Extension Templates"
:code :group)
'(:name "New CLOG/CLOG-Builder Plugin Project"
:code "ncplug"
:type :system

4
tools/clog-builder.lisp
View file

@ -2123,7 +2123,9 @@ of controls and double click to select control."
(window-center win)
(setf (win ct) win)
(dolist (tmpl *supported-templates*)
(add-select-option (template-box ct) (getf tmpl :code) (getf tmpl :name)))))
(if (eq (getf tmpl :code) :group)
(add-select-optgroup (template-box ct) (getf tmpl :name))
(add-select-option (template-box ct) (getf tmpl :code) (getf tmpl :name))))))
(defun fill-button-clicked (panel)
"Template fill botton clicked"