Add to clojure testing workflow.

Author: Danny Olson

custom-clojure.vimrc

@@ -1,4 +1,54 @@
 nnoremap <leader>E :%Eval<CR>
 
 " Rainbow parentheses always on
-au BufRead,BufNewFile *.clj RainbowParenthesesToggleAll
+au BufEnter *.clj RainbowParenthesesToggleAll
+
+" Parse implementation namespace from the first line in the test file
+" Example:
+"   (ns foo-app.handler-spec)
+"   => foo-app.handler
+function! s:GetNamespaceFromTest()
+  let regex = "(ns\\s\\+\\(.*\\)-\\(spec\\|test\\)"
+  let location = 1
+  let line = getline(location)
+  return substitute(line, regex, "\\1", "")
+endfunction
+
+" Reload implementation namespace and eval test file
+function! RunTestWithReload()
+  let namespace = s:GetNamespaceFromTest()
+  execute 'Require ' . namespace
+  %Eval
+endfunction
+
+" Reload implementation, find matching test file, open and eval test
+function! RunTestFromFile()
+  Require
+
+  let directory = "spec"
+  if !isdirectory(directory)
+    let directory = "test"
+    if !isdirectory(directory)
+      echom 'No test directories exist'
+      return
+    endif
+  endif
+
+  let path = directory . '/' . expand("%:h:t") . '/' . expand("%:t:r") . '_' . directory . '.clj'
+  if !exists(path)
+    echom 'Test file does not exist ' . path
+    return
+  endif
+
+  execute 'vsplit ' . path
+  %Eval
+  wincmd l
+endfunction
+
+function! s:AutoReload()
+  Require
+endfunction
+
+autocmd BufRead *.clj nnoremap <buffer> <leader>t :call RunTestFromFile()<CR>
+autocmd BufRead *_spec.clj,*_test.clj nnoremap <buffer> <leader>t :call RunTestWithReload()<CR>
+autocmd BufWritePre *.clj :call s:AutoReload()