Skip to content

Instantly share code, notes, and snippets.

@seancron
Created July 25, 2010 22:38
Show Gist options
  • Save seancron/489954 to your computer and use it in GitHub Desktop.
Save seancron/489954 to your computer and use it in GitHub Desktop.
(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)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment