branch: elpa/geiser-gauche
commit 4195803a9788618c09e2163d63f1540aa3a522b6
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Prefer longest require arg list in autodoc
---
geiser.scm | 17 ++++++-----------
1 file changed, 6 insertions(+), 11 deletions(-)
diff --git a/geiser.scm b/geiser.scm
index 4a0fc2e..21eacb6 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -85,12 +85,7 @@
(delete-duplicates
(remove
(^x (or (string=? x "")
- (string-prefix? "(" x)
- ;; TODO check whether it is bound in the current module?
- ;; probably needs changing this into a macro...
- ;; (not (global-variable-bound? (current-module)
- ;; (string->symbol x)))
- ))
+ (string-prefix? "(" x)))
(string-split
(with-output-to-string
(cut apropos (string->regexp (string-append "^" prefix))))
@@ -106,13 +101,13 @@
;;; Autodoc
(define (geiser:autodoc ids . rest)
- (concatenate
- (map (cut gauche-info <>)
- ids)))
+ (map (cut gauche-info <>)
+ ids))
(define (gauche-info id)
- (filter-map (cut gauche-info-in-module id <>)
- (all-modules)))
+ (car
+ (sort (filter-map (cut gauche-info-in-module id <>) (all-modules))
+ > (^x (length (car (cadadr x)))))))
(define (gauche-info-in-module id module)
(if (hash-table-get (module-table module) id #f)
