From 2e00389e7d25542c420c701d48b273bf43a7c172 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 30 Nov 2014 19:20:03 -0800
Subject: [PATCH] editors.cot: adding CotEditor support.

---
 basis/editors/cot/authors.txt |  1 +
 basis/editors/cot/cot.factor  | 16 ++++++++++++++++
 basis/editors/cot/summary.txt |  1 +
 basis/editors/cot/tags.txt    |  1 +
 4 files changed, 19 insertions(+)
 create mode 100644 basis/editors/cot/authors.txt
 create mode 100644 basis/editors/cot/cot.factor
 create mode 100644 basis/editors/cot/summary.txt
 create mode 100644 basis/editors/cot/tags.txt

diff --git a/basis/editors/cot/authors.txt b/basis/editors/cot/authors.txt
new file mode 100644
index 0000000000..e091bb8164
--- /dev/null
+++ b/basis/editors/cot/authors.txt
@@ -0,0 +1 @@
+John Benediktsson
diff --git a/basis/editors/cot/cot.factor b/basis/editors/cot/cot.factor
new file mode 100644
index 0000000000..cf4f26eec5
--- /dev/null
+++ b/basis/editors/cot/cot.factor
@@ -0,0 +1,16 @@
+USING: editors io.pathnames io.standard-paths kernel make
+math.parser ;
+IN: editors.cot
+
+SINGLETON: cot
+cot editor-class set-global
+
+: find-cot-bundle-path ( -- path/f )
+    "com.coteditor.CotEditor" find-native-bundle [
+        "Contents/MacOS/cot" append-path
+    ] [
+        f
+    ] if* ;
+
+M: cot editor-command ( file line -- command )
+    [ find-cot-bundle-path , "-l" , # , ] { } make ;
diff --git a/basis/editors/cot/summary.txt b/basis/editors/cot/summary.txt
new file mode 100644
index 0000000000..d7c98d2664
--- /dev/null
+++ b/basis/editors/cot/summary.txt
@@ -0,0 +1 @@
+CotEditor integration
diff --git a/basis/editors/cot/tags.txt b/basis/editors/cot/tags.txt
new file mode 100644
index 0000000000..ebb74b4d5f
--- /dev/null
+++ b/basis/editors/cot/tags.txt
@@ -0,0 +1 @@
+not loaded