Display the current connection in cider-mode's modeline

Author: bbatsov

CHANGELOG.md

@@ -53,6 +53,7 @@
 
 ### Changes
 
+* Display the current connection instead of the current namespace in `cider-mode`'s modeline.
 * [#1078](https://github.com/clojure-emacs/cider/issues/1078): Removed
   `cider-load-fn-into-repl-buffer`, previously bound to `C-c M-f` in the REPL.
 * [#1019](https://github.com/clojure-emacs/cider/pull/1019):

cider-mode.el

@@ -33,17 +33,30 @@
 (require 'cider-interaction)
 (require 'cider-eldoc)
 
+(defun cider--modeline-info ()
+  "Return info for the `cider-mode' modeline.
+
+Info contains project name and host:port endpoint."
+  (let ((current-connection (nrepl-current-connection-buffer t)))
+    (if current-connection
+        (with-current-buffer current-connection
+          (format "%s@%s:%s"
+                  (or (nrepl--project-name nrepl-project-dir) "<no project>")
+                  (car nrepl-endpoint)
+                  (cadr nrepl-endpoint)))
+      "not connected")))
+
 ;;;###autoload
 (defcustom cider-mode-line
-  '(:eval (format " cider[%s]" (cider-current-ns)))
+  '(:eval (format " cider[%s]" (cider--modeline-info)))
   "Mode line lighter for `cider-mode'.
 
 The value of this variable is a mode line template as in
 `mode-line-format'.  See Info Node `(elisp)Mode Line Format' for
 details about mode line templates.
 
 Customize this variable to change how `cider-mode' displays its
-status in the mode line.  The default value displays the current ns.
+status in the mode line.  The default value displays the current connection.
 Set this variable to nil to disable the mode line
 entirely."
   :group 'cider