(def event-types (into {} (map (fn [[k v]] [(keyword (.toLowerCase k)) v]) (merge (js->clj EventType)))))