(ns auto-reload.core
  {:author "Naitik Shah"}
  (:use
    [ns-tracker.core :only [ns-tracker]])
  (:import
    [java.nio.file FileSystems StandardWatchEventKinds]))

(defn- auto-reload* [dirs]
  (let [modified-namespaces (ns-tracker dirs)
        fs (FileSystems/getDefault)
        watcher (.newWatchService fs)
        events (into-array [StandardWatchEventKinds/ENTRY_MODIFY])
        strs (into-array String [])]
    (doseq [dir dirs]
      (.register (.getPath fs dir strs) watcher events))
    (while true
      (let [key (.take watcher)
            events (.pollEvents key)]
        (if (not-every? #(= (.kind %) StandardWatchEventKinds/OVERFLOW) events)
          (doseq [ns-sym (modified-namespaces)]
            (require ns-sym :reload)))
        (.reset key)))))

(defn auto-reload
  [dirs]
  (.start (Thread. (partial auto-reload* dirs))))

(ns auto-reload.repl
  {:author "Naitik Shah"}
  (:require
    [auto-reload.core]
    [clojure.tools.logging]))

(auto-reload.core/auto-reload ["src"])