             height 500
             location-step 50
             location-deviation 35}}]
-   (reset-ids)
+   (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;}")

       [: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)]


(def ^:private ids (atom {}))

(defn reset-ids! []
  (reset! ids {}))
(defn gen-id!
  ([prefix]
    (gen-id! prefix "-"))
  ([prefix div]
   (format "%s%s%05d"
           prefix div
