 
 (def ^:private ids (atom {}))
 
-(defn reset-ids []
+(defn reset-ids! []
   (reset! ids {}))
-(defn gen-id
+(defn gen-id!
   ([prefix]
-    (gen-id prefix "-"))
+    (gen-id! prefix "-"))
   ([prefix div]
    (format "%s%s%05d"
            prefix div

       [:circle {:stroke :black :stroke-width 1 :fill :indigo} [0 0] 1]]
      (into
        [:g {:id "locations" :inkscape:groupmode "layer" :inkscape:label "locations"}]
        (map (fn [coord] [:circle {:id (gen-id "location") :class "location"} coord 3]) locations))
      [:g {:id "labels" :inkscape:groupmode "layer" :inkscape:label "labels"}
       [:circle {:stroke :black :stroke-width 1 :fill :indigo} [0 0] 1]]])))

(defn svg-draft->chart [svg-draft]
  (let [svg-doc (xml->doc svg-draft)]

            height 500
            location-step 50
            location-deviation 35}}]
   (reset-ids!)
   (let [locations (locations-grid width height location-step location-deviation) ]
     [:dali/page {:width width :height height}
      (s/css "circle.location {stroke: yellow; fill: red;}")
