Allow the ns displayed by eldoc to be tailored via cider-eldoc-ns-function

1 files changed, 16 insertions, 0 deletions

diff --git a/cider-common.el b/cider-common.el
index cb3b7c8a..e074316f 100644
--- a/cider-common.el
+++ b/cider-common.el
@@ -236,5 +236,21 @@ existing file ending with URL has been found."
       (16 t) ; empty empty
       (_ nil))))
 
+(defun cider-abbreviate-ns (namespace)
+  "Return a string that abbreviates NAMESPACE."
+  (when namespace
+    (let* ((names (reverse (split-string namespace "\\.")))
+           (lastname (car names)))
+      (concat (mapconcat (lambda (s) (concat (substring s 0 1) "."))
+                         (reverse (cdr names))
+                         "")
+              lastname))))
+
+(defun cider-last-ns-segment (namespace)
+  "Return the last segment of NAMESPACE."
+  (when namespace
+    (car (reverse (split-string namespace "\\.")))))
+
+
 (provide 'cider-common)
 ;;; cider-common.el ends here