Exposing boot file watching

boot-core.clj

(def FileChangeCallbacks (atom []))

(defn on-file-changes
  [changes]
  (sync-user-dirs!)
  (doseq [callback (seq @FileChangeCallbacks)]
    (try (callback changes)
      (catch Throwable t
        (println "Exception in boot watch callback: " t))))
  (reset! last-file-change (System/currentTimeMillis)))

(defn set-user-dirs-with-callback! []
  (@src-watcher)
  (let [debounce (or (get-env :watcher-debounce) 10)
        env-keys [:source-paths :resource-paths :asset-paths :checkout-paths]
        dir-paths (set (->> (mapcat get-env env-keys)
                            (filter #(.isDirectory (io/file %)))))
        watcher (watch-dirs on-file-changes dir-paths :debounce debounce)]
    (reset! src-watcher watcher)
    (set-fake-class-path!)
    (sync-user-dirs!)))