Add keybindings and docs for cider-eval-list-at-point

Author: bbatsov

CHANGELOG.md

@@ -8,8 +8,8 @@
 * Add support for nREPL 0.8's `lookup` op.
 * Add support for nREPL 0.7's sideloading functionality (experimental).
 * Add support for nREPL 0.8's `ls-middleware` op.
-* Add feature to evaluate list around point.
 * [#2861](https://github.com/clojure-emacs/cider/pull/2861): Add support for the Krell REPL.
+* [#2881](https://github.com/clojure-emacs/cider/pull/2881): Add command to evaluate list around point (`cider-eval-list-at-point`).
 
 ### Changes
 

cider-eval.el

@@ -808,9 +808,7 @@ buffer."
 
 (defun cider-eval-list-at-point (&optional output-to-current-buffer)
   "Evaluate the list (eg. a function call, surrounded by parens) around point.
-If invoked with OUTPUT-TO-CURRENT-BUFFER, output the result to current buffer.
-Special cases such as deref-ing a function call's results is also executed,
-like in @(fn-that-returns-an-atom x)"
+If invoked with OUTPUT-TO-CURRENT-BUFFER, output the result to current buffer."
   (interactive "P")
   (save-excursion
     (goto-char (cadr (cider-list-at-point 'bounds)))
@@ -1175,6 +1173,7 @@ passing arguments."
     (define-key map (kbd "n") #'cider-eval-ns-form)
     (define-key map (kbd "d") #'cider-eval-defun-at-point)
     (define-key map (kbd "e") #'cider-eval-last-sexp)
+    (define-key map (kbd "l") #'cider-eval-list-at-point)
     (define-key map (kbd "v") #'cider-eval-sexp-at-point)
     (define-key map (kbd "o") #'cider-eval-sexp-up-to-point)
     (define-key map (kbd ".") #'cider-read-and-eval-defun-at-point)
@@ -1189,6 +1188,7 @@ passing arguments."
     (define-key map (kbd "C-n") #'cider-eval-ns-form)
     (define-key map (kbd "C-d") #'cider-eval-defun-at-point)
     (define-key map (kbd "C-f") #'cider-eval-last-sexp)
+    (define-key map (kbd "C-l") #'cider-eval-list-at-point)
     (define-key map (kbd "C-v") #'cider-eval-sexp-at-point)
     (define-key map (kbd "C-o") #'cider-eval-sexp-up-to-point)
     (define-key map (kbd "C-.") #'cider-read-and-eval-defun-at-point)

cider-mode.el

@@ -342,6 +342,7 @@ If invoked with a prefix ARG eval the expression after inserting it."
     ["Eval top-level sexp to comment" cider-eval-defun-to-comment]
     ["Eval top-level sexp and pretty-print to comment" cider-pprint-eval-defun-to-comment]
     "--"
+    ["Eval current list" cider-eval-list-at-point]
     ["Eval current sexp" cider-eval-sexp-at-point]
     ["Eval current sexp to point" cider-eval-sexp-up-to-point]
     ["Eval current sexp in context" cider-eval-sexp-at-point-in-context]

doc/modules/ROOT/pages/usage/cider_mode.adoc

@@ -86,8 +86,14 @@ kbd:[C-c C-e]
 kbd:[C-c C-c]
 | Evaluate the top level form under point and display the result in the echo area.
 
+| `cider-eval-list-at-point`
+| kbd:[C-c C-v l] +
+kbd:[C-c C-v C-l]
+| Evaluate the list around point.
+
 | `cider-eval-sexp-at-point`
-| kbd:[C-c C-v v]
+| kbd:[C-c C-v v] +
+kbd:[C-c C-v C-v]
 | Evaluate the form around point.
 
 | `cider-eval-defun-at-point`

doc/modules/ROOT/pages/usage/code_evaluation.adoc

@@ -202,8 +202,14 @@ kbd:[C-c C-e]
 kbd:[C-c C-c]
 | Evaluate the top level form under point and display the result in the echo area.
 
+| `cider-eval-list-at-point`
+| kbd:[C-c C-v l] +
+kbd:[C-c C-v C-l]
+| Evaluate the list around point.
+
 | `cider-eval-sexp-at-point`
-| kbd:[C-c C-v v]
+| kbd:[C-c C-v v] +
+kbd:[C-c C-v C-v]
 | Evaluate the form around point.
 
 | `cider-eval-defun-at-point`