autoreload

autoreload.clj

;; profiles.lcj
;{:repl {:dependencies [;;[org.clojure/tools.trace "0.7.9"]
;                      [ns-tracker "0.3.1"]]
;        :source-paths ["src" "dev-src"]}}

(ns autoreload
    (:require [ns-tracker.core :as tracker]))

(defn check-namespace-changes [track]
  (try
    (doseq [ns-sym (track)]
      (prn "reload: " ns-sym)
      (require ns-sym :reload))
    (catch Throwable e (.printStackTrace e)))
  (Thread/sleep 500))

(defn start-nstracker []
      (future
        (let [track (tracker/ns-tracker ["src" "test"])]
             (doto
               (Thread.
                #(while true
                        (check-namespace-changes track)))
              (.setDaemon true)
              (.start)))))