From 544b9dfb82dcf81847d34a6c2d141f2020fe3198 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 25 Nov 2010 22:47:30 +0100
Subject: Link to symbol's module in doc browser

But i should really refactor this: module and value are (or can be)
already available in the response coming from Scheme.
---
 elisp/geiser-doc.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'elisp')

diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 2e8b4a2..5abcd3c 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -140,6 +140,14 @@ help (e.g. browse an HTML page) implementing this method.")
   'action 'geiser-doc--button-action
   'follow-link t)
 
+(defun geiser-doc--make-module-button (beg end module impl)
+  (let ((link (geiser-doc--make-link nil module impl))
+        (help (format "Help for module %s" module)))
+    (make-text-button beg end :type 'geiser-doc--button
+                      'face 'geiser-font-lock-doc-link
+                      'geiser-link link
+                      'help-echo help)))
+
 (defun geiser-doc--insert-button (target module impl &optional sign)
   (let ((link (geiser-doc--make-link target module impl))
         (text (format "%s" (or (and sign (geiser-autodoc--str* sign))
@@ -267,6 +275,16 @@ help (e.g. browse an HTML page) implementing this method.")
   (geiser-eval--send/result
    `(:eval (:ge module-exports '(:module ,module)) :f)))
 
+(defun geiser-doc--buttonize-module (impl)
+  (save-excursion
+    (goto-char (point-min))
+    (when (re-search-forward "in module \\([^.\n]+\\)\\." nil t)
+      (geiser-doc--make-module-button (match-beginning 1)
+                                      (match-end 1)
+                                      (geiser-doc--module (match-string 1)
+                                                          impl)
+                                      impl))))
+
 (defun geiser-doc-symbol (symbol &optional module impl)
   (let* ((impl (or impl geiser-impl--implementation))
          (module (geiser-doc--module (or module (geiser-eval--get-module))
@@ -281,6 +299,7 @@ help (e.g. browse an HTML page) implementing this method.")
                                 (cdr (assoc 'signature ds))))
           (newline)
           (insert (or (cdr (assoc 'docstring ds)) ""))
+          (geiser-doc--buttonize-module impl)
           (setq geiser-doc--buffer-link
                 (geiser-doc--history-push (geiser-doc--make-link symbol
                                                                  module
-- 
cgit v1.2.3