clear buffers

clear-buffers.el

(defun current-nrepl-server-buffer ()
  (let ((nrepl-server-buf (replace-regexp-in-string "connection" "server" (nrepl-current-connection-buffer))))
    (when nrepl-server-buf
      (get-buffer nrepl-server-buf))))

(defun clear-buffers ()
  (interactive)

  (cider-find-and-clear-nrepl-buffer)

  (with-current-buffer "test.log"
    (kill-region (point-min) (point-max))
    (save-buffer))

  (with-current-buffer (current-nrepl-server-buffer)
    (kill-region (point-min) (point-max))))

(global-set-key (kbd "C-c :") '(lambda ()
                                 (interactive)
                                 (clear-buffers)
                                 (clojure-test-run-tests)
                                 (message "Winning")))