Skip to content

Instantly share code, notes, and snippets.

@AndyMoreland

AndyMoreland/gist:631226

Created October 17, 2010 20:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AndyMoreland/631226 to your computer and use it in GitHub Desktop.
Save AndyMoreland/631226 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn run
"main loop"
[]
(doseq [file (filter #(>= 0 (.compareTo last-check (Date. (last-modified %)))) (list-desktop-files))]
(process file))
(def last-check (Date.)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment