   (reify ImageStorageListener
     (imageStorageFinished [_ path]
       (add-summary-maps @browser
-                        (list (get-summary-map path "")) @headings))))
+                        (list (get-summary-map path "")) tags))))
       
+(defn refresh-collection []
+  (let [n (.indexOf tags "Location")
+        locations (distinct (map #(get % n) @current-data))]
+    ; blah blah
+  ))
+
 ;; windows
 
 (defn create-settings-window []


(def settings-window (atom nil))

(def headings (atom nil))

(def collections (atom nil))

(def current-data (atom nil))

(defn add-summary-maps [browser map-list headings]
  (send-off scanning-agent 
            (fn [_] (doseq [m map-list]
                      (Thread/sleep 5)
                      (add-browser-table-row
                        (map #(get m %) headings))))))

(defn add-location [location]
  (.. (get-in @settings-window [:locations :table])
      getModel (addRow (Vector. (list location))))
  (let [maps (get-summary-maps location)]
    (add-summary-maps @browser maps tags)))

(defn user-add-location []
  (when-let [loc (choose-directory nil
