       (c/map->Coordinate value-map))))
 
 (defn- xml-elem->TwoDCoordinateSystem
+  "Returns a UMM TwoDCoordinateSystem from a parsed TwoDCoordinateSystem XML structure"
   [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])



(defn- generate-coordinate
  [coord-key coord]
  (let [{:keys [min-value max-value]} coord]
    (x/element coord-key {}

                                  :coordinate-2 (xml-elem->Coordinate coord-2-elem)})))

(defn xml-elem->TwoDCoordinateSystems
  "Returns UMM TwoDCoordinateSystems from a parsed Collection XML structure"
  [collection-element]
  (seq (map xml-elem->TwoDCoordinateSystem
            (cx/elements-at-path collection-element
