clojure autotest using vim-fireplace

gistfile1.vim

function! s:run_tests(filename)
  let template = '(require ''clojure.tools.namespace) (require ''clojure.test) (let [namespaces (clojure.tools.namespace/find-namespaces-in-dir (java.io.File. "%s"))] (doseq [ns namespaces] (prn ns) (require ns :reload) (if (re-find #"-test\z" (name ns)) (clojure.test/run-tests ns) (try (let [test-ns (symbol (str (name ns) "-test"))] (prn test-ns) (require test-ns :reload) (clojure.test/run-tests test-ns)) (catch Exception e (.getMessage e))))))'
  let exp = printf(template, escape(a:filename, '"\'))
  call fireplace#session_eval(exp)
endfunction

autocmd! BufWritePost *.clj call s:run_tests(expand("<afile>"))