Display Clojure test failures right in the code buffer

Author: maio

emacs/emacs

@@ -17,6 +17,7 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(clojure-test-failure-face ((t (:foreground "brightred"))))
  '(hl-line ((t (:inherit highlight))))
  '(idle-highlight ((t (:inherit hl-line))))
  '(italic ((t (:underline nil :slant italic))))

emacs/emacs.d/maio-clojure.el

@@ -7,11 +7,30 @@
       (call-interactively 'nrepl-switch-to-repl-buffer)
     (call-interactively 'nrepl)))
 
+(defun maio/delete-nrepl-error-window ()
+  (interactive)
+  (when (get-buffer "*nrepl-error*")
+    (let ((nrepl-error-window (get-buffer-window (get-buffer "*nrepl-error*"))))
+      (when nrepl-error-window
+        (delete-window nrepl-error-window)))))
+
 (eval-after-load 'clojure-mode
   '(progn
+     (require 'midje-mode)
      (require 'clojure-test-mode)
-     (defadvice clojure-test-run-tests (before save activate) (save-buffer))
-     (key-chord-define clojure-test-mode-map ";e" 'clojure-test-run-tests)
+     (defadvice clojure-test-run-tests (before clear-and-save activate)
+       (maio/delete-nrepl-error-window)
+       (midje-clear-comments)
+       (save-buffer))
+     (defadvice clojure-test-highlight-problem (after comment (line event message pp-actual) activate)
+       (save-excursion
+         (goto-char (point-min))
+         (forward-line (1- line))
+         (beginning-of-line)
+         (call-interactively 'open-line)
+         (indent-according-to-mode)
+         (midje-insert-failure-message message)))
+     (key-chord-define clojure-test-mode-map ";w" 'clojure-test-run-tests)
      (evil-define-key 'normal clojure-mode-map "gs" 'maio/nrepl)
      (evil-define-key 'normal clojure-mode-map (kbd "M-.") 'nrepl-jump)
      (add-hook 'clojure-mode-hook 'eldoc-mode)