From 0add10c6a40bb27feb90c7faaa8beb155d448cd9 Mon Sep 17 00:00:00 2001
From: Rob Watson <rfwatson@gmail.com>
Date: Sat, 17 Jan 2009 15:07:08 +0000
Subject: [PATCH] added install command, also now saves class/ref opening
 settings when SC closes

---
 .../Commands/Install.tmCommand                | 52 +++++++++++++++++++
 .../README.html                               |  0
 .../README.textile                            |  0
 .../Support/classes/TextMate.sc               | 24 ++++++++-
 4 files changed, 74 insertions(+), 2 deletions(-)
 create mode 100644 SuperCollider.tmbundle/Commands/Install.tmCommand
 rename README.html => SuperCollider.tmbundle/README.html (100%)
 rename README.textile => SuperCollider.tmbundle/README.textile (100%)
 rename TextMate.sc => SuperCollider.tmbundle/Support/classes/TextMate.sc (89%)

diff --git a/SuperCollider.tmbundle/Commands/Install.tmCommand b/SuperCollider.tmbundle/Commands/Install.tmCommand
new file mode 100644
index 0000000..02157ed
--- /dev/null
+++ b/SuperCollider.tmbundle/Commands/Install.tmCommand
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>beforeRunningCommand</key>
+	<string>nop</string>
+	<key>command</key>
+	<string>#!/usr/bin/env ruby
+
+def could_not_locate
+	puts "&lt;span style='color:red'&gt;There was a problem&lt;/span&gt;&lt;br/&gt;"
+	puts "Probably, you do not have SuperCollider installed, or you are using a non-standard user support directory.&lt;br/&gt;&lt;br/&gt;"
+	puts "You will need to manually copy &lt;code&gt;supercollider-tmbundle/Support/classes/TextMate.sc&lt;/code&gt; into your SC class path"
+end
+
+puts "=======================================&lt;br/&gt;"
+puts "Textmate SuperCollider bundle&lt;br/&gt;"
+puts "by &lt;a href='http://rfwatson.github.com'&gt;R.Watson&lt;/a&gt;.&lt;br/&gt;"
+puts "=======================================&lt;br/&gt;&lt;br/&gt;"
+
+if File.exists?(File.expand_path("~/Library/Application Support/SuperCollider/Extensions/TextMate.sc"))
+	puts "&lt;span style='color:green'&gt;SuperCollider bundle already installed&lt;/span&gt;.&lt;br/&gt;"
+else
+	if not File.directory?(File.expand_path("~/Library/Application Support/SuperCollider/Extensions"))
+		could_not_locate
+	else
+		if system %Q{ln -s '#{ENV['TM_BUNDLE_SUPPORT']}/classes/TextMate.sc' '#{File.expand_path("~/Library/Application Support/SuperCollider/Extensions/TextMate.sc")}'}
+			puts "&lt;span style='color:green'&gt;Successfully installed TextMate class&lt;/span&gt;.&lt;br/&gt;&lt;br/&gt;"
+			puts "Relaunch SuperCollider to complete installation."
+		else
+			puts "There was an error installing the class file.&lt;br/&gt;&lt;br/&gt;"
+			could_not_locate
+		end
+	end
+end
+</string>
+	<key>fallbackInput</key>
+	<string>document</string>
+	<key>input</key>
+	<string>selection</string>
+	<key>keyEquivalent</key>
+	<string>$@</string>
+	<key>name</key>
+	<string>Install</string>
+	<key>output</key>
+	<string>showAsHTML</string>
+	<key>scope</key>
+	<string>source.supercollider</string>
+	<key>uuid</key>
+	<string>BB37ACE9-8262-4AF6-B3C6-43DC0AF2B370</string>
+</dict>
+</plist>
diff --git a/README.html b/SuperCollider.tmbundle/README.html
similarity index 100%
rename from README.html
rename to SuperCollider.tmbundle/README.html
diff --git a/README.textile b/SuperCollider.tmbundle/README.textile
similarity index 100%
rename from README.textile
rename to SuperCollider.tmbundle/README.textile
diff --git a/TextMate.sc b/SuperCollider.tmbundle/Support/classes/TextMate.sc
similarity index 89%
rename from TextMate.sc
rename to SuperCollider.tmbundle/Support/classes/TextMate.sc
index b7d7c8e..0a9a909 100755
--- a/TextMate.sc
+++ b/SuperCollider.tmbundle/Support/classes/TextMate.sc
@@ -1,8 +1,17 @@
 TextMate {
   classvar menu, <openClassInTextMate, <openReferencesInTextMate;
   
+  *saveState {
+    (
+      classfiles: openClassInTextMate.state, 
+      references: openReferencesInTextMate.state
+    ).writeArchive("%/.textmate-settings".format(Platform.userAppSupportDir));
+  }
+
   *initClass {
     var opt;
+
+    var settings = Object.readArchive("%/.textmate-settings".format(Platform.userAppSupportDir));
     
     try {
       menu = CocoaMenuItem(nil, 7, "TextMate", true);
@@ -17,13 +26,24 @@ TextMate {
 
       openClassInTextMate = CocoaMenuItem(menu, 1, "Open class files in TextMate", false) { |item|
         item.state = item.state.not;
+        this.saveState;
       };
-      openClassInTextMate.state = true;
+      openClassInTextMate.state = settings.classfiles;
     
       openReferencesInTextMate = CocoaMenuItem(menu, 2, "Open references in TextMate", false) { |item|
         item.state = item.state.not;
+        this.saveState;
+      };
+      openReferencesInTextMate.state = settings.references;      
+      
+      CocoaMenuItem(menu, 3, "About SuperCollider bundle", false) { |item|
+        Document.new.string = "TextMate-SuperCollider bundle
+
+by R.Watson
+        
+For documentation and source code,
+http://rfwatson.github.com"
       };
-      openReferencesInTextMate.state = true;      
     } {
       "TextMate found a problem installing CocoaMenuItems - you may be running SC 3.2 or older, or booting from command-line.".warn
     }