diff options
| author | Tianxiang Xiong <tianxiang.xiong@fundingcircle.com> | 2018-02-07 12:48:39 -0800 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-02-11 20:38:38 +0700 |
| commit | b81073f38552a849c2636bbc2c5d7e152787b88c (patch) | |
| tree | 925765b2d4aa85071049d1807219084bd4b022db | |
| parent | 343de6ad723331f7b06d041ae4b3570d46001636 (diff) | |
Make `cider-profile-map` a prefix command
| -rw-r--r-- | cider-mode.el | 2 | ||||
| -rw-r--r-- | cider-profile.el | 23 |
2 files changed, 14 insertions, 11 deletions
diff --git a/cider-mode.el b/cider-mode.el index 15f0381d..287bc92b 100644 --- a/cider-mode.el +++ b/cider-mode.el @@ -33,6 +33,7 @@ (require 'clojure-mode) (require 'cider-interaction) +(require 'cider-profile) (require 'cider-test) (require 'cider-eldoc) (require 'cider-resolve) @@ -344,6 +345,7 @@ Configure `cider-cljs-*-repl' to change the ClojureScript REPL to use for your b (define-key map (kbd "C-c M-s") #'cider-selector) (define-key map (kbd "C-c M-r") #'cider-rotate-default-connection) (define-key map (kbd "C-c M-d") #'cider-display-connection-info) + (define-key map (kbd "C-c C-=") #'cider-profile-map) (define-key map (kbd "C-c C-x") #'cider-refresh) (define-key map (kbd "C-c C-q") #'cider-quit) (dolist (variable '(cider-mode-interactions-menu diff --git a/cider-profile.el b/cider-profile.el index 4b39066e..46221e71 100644 --- a/cider-profile.el +++ b/cider-profile.el @@ -26,10 +26,21 @@ ;;; Code: (require 'cider-client) -(require 'cider-mode) (defconst cider-profile-buffer "*cider-profile*") +(defvar cider-profile-map + (let ((map (define-prefix-command 'cider-profile-map))) + (define-key map (kbd "t") #'cider-profile-toggle) + (define-key map (kbd "c") #'cider-profile-clear) + (define-key map (kbd "S") #'cider-profile-summary) + (define-key map (kbd "s") #'cider-profile-var-summary) + (define-key map (kbd "n") #'cider-profile-ns-toggle) + (define-key map (kbd "v") #'cider-profile-var-profiled-p) + (define-key map (kbd "+") #'cider-profile-samples) + map) + "CIDER profiler keymap.") + ;;;###autoload (defun cider-profile-message-response-handler (handler &optional buffer) "Default message response handler. @@ -187,16 +198,6 @@ With prefix arg or no symbol at point, prompts for a var." (when (equal value "cleared") (message "cleared profile data.")))))) - - -(define-key cider-mode-map (kbd "C-c C-= t") #'cider-profile-toggle) -(define-key cider-mode-map (kbd "C-c C-= c") #'cider-profile-clear) -(define-key cider-mode-map (kbd "C-c C-= S") #'cider-profile-summary) -(define-key cider-mode-map (kbd "C-c C-= s") #'cider-profile-var-summary) -(define-key cider-mode-map (kbd "C-c C-= n") #'cider-profile-ns-toggle) -(define-key cider-mode-map (kbd "C-c C-= v") #'cider-profile-var-profiledp) -(define-key cider-mode-map (kbd "C-c C-= +") #'cider-profile-samples) - (provide 'cider-profile) ;;; cider-profile.el ends here |