redcar 0.3.1dev → 0.3.2dev

data/plugins/my_plugin/plugin.rb

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

data/plugins/plugin_manager_ui/lib/plugin_manager_ui.rb

@@ -0,0 +1,62 @@
+
+require 'erb'
+
+module Redcar
+  class PluginManagerUi
+    class << self
+      attr_accessor :last_reloaded
+    end
+    
+    class ReloadLastReloadedCommand < Redcar::Command
+      key :osx => "Cmd+Shift+R", :linux => "Ctrl+Shift+R", :windows => "Ctrl+Shift+R"
+      
+      def execute
+        if plugin = PluginManagerUi.last_reloaded
+          plugin.load
+        end
+      end
+    end
+    
+    class OpenCommand < Redcar::Command
+      class Controller
+        def title
+          "Plugins"
+        end
+      
+        def index
+          rhtml = ERB.new(File.read(File.join(File.dirname(__FILE__), "..", "views", "index.html.erb")))
+          rhtml.result(binding)
+        end
+        
+        def reload_plugin(name)
+          plugin = Redcar.plugin_manager.loaded_plugins.detect {|pl| pl.name == name }
+          plugin.load
+          PluginManagerUi.last_reloaded = plugin
+        end
+        
+        private
+        
+        def plugin_table(plugins)
+          str = "<table>\n"
+          highlight = true
+          plugins.each do |plugin|
+            name = plugin.is_a?(PluginManager::PluginDefinition) ? plugin.name : plugin
+            str << "<tr class=\"#{highlight ? "grey" : ""}\">"
+            str << "<td class=\"plugin\"><span class=\"plugin-name\">" + name + "</span></td>"
+            str << "<td class=\"links\"><a href=\"#\">Reload</a>" + "</td>"
+            str << "</tr>"
+            highlight = !highlight
+          end
+          str << "</table>"
+        end
+      end
+      
+      def execute
+        controller = Controller.new
+        tab = win.new_tab(HtmlTab)
+        tab.html_view.controller = controller
+        tab.focus
+      end
+    end
+  end
+end

data/plugins/plugin_manager_ui/plugin.rb

@@ -0,0 +1,12 @@
+
+Plugin.define do
+  name "Plugin Manager UI"
+  version "0.3.2"
+  
+  object "Redcar::PluginManagerUi"
+  file "lib", "plugin_manager_ui"
+  
+  dependencies "core",      ">0",
+               "HTML View", ">=0.3.2"
+  
+end

data/plugins/plugin_manager_ui/views/index.html.erb

@@ -0,0 +1,31 @@
+<br />
+<br />
+<div class="container">
+  <div class="span-8">
+    <% jquery_path = File.expand_path(File.join(Redcar.root, %w(plugins html_view assets jquery-1.4.min.js))) %>
+    <script type="text/javascript" src="file://<%= jquery_path %>"></script>
+    <% blueprint_dir = File.expand_path(File.join(Redcar.root, %w(plugins html_view assets blueprint))) %>
+    <% redcar_css = File.expand_path(File.join(Redcar.root, %w(plugins html_view assets redcar.css))) %>
+    <link rel="stylesheet" href="file://<%= blueprint_dir %>/screen.css" type="text/css" media="screen, projection">
+    <link rel="stylesheet" href="file://<%= blueprint_dir %>/print.css" type="text/css" media="print">
+    <link rel="stylesheet" href="file://<%= redcar_css %>" type="text/css" media="screen">
+    
+    <h3>Loaded Plugins</h3>
+    <%= plugin_table(Redcar.plugin_manager.loaded_plugins) %>
+    
+    <h3>Unloaded Plugins</h3>
+    <%= plugin_table(Redcar.plugin_manager.unloaded_plugins) %>
+    
+    <h3>Unreadable definitions</h3>
+    <%= plugin_table(Redcar.plugin_manager.unreadable_definitions) %>
+    
+    <h3>Plugins with Errors</h3>
+    <%= plugin_table(Redcar.plugin_manager.plugins_with_errors) %>
+    
+    <script language="javascript">
+      $("a").click(function() {
+        Controller.reloadPlugin($(this).parent().parent().find(".plugin-name").text());
+      });
+    </script>
+  </div>
+</div>

data/plugins/project/lib/project.rb

@@ -7,23 +7,30 @@ require "project/dir_controller"
 
 module Redcar
   class Project
-    def self.load
+
+    def self.storage
+      @storage ||= Plugin::Storage.new('project_plugin')
     end
     
-    def self.start
-      @open_project_sensitivity = 
-        Sensitivity.new(:open_project, Redcar.app, false, [:focussed_window]) do
-          if win = Redcar.app.focussed_window
-            win.treebook.trees.detect {|t| t.tree_mirror.is_a?(DirMirror) }
+    def self.sensitivities
+      [ @open_project_sensitivity = 
+          Sensitivity.new(:open_project, Redcar.app, false, [:focussed_window]) do
+            if win = Redcar.app.focussed_window
+              win.treebook.trees.detect {|t| t.tree_mirror.is_a?(DirMirror) }
+            end
           end
-        end
+      ]
     end
     
     class << self
       attr_reader :open_project_sensitivity
     end
   
-  	def self.window_trees
+    def self.filter_path
+      Project.storage['last_dir'] || File.expand_path(Dir.pwd)
+    end
+  
+    def self.window_trees
       @window_trees ||= {}
     end
   
@@ -95,7 +102,10 @@ module Redcar
       
       def get_path
         @path || begin
-          path = Application::Dialog.open_file(win, :filter_path => File.expand_path("~"))
+          if path = Application::Dialog.open_file(win, :filter_path => Project.filter_path)
+            Project.storage['last_dir'] = File.dirname(File.expand_path(path))
+            path
+          end
         end
       end
     end
@@ -137,10 +147,12 @@ module Redcar
       end
       
       private
-      
       def get_path
         @path || begin
-          path = Application::Dialog.save_file(win, :filter_path => File.expand_path("~"))
+          if path = Application::Dialog.save_file(win, :filter_path => Project.filter_path)
+            Project.storage['last_dir'] = File.dirname(File.expand_path(path))
+            path
+          end
         end
       end
     end
@@ -150,6 +162,7 @@ module Redcar
           :linux   => "Ctrl+Shift+O",
           :windows => "Ctrl+Shift+O"
           
+          
       def initialize(path=nil)
         @path = path
       end
@@ -166,8 +179,9 @@ module Redcar
 
       def get_path
         @path || begin
-          if path = Application::Dialog.open_directory(win, :filter_path => File.expand_path("~"))
-            File.expand_path(path)
+          if path = Application::Dialog.open_directory(win, :filter_path => Project.filter_path)
+            Project.storage['last_dir'] = File.dirname(File.expand_path(path))
+            path
           end
         end
       end

data/plugins/project/lib/project/find_file_dialog.rb

@@ -49,29 +49,35 @@ module Redcar
         score_match_pairs = []
         cutoff = 10000000
 
-        results = files(directories).each do |fn| 
-          unless File.directory?(fn)
-            bit = fn.split("/")
-            if m = bit.last.match(re)
-              cs = []
-              diffs = 0
-              m.captures.each_with_index do |_, i|
-                cs << m.begin(i + 1)
-                if i > 0
-                  diffs += cs[i] - cs[i-1]
+        results = files(directories).each do |fn|
+          begin
+            unless File.directory?(fn)
+              bit = fn.split("/")
+              if m = bit.last.match(re)
+                cs = []
+                diffs = 0
+                m.captures.each_with_index do |_, i|
+                  cs << m.begin(i + 1)
+                  if i > 0
+                    diffs += cs[i] - cs[i-1]
+                  end
                 end
-              end
-              # lower score is better
-              score = (cs[0] + diffs)*100 + bit.last.length
-              if score < cutoff
-                score_match_pairs << [score, fn]
-                score_match_pairs.sort!
-                if score_match_pairs.length == MAX_ENTRIES
-                  cutoff = score_match_pairs.last.first
-                  score_match_pairs.pop
+                # lower score is better
+                score = (cs[0] + diffs)*100 + bit.last.length
+                if score < cutoff
+                  score_match_pairs << [score, fn]
+                  score_match_pairs.sort!
+                  if score_match_pairs.length == MAX_ENTRIES
+                    cutoff = score_match_pairs.last.first
+                    score_match_pairs.pop
+                  end
                 end
               end
             end
+          rescue Errno::ENOENT
+            # File.directory? can throw no such file or directory even if File.exist?
+            # has returned true. For example this happens on some awful textmate filenames
+            # unicode in them.
           end
         end
         score_match_pairs.map {|a| a.last }

data/plugins/project/plugin.rb

@@ -0,0 +1,8 @@
+
+Plugin.define do
+  name    "project"
+  version "1.0"
+  file    "lib", "project"
+  object  "Redcar::Project"
+  dependencies "edit_view", ">0"
+end

data/plugins/project/spec/spec_helper.rb

@@ -2,4 +2,4 @@ $:.push File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
 
 require 'redcar'
 Redcar.boot
-Redcar.require_files
+Redcar.load

data/plugins/redcar/plugin.rb

@@ -0,0 +1,13 @@
+
+Plugin.define do
+  name    "redcar"
+  version "1.0"
+  file    "redcar"
+  object  "Redcar::Top"
+  dependencies "core",              ">0",
+               "application",       ">0",
+               "project",           ">0",
+               "Auto Completer",    ">0",
+               "HTML View",         ">=0.3.2",
+               "Plugin Manager UI", ">=0.3.2"
+end

data/plugins/redcar/redcar.rb

@@ -225,7 +225,7 @@ module Redcar
           else
             end_selection = doc.offset_at_line(last_line_ix + 1)
           end
-          doc.set_selection_range(start_selection, end_selection)
+          doc.set_selection_range(start_selection..end_selection)
         else
           indent_line(doc, doc.cursor_line)
         end
@@ -267,16 +267,228 @@ module Redcar
     class StripWhitespaceCommand < Redcar::EditTabCommand
     
       def execute
-        0.upto(doc.line_count - 1) do |line_ix|
-          doc.replace_line(line_ix) {|line| line.strip }
+        doc.text = doc.to_s.gsub(/\s+$/, "")
+      end
+    end
+    
+    class SelectAllCommand < Redcar::EditTabCommand
+      key :osx     => "Cmd+A",
+          :linux   => "Ctrl+Shift+A",
+          :windows => "Ctrl+Shift+A"
+    
+      def execute
+        doc.set_selection_range(0..(doc.length))
+      end
+    end
+    
+    class SelectLineCommand < Redcar::EditTabCommand
+      key :osx     => "Cmd+Shift+L",
+          :linux   => "Ctrl+Shift+L",
+          :windows => "Ctrl+Shift+L"
+    
+      def execute
+        doc.set_selection_range(
+          doc.cursor_line_start_offset..doc.cursor_line_end_offset)
+      end
+    end
+    
+    class CutCommand < Redcar::EditTabCommand
+      key :osx     => "Cmd+X",
+          :linux   => "Ctrl+X",
+          :windows => "Ctrl+X"
+    
+      def execute
+        if doc.selection?
+          text = doc.selection_ranges.map do |range|
+            doc.get_range(range.begin, range.count)
+          end
+          p text
+          Redcar.app.clipboard << text
+          diff = 0
+          doc.selection_ranges.each do |range|
+            doc.delete(range.begin - diff, range.count)
+            diff += range.count
+          end
+        else
+          Redcar.app.clipboard << doc.get_line(doc.cursor_line)
+          doc.delete(doc.cursor_line_start_offset, 
+                     doc.cursor_line_end_offset - doc.cursor_line_start_offset)
         end
       end
     end
     
-    def self.start
-      Redcar.gui = ApplicationSWT.gui
-      Redcar.app.controller = ApplicationSWT.new(Redcar.app)
-      builder = Menu::Builder.new do
+    class CopyCommand < Redcar::EditTabCommand
+      key :osx     => "Cmd+C",
+          :linux   => "Ctrl+C",
+          :windows => "Ctrl+C"
+    
+      def execute
+        if doc.selection?
+          text = doc.selection_ranges.map do |range|
+            doc.get_range(range.begin, range.count)
+          end
+          Redcar.app.clipboard << text
+        else
+          Redcar.app.clipboard << doc.get_line(doc.cursor_line)
+        end
+      end
+    end
+    
+    class PasteCommand < Redcar::EditTabCommand
+      sensitize :clipboard_not_empty
+      
+      key :osx     => "Cmd+V",
+          :linux   => "Ctrl+V",
+          :windows => "Ctrl+V"
+    
+      def execute
+        start_offset = doc.selection_ranges.first.begin
+        start_line   = doc.line_at_offset(start_offset)
+        line_offset  = start_offset - doc.offset_at_line(start_line)
+        cursor_line  = doc.cursor_line
+        cursor_line_offset = doc.cursor_line_offset
+        diff = 0
+        doc.selection_ranges.each do |range|
+          doc.delete(range.begin - diff, range.count)
+          diff += range.count
+        end
+        texts = Redcar.app.clipboard.last.dup
+        texts.each_with_index do |text, i|
+          line_ix = start_line + i
+          if line_ix == doc.line_count
+            doc.insert(doc.length, "\n" + " "*line_offset)
+          else
+            line = doc.get_line(line_ix)
+            if line.length - 1 < line_offset
+              doc.insert(
+                doc.offset_at_inner_end_of_line(line_ix),
+                " "*(line_offset - line.length + 1)
+              )
+            end
+          end
+          doc.insert(
+            doc.offset_at_line(line_ix) + line_offset,
+            text
+          )
+        end
+        new_offset = doc.offset_at_line(cursor_line) + cursor_line_offset + Redcar.app.clipboard.last.first.length
+        doc.cursor_offset = new_offset
+      end
+    end
+    
+    class DialogExample < Redcar::Command
+      def execute
+      	builder = Menu::Builder.new do
+      	  item("Foo") { p :foo }
+      	  item("Bar") { p :bar }
+      	  separator
+      	  sub_menu "Baz" do
+      	    item("Qux") { p :qx}
+      	    item("Quux") { p :quux }
+      	    item("Corge") { p :corge }
+      	  end
+      	end
+      	win.popup_menu(builder.menu)
+      end
+    end
+    
+    class GotoLineCommand < Redcar::EditTabCommand
+      key :osx     => "Cmd+L",
+          :linux   => "Ctrl+L",
+          :windows => "Ctrl+L"
+      
+      class Speedbar < Redcar::Speedbar
+        label "Goto line:"
+        textbox :line
+        button :go, "Return" do
+          new_line_ix = @speedbar.line.to_i - 1
+          if new_line_ix < doc.line_count and new_line_ix >= 0
+            doc.cursor_offset = doc.offset_at_line(new_line_ix)
+            doc.scroll_to_line(new_line_ix)
+            win.close_speedbar
+          end
+        end
+      end
+      
+      def execute
+        @speedbar = GotoLineCommand::Speedbar.new(self)
+        win.open_speedbar(@speedbar)
+      end
+    end
+    
+    class SearchForwardCommand < Redcar::EditTabCommand
+      key :osx => "Cmd+F", :linux => "Ctrl+F", :windows => "Ctrl+F"
+      
+      class Speedbar < Redcar::Speedbar
+        label "Regex"
+        textbox :query
+        button :search, "Return" do
+          FindNextRegex.new(Regexp.new(@speedbar.query), false).run
+        end
+      end
+      
+      def execute
+        @speedbar = SearchForwardCommand::Speedbar.new(self)
+        win.open_speedbar(@speedbar)
+      end
+    end
+    
+    class FindNextRegex < Redcar::EditTabCommand
+      def initialize(re, wrap=nil)
+        @re = re
+        @wrap = wrap
+      end
+  
+      def to_s
+        "<#{self.class}: @re:#{@re.inspect} wrap:#{!!@wrap}>"
+      end
+  
+      def execute
+        # first search the remainder of the current line
+        curr_line = doc.get_line(doc.cursor_line)
+        cursor_line_offset = doc.cursor_offset - doc.offset_at_line(doc.cursor_line)
+        curr_line = curr_line[cursor_line_offset..-1]
+        if curr_line =~ @re
+          line_start = doc.offset_at_line(doc.cursor_line)
+          startoff = line_start + $`.length + cursor_line_offset
+          endoff   = startoff + $&.length
+          doc.set_selection_range(startoff..endoff)
+        else
+          # next search the rest of the lines
+          line_num = doc.cursor_line + 1
+          curr_line = doc.get_line(line_num)
+          until line_num == doc.line_count - 1 or 
+                found = (curr_line.to_s =~ @re)
+            line_num += 1
+            curr_line = doc.get_line(line_num)
+          end
+          if found
+            line_start = doc.offset_at_line(line_num)
+            startoff = line_start + $`.length
+            endoff   = startoff + $&.length
+            doc.set_selection_range(startoff..endoff)
+            doc.scroll_to_line(line_num)
+          end
+          if !doc.get_line(line_num) and @wrap
+            doc.cursor_offset = 0
+            execute
+          end
+        end
+      end
+    end
+    
+    class ToggleBlockSelectionCommand < Redcar::EditTabCommand
+      key :osx     => "Cmd+B",
+          :windows => "Ctrl+B",
+          :linux   => "Ctrl+B"
+      
+      def execute
+        doc.block_selection_mode = !doc.block_selection_mode?
+      end
+    end
+    
+    def self.menus
+      Menu::Builder.build do
         sub_menu "File" do
           item "New", NewCommand
           item "New Notebook", NewNotebookCommand
@@ -296,6 +508,10 @@ module Redcar
           item "Undo", UndoCommand
           item "Redo", RedoCommand
           separator
+          item "Cut", CutCommand
+          item "Copy", CopyCommand
+          item "Paste", PasteCommand
+          separator
           item "Home", MoveHomeCommand
           item "End", MoveEndCommand
           separator
@@ -303,6 +519,16 @@ module Redcar
           item "Decrease Indent", DecreaseIndentCommand
           separator
           item "Strip Whitespace", StripWhitespaceCommand
+          separator
+          item "Goto Line", GotoLineCommand
+          item "Regex Search",    SearchForwardCommand
+          separator
+          sub_menu "Select" do
+            item "All", SelectAllCommand
+            item "Line", SelectLineCommand
+          end
+          item "Toggle Block Selection", ToggleBlockSelectionCommand
+          item "Auto Complete", AutoCompleter::AutoCompleteCommand
         end
         sub_menu "Project" do
           item "Find File", Project::FindFileCommand
@@ -313,6 +539,7 @@ module Redcar
           item "List Tabs", ListTabsCommand
           item "Print Scope Tree", PrintScopeTreeCommand
           item "Refresh Directory", Project::RefreshDirectoryCommand
+          item "Dialog Tester", DialogExample
         end
         sub_menu "View" do
           item "Rotate Notebooks", RotateNotebooksCommand
@@ -323,13 +550,27 @@ module Redcar
           item "Next Tab", SwitchTabUpCommand
         end
         sub_menu "Plugins" do
+          item "Plugin Manager", PluginManagerUi::OpenCommand
+          item "Reload Again", PluginManagerUi::ReloadLastReloadedCommand
+          separator
         end
         sub_menu "Help" do
           item "Website", PrintHistoryCommand
         end
       end
+    end
+    
+    def self.start
+      Application.start
+      ApplicationSWT.start
+      AutoIndenter.start
+      EditViewSWT.start
+      AutoCompleter.start
+      Redcar.gui = ApplicationSWT.gui
+      Redcar.app.controller = ApplicationSWT.new(Redcar.app)
       
-      Redcar.app.menu = builder.menu
+      Redcar.app.load_menus
+      Redcar.app.load_sensitivities
       Redcar.app.new_window
     end
   end