Improve a bit the way we display the definition location in docview

buffers

I've taken a page from Elisp itself.

1 files changed, 9 insertions, 4 deletions

diff --git a/cider-doc.el b/cider-doc.el
index 5d3b234f..28d40870 100644
--- a/cider-doc.el
+++ b/cider-doc.el
@@ -444,10 +444,15 @@ Tables are marked to be ignored by line wrap."
                                         (browse-url (button-get x 'url))))
           (insert ".\n"))
         (insert "\n")
-        (insert-text-button "[source]"
-                            'follow-link t
-                            'action (lambda (_x)
-                                      (cider-docview-source)))
+        (if cider-docview-file
+            (progn
+              (insert (propertize (if class java-name clj-name) 'font-lock-face 'font-lock-function-name-face) " is defined in ")
+              (insert-text-button cider-docview-file
+                                  'follow-link t
+                                  'action (lambda (_x)
+                                            (cider-docview-source)))
+              (insert "."))
+          (insert "No definition location information available."))
         (when see-also
           (insert "\n\n Also see: ")
           (mapc (lambda (ns-sym)