each custom control project own category

templates/projects/clog-plugin/tmpl-tools.lisp.lt

@@ -2,7 +2,13 @@
 
 (progn
   (clog-tools:add-supported-controls
-   (list `(;; unique name to control used to identify it the .clog xml
+   (list '(:name           "group"
+	   :description    "<%= (@ sys-name) %> Controls"
+	   :create         nil
+	   :create-type    nil
+	   :events         nil
+	   :properties     nil)
+	  `(;; unique name to control used to identify it the .clog xml
            :name           "<%= (@ sys-name) %>"
 	   ;; how control appears in builder control list 
 	   :description    "<%= (@ sys-name) %>"

tools/clog-builder-settings.lisp

@@ -1693,14 +1693,7 @@
                        :attr "data-clog-one-row-limit")
                       (:name "join to slot-name (optional)"
                        :attr "data-clog-one-row-master")
-                      ,@*props-form-element*))
+                      ,@*props-form-element*))))
-   '(:name           "group"
-     :description    "Custom Controls"
-     :create         nil
-     :create-type    nil
-     :events         nil
-     :properties     nil)))
-
 
 (defparameter *supported-templates*
   (list

tools/clog-builder.lisp

@@ -260,7 +260,8 @@ replaced."
   (dolist (r control-records)
     (setf *supported-controls*
 	  (append (remove-if (lambda (x)
-			       (equal (getf x :name) (getf r :name)))
+			       (unless (equalp (getf x :name) "group")
+				 (equal (getf x :name) (getf r :name))))
 			     *supported-controls*)
 		  (list r)))))