From b0cee9ec16aaefe93fa3445549259d45c64beab9 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Mon, 28 Jul 2014 18:43:25 +0300 Subject: Add a menu for cider-macroexpansion-minor-mode --- cider-macroexpansion.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'cider-macroexpansion.el') diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el index bb949de1..9205aecb 100644 --- a/cider-macroexpansion.el +++ b/cider-macroexpansion.el @@ -149,6 +149,16 @@ and point is placed at CURRENT-POINT." (define-key map (kbd "d") 'cider-doc) (define-key map (kbd "j") 'cider-doc-javadoc) (define-key map (kbd ".") 'cider-jump-to-var) + (easy-menu-define cider-macroexpansion-minor-mode-menu map + "Menu for CIDER's doc mode" + '("Macroexpansion" + ["Restart expansion" cider-macroexpand-again] + ["Macroexpand-1" cider-macroexpand-1-inplace] + ["Macroexpand-all" cider-macroexpand-all-inplace] + ["Go to source" cider-jump-to-var] + ["Go to doc" cider-doc] + ["Go to Javadoc" cider-doc-javadoc] + ["Quit" cider-popup-buffer-quit-function])) (cl-labels ((redefine-key (from to) (dolist (mapping (where-is-internal from cider-mode-map)) (define-key map mapping to)))) -- cgit v1.2.3