redcar-dev 0.12.17dev

data/plugins/edit_view/lib/edit_view/document/command.rb

@@ -0,0 +1,25 @@
+module Redcar
+  class DocumentCommand < TabCommand
+    sensitize :edit_view_focussed
+
+    def _finished
+      edit_view.history.record(self) if edit_view
+    end
+
+    def run_in_focussed_tab_edit_view
+      if edit_view = Redcar::EditView.focussed_tab_edit_view
+        run(:env => {:edit_view => edit_view})
+      end
+    end
+
+    private
+
+    def edit_view
+      env[:edit_view] || EditView.focussed_edit_view
+    end
+
+    def doc
+      edit_view.document
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/document/controller.rb

@@ -0,0 +1,43 @@
+
+module Redcar
+  class Document
+    module Controller
+      attr_accessor :document
+      
+      def inspect
+        "<#{self.class}>"
+      end
+      
+      # Called after every user action that modifies the document.
+      # E.g. typing "a", moving up, running a search. NOT included
+      # is modifications made by calling methods on Document, but they
+      # are usually implied by the Commands that make them.
+      #
+      # @param [String|Symbol|DocumentCommand] This is a document action.
+      def after_action(action)
+      end
+      
+      module ModificationCallbacks
+        def before_modify(start_offset, end_offset, text)
+          raise "not implemented"
+        end
+      
+        def after_modify
+          raise "not implemented"
+        end
+      end
+      
+      module NewlineCallback
+        def after_newline(line_ix)
+          raise "not implemented"
+        end
+      end
+      
+      module CursorCallbacks
+        def cursor_moved(offset)
+          raise "not implemented"
+        end
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/document/history.rb

@@ -0,0 +1,41 @@
+
+module Redcar
+  class Document
+    class History < Array
+      attr_reader :max
+      
+      def initialize(max)
+        @max         = max
+        @subscribers = []
+      end
+      
+      # Record an action in the History
+      def record(action)
+        self << action
+        notify_subscribers(action)
+        truncate
+      end
+      
+      def subscribe(&block)
+        @subscribers << block
+        block
+      end
+      
+      def unsubscribe(block)
+        @subscribers.delete(block)
+      end
+      
+      private
+      
+      def notify_subscribers(action)
+        @subscribers.each {|subscriber| subscriber.call(action)}
+      end
+      
+      def truncate #:nodoc:
+        if length > @max + 100
+          self[0..(length - @max)] = nil
+        end
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/document/indentation.rb

@@ -0,0 +1,40 @@
+
+module Redcar
+  class Document
+    class Indentation
+      def initialize(doc, tab_width, soft_tabs)
+        @doc, @tab_width, @soft_tabs = doc, tab_width, soft_tabs
+      end
+      
+      def get_level(ix)
+        whitespace_prefix(ix).scan(indent_consuming_regex).length
+      end
+      
+      def whitespace_prefix(ix)
+        line = @doc.get_line(ix)
+        line.match(/^(\s*)([^\s]|$)/)[1].chomp
+      end
+      
+      def set_level(ix, level)
+        offset = @doc.offset_at_line(ix)
+        prefix = whitespace_prefix(ix)
+        if @soft_tabs
+          @doc.replace(offset, prefix.length, " "*@tab_width*level)
+        else
+          @doc.replace(offset, prefix.length, "\t"*level)
+        end
+      end
+      
+      def trim_trailing_whitespace(ix)
+        # don't have to check on delimiter at the end, @doc does that
+        @doc.replace_line(ix, @doc.get_line(ix).rstrip)
+      end
+      
+      private
+      
+      def indent_consuming_regex
+        /( {0,#{@tab_width - 1}}\t| {#{@tab_width}})/
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/document/mirror.rb

@@ -0,0 +1,42 @@
+
+module Redcar
+  class Document
+    # Abstract interface. A Mirror allows an EditView contents to reflect 
+    # some other resource. They have methods for loading the contents from the 
+    # resource and commiting changes.
+    #
+    # Events: change
+    module Mirror
+      include Redcar::Observable
+      
+      # Return the title of the resource. (e.g. the filename)
+      def title
+        raise "not implemented"
+      end
+      
+      # Return the contents of the resource reflected by this mirror. 
+      # (E.g. the contents of the file)
+      def read
+        raise "not implemented"
+      end
+
+      # Does the resource still exist or not? (E.g. does the file exist?)
+      def exists?
+        raise "not implemented"
+      end
+      
+      # Has the resource changed since the last time either `read` or `commit` 
+      # were was called? (E.g. has the file changed since the last time its 
+      # contents were loaded)
+      def changed?
+        raise "not implemented"
+      end
+      
+      # Replace the contents of the resource with `contents`. (E.g. save the
+      # new contents of the file.)
+      def commit(contents)
+        raise "not implemented"
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/edit_tab.rb

@@ -0,0 +1,59 @@
+module Redcar
+  class EditTab < Tab
+
+    attr_reader :edit_view
+
+    def initialize(*args)
+      super
+      create_edit_view
+    end
+
+    def icon
+      i = DEFAULT_ICON
+      doc = @edit_view.document
+      if doc and doc.path
+        unless doc.mirror.adapter.is_a?(Redcar::Project::Adapters::Remote)
+          if File.exists?(doc.path)
+            if File.writable?(doc.path)
+              key = File.basename(doc.path).split('.').last.split(//).first.downcase
+              if key =~ /[a-z]/
+                if key == 'a'
+                  i = :document_attribute
+                else
+                  i = :"document_attribute_#{key}"
+                end
+              else
+                i = DEFAULT_ICON
+              end
+            else
+              i = NO_WRITE_ICON
+            end
+          else
+            i = MISSING_ICON
+          end
+        end
+      end
+      i
+    end
+
+    def update_for_file_changes
+      new_icon = icon
+      if new_icon and new_icon != @icon
+        @icon = new_icon
+        notify_listeners(:changed_icon, @icon)
+      end
+    end
+
+    def create_edit_view
+      @edit_view = Redcar::EditView.new
+      @edit_view.add_listener(:focussed, &method(:edit_view_focussed))
+      @edit_view.document.add_listener(:changed) { notify_listeners(:changed, self) }
+      @edit_view.document.add_listener(:selection_range_changed) { notify_listeners(:selection_changed) }
+      @edit_view.add_listener(:title_changed) { |newt| self.title = newt }
+    end
+
+    def edit_view_focussed
+      notify_listeners(:focus)
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/grammar.rb

@@ -0,0 +1,58 @@
+module Redcar
+  class Grammar
+    
+    def initialize(doc)
+      @doc = doc
+      doc.edit_view.add_listener(:grammar_changed, &method(:change_grammar))
+      Grammar.loaded_files ||= []
+    end
+    
+    def change_grammar(name)
+      grammar_name = singleton.sanitize_grammar_name(name)
+      Grammar.load_grammar
+      if Grammar.const_defined?(grammar_name)
+        grammar = Grammar.const_get(grammar_name)
+      else
+        grammar = Grammar.const_get(:Default)
+      end
+      grammar.instance_methods.each do |method|
+        if self.methods.include?(method)
+          singleton.send(:undef_method, method)
+          singleton.send(:define_method, method, grammar.instance_method(method))
+        end
+      end
+      self.extend grammar
+    end
+    
+    def word
+      # No Grammar loaded, but apparently some kind of document present
+      change_grammar(@doc.edit_view.grammar)
+      word
+    end
+    
+    def singleton
+      class << self; self; end
+    end
+    
+    class << self
+      attr_accessor :loaded_files
+      
+      def load_grammar
+        grammar_dir = File.expand_path(File.dirname(__FILE__) + "/grammars")
+        Dir.new(grammar_dir).entries.reject {|item| item[-3..-1] != ".rb"}.sort.each do |grammar|
+          unless loaded_files.include? grammar
+            if require grammar_dir + "/" + grammar[0..-4]
+              loaded_files << grammar
+            end
+          end
+        end
+      end
+      
+      def sanitize_grammar_name(name)
+        name.strip.gsub("+", "Plus").gsub("#", "Sharp").split(" ").map do |word|
+          word.camelize
+        end.join.gsub(/\W/, "")
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/grammars/default.rb

@@ -0,0 +1,10 @@
+module Redcar
+  class Grammar
+    module Default
+      
+      def word
+        /^\w+$/u
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/grammars/ruby.rb

@@ -0,0 +1,10 @@
+module Redcar
+  class Grammar
+    module Ruby
+
+      def word
+        /^(\w)+(\?|\!)?$/u
+      end
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/grammars/ruby_on_rails.rb

@@ -0,0 +1,7 @@
+module Redcar
+  class Grammar
+    module RubyOnRails
+      include Ruby
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/info_speedbar.rb

@@ -0,0 +1,98 @@
+module Redcar
+  class EditView
+    class InfoSpeedbar < Speedbar
+      def self.grammar_names
+        bundles  = JavaMateView::Bundle.bundles.to_a
+        grammars = bundles.map {|b| b.grammars.to_a}.flatten
+        items    = grammars.map {|g| g.name}.sort_by {|name| name.downcase }
+      end
+      
+      combo :grammar do |new_grammar|
+        @tab.edit_view.grammar = new_grammar
+      end
+      
+      combo :tab_width, TabSettings::TAB_WIDTHS, TabSettings::DEFAULT_TAB_WIDTH do |new_tab_width|
+        @tab.edit_view.tab_width = new_tab_width.to_i
+      end
+      
+      toggle :soft_tabs, "Soft Tabs", nil, true do |new_value|
+        @tab.edit_view.soft_tabs = new_value
+      end
+      
+      toggle :word_wrap, "Word Wrap", nil, false do |new_value|
+        @tab.edit_view.word_wrap = new_value
+      end
+      
+      label :margin_column_label, "Margin:"
+      
+      toggle :show_margin, "", nil, TabSettings::DEFAULT_MARGIN_PRESENT do |new_value|
+        @tab.edit_view.show_margin = new_value
+      end
+      
+      textbox :margin_column, TabSettings::DEFAULT_MARGIN_COLUMN.to_s do |new_value|
+        @tab.edit_view.margin_column = [new_value.to_i, 5].max
+      end
+      
+      def initialize(command, tab)
+        @command = command
+        tab_changed(tab)
+      end
+      
+      def tab_changed(new_tab)
+        if @tab
+          remove_handlers
+        end
+        if new_tab.is_a?(EditTab)
+          @tab = new_tab
+          grammar.items = InfoSpeedbar.grammar_names
+          grammar.value = @tab.edit_view.grammar
+          tab_width.value = @tab.edit_view.tab_width.to_s
+          soft_tabs.value = @tab.edit_view.soft_tabs?
+          word_wrap.value = @tab.edit_view.word_wrap?
+          show_margin.value = @tab.edit_view.show_margin?
+          margin_column.value = @tab.edit_view.margin_column.to_s
+          @width_handler = @tab.edit_view.add_listener(:tab_width_changed) do |new_value|
+            tab_width.value = new_value.to_s
+          end
+          @margin_column_handler = @tab.edit_view.add_listener(:margin_column_changed) do |new_value|
+            margin_column.value = new_value.to_s
+          end
+          @softness_handler = @tab.edit_view.add_listener(:softness_changed) do |new_value|
+            soft_tabs.value = new_value
+          end
+          @word_wrap_handler = @tab.edit_view.add_listener(:word_wrap_changed) do |new_value|
+            word_wrap.value = new_value
+          end
+          @grammar_handler = @tab.edit_view.add_listener(:grammar_changed) do |new_grammar|
+            grammar.value = new_grammar
+          end
+          @show_margin_handler = @tab.edit_view.add_listener(:show_margin_changed) do |new_value|
+            show_margin.value = new_value
+          end
+        end
+      end
+      
+      def remove_handlers
+        @tab.edit_view.remove_listener(@width_handler)
+        @tab.edit_view.remove_listener(@grammar_handler)
+        @tab.edit_view.remove_listener(@softness_handler)
+        @tab.edit_view.remove_listener(@word_wrap_handler)
+        @tab.edit_view.remove_listener(@margin_column_handler)
+        @tab.edit_view.remove_listener(@show_margin_handler)
+      end
+      
+      def close
+        if @tab
+          remove_handlers
+        end
+      end
+    end
+    
+    class InfoSpeedbarCommand < Redcar::EditTabCommand
+      def execute
+        @speedbar = InfoSpeedbar.new(self, tab)
+        win.open_speedbar(@speedbar)
+      end
+    end
+  end
+end