From 6180bc83253129c3951fdb80608a7775d061cdad Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Tue, 11 Nov 2014 15:47:01 +0200 Subject: Extract hardcoded inspector buffer name into a constant --- cider-inspector.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'cider-inspector.el') diff --git a/cider-inspector.el b/cider-inspector.el index 8ad7f672..bfea9e94 100644 --- a/cider-inspector.el +++ b/cider-inspector.el @@ -34,6 +34,8 @@ ;; Inspector Key Map and Derived Mode ;; =================================== +(defconst cider-inspector-buffer "*cider inspect*") + (defvar cider-inspector-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map cider-popup-buffer-mode-map) @@ -78,24 +80,24 @@ '())) (defun cider-inspect-sym (sym ns) - (let ((buffer (cider-popup-buffer "*cider inspect*" t))) + (let ((buffer (cider-popup-buffer cider-inspector-buffer t))) (nrepl-send-request (list "op" "inspect-start" "sym" sym "ns" ns) (cider-render-response buffer)))) (defun cider-inspector-pop () (interactive) - (let ((buffer (cider-popup-buffer "*cider inspect*" t))) + (let ((buffer (cider-popup-buffer cider-inspector-buffer t))) (nrepl-send-request (list "op" "inspect-pop") (cider-render-response buffer)))) (defun cider-inspector-push (idx) - (let ((buffer (cider-popup-buffer "*cider inspect*" t))) + (let ((buffer (cider-popup-buffer cider-inspector-buffer t))) (nrepl-send-request (list "op" "inspect-push" "idx" (number-to-string idx)) (cider-render-response buffer)))) (defun cider-inspector-refresh () (interactive) - (let ((buffer (cider-popup-buffer "*cider inspect*" t))) + (let ((buffer (cider-popup-buffer cider-inspector-buffer t))) (nrepl-send-request (list "op" "inspect-refresh") (cider-render-response buffer)))) -- cgit v1.2.3