summaryrefslogtreecommitdiff
path: root/elisp/geiser-xref.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-xref.el')
-rw-r--r--elisp/geiser-xref.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index b53338a..657cfbc 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -12,6 +12,7 @@
(require' geiser-edit)
+(require 'geiser-autodoc)
(require 'geiser-eval)
(require 'geiser-popup)
(require 'geiser-custom)
@@ -53,21 +54,24 @@
geiser-xref-follow-link-method))))
(defun geiser-xref--insert-button (xref)
+ (message "inserting %s" xref)
(let* ((location (cdr (assoc 'location xref)))
(file (geiser-edit--location-file location))
(signature (cdr (assoc 'signature xref)))
+ (signature-txt (and signature
+ (geiser-autodoc--str* signature)))
(module (cdr (assoc 'module xref)))
(p (point)))
(when signature
(insert " - ")
(if (stringp file)
- (insert-text-button (format "%s" signature)
+ (insert-text-button signature-txt
:type 'geiser-xref--button
'location location
'name (car signature)
- 'help-echo (format "%s in %s" (car signature)
- file))
- (insert (format "%s" signature)))
+ 'help-echo (format "%s in %s"
+ (car signature) file))
+ (insert (format "%s" signature-txt)))
(fill-region p (point))
(save-excursion (goto-char p) (indent-sexp))
(newline))))