From 1c50bcb1e89ecad683148a4e67fecfc1d82a93ce 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. --- geiser/completion.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'geiser/completion.scm') diff --git a/geiser/completion.scm b/geiser/completion.scm index 4906368..f4342bb 100644 --- a/geiser/completion.scm +++ b/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