 
 (defn reset-markers [owner]
   (let [markers (om/get-state owner :markers)]
-    (.log js/console (pr-str markers))
     (dorun
       (map #(.setIcon (:marker %) (reset-ico (:icon %))) markers))))
 

(defn add-group [owner places opts]
  (map #({:name (:name %) :group (js/L.MarkerClusterGroup.)})))

(defn delete-markers [owner units]
  (let [l-map (om/get-state owner :map)]
    (dorun
     (map #(.removeLayer l-map (om/get-state owner [:markers % :marker]))
       (map :id units))))
  (om/update-state! owner :markers #(apply dissoc % (map first units))))

(defn cancel-action [owner]
  (js/clearTimeout (om/get-state owner :evt-timeout))

    {:marker marker :icon icon :pos pos :id (:id point)}))

(defn add-markers [data owner units]
  (let [map (om/get-state owner :map)]
    (om/update-state! owner :markers
      #(into % (for [unit units]
                 (mark-it! data owner map unit))))))
