Skip to content

Instantly share code, notes, and snippets.

@duncanmak

duncanmak/FileMonitor.clj

Created October 29, 2009 18:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save duncanmak/221708 to your computer and use it in GitHub Desktop.
Save duncanmak/221708 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
FileMonitor.clj
(let [workers nil]
(defn monitor-and-pyramid [src dest steps]
(if (empty? @workers)
(let [monitor (monitor-and-pyramid src dest)
pyramid (make-image-pyramid dest steps)]
(set! workers (list monitor pyramid))
(doseq [w workers] (.execute w)))
(do (doseq [w workers] (.cancel w true))
(set! workers nil)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment