diff --git a/Commands/Install.tmCommand b/Commands/Install.tmCommand index 02157ed..5adad12 100644 --- a/Commands/Install.tmCommand +++ b/Commands/Install.tmCommand @@ -18,21 +18,24 @@ puts "Textmate SuperCollider bundle<br/>" puts "by <a href='http://rfwatson.github.com'>R.Watson</a>.<br/>" puts "=======================================<br/><br/>" -if File.exists?(File.expand_path("~/Library/Application Support/SuperCollider/Extensions/TextMate.sc")) - puts "<span style='color:green'>SuperCollider bundle already installed</span>.<br/>" +fname = File.expand_path("~/Library/Application Support/SuperCollider/Extensions/TextMate.sc") +if File.exists?(fname) + #puts "<span style='color:green'>SuperCollider bundle already installed</span>.<br/>" + File.rename(fname, fname + '.bak') +end + +if not File.directory?(File.expand_path("~/Library/Application Support/SuperCollider/Extensions")) + could_not_locate else - if not File.directory?(File.expand_path("~/Library/Application Support/SuperCollider/Extensions")) - could_not_locate + if system %Q{ln -s '#{ENV['TM_BUNDLE_SUPPORT']}/classes/TextMate.sc' '#{File.expand_path("~/Library/Application Support/SuperCollider/Extensions/TextMate.sc")}'} + puts "<span style='color:green'>Successfully installed TextMate class</span>.<br/><br/>" + puts "Relaunch SuperCollider to complete installation." else - if system %Q{ln -s '#{ENV['TM_BUNDLE_SUPPORT']}/classes/TextMate.sc' '#{File.expand_path("~/Library/Application Support/SuperCollider/Extensions/TextMate.sc")}'} - puts "<span style='color:green'>Successfully installed TextMate class</span>.<br/><br/>" - puts "Relaunch SuperCollider to complete installation." - else - puts "There was an error installing the class file.<br/><br/>" - could_not_locate - end + puts "There was an error installing the class file.<br/><br/>" + could_not_locate end end + fallbackInput document