gistfile1.txt

(ns com.perfectabstractions.im-designer.ImDesignerHook
  (:import (com.perfectabstractions.im-client.components ImComponent)
           (com.inductiveautomation.ignition.designer.model AbstractDesignerModuleHook
                                                            DesignerContext)
           (com.inductiveautomation.ignition.common.licensing LicenseState)
           (com.inductiveautomation.vision.api.designer VisionDesignerInterface)
           (com.inductiveautomation.vision.api.designer.palette Palette
                                                                PaletteItemGroup
                                                                JavaBeanPaletteItem))
  (:gen-class :extends com.inductiveautomation.ignition.designer.model.AbstractDesignerModuleHook
              :state state
              :init init
              :constructors {[] []}) )

(def module-id
  "im-designer")

(defn -startup
  [context activationState]
  (comment 
    (.addBeanInfoSearchPath context "com.perfectabstractions.im_designer.bean_infos")
    (let [vdi (.getModule context VisionDesignerInterface/VISION_MODULE_ID)
          palette (.getPalette vdi)
          group (.addGroup palette "Example")]
      (print "test")
      (comment
        (.addPaletteItem group (JavaBeanPaletteItem. ImComponent/class))))))

(defn -main
  []
  (print "done"))