[Fix #1299] Eval in both REPLs for cljc and cljx

This changes the load file request to dispatch to
`cider-other-connection` in addition to `cider-current-connection`, when
the file is a cljc or cljx file.

Author: expez

CHANGELOG.md

@@ -47,6 +47,7 @@
 
 ### Changes
 
+* [#1299]https://github.com/clojure-emacs/cider/issues/1299 <kbd>C-c C-k</kbd> and <kbd> C-c C-l</kbd> now dispatch to both the Clojure and ClojureScript REPL (in the same project) when called from a cljc or cljx file.
 * [#1397](https://github.com/clojure-emacs/cider/issues/1297) <kbd>C-c M-n</kbd> now changes the ns of both the Clojure and ClojureScript REPL (in the same project) when called from a cljc or cljx file.
 * [#1348](https://github.com/clojure-emacs/cider/issues/1348): Drop the dash dependency.
 * The usage of the default connection has been reduced significantly. Now evaluations & related commands will be routed via the connection matching the current project automatically unless there's some ambiguity when determining the connection (like multiple or no matching connections). Simply put you'll no longer have to mess around much with connecting-setting commands (e.g. `nrepl-connection-browser`, `cider-rotate-default-connection`).

cider-client.el

@@ -417,12 +417,16 @@ Signal an error if it is not supported."
   (unless (cider-nrepl-op-supported-p op)
     (error "Can't find nREPL middleware providing op \"%s\".  Please, install (or update) cider-nrepl %s and restart CIDER" op (upcase cider-version))))
 
-(defun cider-nrepl-send-request (request callback)
+(defun cider-nrepl-send-request (request callback &optional connection)
   "Send REQUEST and register response handler CALLBACK.
 REQUEST is a pair list of the form (\"op\" \"operation\" \"par1-name\"
 \"par1\" ... ).
+
+If CONNECTION is provided dispatch to that connection instead of
+the current connection.
+
 Return the id of the sent message."
-  (nrepl-send-request request callback (cider-current-connection)))
+  (nrepl-send-request request callback (or connection (cider-current-connection))))
 
 (defun cider-nrepl-send-sync-request (request &optional abort-on-input)
   "Send REQUEST to the nREPL server synchronously.
@@ -591,17 +595,21 @@ thing at point."
 ;;; Requests
 
 (declare-function cider-load-file-handler "cider-interaction")
-(defun cider-request:load-file (file-contents file-path file-name &optional callback)
+(defun cider-request:load-file (file-contents file-path file-name &optional connection callback)
   "Perform the nREPL \"load-file\" op.
 FILE-CONTENTS, FILE-PATH and FILE-NAME are details of the file to be
-loaded. If CALLBACK is nil, use `cider-load-file-handler'."
+loaded.
+
+If CONNECTION is nil, use `cider-current-connection'
+If CALLBACK is nil, use `cider-load-file-handler'."
   (cider-nrepl-send-request (list "op" "load-file"
                                   "session" (cider-current-session)
                                   "file" file-contents
                                   "file-path" file-path
                                   "file-name" file-name)
                             (or callback
-                                (cider-load-file-handler (current-buffer)))))
+                                (cider-load-file-handler (current-buffer)))
+                            connection))
 
 
 ;;; Sync Requests

cider-interaction.el

@@ -1343,7 +1343,10 @@ unloaded."
     (substring-no-properties (buffer-string))))
 
 (defun cider-load-file (filename)
-  "Load (eval) the Clojure file FILENAME in nREPL."
+  "Load (eval) the Clojure file FILENAME in nREPL.
+
+If the file is a cljc or cljx file, and both a Clojure and ClojureScript
+REPL exists for the project, it is evaluated in both REPLs."
   (interactive (list
                 (read-file-name "Load file: " nil nil nil
                                 (when (buffer-file-name)
@@ -1356,10 +1359,18 @@ unloaded."
       (cider--clear-compilation-highlights)))
   (cider--quit-error-window)
   (cider--cache-ns-form)
-  (cider-request:load-file
-   (cider-file-string filename)
-   (funcall cider-to-nrepl-filename-function (cider--server-filename filename))
-   (file-name-nondirectory filename))
+  (if-let ((_ (cider--cljc-or-cljx-file-p filename))
+           (other-connection (cider-other-connection)))
+      (dolist (connection (list (cider-current-connection) other-connection))
+        (cider-request:load-file
+         (cider-file-string filename)
+         (funcall cider-to-nrepl-filename-function (cider--server-filename filename))
+         (file-name-nondirectory filename)
+         connection))
+    (cider-request:load-file
+     (cider-file-string filename)
+     (funcall cider-to-nrepl-filename-function (cider--server-filename filename))
+     (file-name-nondirectory filename)))
   (message "Loading %s..." filename))
 
 (defun cider-load-buffer (&optional buffer)

cider-util.el

@@ -87,6 +87,10 @@ If BUFFER is provided act on that buffer instead."
   (with-current-buffer (or buffer (current-buffer))
     (or (derived-mode-p 'clojurec-mode) (derived-mode-p 'clojurex-mode))))
 
+(defun cider--cljc-or-cljx-file-p (file-name)
+  "Return true if FILE-NAME is for a cljc or cljx file."
+  (string-match "\\.clj\\(x\\|c\\)\\'" file-name))
+
 
 ;;; Thing at point
 (defun cider-defun-at-point ()