Display Clojure test failures right in the code buffer

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)