diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-07 16:16:38 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-07 22:14:18 +0100 |
| commit | bd505eb7e4ede0faf710927aff8a622098043d15 (patch) | |
| tree | dbd0aea3ff82a4c1a164be01a158e1aa9688e7f1 /cider-debug.el | |
| parent | ea8f5ed080ebc228b6c1a7d9a0878ac3af7312b0 (diff) | |
Add a menu to debug-mode
Diffstat (limited to 'cider-debug.el')
| -rw-r--r-- | cider-debug.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/cider-debug.el b/cider-debug.el index 26ec31ba..6e8f6460 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -290,6 +290,20 @@ In order to work properly, this mode must be activated by (setq cider--debug-mode-commands-alist nil) (setq cider--debug-mode-response nil))) +(easy-menu-define cider-debug-mode-menu cider--debug-mode-map + "Menu for CIDER debug mode" + `("CIDER DEBUG" + ["Next step" (cider-debug-mode-send-reply ":next") :keys "n"] + ["Continue non-stop" (cider-debug-mode-send-reply ":continue") :keys "c"] + ["Quit" (cider-debug-mode-send-reply ":quit") :keys "q"] + "--" + ["Evaluate in current scope" (cider-debug-mode-send-reply ":eval") :keys "e"] + ["Inject value" (cider-debug-mode-send-reply ":inject") :keys "i"] + ["Inspect value" (cider-debug-mode-send-reply ":inspect")] + ["Inspect local variables" (cider-debug-mode-send-reply ":locals") :keys "l"] + "--" + ["Customize" (customize-group 'cider-debug)])) + (defun cider-debug-mode-send-reply (command &optional key) "Reply to the message that started current bufer's debugging session. COMMAND is sent as the input option. KEY can be provided to reply to a |