Skip to content

separate test and debug, conforming standard keys #7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

separate test and debug, conforming standard keys #7

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
34 changes: 21 additions & 13 deletions cider-hydra.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -143,29 +143,37 @@ _m_: Macroexpand-1 _M_: Macroexpand all
("M" cider-macroexpand-all nil))


;;;; Testing and debugging
;;;; Testing

(defhydra cider-hydra-test (:color blue)
"
CIDER Debug and Test
CIDER Test
---------------------------------------------------------------------------
_x_: Eval defun at point
_v_: Toggle var tracing _n_: Toggle ns tracing
_t_: Run test _l_: Run loaded tests
_p_: Run project tests _r_: Rerun tests
_s_: Show test report
_p_: Run project tests _n_: Run namespace tests
_r_: Rerun tests _s_: Show test report
"
;; Debugging
("x" (lambda () (interactive) (cider-eval-defun-at-point t)) nil)
("v" cider-toggle-trace-var nil)
("n" cider-toggle-trace-ns nil)
;; Testing
("t" cider-test-run-test nil)
("l" cider-test-run-loaded-tests nil)
("r" cider-test-rerun-failed-tests nil)
("p" cider-test-run-project-tests nil)
("n" cider-test-run-ns-tests nil)
("r" cider-test-rerun-failed-tests nil)
("s" cider-test-show-report nil))


;;;; Debugging

(defhydra cider-hydra-debug (:color blue)
"
CIDER Debug
---------------------------------------------------------------------------
_x_: Eval defun at point
_v_: Toggle var tracing _n_: Toggle ns tracing
"
("x" (lambda () (interactive) (cider-eval-defun-at-point t)) nil)
("v" cider-toggle-trace-var nil)
("n" cider-toggle-trace-ns nil))


;;;; REPL

Expand Down Expand Up @@ -202,7 +210,7 @@ _b_: Interrupt pending evaluations _Q_: Quit CIDER
(set-keymap-parent map cider-mode-map)
(define-key map (kbd "C-c C-d") #'cider-hydra-doc/body)
(define-key map (kbd "C-c C-t") #'cider-hydra-test/body)
(define-key map (kbd "C-c M-t") #'cider-hydra-test/body)
(define-key map (kbd "C-c M-t") #'cider-hydra-debug/body)
(define-key map (kbd "C-c M-r") #'cider-hydra-repl/body)
map)
"Keymap for CIDER hydras.")
Expand Down