gistfile1.clj

(defn view-errors []
  (let [table (data-table (get-data))
	frame (view table)
	running (atom true)]
    (.addWindowListener frame (proxy [WindowAdapter] []
				(windowClosing [event]
					       (reset! running false))))
    (loop []
      (when @running
	(set-data table ($where {:down? {:$nin #{0}}} (get-data)))
	(Thread/sleep 10000)
	(recur)))))