REPL: new doc bindings in tune with those in scheme buffers.

5 files changed, 16 insertions, 4 deletions

diff --git a/README b/README
index d51b0cc..fcf5f4f 100644
--- a/README
+++ b/README
@@ -144,7 +144,8 @@
     | C-c C-m, C-c m | Set current module                                 |
     | C-c C-l, C-c l | Load scheme file                                   |
     |----------------+----------------------------------------------------|
-    | C-c C-d, C-c d | See module documentation                           |
+    | C-c C-d C-d    | See documentation for symbol at point              |
+    | C-c C-d C-m    | See documentation for module                       |
     | C-c C-a, C-c a | Toggle autodoc mode                                |
     |----------------+----------------------------------------------------|
 
diff --git a/doc/img/repl-menu.png b/doc/img/repl-menu.png
index 7d1dcbe..306552d 100644
--- a/doc/img/repl-menu.png
+++ b/doc/img/repl-menu.png
diff --git a/doc/repl.texi b/doc/repl.texi
index dffd2a1..3541954 100644
--- a/doc/repl.texi
+++ b/doc/repl.texi
@@ -151,6 +151,13 @@ when the optional argument has a default value, it's represented by a
 list made up of its name and that value. When the argument is a keyword
 argument, its name is preceded by a colon.
 
+If that's not enough documentation for you, @kbd{C-c C-d d} will open a
+separate documentation buffer with help on the symbol at point. For some
+implementations (e.g. Racket), this separate buffer will actually be a
+web page displaying the corresponding page in the manual, while for
+implementations supporting docstrings (e.g. (you guessed it) Guile)
+it'll be a real Emacs buffer displaying that information.
+
 If that's still not enough, Geiser can jump, via @kbd{M-.}, to the
 symbol's definition. A buffer with the corresponding file will pop up,
 with its point resting upon the identifier's defining form. When you're
@@ -159,7 +166,7 @@ will see, these commands are also available in scheme buffers.
 
 Finally, Geiser can produce for you a list, classified by kind, of the
 identifiers exported by a given module: all you need to do is press
-@kbd{C-c d}, and type or complete the desired module's name.
+@kbd{C-c C-d m}, and type or complete the desired module's name.
 
 @image{img/repl-mod}
 
diff --git a/doc/web.texi b/doc/web.texi
index 0ae33a1..b09aae7 100644
--- a/doc/web.texi
+++ b/doc/web.texi
@@ -17,6 +17,7 @@
 @end menu
 
 @html
+<br/>
 <div class="navigation" align="right">
 <a class="navlink"
 href="http://savannah.nongnu.org/news/?group=geiser">News</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index fd86de8..f1da27f 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -434,8 +434,11 @@ module command as a string")
   ("Previous input" "\C-c\M-p" comint-previous-input)
   ("Next input" "\C-c\M-n" comint-next-input)
   --
-  (mode "Autodoc mode" ("\C-ca" "\C-c\C-a") geiser-autodoc-mode)
-  ("Module documentation" ("\C-cd" "\C-c\C-d") geiser-repl--doc-module
+  (mode "Autodoc mode" ("\C-c\C-da" "\C-c\C-d\C-a") geiser-autodoc-mode)
+  ("Symbol documentation" ("\C-c\C-dd" "\C-c\C-d\C-d")
+   geiser-doc-symbol-at-point
+   "Documentation for symbol at point" :enable (symbol-at-point))
+  ("Module documentation" ("\C-c\C-dm" "\C-c\C-d\C-m") geiser-repl--doc-module
    "Documentation for module at point" :enable (symbol-at-point))
   --
   ("Kill Scheme interpreter" "\C-c\C-q" comint-kill-subjob