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

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

(def ATOM_HEADER_ATTRIBUTES

(defn- atom-reference->xml-element
  "Converts a search result atom reference into an XML element"
  [reference]
  (let [{:keys [id title updated dataset-id producer-gran-id size original-format
                data-center start-date end-date atom-links online-access-flag browse-flag
                day-night cloud-cover coordinate-system shapes]} reference]
    (x/element :entry {}
               (x/element :id {} id)
               (x/element :title {:type "text"} title)
