diff options
author | Jeff Valk <jv@jeffvalk.com> | 2016-02-05 23:43:38 -0500 |
---|---|---|
committer | Jeff Valk <jv@jeffvalk.com> | 2016-02-06 00:00:37 -0500 |
commit | 813928aede46a72180f439bd6f6678f41afe417c (patch) | |
tree | 0370b40723e7ab4b63079a4dd99c612c4018b9cd /cider-test.el | |
parent | 66826d04dc54e5ec9715d4fb648dc8ed084a5f5f (diff) |
Update keybinding prefix for test commands
Diffstat (limited to 'cider-test.el')
-rw-r--r-- | cider-test.el | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/cider-test.el b/cider-test.el index 50e17445..bae68f6c 100644 --- a/cider-test.el +++ b/cider-test.el @@ -118,16 +118,26 @@ (defvar cider-test-commands-map (let ((map (define-prefix-command 'cider-test-commands-map))) - (define-key map (kbd "r") #'cider-test-rerun-tests) - (define-key map (kbd "t") #'cider-test-run-test) - (define-key map (kbd "n") #'cider-test-run-ns-tests) - (define-key map (kbd "l") #'cider-test-run-loaded-tests) - (define-key map (kbd "p") #'cider-test-run-project-tests) + ;; Duplicates of keys below with C- for convenience + (define-key map (kbd "C-r") #'cider-test-rerun-tests) + (define-key map (kbd "C-t") #'cider-test-run-test) + (define-key map (kbd "C-n") #'cider-test-run-ns-tests) + (define-key map (kbd "C-l") #'cider-test-run-loaded-tests) + (define-key map (kbd "C-p") #'cider-test-run-project-tests) + (define-key map (kbd "C-b") #'cider-test-show-report) + ;; Single-key bindings defined last for display in menu + (define-key map (kbd "r") #'cider-test-rerun-tests) + (define-key map (kbd "t") #'cider-test-run-test) + (define-key map (kbd "n") #'cider-test-run-ns-tests) + (define-key map (kbd "l") #'cider-test-run-loaded-tests) + (define-key map (kbd "p") #'cider-test-run-project-tests) + (define-key map (kbd "b") #'cider-test-show-report) map)) (defvar cider-test-report-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "C-c t") 'cider-test-commands-map) + (define-key map (kbd "C-c ,") 'cider-test-commands-map) + (define-key map (kbd "C-c C-t") 'cider-test-commands-map) (define-key map (kbd "M-p") #'cider-test-previous-result) (define-key map (kbd "M-n") #'cider-test-next-result) (define-key map (kbd "M-.") #'cider-test-jump) |