summaryrefslogtreecommitdiff
path: root/elisp/geiser-plt.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-05-23 23:10:52 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-05-23 23:10:52 +0200
commit94f76a1565f09d189d9f2cef6d3df7860321709e (patch)
tree766fd38a46c3cd5dd4835ec73f57598d698466cf /elisp/geiser-plt.el
parentacceb169d10e6096124a79b57d1c7e2dc447d37d (diff)
downloadgeiser-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.el17
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)