[Fix #2244] Display the REPL name in the modeline

I couldn't find a better way to do it, but this seems to work well.

I was on the fence about Clojure-REPL vs REPL[clj], but opted to go
with the shorter variant (mostly becausee ClojureScript-REPL is quite
long). We can easily name this configurable.

Author: bbatsov

CHANGELOG.md

@@ -18,6 +18,7 @@
 * [#2235](https://github.com/clojure-emacs/cider/pull/2235): Make the REPL ignore blank input rather than evaluating.
 * [#2241](https://github.com/clojure-emacs/cider/pull/2241): Make `cider-test-ediff` diff eval'ed values.
 * Add support for shadow-cljs to `cider-jack-in`.
+* [#2244](https://github.com/clojure-emacs/cider/issues/2244): Display the REPL type in the modeline.
 
 ### Bugs Fixed
 

cider-repl.el

@@ -225,7 +225,7 @@ via `cider-current-connection'.")
     (when (member "state" (nrepl-dict-get response "status"))
       (nrepl-dbind-response response (repl-type changed-namespaces)
         (when repl-type
-          (setq cider-repl-type repl-type))
+          (cider-repl-set-type repl-type))
         (unless (nrepl-dict-empty-p changed-namespaces)
           (setq cider-repl-ns-cache (nrepl-dict-merge cider-repl-ns-cache changed-namespaces))
           (dolist (b (buffer-list))
@@ -261,7 +261,7 @@ ENDPOINT is a plist as returned by `nrepl-connect'."
     (with-current-buffer (get-buffer-create buff-name)
       (unless (derived-mode-p 'cider-repl-mode)
         (cider-repl-mode)
-        (setq cider-repl-type "clj"))
+        (cider-repl-set-type "clj"))
       (setq nrepl-err-handler #'cider-default-err-handler)
       (cider-repl-reset-markers)
       (add-hook 'nrepl-response-handler-functions #'cider-repl--state-handler nil 'local)
@@ -1065,7 +1065,10 @@ namespace to switch to."
                         (format "Set REPL type (currently `%s') to: "
                                 cider-repl-type)
                         '("clj" "cljs")))))
-    (setq cider-repl-type type)))
+    (setq cider-repl-type type)
+    (if (equal type "cljs")
+        (setq mode-name "REPL[cljs]")
+      (setq mode-name "REPL[clj]"))))
 
 
 ;;; Location References

cider.el

@@ -700,7 +700,7 @@ Figwheel, etc), unless you've set `cider-default-cljs-repl'."
         ;; original Clojure REPL.  Our solution is to bump the original REPL back
         ;; up the list, so it takes priority on Clojure requests.
         (cider-make-connection-default client-buffer)
-        (setq cider-repl-type "cljs")
+        (cider-repl-set-type "cljs")
         (pcase cider-cljs-repl-types
           (`(,name ,_ ,info)
            (message "Starting a %s REPL%s" name (or info ""))))
@@ -838,7 +838,7 @@ the appropriate REPL type in the end."
   (interactive)
   (when-let* ((conn (call-interactively #'cider-connect)))
     (with-current-buffer conn
-      (setq cider-repl-type "cljs"))))
+      (cider-repl-set-type "cljs"))))
 
 (defun cider-current-host ()
   "Retrieve the current host."