helpful

commit 4520b411650036df43750c980fb95f20871d014d
parent 6c5f116b6b1d426043edeb40bc752a8ca1fa9de7
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Fri,  2 Jun 2017 23:51:59 +0100

Move definition link with source code

Diffstat:
M
helpful.el
 | 
15
++++++++++-----

1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/helpful.el b/helpful.el
@@ -312,14 +312,19 @@ state of the current symbol."
          "No properties.")
      (helpful--heading "\n\nReferences\n")
      (if source-path
-         (format "Defined in %s\n\nCallers in %s:\n%s\n"
+         (format "Callers in %s:\n%s"
+                 (f-filename source-path)
+                 (helpful--format-position-heads references))
+       "Could not find source file.")
+     (helpful--heading "\n\nSource Code\n")
+     (if source-path
+         (concat (helpful--syntax-highlight ";; Defined in ")
                  (helpful--navigate-button
                   source-path
                   (helpful--source-pos helpful--sym))
-                 (f-filename source-path)
-                 (helpful--format-position-heads references))
-       "Could not find source file.\n")
-     (helpful--heading "\n\nDefinition\n")
+                 "\n")
+       (helpful--syntax-highlight
+        (format ";; Source file is unknown\n")))
      (if (stringp source)
          (helpful--syntax-highlight source)
        (helpful--syntax-highlight (helpful--pretty-print source)))