diff options
| author | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-07-28 18:43:25 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-07-28 18:43:25 +0300 |
| commit | b0cee9ec16aaefe93fa3445549259d45c64beab9 (patch) | |
| tree | 4cef691e7277cdd4f6f887d50f048a377854ed53 | |
| parent | 8a45d2c49474a1d9a86a929596255583d61d9e3a (diff) | |
Add a menu for cider-macroexpansion-minor-mode
| -rw-r--r-- | cider-macroexpansion.el | 10 |
1 files changed, 10 insertions, 0 deletions
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)))) |