 (defn set-filter [table text]
   (let [sorter (.getRowSorter table)
         column-indices
-          (int-array (map #(.getModelIndex %)
-               (enumeration-seq (.. table getColumnModel getColumns))))]
-      (do (.setRowFilter sorter (RowFilter/regexFilter text column-indices)))))
+        (int-array (map #(.getModelIndex %)
+        (enumeration-seq (.. table getColumnModel getColumns))))]
+    (do (.setRowFilter sorter (RowFilter/regexFilter text column-indices)))))
 
 (defn connect-search [search-field table]
   (let [d (.getDocument search-field)

                     "Please add a location to scan for files")]
    (add-location (.getAbsolutePath loc))))

(defn create-column-table []
  (let [table (proxy [JTable] [0 2]
                (isCellEditable [_ i] (get [true false] i)))
        model (proxy [DefaultTableModel] [0 2]
                (getColumnClass [i]

  (load-mm)
  (reset! settings-window (create-settings-window))
  (reset! browser (create-browser))
  (reset! headings tags)
  (.setModel (:table @browser) (create-table-model tags))
  (update-all-columns (.getModel (get-in @settings-window [:columns :table])))
  (add-location "/Users/arthur/qqqq")
  browser)

