File tree Expand file tree Collapse file tree 2 files changed +22
-2
lines changed Expand file tree Collapse file tree 2 files changed +22
-2
lines changed Original file line number Diff line number Diff line change 17
17
;; If you edit it by hand, you could mess it up, so be careful.
18
18
;; Your init file should contain only one such instance.
19
19
;; If there is more than one, they won't work right.
20
+ '(clojure-test-failure-face ((t (:foreground "brightred"))))
20
21
'(hl-line ((t (:inherit highlight))))
21
22
'(idle-highlight ((t (:inherit hl-line))))
22
23
'(italic ((t (:underline nil :slant italic))))
Original file line number Diff line number Diff line change 7
7
(call-interactively 'nrepl-switch-to-repl-buffer )
8
8
(call-interactively 'nrepl )))
9
9
10
+ (defun maio/delete-nrepl-error-window ()
11
+ (interactive )
12
+ (when (get-buffer " *nrepl-error*" )
13
+ (let ((nrepl-error-window (get-buffer-window (get-buffer " *nrepl-error*" ))))
14
+ (when nrepl-error-window
15
+ (delete-window nrepl-error-window)))))
16
+
10
17
(eval-after-load 'clojure-mode
11
18
'(progn
19
+ (require 'midje-mode )
12
20
(require 'clojure-test-mode )
13
- (defadvice clojure-test-run-tests (before save activate) (save-buffer ))
14
- (key-chord-define clojure-test-mode-map " ;e" 'clojure-test-run-tests )
21
+ (defadvice clojure-test-run-tests (before clear-and-save activate)
22
+ (maio/delete-nrepl-error-window)
23
+ (midje-clear-comments)
24
+ (save-buffer ))
25
+ (defadvice clojure-test-highlight-problem (after comment (line event message pp-actual) activate)
26
+ (save-excursion
27
+ (goto-char (point-min ))
28
+ (forward-line (1- line))
29
+ (beginning-of-line )
30
+ (call-interactively 'open-line )
31
+ (indent-according-to-mode )
32
+ (midje-insert-failure-message message)))
33
+ (key-chord-define clojure-test-mode-map " ;w" 'clojure-test-run-tests )
15
34
(evil-define-key 'normal clojure-mode-map " gs" 'maio/nrepl )
16
35
(evil-define-key 'normal clojure-mode-map (kbd " M-." ) 'nrepl-jump )
17
36
(add-hook 'clojure-mode-hook 'eldoc-mode )
You can’t perform that action at this time.
0 commit comments