redcar-dev 0.12.17dev

data/plugins/test_runner/plugin.rb

@@ -0,0 +1,8 @@
+
+Plugin.define do
+  name    "test_runner"
+  version "1.0"
+  file    "lib", "test_runner"
+  object  "Redcar::TestRunner"
+  dependencies "redcar", ">0"
+end

data/plugins/test_runner/spec/run_test_command_spec.rb

@@ -0,0 +1,51 @@
+require File.join(File.dirname(__FILE__), 'spec_helper')
+
+describe Redcar::RunTestCommand do
+  describe "calling run_test" do
+    before do
+      storage_file = File.join(Redcar.user_dir, "storage", "test_runner.yaml")
+      FileUtils.rm(storage_file) if File.exists?(storage_file)
+      Redcar::RunTestCommand.class_eval { @storage = nil}
+      @run_test_command = Redcar::RunTestCommand.new
+      Redcar::Project::Manager.stub!(:focussed_project).and_return(mock("project", {:path => "foo"}))
+    end
+    describe "with a test_unit test" do
+      before do
+        @test_path = "foo/bar/foo_test.rb"
+      end
+      describe "with a line that doesn't match a pattern" do
+        it "should run the test file" do
+          Redcar::Runnables.should_receive(:run_process).with(
+            "foo", "ruby -Itest #{@test_path}", "Running test: foo_test.rb")
+          @run_test_command.run_test(@test_path, "whatever")
+        end
+      end
+      describe "with a line that matches a pattern" do
+        it "should run the test file" do
+          Redcar::Runnables.should_receive(:run_process).with(
+            "foo", "ruby -Itest #{@test_path} -n \"/this is a context/\"", "Running test: this is a context")
+          @run_test_command.run_test(@test_path, %{context "this is a context"})
+        end
+      end
+    end
+    describe "with an rspec2 spec" do
+      before do
+        @test_path = "foo/bar/foo_spec.rb"
+      end
+      describe "with a line that doesn't match a pattern" do
+        it "should run the test file" do
+          Redcar::Runnables.should_receive(:run_process).with(
+            "foo", "ruby -Ispec #{@test_path}", "Running test: foo_spec.rb")
+          @run_test_command.run_test(@test_path, "whatever")
+        end
+      end
+      describe "with a line that matches a pattern" do
+        it "should run the test file" do
+          Redcar::Runnables.should_receive(:run_process).with(
+            "foo", %{ruby -Ispec #{@test_path} -e "this is a context"}, "Running test: this is a context")
+          @run_test_command.run_test(@test_path, %{describe "this is a context"})
+        end
+      end
+    end
+  end
+end

data/plugins/test_runner/spec/spec_helper.rb

@@ -0,0 +1,5 @@
+$:.push File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
+
+require 'redcar'
+Redcar.environment = :test
+Redcar.load_unthreaded

data/plugins/textmate/features/bundle_tree.feature

@@ -0,0 +1,23 @@
+Feature: Show snippets in a tree
+
+  Scenario: Show groups of snippets in the project pane
+    When I click Show Bundles in Tree
+    Then I should see a tree mirror titled "Bundles"
+    And I should see bundle "Ruby" in the tree
+    And I should not see bundle "test_bundle" in the tree
+
+  Scenario: Show individual snippets
+    When I click Show Bundles in Tree
+    And I open bundle "Perl" in the tree
+    Then I should see snippet "Loop" listed
+
+  Scenario: Show subgroups of snippets
+    When I click Show Bundles in Tree
+    And I open bundle "PHP" in the tree
+    Then I should see snippet group "Declarations" listed
+
+#TODO: add add/remove bundles from preferences
+#  Scenario: I can refresh the tree if loaded bundles change
+#    When I add a bundle
+#    And I click Show Bundles in Tree
+#    Then I should see "test_bundle" in the tree

data/plugins/textmate/features/step_definitions/tree_steps.rb

@@ -0,0 +1,57 @@
+
+When /^I click Show Bundles in Tree$/ do
+    Redcar::Textmate::ShowSnippetTree.new.run
+end
+
+Then /^I should see a tree mirror titled "([^"]*)"$/ do |arg1|
+  val = Redcar.app.focussed_window.treebook.trees.detect do |t|
+    t.tree_mirror.title == arg1
+  end
+end
+
+When /^I open bundle "([^"]*)" in the tree$/ do |arg1|
+  val = Redcar.app.focussed_window.treebook.trees.detect do |t|
+    t.tree_mirror.is_a?(Redcar::Textmate::TreeMirror) and t.tree_mirror.top.detect do |child|
+      if child.text == arg1
+        @top = child.children
+        true
+      end
+    end
+  end
+  val.should be_true
+end
+
+Then /^I should see snippet group "([^"]*)" listed$/ do |arg1|
+  val = @top.detect do |child|
+    child.is_a?(Redcar::Textmate::SnippetGroup) and child.text == arg1
+  end
+  val.should be_true
+end
+
+Then /^I should see snippet "([^"]*)" listed$/ do |arg1|
+  val = @top.detect do |child|
+    child.is_a?(Redcar::Textmate::SnippetNode) and child.text.match(/^#{arg1}/)
+  end
+  val.should be_true
+end
+
+ When /^I add a bundle$/ do
+  FileUtils.mkdir tmp_bundle_path_1
+  FileUtils.cp_r(test_bundle, bundle_path)
+ end
+
+Then /^I should (see|not see) bundle "([^"]*)" in the tree$/ do |see,arg1|
+  val = Redcar.app.focussed_window.treebook.trees.detect do |t|
+    t.tree_mirror.top.detect do |child|
+      Redcar::Textmate.all_bundles.detect do |bundle|
+        bundle.name == arg1
+      end
+    end
+  end
+  case see
+  when "see"
+  val.should be_true
+  when "not see"
+    val.should be_nil
+  end
+end

data/plugins/textmate/features/support/env.rb

@@ -0,0 +1,19 @@
+def test_bundle
+  File.expand_path(File.dirname(__FILE__) + "/test_bundle.tmbundle")
+end
+
+def bundle_path
+  File.expand_path(File.dirname(__FILE__) + "/../../vendor/redcar-bundles/Bundles")
+end
+
+def tmp_bundle_path_1
+  File.expand_path(File.dirname(__FILE__) + "/../../vendor/redcar-bundles/Bundles/test_bundle.tmbundle")
+end
+
+Before do
+  FileUtils.rm_rf tmp_bundle_path_1
+end
+
+After do
+  FileUtils.rm_rf tmp_bundle_path_1
+end

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/If.tmSnippet

@@ -0,0 +1,18 @@
+<?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>content</key>
+	<string>&lt;TMPL_IF NAME="$1"&gt;
+	$2
+&lt;/TMPL_IF&gt;</string>
+	<key>name</key>
+	<string>If</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>if</string>
+	<key>uuid</key>
+	<string>907E21D1-ACD9-4CB6-9C20-C1BA813BFAED</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/If__Else.tmSnippet

@@ -0,0 +1,20 @@
+<?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>content</key>
+	<string>&lt;TMPL_IF NAME="$1"&gt;
+	$2
+&lt;TMPL_ELSE&gt;
+	$3
+&lt;/TMPL_IF&gt;</string>
+	<key>name</key>
+	<string>If-Else</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>ife</string>
+	<key>uuid</key>
+	<string>22A827CA-B0B7-4468-9FCD-95B5842ABF90</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/Include.tmSnippet

@@ -0,0 +1,16 @@
+<?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>content</key>
+	<string>&lt;TMPL_INCLUDE NAME="$1"&gt;</string>
+	<key>name</key>
+	<string>Include</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>inc</string>
+	<key>uuid</key>
+	<string>30FBFAAA-B7E5-4A2B-8092-C8367C0838B9</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/Loop.tmSnippet

@@ -0,0 +1,18 @@
+<?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>content</key>
+	<string>&lt;TMPL_LOOP NAME="$1"&gt;
+	$2
+&lt;/TMPL_LOOP&gt;</string>
+	<key>name</key>
+	<string>Loop</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>loop</string>
+	<key>uuid</key>
+	<string>857B0182-F407-4ADC-B166-463C47A0369B</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/Unless.tmSnippet

@@ -0,0 +1,18 @@
+<?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>content</key>
+	<string>&lt;TMPL_UNLESS NAME="$1"&gt;
+	$2
+&lt;/TMPL_UNLESS&gt;</string>
+	<key>name</key>
+	<string>Unless</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>unless</string>
+	<key>uuid</key>
+	<string>826B32E3-9913-4D02-95E7-65716121F1F4</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/Var.tmSnippet

@@ -0,0 +1,16 @@
+<?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>content</key>
+	<string>&lt;TMPL_VAR NAME="$1"${2:${3: DEFAULT="$4"}${5: ESCAPE="${6:html|js|url|none}"}}&gt;</string>
+	<key>name</key>
+	<string>Var</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>var</string>
+	<key>uuid</key>
+	<string>AA7F838B-1706-4373-8AD4-9FD1796C838F</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/Snippets/next_If__Else.tmSnippet

@@ -0,0 +1,20 @@
+<?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>content</key>
+	<string>&lt;TMPL_IF NAME="$1"&gt;
+	$2
+&lt;TMPL_ELSE&gt;
+	$3
+&lt;/TMPL_IF&gt;</string>
+	<key>name</key>
+	<string>If-Else</string>
+	<key>scope</key>
+	<string>text.html.html-template</string>
+	<key>tabTrigger</key>
+	<string>ife</string>
+	<key>uuid</key>
+	<string>22A827CA-B0B7-4468-9FCD-95B5842ABF90</string>
+</dict>
+</plist>

data/plugins/textmate/features/support/test_bundle.tmbundle/info.plist

@@ -0,0 +1,26 @@
+<?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>contactEmailRot13</key>
+	<string>oenq@oenqpubngr.pbz</string>
+	<key>contactName</key>
+	<string>Brad Choate</string>
+	<key>description</key>
+	<string>&lt;a href="http://html-template.sourceforge.net/"&gt;HTML::Template&lt;/a&gt; is a template processing system for Perl.</string>
+	<key>name</key>
+	<string>test_bundle</string>
+	<key>ordering</key>
+	<array>
+		<string>79287EAC-597A-480D-974C-837440298571</string>
+		<string>AA7F838B-1706-4373-8AD4-9FD1796C838F</string>
+		<string>907E21D1-ACD9-4CB6-9C20-C1BA813BFAED</string>
+		<string>22A827CA-B0B7-4468-9FCD-95B5842ABF90</string>
+		<string>826B32E3-9913-4D02-95E7-65716121F1F4</string>
+		<string>30FBFAAA-B7E5-4A2B-8092-C8367C0838B9</string>
+		<string>857B0182-F407-4ADC-B166-463C47A0369B</string>
+	</array>
+	<key>uuid</key>
+	<string>5A67ADDC-283A-4E0F-AA36-29E4E95B4A26</string>
+</dict>
+</plist>

data/plugins/textmate/lib/textmate.rb

@@ -0,0 +1,202 @@
+
+require 'textmate/bundle'
+require 'textmate/environment'
+require 'textmate/plist'
+require 'textmate/preference'
+require 'textmate/snippet'
+require 'textmate/tree_mirror'
+require 'textmate/commands'
+
+gem "redcar-bundles"
+require 'redcar-bundles'
+
+module Redcar
+  module Textmate
+    def self.all_bundle_paths
+      @all_bundle_paths = Dir[File.join(RedcarBundles.dir, "Bundles", "*")]
+      @all_bundle_paths += Dir[File.join(Redcar.user_dir, "Bundles", "*")]
+      Redcar.plugin_manager.loaded_plugins.each do |plugin|
+        @all_bundle_paths += Dir[File.join(File.dirname(plugin.definition_file), "Bundles", "*")]
+      end
+      @all_bundle_paths
+    end
+
+    def self.menus
+      Menu::Builder.build do
+        #sub_menu "Debug" do
+        #  item "Refresh Menu Test", :command => RefreshMenuTenTimes, :priority => 20
+        #end
+        sub_menu "Bundles" do
+          if Textmate.storage['loaded_bundles'].size() > 0 and Textmate.storage['load_bundles_menu']
+            item "Clear Bundle Menu", :command => ClearBundleMenu, :priority => 20
+          end
+        end
+      end
+    end
+
+    def self.keymaps
+      osx = Redcar::Keymap.build("main", [:osx]) do
+        link "Cmd+Shift+B", ShowSnippetTree
+      end
+      lin = Redcar::Keymap.build("main", [:windows,:linux]) do
+        link "Ctrl+Shift+B", ShowSnippetTree
+      end
+      [osx,lin]
+    end
+
+    def self.toolbars
+      Redcar::ToolBar::Builder.build do
+        item "Snippet Browser", :command => Textmate::ShowSnippetTree, :icon => File.join(Redcar.icons_directory, "document-tree.png"), :barname => :help
+      end
+    end
+
+    def self.bundle_context_menus(node)
+      Menu::Builder.build do
+        if not node.nil? and node.is_a?(BundleNode)
+          if Textmate.storage['load_bundles_menu']
+            if Textmate.storage['loaded_bundles'].include?(node.text.downcase)
+              item ("Remove from Bundles Menu") do
+                RemovePinnedBundle.new(node.text).run
+              end
+            else
+              item("Pin to Bundles Menu") do
+                PinBundleToMenu.new(node.text).run
+              end
+            end
+          end
+        end
+      end
+    end
+
+    def self.refresh_tree
+      win = Redcar.app.focussed_window
+      if tree = win.treebook.trees.detect {|tree| tree.tree_mirror.title == TREE_TITLE }
+        tree.refresh
+      end
+    end
+
+    def self.uuid_hash
+      @uuid_hash ||= begin
+        h = {}
+        all_bundles.each do |b|
+          h[b.uuid] = b
+          b.snippets.each {|s| h[s.uuid] = s }
+          b.preferences.each {|p| h[p.uuid] = p }
+        end
+        h
+      end
+    end
+
+    def self.storage
+      @storage ||= begin
+        storage = Plugin::Storage.new('textmate')
+        storage.set_default('load_bundles_menu',false)
+        storage.set_default('select_bundles_for_menu',true)
+        storage.set_default('select_bundles_for_tree',false)
+        storage.set_default('loaded_bundles',[])
+        storage
+      end
+    end
+
+    def self.attach_menus(builder)
+      if Textmate.storage['load_bundles_menu']
+        Menu::Builder.build do |a|
+          Textmate.all_bundles.sort_by {|b| (b.name||"").downcase}.each do |bundle|
+            name = (bundle.name||"").downcase
+            unless Textmate.storage['select_bundles_for_menu'] and not Textmate.storage['loaded_bundles'].to_a.include?(name)
+              bundle.build_menu(a).each do |c|
+                builder.append(c)
+              end
+            end
+          end
+        end
+      end
+    end
+
+    def self.all_bundles
+      @all_bundles ||= begin
+        cache = PersistentCache.new("textmate_bundles")
+        cache.cache do
+          all_bundle_paths.map {|path| Bundle.new(path) }
+        end
+      end
+    end
+
+    def self.all_snippets
+      @all_snippets ||= begin
+        all_bundles.map {|b| b.snippets }.flatten
+      end
+    end
+
+    def self.all_settings
+      @all_settings ||= begin
+        all_bundles.map {|b| b.preferences }.flatten.map {|p| p.settings}.flatten
+      end
+    end
+
+    def self.settings(type=nil)
+      @all_settings_by_type ||= {}
+      @all_settings_by_type[type] ||= all_settings.select {|s| s.is_a?(type) }
+    end
+
+    # Translates a Textmate key equivalent into a Redcar keybinding.
+    def self.translate_key_equivalent(keyeq, name=nil)
+      if keyeq
+        key_str      = keyeq[-1..-1]
+        case key_str
+        when "\n"
+          letter = "Return"
+        else
+          letter = key_str.gsub("\e", "Escape")
+        end
+        modifier_str = keyeq[0..-2]
+        modifiers = modifier_str.split("").map do |modchar|
+          case modchar
+          when "^" # TM: Control
+            [2, "Ctrl"]
+          when "~" # TM: Option
+            [3, "Alt"]
+          when "@" # TM: Command
+            [1, "Super"]
+          when "$"
+            [4, "Shift"]
+          else
+            return nil
+          end
+        end
+        if letter =~ /^[[:alpha:]]$/ and letter == letter.upcase
+          modifiers << [4, "Shift"]
+        end
+        modifiers = modifiers.sort_by {|a| a[0]}.map{|a| a[1]}.uniq
+        res = if modifiers.empty?
+          letter
+        else
+          modifiers.join("+") + "+" + (letter.length == 1 ? letter.upcase : letter)
+        end
+        res
+      end
+    end
+
+    class InstalledBundles < Redcar::Command
+      def execute
+        controller = Controller.new
+        tab = win.new_tab(HtmlTab)
+        tab.html_view.controller = controller
+        tab.focus
+      end
+
+      class Controller
+        include Redcar::HtmlController
+
+        def title
+          "Installed Bundles"
+        end
+
+        def index
+          rhtml = ERB.new(File.read(File.join(File.dirname(__FILE__), "..", "views", "installed_bundles.html.erb")))
+          rhtml.result(binding)
+        end
+      end
+    end
+  end
+end