summaryrefslogtreecommitdiff
path: root/cider-inspector.el
diff options
context:
space:
mode:
Diffstat (limited to 'cider-inspector.el')
-rw-r--r--cider-inspector.el20
1 files changed, 10 insertions, 10 deletions
diff --git a/cider-inspector.el b/cider-inspector.el
index b173d21d..7c7c454c 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -192,39 +192,39 @@ Current page will be reset to zero."
;; nREPL interactions
(defun cider-sync-request:inspect-pop ()
"Move one level up in the inspector stack."
- (thread-first (list "op" "inspect-pop")
+ (thread-first '("op" "inspect-pop")
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))
(defun cider-sync-request:inspect-push (idx)
"Inspect the inside value specified by IDX."
- (thread-first (list "op" "inspect-push"
- "idx" idx)
+ (thread-first `("op" "inspect-push"
+ "idx" ,idx)
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))
(defun cider-sync-request:inspect-refresh ()
"Re-render the currently inspected value."
- (thread-first (list "op" "inspect-refresh")
+ (thread-first '("op" "inspect-refresh")
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))
(defun cider-sync-request:inspect-next-page ()
"Jump to the next page in paginated collection view."
- (thread-first (list "op" "inspect-next-page")
+ (thread-first '("op" "inspect-next-page")
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))
(defun cider-sync-request:inspect-prev-page ()
"Jump to the previous page in paginated collection view."
- (thread-first (list "op" "inspect-prev-page")
+ (thread-first '("op" "inspect-prev-page")
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))
(defun cider-sync-request:inspect-set-page-size (page-size)
"Set the page size in paginated view to PAGE-SIZE."
- (thread-first (list "op" "inspect-set-page-size"
- "page-size" page-size)
+ (thread-first `("op" "inspect-set-page-size"
+ "page-size" ,page-size)
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))
@@ -232,8 +232,8 @@ Current page will be reset to zero."
"Evaluate EXPR in context of NS and inspect its result.
Set the page size in paginated view to PAGE-SIZE."
(thread-first (append (nrepl--eval-request expr ns)
- (list "inspect" "true"
- "page-size" page-size))
+ `("inspect" "true"
+ "page-size" ,page-size))
(cider-nrepl-send-sync-request)
(nrepl-dict-get "value")))