emacs lisp function that compiles current buffer and runs speclj tests in repl buffer

init.el

(defun compile-run-tests (arg) 
  (interactive "P")
  (let ((oldbuf (current-buffer)))
    (save-buffer)
    (nrepl-load-current-buffer)
    (nrepl-switch-to-relevant-repl-buffer nil)
    (insert "(run-specs)")
    (nrepl-return)
    (unless arg 
      (switch-to-buffer-other-window oldbuf))))

(eval-after-load 'clojure-mode
  '(progn
     (define-key clojure-mode-map (kbd "<f6>") 'compile-run-tests)
     (define-key clojure-mode-map (kbd "\e\er") 'nrepl-switch-to-relevant-repl-buffer)))