redcar-dev 0.12.17dev

data/plugins/textmate/lib/textmate/snippet.rb

@@ -0,0 +1,47 @@
+module Redcar
+  module Textmate
+    class Snippet
+      attr_reader :bundle_name, :key_equivalent
+    
+      def initialize(path, bundle_name)
+        @path = path
+        @plist = Plist.xml_to_plist(File.read(path))
+        @bundle_name = bundle_name
+        if key = @plist["keyEquivalent"]
+          @key_equivalent = Textmate.translate_key_equivalent(key)
+        end
+      end
+      
+      def name
+        @plist["name"]
+      end
+      
+      def scope
+        @plist["scope"]
+      end
+      
+      def uuid
+        @plist["uuid"]
+      end
+      
+      def tab_trigger
+        @plist["tabTrigger"]
+      end
+      
+      def content
+        @plist["content"]
+      end
+      
+      def to_menu_string
+        r = name.clone
+        # It doesn't seem to be possible to set accelerator text on OSX.
+        if Redcar.platform == :osx
+          r << " (#{tab_trigger}↦)" if tab_trigger
+        else
+          r << "\t#{tab_trigger}" if tab_trigger
+        end
+        r
+      end
+    end
+  end
+end

data/plugins/textmate/lib/textmate/tree_mirror.rb

@@ -0,0 +1,206 @@
+module Redcar
+  module Textmate
+    TREE_TITLE = "Bundles"
+    
+    # Some Icons by Yusuke Kamiyamane.
+    # http://p.yusukekamiyamane.com/
+    #
+    # Licensed under a Creative Commons Attribution 3.0 license.
+    # http://creativecommons.org/licenses/by/3.0/
+    class TreeController
+      include Redcar::Tree::Controller
+
+      def right_click(tree, node)
+        controller = self
+        menu = Menu.new
+        Redcar.plugin_manager.objects_implementing(:bundle_context_menus).each do |object|
+          case object.method(:bundle_context_menus).arity
+          when 1
+            menu.merge(object.bundle_context_menus(node))
+          when 2
+            menu.merge(object.bundle_context_menus(tree, node))
+          when 3
+            menu.merge(object.bundle_context_menus(tree, node, controller))
+          else
+            puts("Invalid bundle_context_menus hook detected in "+object.class.name)
+          end
+        end
+        Application::Dialog.popup_menu(menu, :pointer)
+      end
+
+      def activated(tree, node)
+        if node.leaf? and
+            tab = Redcar.app.focussed_notebook_tab and
+            tab.is_a?(EditTab)
+          doc = tab.document
+          if tab.edit_tab? and doc
+            controller = doc.controllers(Snippets::DocumentController).first
+            controller.start_snippet!(node.snippet)
+            tab.focus
+          end
+        end
+      end
+    end
+
+    class TreeMirror
+      include Redcar::Tree::Mirror
+
+      def initialize(bundles)
+        @top = []
+        bundles.sort_by {|bundle| (bundle.name||"").downcase}.each_with_index do |b, i|
+          if b.name and b.snippets and b.snippets.size() > 0
+            name = b.name.downcase
+            unless Textmate.storage['select_bundles_for_tree'] and !Textmate.storage['loaded_bundles'].to_a.include?(name)
+              build_tree(@top, b)
+            end
+          end
+        end
+
+        if @top.size() < 1
+          @top = [EmptyTree.new]
+        end
+      end
+
+      def refresh
+        cache = []
+        cache.concat(@top)
+        @top = []
+        @top.concat(cache)
+        cache = nil
+      end
+
+      def build_tree(tree, bundle)
+        if bundle.main_menu and bundle.main_menu["items"]
+          main_menu = bundle.main_menu
+          group = BundleNode.new(bundle.name)
+          main_menu["items"].each do |item|
+            build_tree_from_item(group.children, bundle, item)
+          end
+          tree << group
+        end
+      end
+
+      def build_tree_from_item(tree, bundle, item)
+        #if item is a snippet, add to tree
+        if snippet = Textmate.uuid_hash[item] and snippet.is_a?(Textmate::Snippet)
+          return unless snippet.name and snippet.name != ""
+          tree << SnippetNode.new(snippet)
+        #if item has submenus, make a group and add sub-items
+        elsif sub_menu = bundle.sub_menus[item]
+          unless sub_menu["items"].size() < 1
+            group = SnippetGroup.new(sub_menu["name"])
+            sub_menu["items"].each do |sub_item|
+              build_tree_from_item(group.children, bundle, sub_item)
+            end
+            tree << group
+          end
+        end
+      end
+
+      def title
+        TREE_TITLE
+      end
+
+      def top
+        @top
+      end
+    end
+
+    class EmptyTree
+      include Redcar::Tree::Mirror::NodeMirror
+      def text
+        "No snippets found"
+      end
+    end
+
+    class BundleNode
+      include Redcar::Tree::Mirror::NodeMirror
+      attr_writer :children
+
+      def initialize(name)
+        @children = []
+        @text = name
+      end
+
+      def leaf?
+        false
+      end
+
+      def text
+        @text
+      end
+
+      def children
+        @children
+      end
+
+      def icon
+        if Textmate.storage['loaded_bundles'].include?(text.downcase)
+          :"ui-menu-blue"
+        else
+          :"document-tree"
+        end
+      end
+    end
+
+    class SnippetGroup
+      include Redcar::Tree::Mirror::NodeMirror
+
+      attr_writer :children
+
+      def initialize(name)
+        @children = []
+        @text = name
+      end
+
+      def icon
+        :"document-tree"
+      end
+
+      def leaf?
+        false
+      end
+
+      def text
+        @text
+      end
+
+      def children
+        @children
+      end
+    end
+
+    class SnippetNode
+      include Redcar::Tree::Mirror::NodeMirror
+
+      def initialize(snippet)
+        @snippet = snippet
+        @name = snippet.name
+        #custom menu string
+        if snippet.tab_trigger
+          @name << " (#{snippet.tab_trigger})"
+        end
+      end
+
+      def icon
+        :"document-snippet"
+      end
+
+      def text
+        @name
+      end
+
+      def leaf?
+        true
+      end
+
+      def children
+        []
+      end
+
+      def snippet
+        @snippet
+      end
+    end
+  end
+end

data/plugins/textmate/plugin.rb

@@ -0,0 +1,8 @@
+
+Plugin.define do
+  name    "textmate"
+  version "1.0"
+  file    "lib", "textmate"
+  object  "Redcar::Textmate"
+  dependencies "core", ">0", "application", ">0", "HTML View", ">=0.3.2"
+end

data/plugins/textmate/views/installed_bundles.html.erb

@@ -0,0 +1,24 @@
+<% redcar_css = File.expand_path(File.join(Redcar.root, %w(plugins html_view views default.css))) %>
+<% watermark  = File.expand_path(File.join(Redcar.root, %w(plugins html_view views watermark-48.png))) %>
+<link rel="stylesheet" href="file://<%= redcar_css %>" type="text/css" media="screen">
+<div id="top">
+  <img src="file://<%=watermark%>" id="watermark"/>
+  <h1>Installed Bundles</h1>
+  <a href="controller/index">Refresh</a>
+</div>
+<div class="main">
+  <table>
+    <tr>
+      <th>Name</th>
+      <th>Description</th>
+    </tr>
+    <% Redcar::Textmate.all_bundles.sort{|a, b| a.name.to_s <=> b.name.to_s}.each do |one| %>
+      <tr>
+        <td><%= one.name %></td>
+        <td><%= one.description %></td>
+      </tr>
+    <% end %>
+  </table>
+</div>
+
+

data/plugins/todo_list/README.md

@@ -0,0 +1,22 @@
+#Todo List Plugin for Redcar
+
+This adds a simple 'todo list' populated from tags in the code, like 'TODO','IMPROVE','NOTE', etc.
+
+Tags and other settings can be configured from Plugins > Edit Preferences in the Redcar menu.
+
+##Todo List Settings
+
+_included suffixes:_ The suffixes of all files to be included in search for todo tags
+ * Defaults to .rb .java .js .erb .groovy .gsp and .html
+
+_excluded files:_ Files to ignore
+ * Defaults to jquery.js and prototype.js
+
+_excluded dirs:_ Directories to ignore. 
+* Defaults to .svn and .git
+
+_require_colon:_ Whether or not a tag required a colon to be included in tag list.
+ * Defaults to true
+
+_tags:_ tags to be searched for in files. 
+ * Defaults to TODO NOTE CHANGED OPTIMIZE and IMPROVE

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

@@ -0,0 +1,8 @@
+require File.expand_path("../../../spec/fixtures/settings", __FILE__)
+
+Before do
+  TodoListSpecHelper.set_fixture_settings
+end
+
+After do
+end

data/plugins/todo_list/features/todo_list.feature

@@ -0,0 +1,26 @@
+Feature: Adding parameters to commands
+  As a user
+  I want to see what todo-items remain in my project
+
+  Background:
+    Given I will choose "plugins/todo_list/spec/fixtures/project" from the "open_directory" dialog
+    And I open a directory
+    When I open the "Todo List" from the "Project" menu
+    And I wait "2" seconds
+
+  Scenario: Opening the TODO list shows the todo items and their action texts without colons
+    Then the HTML tab should say "a course of action"
+    And the HTML tab should not say ": a course of action"
+
+  Scenario: Opening the TODO list shows the todo item's file names
+    Then the HTML tab should say "OPTIMIZE_colon.file"
+    And the HTML tab should say "FIXME.file"
+
+  Scenario: Opening the TODO list shows the todo item's line numbers
+    Then the HTML tab should say "OPTIMIZE_colon.file:1"
+    And the HTML tab should say "FIXME.file:3"
+
+  Scenario: Clicking a TODO item's file name should open it in an edit tab
+    When I click "FIXME.file" in the HTML tab
+    Then my active tab should be "FIXME.file"
+    And the contents should be "#\n#\n<c># FIXME note"

data/plugins/todo_list/lib/todo_list.rb

@@ -0,0 +1,49 @@
+
+require 'erb'
+require 'cgi'
+require 'todo_list/todo_controller'
+require 'todo_list/file_parser'
+
+module Redcar
+  class TodoList
+
+    def self.menus
+      Menu::Builder.build do
+        sub_menu "Project" do
+          item "Todo List", TodoList::ViewTodoListCommand
+        end
+      end
+    end
+
+    def self.keymaps
+      map = Redcar::Keymap.build("main",[:osx,:linux,:windows]) do
+        link "Alt+Shift+T", TodoList::ViewTodoListCommand
+      end
+      [map]
+    end
+
+    def self.storage
+      @storage ||= begin
+        storage = Plugin::Storage.new('todo_list_plugin')
+        storage.set_default('included_suffixes', ['.java','.rb','.groovy','.erb','.gsp','.html','.js'])
+        storage.set_default('excluded_files', ['jquery.js','prototype.js'])
+        storage.set_default('excluded_dirs', ['.svn','.git'])
+        storage.set_default('require_colon', true)
+        storage.set_default('tags', ['TODO','IMPROVE','CHANGED','OPTIMIZE','NOTE'])
+        storage
+      end
+    end
+
+    class ViewTodoListCommand < Redcar::Command
+      sensitize :open_project
+      def execute
+        project = Project::Manager.in_window(win)
+        controller = TodoController.new(project.home_dir)
+        tab = win.new_tab(HtmlTab)
+        tab.html_view.controller = controller
+        tab.icon = :document_list
+        tab.focus
+      end
+    end
+  end
+end

data/plugins/todo_list/lib/todo_list/file_parser.rb

@@ -0,0 +1,58 @@
+module Redcar
+  class TodoList
+    class FileParser
+      TodoItem = Struct.new("TodoItem", :path, :line, :action)
+
+      def initialize
+        @tag_list = Hash.new {|h,k| h[k] = [] }
+        @optional_colon = ":" if TodoList.storage['require_colon']
+      end
+
+      def parse_files(path)
+        #IMPROVE: is there a better/more efficient way to find all tags?
+        find_dirs(path)
+        @tag_list
+      end
+
+      def find_dirs(path)
+        return unless File.directory? path
+        unless TodoList.storage['excluded_dirs'].include? File.basename(path)
+          Dir["#{path}/*"].each {|subdir| find_dirs(subdir) }
+          find_files(path)
+        end
+      end
+
+      def find_files(path)
+        TodoList.storage['included_suffixes'].each do |suffix|
+          files = File.join(path, "*#{suffix}")
+          Dir.glob(files).each do |file_path|
+            unless TodoList.storage['excluded_files'].include?(File.basename(file_path))
+              find_tags(file_path)
+            end
+          end
+        end
+      end
+
+      def find_tags(file_path)
+        tags = TodoList.storage['tags']
+        File.open(file_path) do |file|
+          file.readlines.each_with_index do |line, idx|
+            included_tags = tags.select {|tag| line.include? "#{tag}#{@optional_colon}" }
+            create_tag_items(included_tags, file_path, line, idx)
+          end
+        end
+      end
+
+      def create_tag_items(included_tags, file, line, idx)
+        included_tags.each do |tag|
+          action = line[(line.index(tag) + tag.length)..-1]
+          @tag_list[tag] << TodoItem.new.tap do |t|
+            t.path   = file
+            t.line   = idx
+            t.action = (action.chars.first == ":" ? action[1..-1] : action).strip
+          end
+        end
+      end
+    end
+  end
+end