redcar-dev 0.12.17dev

data/plugins/document_search/lib/document_search/find_speedbar.rb

@@ -0,0 +1,162 @@
+module Redcar
+  module DocumentSearch
+    class FindSpeedbar < Redcar::Speedbar
+      class << self
+        attr_accessor :previous_query, :previous_replace, :previous_options
+      end
+      @previous_query = ''
+      @previous_replace = ''
+      @previous_options = QueryOptions.new
+
+      attr_accessor :initial_query
+
+      NotFoundMessage = 'Not found!'
+
+      ### UI DEFINITION ###
+
+      # Override num_columns to control number of rows.
+      def num_columns
+        return 7
+      end
+
+      label :label_find, 'Find:'
+      textbox :query do |val|
+        FindSpeedbar.previous_query = val
+      end
+
+      toggle :is_regex, 'Regex', nil, false do |val|
+        FindSpeedbar.previous_options.is_regex = val
+      end
+
+      toggle :match_case, 'Match case', nil, false do |val|
+        FindSpeedbar.previous_options.match_case = val
+      end
+
+      toggle :wrap_around, 'Wrap around', nil, true do |val|
+        FindSpeedbar.previous_options.wrap_around = val
+      end
+
+      label :label_not_found, NotFoundMessage   # Hack: Set label for sizing, clear in after_draw
+      label :label_space_end_row1, ""
+      label :label_spacer_start_row2, ""
+
+      label :label_replace, 'Replace:'
+      textbox :replace do |val|
+        FindSpeedbar.previous_replace = val
+      end
+
+      button :replace_find, 'Replace && Find', 'Alt+Return' do
+        FindSpeedbar.replace_and_find(
+            FindSpeedbar.previous_query,
+            FindSpeedbar.previous_replace,
+            FindSpeedbar.previous_options) or not_found
+      end
+
+      button :replace_all, 'Replace All', nil do
+        FindSpeedbar.replace_all(
+            FindSpeedbar.previous_query,
+            FindSpeedbar.previous_replace,
+            FindSpeedbar.previous_options) or not_found
+      end
+
+      button :replace_all_in_selection, 'Replace in Selection', nil do
+        FindSpeedbar.replace_all_in_selection(
+            FindSpeedbar.previous_query,
+            FindSpeedbar.previous_replace,
+            FindSpeedbar.previous_options) or not_found
+      end
+
+      button :find_previous, 'Previous', 'Shift+Return' do
+        FindSpeedbar.find_previous or not_found
+      end
+
+      button :find_next, 'Next', 'Return' do
+        FindSpeedbar.find_next or not_found
+      end
+
+      ### UI OPERATIONS ###
+
+      # Initializes UI elements.
+      def after_draw
+        clear_not_found
+        # If the current selection (from @initial_query) is equal to previous_replace, we ignore
+        # that selection and just use the previous value for the query.
+        #
+        # This is especially important in the following command sequence: Select; Use selection for
+        # query; Select; Use selection for replace; Open Find speedbar. Without the fix, the prior
+        # selection for the query gets overwritten with the current selection, which is annoying and
+        # useless.
+        if ((FindSpeedbar.previous_replace.length > 0) &&
+            (@initial_query == FindSpeedbar.previous_replace))
+          self.query.value = FindSpeedbar.previous_query
+        else
+          if (@initial_query)
+            FindSpeedbar.previous_query = @initial_query
+          end
+          self.query.value = FindSpeedbar.previous_query
+        end
+        self.replace.value = FindSpeedbar.previous_replace || ""
+        self.is_regex.value = FindSpeedbar.previous_options.is_regex
+        self.match_case.value = FindSpeedbar.previous_options.match_case
+        self.wrap_around.value = FindSpeedbar.previous_options.wrap_around
+        self.query.edit_view.document.select_all
+      end
+
+      # Sets the "Not found" label message, invoking the system beep.
+      def not_found
+        Swt::Widgets::Display.get_current.beep
+        self.label_not_found.text = NotFoundMessage
+      end
+
+      # Clears the "Not found" label message.
+      def clear_not_found
+        self.label_not_found.text = ''
+      end
+
+      ### COMMANDS ###
+
+      def self.find_next
+        cmd = FindNextCommand.new(FindSpeedbar.previous_query, FindSpeedbar.previous_options)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      def self.find_previous
+        cmd = FindPreviousCommand.new(FindSpeedbar.previous_query, FindSpeedbar.previous_options)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      # Note: The assumption that we set find only from selected text means we don't have to update
+      # search.
+      def self.use_selection_for_find(doc, active_speedbar=nil)
+        return unless doc.selection?
+        FindSpeedbar.previous_query = doc.selected_text
+        if active_speedbar && (active_speedbar.is_a? FindSpeedbar)
+          active_speedbar.query.value = FindSpeedbar.previous_query
+        end
+      end
+
+      def self.replace_and_find(query, replace, options)
+        cmd = ReplaceAndFindCommand.new(query, replace, options)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      def self.replace_all(query, replace, options)
+        cmd = ReplaceAllCommand.new(query, replace, options, false)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      def self.replace_all_in_selection(query, replace, options)
+        cmd = ReplaceAllCommand.new(query, replace, options, true)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      def self.use_selection_for_replace(doc, active_speedbar=nil)
+        return unless doc.selection?
+        FindSpeedbar.previous_replace = doc.selected_text
+        if active_speedbar && (active_speedbar.instance_of? FindSpeedbar)
+          active_speedbar.replace.value = FindSpeedbar.previous_replace
+        end
+      end
+    end
+  end
+end

data/plugins/document_search/lib/document_search/incremental_search_speedbar.rb

@@ -0,0 +1,70 @@
+module Redcar
+  module DocumentSearch
+    class IncrementalSearchSpeedbar < Redcar::Speedbar
+      class << self
+        attr_accessor :previous_query, :previous_options
+      end
+      @previous_query = ''
+      @previous_options = QueryOptions.new
+
+      ### UI ###
+
+      label :label, 'Find:'
+      textbox :query do |value|
+        # Check to avoid multiple searches from duplicate text update events.
+        if IncrementalSearchSpeedbar.previous_query != self.query.value
+          IncrementalSearchSpeedbar.previous_query = self.query.value
+          IncrementalSearchSpeedbar.find_incremental
+        end
+      end
+
+      toggle :is_regex, 'Regex', nil, false do |val|
+        IncrementalSearchSpeedbar.previous_options.is_regex = val
+        IncrementalSearchSpeedbar.find_incremental
+      end
+
+      toggle :match_case, 'Match case', nil, false do |val|
+        IncrementalSearchSpeedbar.previous_options.match_case = val
+        IncrementalSearchSpeedbar.find_incremental
+      end
+
+      toggle :wrap_around, 'Wrap around', nil, true do |val|
+        IncrementalSearchSpeedbar.previous_options.wrap_around = val
+        IncrementalSearchSpeedbar.find_incremental
+      end
+
+      def after_draw
+        IncrementalSearchSpeedbar.previous_query ||= ""
+        self.query.value = IncrementalSearchSpeedbar.previous_query
+        self.is_regex.value = IncrementalSearchSpeedbar.previous_options.is_regex
+        self.match_case.value = IncrementalSearchSpeedbar.previous_options.match_case
+        self.wrap_around.value = IncrementalSearchSpeedbar.previous_options.wrap_around
+        self.query.edit_view.document.select_all
+      end
+
+      ### COMMANDS ###
+
+      def self.find_incremental
+        cmd = FindNextCommand.new(
+            IncrementalSearchSpeedbar.previous_query,
+            IncrementalSearchSpeedbar.previous_options,
+            always_start_within_selection=true)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      def self.find_next
+        cmd = FindNextCommand.new(
+            IncrementalSearchSpeedbar.previous_query,
+            IncrementalSearchSpeedbar.previous_options)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+
+      def self.find_previous
+        cmd = FindPreviousCommand.new(
+            IncrementalSearchSpeedbar.previous_query,
+            IncrementalSearchSpeedbar.previous_options)
+        cmd.run(:env => {:edit_view => Redcar::EditView.focussed_tab_edit_view})
+      end
+    end
+  end
+end

data/plugins/document_search/lib/document_search/query_options.rb

@@ -0,0 +1,21 @@
+module Redcar
+  module DocumentSearch
+    # Encapsulates options for search queries.
+    class QueryOptions
+      attr_accessor :is_regex
+      attr_accessor :match_case
+      attr_accessor :wrap_around
+
+      DEFAULT_IS_REGEX  = false
+      DEFAULT_MATCH_CASE  = false
+      DEFAULT_WRAP_AROUND = true
+
+      # Initializes with default options.
+      def initialize
+        @is_regex = DEFAULT_IS_REGEX
+        @match_case  = DEFAULT_MATCH_CASE
+        @wrap_around = DEFAULT_WRAP_AROUND
+      end
+    end
+  end
+end

data/plugins/document_search/plugin.rb

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

data/plugins/edit_view/features/align_assignment.feature

@@ -0,0 +1,106 @@
+Feature: Align Assignment
+
+  Background:
+    When I open a new edit tab
+
+  Scenario: align simple assignments
+    When I replace the contents with "a = 4\nbc = 5\nd = 123"
+    And I select all
+    And I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the contents should be "<c>a  = 4\nbc = 5\nd  = 123<s>"
+
+  Scenario: align rows that have empty lines
+    When I replace the contents with "a = 1\n\nab = 123"
+    And I select all
+    And I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the contents should be "<c>a  = 1\n\nab = 123<s>"
+
+  Scenario: preserve trailing newline
+    Given the content is:
+        """
+        def foo
+        <c>  a = 1
+          bb = 2
+          ccc = 3
+        <s>end
+        """
+    When I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the content should be:
+        """
+        def foo
+        <c>  a   = 1
+          bb  = 2
+          ccc = 3<s>
+        end
+        """
+
+  Scenario: preserve non-selected indentation
+    Given the content is:
+        """
+        def foo
+          <c>a = 1
+          bb = 2
+          ccc = 3<s>
+        end
+        """
+    When I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the content should be:
+        """
+        def foo
+        <c>  a   = 1
+          bb  = 2
+          ccc = 3<s>
+        end
+        """
+
+  Scenario: align the right hand side of the operator
+    Given the content is:
+        """
+        def foo
+        <c>  a = 1
+          bb =     2
+          ccc = 3<s>
+        end
+        """
+    When I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the content should be:
+        """
+        def foo
+        <c>  a   = 1
+          bb  = 2
+          ccc = 3<s>
+        end
+        """
+  Scenario: aligning different length operators
+    Given the content is:
+        """
+        Integer === 1
+        two =~ /2/
+        @three||= 3333
+        bits &= 0b101010
+        """
+    And I select all
+    When I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the content should be:
+        """
+        <c>Integer === 1
+        two      =~ /2/
+        @three  ||= 3333
+        bits &    = 0b101010<s>
+        """
+
+  Scenario: aligning hashes
+    Given the content is:
+        """
+        {:one => 1,
+        :two => 22,
+        :threee => 333}
+        """
+    And I select all
+    When I run the command Redcar::EditView::AlignAssignmentCommand
+    Then the content should be:
+        """
+        <c>{:one   => 1,
+        :two    => 22,
+        :threee => 333}<s>
+        """

data/plugins/edit_view/features/case_change.feature

@@ -0,0 +1,67 @@
+Feature: Change Case
+
+  Background:
+    When I open a new edit tab
+
+  Scenario: Upcase selected text
+    When I replace the contents with "Curry Chicken"
+    And I select from 5 to 0
+    And I run the command Redcar::EditView::UpcaseTextCommand
+    Then the contents should be "<c>CURRY<s> Chicken"
+
+  Scenario: Upcase selected text and preserve cursor position
+    When I replace the contents with "Curry Chicken"
+    And I select from 0 to 5
+    And I run the command Redcar::EditView::UpcaseTextCommand
+    Then the contents should be "<s>CURRY<c> Chicken"
+
+  Scenario: Upcase word if no selection
+    When I replace the contents with "Curry Chicken"
+    And I move the cursor to 10
+    And I run the command Redcar::EditView::UpcaseTextCommand
+    Then the contents should be "Curry CHIC<c>KEN"
+
+  Scenario: Downcase text
+    When I replace the contents with "CURRY CHICKEN"
+    And I select from 0 to 5
+    And I run the command Redcar::EditView::DowncaseTextCommand
+    Then the contents should be "<s>curry<c> CHICKEN"
+
+  Scenario: Titlize text
+    When I replace the contents with "curry chicken"
+    And I select from 0 to 13
+    And I run the command Redcar::EditView::TitlizeTextCommand
+    Then the contents should be "<s>Curry Chicken<c>"
+    When I replace the contents with "CURRY CHICKEN"
+    And I select from 0 to 13
+    And I run the command Redcar::EditView::TitlizeTextCommand
+    Then the contents should be "<s>Curry Chicken<c>"
+
+  Scenario: Opposite case
+    When I replace the contents with "Curry Chicken"
+    And I select from 0 to 13
+    And I run the command Redcar::EditView::OppositeCaseTextCommand
+    Then the contents should be "<s>cURRY cHICKEN<c>"
+
+  Scenario: Camel case
+    When I replace the contents with "curry_chicken"
+    And I move the cursor to 13
+    And I run the command Redcar::EditView::CamelCaseTextCommand
+    Then the contents should be "CurryChicken<c>"
+
+  Scenario: Underscore
+    When I replace the contents with "CurryChicken"
+    And I move the cursor to 12
+    And I run the command Redcar::EditView::UnderscoreTextCommand
+    Then the contents should be "curry_chicke<c>n"
+
+  Scenario: Pascal to Underscore to Camel Case rotation
+    When I replace the contents with "CurryChicken"
+    And I move the cursor to 12
+    And I run the command Redcar::EditView::CamelSnakePascalRotateTextCommand
+    Then the contents should be "curry_chicke<c>n"
+    When I run the command Redcar::EditView::CamelSnakePascalRotateTextCommand
+    Then the contents should be "curryChicken<c>"
+    When I run the command Redcar::EditView::CamelSnakePascalRotateTextCommand
+    Then the contents should be "CurryChicken<c>"
+

data/plugins/edit_view/features/cursor_navigation.feature

@@ -0,0 +1,36 @@
+Feature: Cursor navigation
+
+  Background:
+    When I open a new edit tab
+
+  Scenario: Move forward word works with multi-byte chars
+    When I replace the contents with "<h1>'Oáy z' wee"
+    And I move the cursor to 0
+    When I move to the next word
+    Then the contents should be "<h1<c>>'Oáy z' wee"
+    When I move to the next word
+    Then the contents should be "<h1>'<c>Oáy z' wee"
+    When I move to the next word
+    Then the contents should be "<h1>'Oáy<c> z' wee"
+    When I move to the next word
+    Then the contents should be "<h1>'Oáy z<c>' wee"
+    When I move to the next word
+    Then the contents should be "<h1>'Oáy z' <c>wee"
+    When I move to the next word
+    Then the contents should be "<h1>'Oáy z' wee<c>"
+
+  Scenario: Move backward word works with multi-byte chars
+    When I replace the contents with "<h1>'Oáy z' wee"
+    And I move the cursor to 15
+    When I move to the previous word
+    Then the contents should be "<h1>'Oáy z' <c>wee"
+    When I move to the previous word
+    Then the contents should be "<h1>'Oáy z<c>' wee"
+    When I move to the previous word
+    Then the contents should be "<h1>'Oáy <c>z' wee"
+    When I move to the previous word
+    Then the contents should be "<h1>'<c>Oáy z' wee"
+    When I move to the previous word
+    Then the contents should be "<h1<c>>'Oáy z' wee"
+    When I move to the previous word
+    Then the contents should be "<<c>h1>'Oáy z' wee"