redcar-dev 0.12.17dev

data/plugins/outline_view/spec/fixtures/some_project/trailing_space.rb

@@ -0,0 +1,5 @@
+class TrailingSpace
+
+  def trailing_space      
+  end
+end

data/plugins/outline_view_swt/lib/outline_view_swt.rb

@@ -0,0 +1,79 @@
+module Redcar
+  class OutlineViewSWT < Redcar::ApplicationSWT::FilterListDialogController
+    include Redcar::Controller
+
+    ICONS = {
+      :method => ApplicationSWT::Icon.swt_image(:node_insert),
+      :class => ApplicationSWT::Icon.swt_image(:open_source_flipped),
+      :attribute => ApplicationSWT::Icon.swt_image(:status),
+      :alias => ApplicationSWT::Icon.swt_image(:arrow_branch),
+      :assignment => ApplicationSWT::Icon.swt_image(:arrow),
+      :interface => ApplicationSWT::Icon.swt_image(:information),
+      :closure => ApplicationSWT::Icon.swt_image(:node_magnifier),
+      :none => nil
+    }
+
+    class OutlineViewDialogSWT < Redcar::ApplicationSWT::FilterListDialogController::FilterListDialog
+      attr_reader :list, :text
+      attr_accessor :controller
+
+      def createDialogArea(parent)
+        composite = Swt::Widgets::Composite.new(parent, Swt::SWT::NONE)
+        layout = Swt::Layout::RowLayout.new(Swt::SWT::VERTICAL)
+        composite.setLayout(layout)
+        @text = Swt::Widgets::Text.new(composite, Swt::SWT::SINGLE | Swt::SWT::LEFT | Swt::SWT::ICON_CANCEL)
+        @text.set_layout_data(Swt::Layout::RowData.new(400, 20))
+        @list = Swt::Widgets::Table.new(composite, Swt::SWT::V_SCROLL | Swt::SWT::H_SCROLL | Swt::SWT::MULTI)
+        @list.set_layout_data(Swt::Layout::RowData.new(400, 200))
+        controller.attach_listeners
+        controller.update_list_sync
+        get_shell.add_shell_listener(Redcar::ApplicationSWT::FilterListDialogController::ShellListener.new(controller))
+        Redcar::ApplicationSWT.register_shell(get_shell)
+        Redcar::ApplicationSWT.register_dialog(get_shell, self)
+        @list.set_selection(0)
+      end
+    end
+
+    def initialize(model)
+      @model = model
+      @dialog = OutlineViewDialogSWT.new(Redcar.app.focussed_window.controller.shell)
+      @dialog.controller = self
+      if Redcar::ApplicationSWT::FilterListDialogController.test_mode?
+        @dialog.setBlockOnOpen(false)
+        @dialog.setShellStyle(Swt::SWT::DIALOG_TRIM)
+      end
+      attach_model_listeners
+      @associations = {}
+    end
+
+    def update_list_sync
+      if @dialog
+        s = Time.now
+        hash = @model.update_list(@dialog.text.get_text)
+        populate_table(hash)
+        @dialog.list.set_selection(0)
+        text_focus
+      end
+    end
+
+    def selected
+      @model.selected(@associations[@dialog.list.get_selection.first])
+    end
+
+    private
+
+    def populate_table(hash = {})
+      @dialog.list.removeAll; @associations.clear
+      hash.each do |match, props|
+        props = {:kind => :none, :name => ""}.merge(props)
+        item = Swt::Widgets::TableItem.new(@dialog.list, Swt::SWT::NONE)
+        @associations[item] = match
+        item.text = props[:name]
+        image = ICONS[props[:kind].to_sym] if props[:kind]
+        if image
+          item.image = image
+        end
+      end
+    end
+  end
+end

data/plugins/outline_view_swt/plugin.rb

@@ -0,0 +1,7 @@
+Plugin.define do
+  name    "outline_view_swt"
+  version "0.1.0"
+  file    "lib", "outline_view_swt"
+  object  "Redcar::OutlineViewSWT"
+  dependencies "application_swt", ">0"
+end

data/plugins/pair_highlighter/lib/pair_highlighter.rb

@@ -0,0 +1,34 @@
+
+require 'pair_highlighter/document_controller'
+
+module Redcar
+  class PairHighlighter
+
+    def self.edit_view_gui_update(mate_text)
+      if @styledText != mate_text.get_text_widget
+        @styledText = mate_text.get_text_widget
+        @styledText.add_key_listener(KeyListener.new)
+        @styledText.addLineBackgroundListener(LineEventListener.new)
+	      @doc.mate_text = mate_text
+        @doc.styledText = @styledText
+      end
+    end
+    
+    def self.document_cursor_listener
+      @doc = DocumentController.new
+    end
+    
+    def self.theme_changed_update
+      @doc.set_highlight_colour
+    end
+    
+    class KeyListener
+      def key_pressed(_); end
+      def key_released(_); end
+    end  
+    
+    class LineEventListener
+      def lineGetBackground(_); end
+    end
+  end 
+end

data/plugins/pair_highlighter/lib/pair_highlighter/document_controller.rb

@@ -0,0 +1,185 @@
+
+module Redcar
+  class PairHighlighter
+    class DocumentController
+
+      attr_accessor :gc, :styledText, :document, :mate_text, :theme_name
+      attr_accessor :height, :width, :highlighted
+
+      include Redcar::Document::Controller
+      include Redcar::Document::Controller::ModificationCallbacks
+      include Redcar::Document::Controller::CursorCallbacks
+
+      def set_highlight_colour
+        if @theme_name == EditView.theme
+          return @colour if @colour
+        end
+
+        @theme_name = EditView.theme
+        @theme = @mate_text.colourer.getTheme()
+        @colour = @theme.globalSettings.get("pairHighlight")
+      	if @colour
+      	  @colour = JavaMateView::SwtColourer.getColour(@colour)
+      	else
+          @colour = ApplicationSWT.display.system_color Swt::SWT::COLOR_GRAY
+      	end
+      	@colour
+      end
+
+      def before_modify(start_offset, end_offset, text)
+        @wait = @wait + 1
+      end
+
+      def after_modify
+        @wait = @wait - 1
+	    end
+
+      def initialize
+        @i = 0
+        @wait = 0
+        @theme_name = nil
+        @highlight = Highlighted.new
+        @open_pair_chars = ["{", "(", "["]
+        @close_pair_chars = ["}", ")", "]"]
+        @pair_chars = @open_pair_chars + @close_pair_chars
+      end
+
+      def highlight_pair(current, pair)
+        if current == nil or pair == nil
+          clear
+          return
+        elsif current == @highlight.current || current == @highlight.pair || pair == @highlight.current || pair == @highlight.pair
+          return
+        end
+
+        #puts "Highligh on offset " + current.to_s() + " and its pair at " + pair.to_s()
+        if document.length > 0
+          clear
+          #puts "Highligh on offset " + current.to_s() + " and its pair at " + pair.to_s()
+          gc = Swt::Graphics::GC.new(@styledText)
+          gc.setBackground(set_highlight_colour)
+          gc.setAlpha(98)
+          gc.fill_rectangle(styledText.getTextBounds(current, current))
+          gc.fill_rectangle(styledText.getTextBounds(pair, pair))
+          @highlight.set_on(current, pair)
+          gc.dispose() if gc
+        end
+      end
+
+      def clear
+        if @highlight.on?
+          if @highlight.current < document.length
+            styledText.redrawRange(@highlight.current, 1, false)
+            styledText.redrawRange(@highlight.pair, 1, false) # if on the same line
+            @highlight.clear
+          end
+        end
+      end
+
+      def find_pair(step, offset, search_char, current_char)
+        state = 1;
+        quotes = false
+        doublequotes = false
+
+        offset = offset + step;
+        while offset >= 0 and offset < document.length
+          @newchar = styledText.getTextRange(offset, 1)
+          if @newchar == search_char and !quotes and !doublequotes
+            state = state - 1
+          elsif @newchar == current_char and !quotes and !doublequotes
+            state = state + 1
+          elsif @newchar == '"'
+            doublequotes = !doublequotes
+          elsif @newchar == "'"
+            quotes = !quotes
+          end
+          if state == 0
+            return offset
+          end
+          offset = offset + step;
+        end
+
+        if state != 0
+          return nil
+        end
+      end
+
+      def pair_of_offset(offset)
+        @char = document.get_range(offset, 1)
+        @index = @open_pair_chars.index(@char)
+        @newoffset = nil
+
+        if @index
+          @newoffset = find_pair(1, offset, @close_pair_chars[@index], @open_pair_chars[@index])
+        else
+          @index = @close_pair_chars.index(@char)
+          if @index
+            @newoffset = find_pair(-1, offset, @open_pair_chars[@index], @close_pair_chars[@index])
+          end
+        end
+        return @newoffset
+      end
+
+      def cursor_moved(offset)
+        if @wait > 0
+          return
+        end
+
+        pair = nil
+
+        if offset >= document.length
+            @char_next = nil
+        else
+            @char_next = document.get_range(offset, 1)
+        end
+
+        if offset > 0
+            @char_prev = document.get_range(offset-1, 1)
+        else
+            @char_prev = nil
+        end
+
+        if @char_next and @pair_chars.include?(@char_next)
+            pair = pair_of_offset(offset)
+        elsif @char_prev and @pair_chars.include?(@char_prev)
+            offset = offset - 1
+            pair = pair_of_offset(offset)
+        else
+            clear
+        end
+
+        highlight_pair(offset, pair)
+      end
+    end
+
+    class Highlighted
+      attr_accessor :on, :current, :pair
+
+      def initialize
+        clear
+      end
+
+      def clear
+        @on = false
+        @current = nil
+        @pair = nil
+      end
+
+      def on?
+        if @on
+          true
+        else
+          false
+        end
+      end
+
+      def set_on(current, pair)
+        if current and pair
+          @on = true
+          @current = current
+          @pair = pair
+        end
+      end
+    end
+  end
+end

data/plugins/pair_highlighter/plugin.rb

@@ -0,0 +1,9 @@
+
+Plugin.define do
+  name    "pair_highlighter"
+  version "1.0"
+  file    "lib", "pair_highlighter"
+  object  "Redcar::PairHighlighter"
+  dependencies "edit_view", ">0",
+               "textmate",  ">0"
+end

data/plugins/plugin_manager_ui/lib/plugin_manager_ui.rb

@@ -0,0 +1,122 @@
+
+require 'erb'
+
+module Redcar
+  class PluginManagerUi
+    class << self
+      attr_accessor :last_reloaded
+    end
+    
+    def self.menus
+      Menu::Builder.build do
+        sub_menu "Plugins", :priority => 40 do
+          group(:priority => :first) {
+            item "Plugin Manager", PluginManagerUi::OpenCommand
+            item "Reload Last Reloaded", PluginManagerUi::ReloadLastReloadedCommand
+            separator
+          }
+        end
+        if [:linux,:windows].include?(Redcar.platform)
+          sub_menu "Edit" do
+            group(:priority => :last) do
+              separator
+              item "Preferences", PluginManagerUi::OpenPreferencesCommand
+            end
+          end
+        end
+      end
+    end
+
+    def self.keymaps
+      if [:linux,:windows].include?(Redcar.platform)
+        map = Redcar::Keymap.build("main", [:linux,:windows]) do
+          link "F2", PluginManagerUi::OpenPreferencesCommand
+        end
+        [map]
+      end
+    end
+
+    class OpenPreferencesCommand < Redcar::Command
+      def execute
+        project = Project::Manager.open_project_for_path(Redcar::Plugin::Storage.storage_dir)
+        project.window.title = "Plugin Preferences"
+      end
+    end
+
+    class ReloadLastReloadedCommand < Redcar::Command
+      
+      def execute
+        if plugin = PluginManagerUi.last_reloaded
+          plugin.load
+        end
+      end
+    end
+
+    class ReloadPluginsCommand < Redcar::Command
+      def execute
+        Redcar.add_plugin_sources(Redcar.plugin_manager)
+	Redcar.plugin_manager.load_maximal
+      end
+    end
+
+    class OpenCommand < Redcar::Command
+      class Controller
+        include Redcar::HtmlController
+        
+        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 ||= Redcar.plugin_manager.unloaded_plugins.detect {|pl| pl.name == name }
+          plugin.load
+          Redcar.app.refresh_menu!
+          PluginManagerUi.last_reloaded = plugin
+          nil
+        end
+        
+        private
+        
+        def plugin_table(plugins)
+          str = "<table>\n"
+          highlight = true
+          plugins = plugins.sort_by {|pl| pl.name.downcase }
+          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>"
+            if plugin.load_time
+              if plugin.load_time > 1
+                clss = "red"
+              elsif plugin.load_time > 0.1
+                clss = "yellow"
+              else
+                clss = ""
+              end
+            else
+              clss = ""
+            end
+            str << "<td class=#{ clss }>#{ plugin.load_time.to_s }</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(ConfigTab)
+        tab.html_view.controller = controller
+        tab.focus
+      end
+    end
+  end
+end