[#1875] In cljc files eval into both clj and cljs repls

Author: vspinu

CHANGELOG.md

@@ -48,7 +48,7 @@
 * [#1588](https://github.com/clojure-emacs/cider/issues/1588): Redirect `*err*`, `java.lang.System/out`, and `java.lang.System/err` to REPL buffer on all attached sessions.
 * [#1707](https://github.com/clojure-emacs/cider/issues/1707): Allow to customize line truncating in CIDER's special buffers.
 * [#1876](https://github.com/clojure-emacs/cider/issues/1876): Set pretty-printing width with `cider-repl-pretty-print-width`. If this variable is not set, fall back to `fill-column`.
-* [#1875](https://github.com/clojure-emacs/cider/issues/1875): Ensure cljc buffers can load buffer into both clj and cljs repls.
+* [#1875](https://github.com/clojure-emacs/cider/issues/1875): Ensure that loading and evaluation in cljc buffers is performed in both clj and cljs repls.
 * [#1897](https://github.com/clojure-emacs/cider/issues/1897): Bind TAB in stacktrace buffers in the terminal.
 * [#1895](https://github.com/clojure-emacs/cider/issues/1895): Connect to the same host:port after `cider-restart` if the connection was established with `cider-connect`.
 * [#1881](https://github.com/clojure-emacs/cider/issues/1881): Add `cider-cljs-boot-repl` and `cider-cljs-gradle-repl` defcustom and hook `boot-cljs-repl`.

cider-client.el

@@ -669,12 +669,13 @@ Return the id of the sent message."
       (nrepl--mark-id-completed id))
     id))
 
-(defun cider-nrepl-request:eval (input callback &optional ns line column additional-params)
+(defun cider-nrepl-request:eval (input callback &optional ns line column additional-params connection)
   "Send the request INPUT and register the CALLBACK as the response handler.
 If NS is non-nil, include it in the request.  LINE and COLUMN, if non-nil,
 define the position of INPUT in its buffer.  ADDITIONAL-PARAMS is a plist
-to be appended to the request message."
-  (let ((connection (cider-current-connection)))
+to be appended to the request message.  CONNECTION is the connection
+buffer, defaults to (cider-current-connection)."
+  (let ((connection (or connection (cider-current-connection))))
     (nrepl-request:eval input
                         (if cider-show-eval-spinner
                             (cider-eval-spinner-handler connection callback)

cider-interaction.el

@@ -1135,15 +1135,19 @@ arguments and only proceed with evaluation if it returns nil."
                  (funcall cider-interactive-eval-override form callback bounds))
       (cider-map-connections #'ignore :any)
       (cider--prep-interactive-eval form)
-      (cider-nrepl-request:eval
-       form
-       (or callback (cider-interactive-eval-handler nil bounds))
-       ;; always eval ns forms in the user namespace
-       ;; otherwise trying to eval ns form for the first time will produce an error
-       (if (cider-ns-form-p form) "user" (cider-current-ns))
-       (when start (line-number-at-pos start))
-       (when start (cider-column-number-at-pos start))
-       additional-params))))
+      (cider-map-connections
+       (lambda (connection)
+         (cider-nrepl-request:eval
+          form
+          (or callback (cider-interactive-eval-handler nil bounds))
+          ;; always eval ns forms in the user namespace
+          ;; otherwise trying to eval ns form for the first time will produce an error
+          (if (cider-ns-form-p form) "user" (cider-current-ns))
+          (when start (line-number-at-pos start))
+          (when start (cider-column-number-at-pos start))
+          additional-params
+          connection))
+       :both))))
 
 (defun cider-eval-region (start end)
   "Evaluate the region between START and END."