branch: elpa/geiser-gauche
commit 524b594cf14e7c9f591b63afaca81455146d11c4
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
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
