 
 (defn add-group [components group]
   (core defineConfigGroup group)
-  (update-groups-table (:groups-table components))
+ ; (update-groups-table (:groups-table components))
   )
 
 (defn rename-group [components group-old group-new]
   (core renameConfigGroup group-old group-new)
-  (update-groups-table (:groups-table components))
+  ;(update-groups-table (:groups-table components))
   )
 
 (defn delete-group [components group]
   (core deleteConfigGroup group)
-  (update-groups-table (:groups-table components))
+  ;(update-groups-table (:groups-table components))
   )
 
 ;; editing presets

    (start nil))
  ([group]
    (let [components (show)]
      (activate-groups-table components)
      components)))


(load-mm)

(def groups (atom nil))

(defn update-groups []
  (reset! groups (seq (core getAvailableConfigGroups)))
  (.refreshGUI gui))

(defn presets [group]
  (when-not (empty? group)
