 
 
 (defn- generate-coordinate
+  "Returns coordinate xml structure for the given coordinate"
   [coord-key coord]
   (let [{:keys [min-value max-value]} coord]
     (x/element coord-key {}

      (c/map->Coordinate value-map))))

(defn- xml-elem->TwoDCoordinateSystem
  [two-d-elem]
  (let [name (cx/string-at-path two-d-elem [:TwoD_Coordinate_System_Name])
        coord-1-elem (cx/element-at-path two-d-elem [:Coordinate1])

               (when max-value (x/element :Maximum_Value {} max-value)))))

(defn generate-two-ds
  "Returns DIF10 Spatial_Info element for the given two d coordinate systems"
  [two-d-coordinate-systems]
  (when (seq two-d-coordinate-systems)
    (x/element
