diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-20 20:42:20 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-20 20:42:20 -0300 |
| commit | 7de3a80468dd11c9ff17ceceb503db69775fdc52 (patch) | |
| tree | 7f29d0058e8432bfd389573220e8ce031eb00daa /cider-debug.el | |
| parent | b6d961420d7a2c68fc6c0a6b98f8e075243caf29 (diff) | |
Refactor hiding of inspect key so it is done only once
Diffstat (limited to 'cider-debug.el')
| -rw-r--r-- | cider-debug.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/cider-debug.el b/cider-debug.el index ffb2797c..3a1dc01d 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -221,8 +221,8 @@ Each element of LOCALS should be a list of at least two elements." (format (propertize "%s" 'face 'default) (concat (mapconcat (lambda (x) (put-text-property 0 1 'face 'cider-debug-prompt-face x) x) - ;; `inspect' would conflict with `inject'. - (seq-difference command-list '("inspect")) " ") + command-list + " ") "\n"))) (defvar-local cider--debug-prompt-overlay nil) @@ -299,6 +299,10 @@ In order to work properly, this mode must be activated by ;; A debug session is an ongoing eval, but it's annoying to have the ;; spinner spinning while you debug. (when spinner-current (spinner-stop)) + ;; `inspect' would conflict with `inject', so there's no key for it. + (setq input-type (seq-difference input-type '("inspect"))) + (nrepl-dict-put cider--debug-mode-response "input-type" input-type) + (setq-local tool-bar-map cider--debug-mode-tool-bar-map) (add-hook 'kill-buffer-hook #'cider--debug-quit nil 'local) (add-hook 'before-revert-hook #'cider--debug-quit nil 'local) @@ -310,7 +314,8 @@ In order to work properly, this mode must be activated by (nrepl-dict-get cider--debug-mode-response "key"))) ;; Set the keymap. (let ((alist (mapcar (lambda (k) (cons (string-to-char k) (concat ":" k))) - (seq-difference input-type '("here" "inspect"))))) + ;; `here' needs a special command. + (seq-difference input-type '("here"))))) (setq cider--debug-mode-commands-alist alist) (dolist (it alist) (define-key cider--debug-mode-map (vector (car it)) #'cider-debug-mode-send-reply))) |