Skip to content

Instantly share code, notes, and snippets.

@voytech

voytech/redefs

Created March 15, 2015 20:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save voytech/3bf374bcf81a023184b1 to your computer and use it in GitHub Desktop.
Save voytech/3bf374bcf81a023184b1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
redefs
(defn delete-all-override
[dir]
(if (file/exists? dir)
(do (println (str "TRYING TO DELETE " dir))
(mapv #(.delete %) (reverse (rest (file-seq (io/file dir))))))))
(deftask dev
[]
(with-redefs [boot.file/delete-file delete-file-override
boot.file/delete-all delete-all-override]
(comp (watch) (speak) (hoplon) (reload) (cljs))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment