redcar 0.3.6 → 0.3.7

data/plugins/project/lib/project/manager.rb

@@ -8,6 +8,9 @@ module Redcar
         Project.window_projects.values
       end
       
+      # Returns the project in the given window
+      # @param [Window] window
+      # @return Project or nil
       def self.in_window(window)
         Project.window_projects[window]
       end
@@ -124,7 +127,8 @@ module Redcar
       #
       # @param [String] path  the path of the directory to view
       def self.open_project_for_path(path)
-        win     = Redcar.app.new_window
+        win = Redcar.app.focussed_window
+        win = Redcar.app.new_window if !win or Manager.in_window(win) 
         project = Project.new(path).tap do |p|
           p.open(win) if p.ready?
         end

data/plugins/project/views/bulk_rename.html.erb

@@ -0,0 +1,162 @@
+
+<script type="text/javascript" src="file://<%= Redcar::HtmlView.jquery_path %>"></script>
+<link rel="stylesheet" href="file://<%= Redcar::HtmlView.default_css_path %>" type="text/css" media="screen">
+
+<h3>Bulk Rename</h3>
+<form id="refresh-form" action="controller/submit">
+  <table>
+    <tr>
+      <td>Match:</td><td> <input name="match-pattern" id="match-pattern" value="<%= match_pattern %>" /></td>
+      <td>Replace:</td><td> <input name="replace-pattern" id="replace-pattern" value="<%= replace_pattern %>" /></td>
+      <td><input type="submit" id="refresh"></td>
+    </tr>
+  </table>
+</form>
+
+<table>
+  <tr>
+    <th>Old</th>
+    <th>New</th>
+  </tr>
+  <% pairs.each do |node, new_name| %>
+    <tr>
+      <td><%= File.basename(node.path) %></td>
+      <td class="name-slot"><%= new_name %></td>
+      <td class="extra-info"></td>
+    </tr>
+  <% end %>
+</table>
+<br />
+<hr />
+<br />
+<small><a class="show-examples">Show examples</a></small>
+<div id="examples" style="display:none;" class="example-box">
+  <small><a class="hide-examples">Hide examples</a></small>
+  <br /><br />
+  <p>E.g.</p>
+  <table>
+    <tr>
+      <td>Match</td><td>Replace</td><td>From</td><td>To</td>
+    </tr>
+    <tr><td>E</td><td>XXXXX</td><td>README</td><td>RXXXXXADME</td></tr>
+    <tr><td>$</td><td>.md</td><td>README</td><td>README.md</td></tr>
+  </table>
+</div>
+<br />
+
+
+<script language="javascript">
+jQuery.fn.watch = function( id, fn ) {
+ 
+    return this.each(function(){
+ 
+        var self = this;
+ 
+        var oldVal = self[id];
+        $(self).data(
+            'watch_timer',
+            setInterval(function(){
+                if (self[id] !== oldVal) {
+                    fn.call(self, id, oldVal, self[id]);
+                    oldVal = self[id];
+                }
+            }, 100)
+          );
+      });
+    return self;
+};
+ 
+jQuery.fn.unwatch = function( id ) {
+    return this.each(function(){
+        clearInterval( $(this).data('watch_timer') );
+      });
+};
+ jQuery.fn.valuechange = function(fn) {
+    return this.bind('valuechange', fn);
+};
+ 
+jQuery.event.special.valuechange = {
+ 
+    setup: function() {
+ 
+        jQuery(this).watch('value', function(){
+            jQuery.event.handle.call(this, {type:'valuechange'});
+        });
+ 
+    },
+ 
+    teardown: function() {
+        jQuery(this).unwatch('value');
+    }
+ 
+};
+
+BulkRename = {
+  disableForm: function() {
+    $("input#refresh").attr("disabled", true);
+  },
+  
+  enableForm: function() {
+    $("input#refresh").attr("disabled", false);
+  },
+  
+  updateNames: function(newNames) {
+    BulkRename.enableForm();
+    var nameSlots = $(".name-slot");
+    var extraSlots = $(".extra-info");
+    $.each(newNames, function(ix, a) {
+      var name = a[0];
+      var exists = a[1];
+      var legal = a[2];
+      $(nameSlots[ix]).html(name);
+      if (!legal) {
+        $(extraSlots[ix]).html("illegal filename");
+        BulkRename.disableForm();
+      }
+      else {
+        if (exists) {
+          $(extraSlots[ix]).html("conflicts");
+          BulkRename.disableForm();
+        }
+        else {
+          $(extraSlots[ix]).html("");
+        }
+      }
+    });
+  },
+  
+  init: function() {
+    $("#match-pattern").bind("valuechange", function(propName, oldVal, newVal) {
+      try {
+        var newNames = Controller.refresh($("#match-pattern").attr("value"), $("#replace-pattern").attr("value"));
+        BulkRename.updateNames(newNames);
+      } catch(e) {
+        alert(e.message);
+      };
+    });
+    $("#replace-pattern").bind("valuechange", function(propName, oldVal, newVal) {
+      try {
+        var newNames = Controller.refresh($("#match-pattern").attr("value"), $("#replace-pattern").attr("value"));
+        BulkRename.updateNames(newNames);
+      } catch(e) {
+        alert(e.message);
+      };
+    });
+    
+    $(".show-examples").click(function() {
+      $("#examples").slideDown();
+      $(".show-examples").slideUp();
+    });
+    $(".hide-examples").click(function() {
+      $("#examples").slideUp();
+      $(".show-examples").slideDown();
+    });
+  }
+};
+
+BulkRename.init();
+
+</script>
+
+
+

data/plugins/redcar/redcar.rb

@@ -1,4 +1,22 @@
+
 module Redcar
+  def self.safely(text=nil)
+    if text == nil
+      text = caller[1]
+    end
+    begin
+      yield
+    rescue => e
+      message = "Error in: " + text
+      Application::Dialog.message_box(
+        message,
+        :type => :error, :buttons => :ok)
+      puts message
+      puts e.class.to_s + ": " + e.message
+      puts e.backtrace
+    end
+  end
+  
   module Top
     class QuitCommand < Command
       
@@ -772,10 +790,10 @@ module Redcar
         link "Ctrl+V",       PasteCommand
         link "Ctrl+D",       DuplicateCommand
         
-        link "Shift+Home",   MoveTopCommand
+        link "Ctrl+Home",    MoveTopCommand
         link "Home",         MoveHomeCommand
         link "End",          MoveEndCommand
-        link "Shift+End",    MoveBottomCommand
+        link "Ctrl+End",     MoveBottomCommand
         
         link "Ctrl+[",       DecreaseIndentCommand
         link "Ctrl+]",       IncreaseIndentCommand
@@ -868,6 +886,8 @@ module Redcar
         sub_menu "Project" do
           item "Find File", Project::FindFileCommand
           item "Refresh Directory", Project::RefreshDirectoryCommand
+          #separator
+          #item "Runnables", Runnables::ShowRunnables
         end
         sub_menu "Debug" do
           item "Task Manager", TaskManager::OpenCommand

data/plugins/runnables/lib/runnables.rb

@@ -0,0 +1,99 @@
+
+module Redcar
+  class Runnables
+    
+    class TreeMirror
+      include Redcar::Tree::Mirror
+      
+      def initialize(project)
+        runnables = project.config_file(:runnables)
+        if runnables
+          @top = runnables.map do |name, info|
+            Runnable.new(name, info)
+          end
+        else
+          @top = [HelpItem.new]
+        end
+      end
+      
+      def title
+        "Runnables"
+      end
+      
+      def top
+        @top
+      end
+    end
+    
+    class HelpItem
+      include Redcar::Tree::Mirror::NodeMirror
+      
+      def text
+        "No runnables (HELP)"
+      end
+    end
+    
+    class Runnable
+      include Redcar::Tree::Mirror::NodeMirror
+      
+      def initialize(name, info)
+        @name = name
+        @info = info
+      end
+      
+      def text
+        @name
+      end
+      
+      def leaf?
+        @info[:command]
+      end
+      
+      def icon
+        if leaf?
+          File.dirname(__FILE__) + "/../icons/cog.png"
+        end
+      end
+      
+      def children
+        return [] if leaf?
+        
+        @info.map do |name, info|
+          Runnable.new(name, info)
+        end
+      end
+      
+      def command
+        @info[:command]
+      end
+    end
+    
+    class TreeController
+      include Redcar::Tree::Controller
+      
+      def initialize(project)
+        @project = project
+      end
+      
+      def activated(tree, node)
+        command = node.command
+        output = `#{command}`
+        tab = Redcar.app.focussed_window.new_tab(EditTab)
+        tab.edit_view.document.text = output
+        tab.title = node.text
+        tab.focus
+      end
+    end
+    
+    class ShowRunnables < Redcar::Command
+      def execute
+        project = Project::Manager.in_window(win)
+        tree = Tree.new(
+            TreeMirror.new(project),
+            TreeController.new(project)
+          )
+        win.treebook.add_tree(tree)
+      end
+    end
+  end
+end

data/plugins/runnables/plugin_no_load.rb

@@ -0,0 +1,9 @@
+
+Plugin.define do
+  name    "runnables"
+  version "1.0"
+  file    "lib", "runnables"
+  object  "Redcar::Runnables"
+  dependencies "tree",        ">0",
+               "application", ">0"
+end

data/plugins/tree/lib/tree.rb

@@ -3,20 +3,81 @@ require 'tree/controller'
 require 'tree/mirror'
 
 module Redcar
+  # Pass classes implementing Redcar::Tree::Mirror and 
+  # Redcar::Tree::Controller to Tree#new to create a tree. Pass to
+  # window.treebook.add_tree to open the Tree in a Window.
+  #
+  # Trees build up their contents by querying the Tree::Mirror. For
+  # instance, a simple tree containing the numbers 1 to 10 could be created
+  # like this:
+  #
+  #   class CountMirror 
+  #     include Redcar::Tree::Mirror
+  #
+  #     def top
+  #       (1..10).map {|i| CountNode.new(i)}
+  #     end
+  #
+  #     class CountNode
+  #       include Redcar::Tree::NodeMirror
+  #
+  #       def initialize(i)
+  #         @i = i
+  #       end
+  #      
+  #       def text
+  #         @i.to_s
+  #       end
+  #     end
+  #   end
+  #
+  #   tree = Tree.new(CountMirror.new)
+  #   Redcar.app.focussed_window.treebook.add_tree(tree)
   class Tree
     include Redcar::Model
     include Redcar::Observable
+    include Redcar::HasSPI
     
     attr_reader :tree_mirror, :tree_controller
     
+    # @param [Tree::Mirror] an instance of a class including Tree::Mirror
+    # @param [Tree::Controller] an instance of a class including Tree::Controller
     def initialize(tree_mirror, tree_controller=nil)
+      assert_interface(tree_mirror,     Redcar::Tree::Mirror)
+      if tree_controller
+        assert_interface(tree_controller, Redcar::Tree::Controller)
+      end
       @tree_mirror     = tree_mirror
       @tree_controller = tree_controller
     end
     
+    # Refresh the tree by requerying the mirror from the top and
+    # recursing down through open items.
     def refresh
       notify_listeners(:refresh)
     end
+    
+    # Begin an edit operation on the node. This allows the user
+    # to edit the text. When the user has finished, TreeController#edited
+    # will be called with the new text.
+    def edit(node, select_from=nil, select_to=nil)
+      notify_listeners(:edit_element, node, select_from, select_to)
+    end
+    
+    # Expand the node.
+    def expand(node)
+      notify_listeners(:expand_element, node)
+    end
+    
+    # Select the node.
+    def select(node)
+      notify_listeners(:select_element, node)
+    end
+    
+    # @return [Array<NodeMirror>] the selected nodes
+    def selection
+      controller.selection
+    end
   end
 end
 

data/plugins/tree/lib/tree/controller.rb

@@ -1,11 +1,60 @@
 
 module Redcar
   class Tree
-    # Abstract interface. The Controller's methods are called when the Tree's
-    # rows are activated.
+    # SPI specification. Implement a class including this module
+    # and pass an instance to Tree#new to respond to tree events.
     module Controller
-      def activated(node)
-        raise "not implemented"
+      
+      # Called when a node in a tree is activated (e.g double clicked). 
+      # ONLY called when that node is a leaf node. If the node is not a 
+      # leaf node then the tree will expand the node instead and query
+      # for its children.
+      def activated(tree, node);   end
+      
+      # Called when a node in a tree is right clicked on. node may be nil
+      # if the right click happened over the tree but not on a node.
+      def right_click(tree, node); end
+      
+      # Called after an edit operation with the new text of the
+      # node. See Tree#edit
+      def edited(tree, node, text); end
+      
+      # Called when a drag operation begins. Should return
+      # a Redcar::Tree::Controller::DragController.
+      def drag_controller(tree)
+        DragController::Fake.new
+      end
+      
+      # SPI for Tree drag and drop. Implement this class to support drag and
+      # drop in your tree.
+      module DragController
+        class Fake; include DragController; end
+
+        # Can elements in the tree be reordered by dragging and 
+        # dropping? Shows insertion feedback in the GUI.
+        def reorderable?
+          false
+        end
+        
+        # Called with the dragged nodes when a drag operation begins
+        def drag_start(nodes); end
+        
+        # Called during a drag operation when the cursor hovers over other
+        # rows. 
+        #
+        # @param nodes - the dragged nodes
+        # @param target - the hovered over node, or nil if the empty tree area
+        # @param position - one of :onto, :before, :after (always :onto unless
+        #                   reorderable?)
+        def can_drop?(nodes, target, position); end
+        
+        # Called when the user has dropped nodes onto another node.
+        #
+        # @param nodes - the dragged nodes
+        # @param target - the hovered over node, or nil if the empty tree area
+        # @param position - one of :onto, :before, :after (always :onto unless
+        #                   reorderable?)
+        def do_drop(nodes, target, position); end
       end
     end
   end