[nongnu] elpa/geiser-gauche 524b594 046/119: Start work on module documentation

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 524b594cf14e7c9f591b63afaca81455146d11c4
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Start work on module documentation
---
 geiser-gauche.el | 1 +
 geiser.scm       | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 055a2bc..b8e8505 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -117,6 +117,7 @@
                    (re-search-forward geiser-gauche--module-re nil t))
                (geiser-gauche--get-module (match-string-no-properties 1))
              :f)))
+       ((symbolp module) module)
         ((listp module) module)
         ((stringp module)
          (condition-case nil
diff --git a/geiser.scm b/geiser.scm
index 04c8a13..4f69b8e 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -14,6 +14,7 @@
    geiser:add-to-load-path
    geiser:symbol-documentation
    geiser:module-location
+   geiser:module-exports
    ;; Missing functions:
    ;; geiser:start-server
    ;; geiser:object-signature
@@ -201,6 +202,13 @@
                     process-dotted-arg-info)
                 (cdr sig)))
              ("module" ,module))))))
+
+;; Module documentation
+
+(define (geiser:module-exports mod-name . rest)
+  (let1 symbols (module-exports (find-module mod-name))
+       (list (cons "procs"
+                   (map list symbols)))))
 
 
 ;; Further