registers the watch to a global list of filewatchers

list all *filewatchers

creates a regex pattern from the string representation

(pattern “.*”) => #“\Q.\E.+”

(pattern “*.jar”) => #“.+\Q.\Ejar”

helper function to process event

adds a path to the watch service

(-> (.newWatchService (FileSystems/getDefault)) (register-entry “src”))

registers either a file or a path to the watcher (-> (watcher [] {} {}) (assoc :service (.newWatchService (FileSystems/getDefault))) (register-path “test”))

registers a directory to an existing watcher

(-> (watcher “src” {} {}) (assoc :service (.newWatchService (FileSystems/getDefault))) (register-sub-directory “test”))

removes the watcher with the given key

initiates the watcher with the given callbacks

starts the watcher

stops the watcher

helper function to create watch callback

the watch interface provided for java.io.File

(def ^:dynamic happy (promise))

(h/watch:add (io/file “.”) :save (fn [f k _ cmd file] (h/watch:remove f k) (.delete ^File file) (deliver happy cmd (.getName ^File file))) {:types #{:create :modify} :recursive false :filter “.hara” :exclude “.git” “target”})

(h/watch:list (io/file “.”)) => (contains {:save fn?})

(spit “happy.hara” “hello”)

(deref happy) => :create “happy.hara”

(h/watch:list (io/file “.”)) => {}