    "browsable"
    "day-night"
    "cloud-cover"
+   "coordinate-system"
    "ords-info"
    "ords"])
 

               (x/element :echo:browseFlag {} browse-flag)
               (when day-night (x/element :echo:dayNightFlag {} day-night))
               (when cloud-cover (x/element :echo:cloudCover {} cloud-cover))
               (map atom-spatial/shape->xml-element shapes))))

(defn- append-links

     :browse-flag browsable
     :day-night day-night
     :cloud-cover (str cloud-cover)
     :coordinate-system coordinate-system
     :shapes (srl/ords-info->shapes ords-info ords)}))

(def ATOM_HEADER_ATTRIBUTES
