diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-05-23 23:10:52 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-05-23 23:10:52 +0200 |
| commit | 94f76a1565f09d189d9f2cef6d3df7860321709e (patch) | |
| tree | 766fd38a46c3cd5dd4835ec73f57598d698466cf /elisp/geiser-plt.el | |
| parent | acceb169d10e6096124a79b57d1c7e2dc447d37d (diff) | |
| download | geiser-guile-94f76a1565f09d189d9f2cef6d3df7860321709e.tar.gz geiser-guile-94f76a1565f09d189d9f2cef6d3df7860321709e.tar.bz2 | |
Racket support (PLT 5 needed).
Diffstat (limited to 'elisp/geiser-plt.el')
| -rw-r--r-- | elisp/geiser-plt.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index 52af728..64b770d 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -26,9 +26,9 @@ :group 'geiser) (geiser-custom--defcustom geiser-plt-binary - (cond ((eq system-type 'windows-nt) "MzScheme.exe") - ((eq system-type 'darwin) "mzscheme") - (t "mzscheme")) + (cond ((eq system-type 'windows-nt) "Racket.exe") + ((eq system-type 'darwin) "racket") + (t "racket")) "Name to use to call the mzscheme executable when starting a REPL." :type '(choice string (repeat string)) :group 'geiser-plt) @@ -60,9 +60,9 @@ This function uses `geiser-plt-init-file' if it exists." ,@(apply 'append (mapcar (lambda (p) (list "-S" p)) geiser-plt-collects)) ,@(and (listp geiser-plt-binary) (cdr geiser-plt-binary)) ,@(and init-file (file-readable-p init-file) (list "-f" init-file)) - "-f" ,(expand-file-name "plt/geiser.ss" geiser-scheme-dir)))) + "-f" ,(expand-file-name "plt/geiser.rkt" geiser-scheme-dir)))) -(defconst geiser-plt--prompt-regexp "^=?mzscheme@[^ ]*?> ") +(defconst geiser-plt--prompt-regexp "^=?\\(mzscheme\\|racket\\)@[^ ]*?> ") ;;; Evaluation support: @@ -195,8 +195,13 @@ This function uses `geiser-plt-init-file' if it exists." (binding-forms geiser-plt--binding-forms) (binding-forms* geiser-plt--binding-forms*)) -(geiser-impl--add-to-alist 'regexp "\\.mzscheme\\.sl?s$" 'plt t) +(geiser-impl--add-to-alist 'regexp + "\\.\\(mzscheme\\|racket\\)\\.sl?s$" 'plt t) (geiser-impl--add-to-alist 'regexp "\\.ss$" 'plt t) +(geiser-impl--add-to-alist 'regexp "\\.rkt$" 'plt t) + +(defalias 'run-racket 'run-plt) +(defalias 'switch-to-racket 'switch-to-plt) (provide 'geiser-plt) |