Improve the code style a bit in cider-inspector.el

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)