     (let [location-column (.indexOf tags "Location")]
       (alter current-data
              (fn [coll] (vec (remove #(= (nth % location-column) loc) coll))))))
-  (awt-event (update-browser-table)
-             (-> @settings-window :locations :table .getModel .fireTableDataChanged)
+  (awt-event (-> @settings-window :locations :table .getModel .fireTableDataChanged)
 ))
 
 (defn remove-selected-locations [] 

    (start-browser)
    (.show (@browser :frame))))



  (let [f (File. data-set "display_and_comments.txt")]
    (if (.exists f) (read-json (slurp f) false) nil)))

;(defn read-summary-map [data-set]
;  (-> (->> (File. data-set "metadata.txt")
;           FileReader. BufferedReader. line-seq
;           (take-while #(not (.startsWith % "},")))
;           (apply str))
;      (.concat "}}") (read-json false) (get "Summary"))) 

(defn read-summary-map [path]
  (try
  (-> gui
      (.openAcquisitionData path false false)
      .getImageCache
      .getSummaryMetadata
      json-to-data)
  (catch Exception e nil)))

(defn get-summary-map [data-set location]
  (println data-set)
  (when-let [raw-summary-map (read-summary-map data-set)]
    (merge raw-summary-map
      (if-let [frames (count-frames data-set)]
        {"Frames" frames})
