diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-12-19 20:00:30 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-12-19 20:00:30 +0200 |
commit | e44941f7f8f903ddfeb526f4257e14e2ac3ea292 (patch) | |
tree | fd03ad8fabcac3576c862f1b84c13a78809002f8 /cider-inspector.el | |
parent | 82c8289c7f9308ea37fe5564d26109653586a458 (diff) |
Improve the code style a bit in cider-inspector.el
Diffstat (limited to 'cider-inspector.el')
-rw-r--r-- | cider-inspector.el | 60 |
1 files changed, 34 insertions, 26 deletions
diff --git a/cider-inspector.el b/cider-inspector.el index 29d68ce3..546b96d3 100644 --- a/cider-inspector.el +++ b/cider-inspector.el @@ -70,8 +70,9 @@ The page size can be also changed interactively within the inspector." (define-key map "s" #'cider-inspector-set-page-size) (define-key map [tab] #'cider-inspector-next-inspectable-object) (define-key map "\C-i" #'cider-inspector-next-inspectable-object) - (define-key map [(shift tab)] #'cider-inspector-previous-inspectable-object) ; Emacs translates S-TAB - (define-key map [backtab] #'cider-inspector-previous-inspectable-object) ; to BACKTAB on X. + (define-key map [(shift tab)] #'cider-inspector-previous-inspectable-object) + ;; Emacs translates S-TAB to BACKTAB on X. + (define-key map [backtab] #'cider-inspector-previous-inspectable-object) map)) (define-derived-mode cider-inspector-mode special-mode "Inspector" @@ -143,56 +144,63 @@ Used for all inspector nREPL ops." (defun cider-inspect-expr (expr ns) "Evaluate EXPR in NS and inspect its value." (cider--prep-interactive-eval expr) - (cider-nrepl-send-request (append (nrepl--eval-request expr (cider-current-session) ns) - (list "inspect" "true" - "page-size" (or cider-inspector-page-size 32))) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (append (nrepl--eval-request expr (cider-current-session) ns) + (list "inspect" "true" + "page-size" (or cider-inspector-page-size 32))) + (cider-inspector-response-handler (current-buffer)))) (defun cider-inspector-pop () (interactive) - (cider-nrepl-send-request (list "op" "inspect-pop" - "session" (cider-current-session)) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (list "op" "inspect-pop" + "session" (cider-current-session)) + (cider-inspector-response-handler (current-buffer)))) (defun cider-inspector-push (idx) - (cider-nrepl-send-request (list "op" "inspect-push" - "idx" (number-to-string idx) - "session" (cider-current-session)) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (list "op" "inspect-push" + "idx" (number-to-string idx) + "session" (cider-current-session)) + (cider-inspector-response-handler (current-buffer)))) (defun cider-inspector-refresh () (interactive) - (cider-nrepl-send-request (list "op" "inspect-refresh" - "session" (cider-current-session)) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (list "op" "inspect-refresh" + "session" (cider-current-session)) + (cider-inspector-response-handler (current-buffer)))) (defun cider-inspector-next-page () "Jump to the next page when inspecting a paginated sequence/map. Does nothing if already on the last page." (interactive) - (cider-nrepl-send-request (list "op" "inspect-next-page" - "session" (cider-current-session)) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (list "op" "inspect-next-page" + "session" (cider-current-session)) + (cider-inspector-response-handler (current-buffer)))) (defun cider-inspector-prev-page () "Jump to the previous page when expecting a paginated sequence/map. Does nothing if already on the first page." (interactive) - (cider-nrepl-send-request (list "op" "inspect-prev-page" - "session" (cider-current-session)) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (list "op" "inspect-prev-page" + "session" (cider-current-session)) + (cider-inspector-response-handler (current-buffer)))) (defun cider-inspector-set-page-size (page-size) "Set the page size in pagination mode to the specified PAGE-SIZE. Current page will be reset to zero." (interactive "nPage size:") - (cider-nrepl-send-request (list "op" "inspect-set-page-size" - "session" (cider-current-session) - "page-size" page-size) - (cider-inspector-response-handler (current-buffer)))) + (cider-nrepl-send-request + (list "op" "inspect-set-page-size" + "session" (cider-current-session) + "page-size" page-size) + (cider-inspector-response-handler (current-buffer)))) ;; Render Inspector from Structured Values (defun cider-irender (buffer str) |