Merge branch 'jstepien-hawk'
This commit is contained in:
commit
1f7fdd0cbe
2 changed files with 12 additions and 10 deletions
|
@ -13,4 +13,5 @@
|
||||||
[hiccup "1.0.5"]
|
[hiccup "1.0.5"]
|
||||||
[selmer "1.0.0"]
|
[selmer "1.0.0"]
|
||||||
[pandect "0.5.4"]
|
[pandect "0.5.4"]
|
||||||
|
[hawk "0.2.10"]
|
||||||
[clj-tagsoup "0.3.0" :exclusions [org.clojure/clojure]]])
|
[clj-tagsoup "0.3.0" :exclusions [org.clojure/clojure]]])
|
||||||
|
|
|
@ -2,6 +2,7 @@
|
||||||
(:require [clojure.java.io :refer [file]]
|
(:require [clojure.java.io :refer [file]]
|
||||||
[cryogen-core.io :refer [ignore]]
|
[cryogen-core.io :refer [ignore]]
|
||||||
[pandect.algo.md5 :refer [md5]]
|
[pandect.algo.md5 :refer [md5]]
|
||||||
|
[hawk.core :as hawk]
|
||||||
[clojure.set :as set]))
|
[clojure.set :as set]))
|
||||||
|
|
||||||
(defn get-assets [path ignored-files]
|
(defn get-assets [path ignored-files]
|
||||||
|
@ -21,15 +22,15 @@
|
||||||
(when-some [changes (set/difference new-sum-set old-sum-set)]
|
(when-some [changes (set/difference new-sum-set old-sum-set)]
|
||||||
(vals (select-keys new-sums changes)))))
|
(vals (select-keys new-sums changes)))))
|
||||||
|
|
||||||
(defn watch-assets [root ignored-files action]
|
(defn watch-assets [sums root ignored-files action]
|
||||||
(loop [sums (checksums root ignored-files)]
|
|
||||||
(Thread/sleep 300)
|
|
||||||
(let [new-sums (checksums root ignored-files)]
|
(let [new-sums (checksums root ignored-files)]
|
||||||
(when (find-changes sums new-sums)
|
(when (find-changes @sums new-sums)
|
||||||
(action))
|
(action)
|
||||||
(recur new-sums))))
|
(reset! sums new-sums))))
|
||||||
|
|
||||||
(defn start-watcher! [root ignored-files action]
|
(defn start-watcher! [root ignored-files action]
|
||||||
(doto (Thread. #(watch-assets root ignored-files action))
|
(let [sums (atom (checksums root ignored-files))
|
||||||
(.setDaemon true)
|
handler (fn [ctx e]
|
||||||
(.start)))
|
(watch-assets sums root ignored-files action))]
|
||||||
|
(hawk/watch! [{:paths [root]
|
||||||
|
:handler handler}])))
|
||||||
|
|
Loading…
Reference in a new issue