                    (fn [feature]
                      (let [text (.getProperty feature "text_content")
                            category (.getProperty feature "category")]
-                       (clj->js {:title (if (> (count text) 0) text category)
-                                 :icon (icon (color category))}))))))))
+                       #js{:title (if (> (count text) 0) text category)
+                           :icon #js{:path google.maps.SymbolPath.CIRCLE
+                                     :scale 3
+                                     :fillColor (color category)
+                                     :strokeWeight 0
+                                     :fillOpacity 1} })))))))
 
 (defn init
   []

(defn color
  [key]
  (condp = key
    "paikka-tai-alue-asuinrakentamiselle" "blue"
    "alue-ei-ole-virkistykselle-valttamaton-paikalle-voisi-rakentaa" "red"
    "green"
    ))

(defn add-data
  [data]

  [id]
  (log "adding map ")
  (log id)
  (let [map-opts #js{"center" (google.maps.LatLng. lat lon)
                     "zoom" 11
                     "panControl" false
                     "zoomControl" true
                     "mapTypeControl" false
                     "scaleControl" false
                     "streetViewControl" false
                     "overviewMapControl" false }
        el (sel1 (str ".map-ranking-content#" id " " ".g-mapcanvas"))
        map (google.maps.Map. el map-opts)]
    (swap! maps assoc id map)
