[Fix #1976] Add an interactive command for connecting to a running ClojureScript

REPL

This worked in the past as well, but someone had to toggle the type of the REPL
to "cljs" using `cider-repl-type` which was not obvious to most people. I also
added an interactive command for toggling the REPL type - `cider-repl-set-type`.

This fixes a mess I had created before - I had copy-pasted some code I planned
to tweak from the related issue and I committed this code upstream by mistake.

1 files changed, 9 insertions, 10 deletions

diff --git a/cider.el b/cider.el
index 78ce911c..98750370 100644
--- a/cider.el
+++ b/cider.el
@@ -671,19 +671,18 @@ gets associated with it."
            ;; associate if we're in a project, prompt otherwise
            ((eq cider-prompt-for-project-on-connect 'when-needed) (cider-assoc-project-with-connection project-dir conn))
            ;; always prompt
-           (t (cider-assoc-project-with-connection nil conn))))))))
-
-(defun cider-repl-set-type (&optional type)
-  "Set REPL TYPE to \"clj\" or \"cljs\"."
-  (interactive)
-  (let ((type (or type (completing-read "Set REPL type to: " '("clj" "cljs")))))
-    (setq cider-repl-type type)))
+           (t (cider-assoc-project-with-connection nil conn)))))
+      conn)))
 
 (defun cider-connect-clojurescript ()
-  "Connect to a clojurescript repl."
+  "Connect to a ClojureScript REPL.
+
+It just delegates pretty much everything to `cider-connect' and just sets
+the appropriate REPL type in the end."
   (interactive)
-  (cider-connect)
-  (cider-repl-set-type "cljs"))
+  (when-let* ((conn (call-interactively #'cider-connect)))
+    (with-current-buffer conn
+      (setq cider-repl-type "cljs"))))
 
 (defun cider-current-host ()
   "Retrieve the current host."