Add racket support to Run Script (⌘R)

textmate · Oct 2, 2014 · 4c21b46 · 4c21b46
1 parent e1d0d6f
commit 4c21b46
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Commands/Run Script.plist b/Commands/Run Script.plist
@@ -14,7 +14,7 @@ require ENV["TM_SUPPORT_PATH"] + "/lib/escape"
 TextMate.save_current_document
 TextMate::Executor.make_project_master_current_document
 
-interpreters = ["mzscheme", "csi", "guile", "gosh"]
+interpreters = ["mzscheme", "csi", "guile", "gosh", "racket"]
 args = []
 args &lt;&lt; (ENV["TM_SCHEME"] || interpreters.select{|ii| ENV["PATH"].split(":").any?{|dd| File.executable? File.join(dd, ii)}}.first)
 
@@ -23,6 +23,8 @@ when "mzscheme"
   args &lt;&lt; "-e" &lt;&lt; '(require (lib "errortrace.ss" "errortrace"))' &lt;&lt; "-r"
 when "gosh"
   # nothing
+when "racket"
+  args &lt;&lt; "-r"
 else
   args &lt;&lt; "-s"
 end

diff --git a/Syntaxes/Scheme.plist b/Syntaxes/Scheme.plist
@@ -26,6 +26,7 @@
 	<array>
 		<string>scm</string>
 		<string>sch</string>
+		<string>rkt</string>
 	</array>
 	<key>keyEquivalent</key>
 	<string>^~S</string>