TextMate callout support

diff --git a/contrib/textmate/load.factor b/contrib/textmate/load.factor
new file mode 100644 (file)
index 0000000..f52060d
--- /dev/null
+++ b/contrib/textmate/load.factor
@@ -0,0 +1 @@
+PROVIDE: contrib/textmate { "textmate.factor" } { } ;
\ No newline at end of file

diff --git a/contrib/textmate/textmate.factor b/contrib/textmate/textmate.factor
new file mode 100644 (file)
index 0000000..51cc500
--- /dev/null
+++ b/contrib/textmate/textmate.factor
@@ -0,0 +1,11 @@
+REQUIRES: contrib/embedded contrib/process ;
+
+USING: definitions embedded io kernel parser prettyprint process
+sequences namespaces ;
+
+IN: textmate
+
+: textmate-location ( file line -- )
+    [ "mate -a \"" % over % "\" -l " % # ] "" make system drop ;
+
+[ textmate-location ] edit-hook set-global
\ No newline at end of file