From b81073f38552a849c2636bbc2c5d7e152787b88c Mon Sep 17 00:00:00 2001 From: Tianxiang Xiong Date: Wed, 7 Feb 2018 12:48:39 -0800 Subject: Make `cider-profile-map` a prefix command --- cider-profile.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'cider-profile.el') 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 -- cgit v1.2.3