diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 23:33:24 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 23:33:24 +0100 |
| commit | c225b4606809739b6d408c915694841ca1aa45c0 (patch) | |
| tree | 2d99a3510407553691ec6b70e976633067d003ff /scheme/geiser | |
| parent | cb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e (diff) | |
| download | geiser-guile-c225b4606809739b6d408c915694841ca1aa45c0.tar.gz geiser-guile-c225b4606809739b6d408c915694841ca1aa45c0.tar.bz2 | |
TAB-completion for symbols in Scheme and REPL buffers.
Diffstat (limited to 'scheme/geiser')
| -rw-r--r-- | scheme/geiser/emacs.scm | 2 | ||||
| -rw-r--r-- | scheme/geiser/introspection.scm | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/scheme/geiser/emacs.scm b/scheme/geiser/emacs.scm index 014c44a..ea74220 100644 --- a/scheme/geiser/emacs.scm +++ b/scheme/geiser/emacs.scm @@ -25,7 +25,7 @@ ;;; Code: (define-module (geiser emacs) - #:re-export (proc-args var-metadata) + #:re-export (proc-args completions) #:use-module (geiser introspection)) diff --git a/scheme/geiser/introspection.scm b/scheme/geiser/introspection.scm index 0c759d5..ffa2c73 100644 --- a/scheme/geiser/introspection.scm +++ b/scheme/geiser/introspection.scm @@ -25,8 +25,9 @@ ;;; Code: (define-module (geiser introspection) - #:export (proc-args var-metadata) + #:export (proc-args completions) #:use-module (system vm program) + #:use-module (ice-9 session) #:use-module (srfi srfi-1)) (define (proc-args proc) @@ -62,4 +63,7 @@ (list (cons 'required args) (cons 'optional (or opt '())))) +(define (completions prefix) + (map symbol->string (apropos-internal (string-append "^" prefix)))) + ;;; introspection.scm ends here |