switch to slime-repl after running clojure tests

sroccaserra · Oct 4, 2010 · 3f20b1d · 3f20b1d
1 parent 42fc826
commit 3f20b1d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/smart-compile.el b/smart-compile.el
@@ -38,7 +38,11 @@
                             (replace-regexp-in-string "\\.clj$" "_test.clj")
                             (replace-regexp-in-string "/src/" "/test/")
                             find-file))
-                    (clojure-test-run-tests))
+                    (save-window-excursion
+                      (with-current-buffer "*slime-repl clojure*"
+                        (slime-repl-clear-buffer)))
+                    (clojure-test-run-tests)
+                    (slime-switch-to-output-buffer))
                    (t (when (y-or-n-p "Slime is not connected, open a terminal?")
                         (shell-command "cygterm&")))))
            (make-or-rake ()