redcar-dev 0.12.17dev

data/plugins/textmate/lib/textmate/bundle.rb

@@ -0,0 +1,100 @@
+
+module Redcar
+  module Textmate
+    class Bundle
+      include Redcar::Observable
+      attr_reader :path, :snippets, :preferences
+
+      def initialize(path)
+        @path = File.expand_path(path)
+        info_path = File.join(path, "info.plist")
+        if File.exist?(info_path)
+          @plist = Plist.xml_to_plist(File.read(info_path))
+        end
+        @snippets = snippet_paths.map {|path| Snippet.new(path, self.name) }
+        @preferences = preference_paths.map {|path| Preference.new(path) }
+      end
+
+      def name
+        @plist["name"]
+      end
+
+      def uuid
+        @plist["uuid"]
+      end
+
+      def ordering
+        @plist["ordering"]
+      end
+
+      def contact_name
+        @plist["contactName"]
+      end
+
+      def contact_email
+        @plist["contactEmailRot13"]
+      end
+
+      def description
+        @plist["description"]
+      end
+
+      def deleted
+        @plist["deleted"]
+      end
+
+      def main_menu
+        @plist["mainMenu"]
+      end
+
+      def sub_menus
+        main_menu["submenus"]
+      end
+
+      def build_menu(builder)
+        if main_menu and main_menu["items"]
+          builder.sub_menu name do |m|
+            main_menu["items"].each do |item|
+              build_menu_from_item(builder, item)
+            end
+          end
+        end
+      end
+
+      def build_menu_from_item(builder, item)
+        if item =~ /^$/ #is a separator
+          builder.separator
+        elsif sub_menus[item] #is a submenu
+          sub_menu = sub_menus[item]
+          builder.sub_menu(sub_menu["name"]) do |sub_builder|
+            sub_menu["items"].each do |sub_item|
+              build_menu_from_item(sub_builder, sub_item)
+            end
+          end
+        elsif Textmate.uuid_hash[item] #is a snippet
+          snippet = Textmate.uuid_hash[item]
+          if snippet.is_a?(Textmate::Snippet)
+            return unless snippet.name and snippet.name != "" #has a name
+            builder.item(snippet.to_menu_string) do
+              doc = EditView.focussed_edit_view_document
+              if doc
+                controller = doc.controllers(Snippets::DocumentController).first
+                controller.start_snippet!(snippet)
+              end
+            end
+          end
+        end
+      end
+
+      private
+
+      def preference_paths
+        Dir[File.join(path, "Preferences", "*")]
+      end
+
+      def snippet_paths
+        Dir[File.join(path, "Snippets", "*")]
+      end
+    end
+  end
+end

data/plugins/textmate/lib/textmate/commands.rb

@@ -0,0 +1,79 @@
+
+module Redcar
+  module Textmate
+    # A test for leaks
+    #class RefreshMenuTenTimes < Redcar::Command
+    #  def execute
+    #    puts "Refreshing menu ten times."
+    #    10.times do
+    #  	  Redcar.app.refresh_menu!
+    #      puts "Refreshing the menu!"
+    #    end
+    #  end
+    #end
+
+    class ShowSnippetTree < Redcar::Command
+      def execute
+        if tree = win.treebook.trees.detect {|tree| tree.tree_mirror.title == TREE_TITLE }
+          win.treebook.focus_tree(tree)
+        else
+          tree = Tree.new(TreeMirror.new(Textmate.all_bundles),TreeController.new)
+          win.treebook.add_tree(tree)
+        end
+      end
+    end
+
+    class ReloadSnippetTree < Redcar::Command
+      def execute
+        if tree = win.treebook.trees.detect {|tree| tree.tree_mirror.title == TREE_TITLE }
+          win.treebook.remove_tree(tree)
+          tree = Tree.new(TreeMirror.new(Textmate.all_bundles),TreeController.new)
+          win.treebook.add_tree(tree)
+        else
+          ShowSnippetTree.new.run
+        end
+      end
+    end
+
+
+    class ClearBundleMenu < Redcar::Command
+      def execute
+        Textmate.storage['loaded_bundles'] = []
+        Textmate.refresh_tree
+        Redcar.app.refresh_menu!
+      end
+    end
+
+    class RemovePinnedBundle < Redcar::Command
+      def initialize(bundle_name)
+        @bundle_name = bundle_name.downcase
+      end
+
+      def execute
+        unless not Textmate.storage['loaded_bundles'].include?(@bundle_name)
+          bundles = Textmate.storage['loaded_bundles'] || []
+          bundles.delete(@bundle_name)
+          Textmate.storage['loaded_bundles'] = bundles
+          Textmate.refresh_tree
+          Redcar.app.refresh_menu!
+        end
+      end
+    end
+
+    class PinBundleToMenu < Redcar::Command
+      def initialize(bundle_name)
+        @bundle_name = bundle_name.downcase
+      end
+
+      def execute
+        unless Textmate.storage['loaded_bundles'].include?(@bundle_name)
+          bundles = Textmate.storage['loaded_bundles'] || []
+          bundles << @bundle_name
+          Textmate.storage['loaded_bundles'] = bundles
+          Textmate.refresh_tree
+          Redcar.app.refresh_menu!
+        end
+      end
+    end
+  end
+end

data/plugins/textmate/lib/textmate/environment.rb

@@ -0,0 +1,76 @@
+module Redcar
+  module Textmate
+    class Environment
+
+      def initialize
+        @env = {}
+        @env['TM_RUBY'] = File.join(Config::CONFIG['bindir'], Config::CONFIG['ruby_install_name'])
+        
+        current_scope = nil
+        if document = Redcar::EditView.focussed_edit_view_document
+          line = document.get_line(document.cursor_line)
+          if line =~ /#{document.delim}$/
+            line = line[0..(-1*document.delim.length - 1)]
+          end
+          @env['TM_CURRENT_LINE'] = line
+          @env['TM_LINE_INDEX'] = document.cursor_line_offset.to_s
+          @env['TM_LINE_NUMBER'] = (document.cursor_line + 1).to_s
+          if document.selection?
+            @env['TM_SELECTED_TEXT'] = document.selected_text
+          end
+          if mirror = Redcar::EditView.focussed_document_mirror
+            @env['TM_DIRECTORY'] = File.dirname(mirror.path)
+            @env['TM_FILEPATH'] = mirror.path
+            @env['TM_FILENAME'] = File.basename(mirror.path)
+          end
+          if cursor_scope = document.cursor_scope
+            @env['TM_SCOPE'] = current_scope
+          end
+        end
+        if Redcar::EditView.focussed_tab_edit_view.soft_tabs?
+          @env['TM_SOFT_TABS'] = "YES"
+        else
+          @env['TM_SOFT_TABS'] = "NO"
+        end
+
+        @env['TM_TAB_SIZE'] = Redcar::EditView.focussed_tab_edit_view.tab_width.to_s
+  
+        #preferences = {}
+        #Bundle.bundles.each do |this_bundle|
+        #  this_bundle.preferences.each do |name, prefs|
+        #    scope = prefs["scope"]
+        #    if scope
+        #      next unless current_scope
+        #      next unless match = Gtk::Mate::Matcher.get_match(scope, current_scope)
+        #    end
+        #    settings = prefs["settings"]
+        #    if shell_variables = settings["shellVariables"]
+        #      if preferences[name]
+        #        prev_match, _ = preferences[name]
+        #        if Gtk::Mate::Matcher.compare_match(current_scope, prev_match, match) < 0
+        #          preferences[name] = [match, shell_variables, this_bundle.name]
+        #        end
+        #      else
+        #        preferences[name] = [match, shell_variables, this_bundle.name]
+        #      end
+        #    end
+        #  end
+        #end
+        #
+        #preferences.each do |name, pair|
+        #  shell_variables, bundle_name = *pair[1..-1]
+        #  shell_variables.each do |variable_hash|
+        #    name = variable_hash["name"]
+        #    @env_variables << name unless @env_variables.include?(name)
+        #    log.debug { "setting #{name.inspect} to #{variable_hash["value"].inspect} from #{bundle_name.inspect}" }
+        #    ENV[name] = variable_hash["value"]
+        #  end        
+        #end
+      end
+    
+      def [](key)
+        @env[key]
+      end
+    end
+  end
+end

data/plugins/textmate/lib/textmate/plist.rb

@@ -0,0 +1,80 @@
+
+module Redcar
+  # An Apple Plist parser.
+  class Plist
+    class PlistException < StandardError
+    end
+
+    # Convert an xml representation of a plist (in the proper form)
+    # into a Ruby representation formed by Arrays, Hashes and Strings.
+    def self.xml_to_plist(xml)
+      self.plist_from_xml(xml)
+    end
+
+    def self.plist_from_xml(xml_string) # :nodoc:
+      require 'rexml/document'
+      REXML::Text::VALID_CHAR << 0x3 if RUBY_VERSION >= '1.9.1'
+      xml = REXML::Document.new(xml_string)
+      plist_from_xml1(xml.root.elements.to_a.first)
+    end
+
+    def self.plist_from_xml1(element) # :nodoc:
+      case element.name
+      when "dict"
+        dict = {}
+        l = 0
+        element.each_element {|e| l += 1}
+        1.step(l-1, 2) do |i|
+          key_el = element.elements[i]
+          val_el = element.elements[i+1]
+          dict[key_el.text] = plist_from_xml1(val_el)
+        end
+        dict
+      when "string"
+        element.text
+      when "array"
+        arr = []
+        element.each_element {|el| arr << plist_from_xml1(el) }
+        arr
+      end
+    end
+
+    def self.plist_to_xml1(element, xml_el)
+      case element.class.to_s
+      when "Hash"
+        child = xml_el.add_element "dict"
+        element.keys.sort.each do |key|
+          e1 = child.add_element "key"
+          e1.text = key
+          plist_to_xml1(element[key], child)
+        end
+      when "Array"
+        child = xml_el.add_element "array"
+        element.each do |arr_el|
+          plist_to_xml1(arr_el, child)
+        end
+      when "String"
+        el = xml_el.add_element "string"
+        el.text = element
+      else
+        raise PlistException, "Unknown Plist Type, #{element.class.to_s}"
+      end
+    end
+
+    # Converts from a Ruby plist to an XML plist.
+    def self.plist_to_xml(plist)
+      doc = REXML::Document.new
+      xml_el = doc.add_element "plist", {"version" => "1.0"}
+      plist.each do |el|
+        plist_to_xml1(el, xml_el)
+      end
+      str = ""
+      doc.write(str, 0)
+      dt=<<END
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+END
+      (dt+str).gsub("\'", "\"")
+    end
+  end
+end

data/plugins/textmate/lib/textmate/preference.rb

@@ -0,0 +1,125 @@
+
+module Redcar
+  module Textmate
+    class Preference
+      attr_reader :path
+      
+      def initialize(path)
+        @path = path
+        @plist = Plist.xml_to_plist(File.read(path))
+      end
+      
+      def name
+        @plist["name"]
+      end
+      
+      def scope
+        @plist["scope"]
+      end
+      
+      def uuid
+        @plist["uuid"]
+      end
+      
+      def settings
+        @settings ||= begin
+          @plist["settings"].map do |name, setting_plist|
+            if klass = setting_class(name)
+              klass.new(scope, setting_plist)
+            end
+          end
+        end
+      end
+      
+      private
+      
+      def setting_class(name)
+        begin
+          Textmate.const_get(name.gsub(/^(\w)/) {|l| l.upcase } + "Setting")
+        rescue
+          puts "Couldnt find Setting class for textmate setting: #{name}"
+        end
+      end
+    end
+    
+    class Setting
+      attr_reader :scope, :plist
+    
+      def initialize(scope, plist)
+        @scope = scope
+        @plist = plist
+      end
+    end
+    
+    class ShellVariablesSetting < Setting
+    end
+    
+    class SmartTypingPairsSetting < Setting
+      def pairs
+        @plist
+      end
+    end
+    
+    class CompletionCommandSetting < Setting
+    end
+    
+    class CompletionsSetting < Setting
+    end
+    
+    class IncreaseIndentPatternSetting < Setting
+      def pattern; @plist; end
+    end
+    
+    class DecreaseIndentPatternSetting < Setting
+      def pattern; @plist; end
+    end
+    
+    class UnIndentedLinePatternSetting < Setting
+      def initialize(plist, scope)
+        @plist = plist
+        @scope = @scope || ""
+      end
+      def pattern; @plist; end
+    end
+    
+    class IndentNextLinePatternSetting < Setting
+      def pattern; @plist; end
+    end
+    
+    class ShowInSymbolListSetting < Setting
+    end
+    
+    class SymbolTransformationSetting < Setting
+    end
+    
+    class HighlightPairsSetting < Setting
+    end
+    
+    class SpellCheckingSetting < Setting
+    end
+    
+    class DisableDefaultCompletionSetting < Setting
+    end
+    
+    class BackgroundSetting < Setting
+    end
+    
+    class ForegroundSetting < Setting
+    end
+    
+    class FontStyleSetting < Setting
+    end
+    
+    class CommentSetting < Setting
+    end
+    
+    class BoldSetting < Setting
+    end
+    
+    class ItalicSetting < Setting
+    end
+    
+    class UnderlineSetting < Setting
+    end
+  end
+end