Skip to content

Instantly share code, notes, and snippets.

@technomancy

technomancy/test.el

Created July 17, 2017 20:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save technomancy/6dc6663e5498cea4788728a14489e4ce to your computer and use it in GitHub Desktop.
Save technomancy/6dc6663e5498cea4788728a14489e4ce to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.el
(defvar clj-last-test "user")
(defun clj-run-tests (run-last)
(interactive "P")
(monroe-send-eval-string
(format "%s" `(circleci.test/run-tests
(quote ,(if run-last
clj-last-test
(setq clj-last-test (clojure-find-ns))))))
(monroe-make-response-handler)))
(eval-after-load 'clojure-mode
'(define-key clojure-mode-map (kbd "C-c C-t") 'clj-run-tests))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment