From d7657c533921de69d1805f7bf3b40d9426d7800b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 11 May 2009 01:22:49 +0200 Subject: Improvements to module name support (using prefixes) and Guile support. --- scheme/guile/geiser/completion.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'scheme/guile/geiser/completion.scm') diff --git a/scheme/guile/geiser/completion.scm b/scheme/guile/geiser/completion.scm index 4906368..f4342bb 100644 --- a/scheme/guile/geiser/completion.scm +++ b/scheme/guile/geiser/completion.scm @@ -25,8 +25,9 @@ ;;; Code: (define-module (geiser completion) - #:export (completions) + #:export (completions module-completions) #:use-module (geiser utils) + #:use-module (geiser modules) #:use-module (ice-9 session) #:use-module (ice-9 regex)) @@ -53,4 +54,10 @@ (loop (cons 'let (body form)) (cons (cadr form) bindings))) (else (loop (cdr form) bindings))))) +(define (module-completions prefix) + (let* ((prefix (string-append "^" (regexp-quote prefix))) + (matcher (lambda (s) (string-match prefix s))) + (names (filter matcher (all-modules)))) + (sort! names string