sublime_dsl 0.1.1

data/lib/sublime_dsl/textmate/theme.rb

@@ -0,0 +1,364 @@
+# encoding: utf-8
+
+require_relative 'theme/item'
+require_relative 'theme/dsl_reader'
+require_relative 'theme/plist_writer'
+
+module SublimeDSL
+module TextMate
+
+  class Theme
+
+    # Create from a PList file.
+    def self.import(file)
+      p = PList.import(file)
+      t = new(p.delete('name'))
+      t.basename = File.basename(file, File.extname(file))
+      t.author = p.delete('author')
+      t.uuid = p.delete('uuid')
+      t.comment = p.delete('comment')
+      t.license = p.delete('license')
+      p.delete('settings').each do |h|
+        n = h['name']
+        s = h['scope'] && h['scope'].strip
+        if n || s
+          e = Item.new(n, s)
+          h['settings'].each_pair do |prop, value|
+            next if value.empty?
+            e.send "#{prop.snake_case}=", value
+          end
+          t.add_item e
+        else
+          h['settings'].each_pair do |prop, color|
+            key = prop.snake_case #.to_sym
+            color.upcase! if color =~ /^#/
+            t.base_colors[key] = color
+          end
+        end
+      end
+      p.empty? or raise Error, "unknown theme keys: #{p.inspect}"
+      t
+    end
+
+    # Returns the content of this file after __END__
+    # (DATA is not available for required files).
+
+    def self.color_data # :nodoc:
+      data = ''
+      File.open(__FILE__) do |f|
+        in_data = false
+        f.each_line do |line|
+          if line =~ /^__END__/
+            in_data = true
+          elsif in_data
+            data << line
+          end
+        end
+      end
+      data
+    end
+
+    # Hash { '#xxxxxx' => color_name }, read from the
+    # DATA section of this file.
+
+    COLOR_NAMES_HASH = {}
+
+    color_data.each_line do |line|
+      line.strip!
+      next if line.empty? || line.start_with?('=')
+      name, value = line.split(/\s+/)
+      COLOR_NAMES_HASH["##{value}"] = name.snake_case
+    end
+
+    include CustomBaseName
+
+    attr_accessor :name, :author, :uuid, :comment, :license
+
+    # base color hash:
+    #   background
+    #   caret
+    #   foreground
+    #   invisibles
+    #   line_highlight
+    #   selection
+    #   selection_border
+    #   inactive_selection
+    #
+    # Monokai* also have:
+    #   inactive_selection
+    #   inactive_selection_foreground
+    #   find_highlight
+    #   find_highlight_foreground
+    #   active_guide
+    #   brackets_foreground
+    #   brackets_options
+    #   bracket_contents_foreground
+    #   bracket_contents_options
+
+    attr_reader :base_colors
+
+    # array of defined items
+    attr_reader :items
+
+    def initialize(name)
+      @name = name
+      @author = nil
+      @uuid = nil
+      @comment = nil
+      @license = nil
+      @base_colors = {}
+      @items = []
+    end
+
+    def add_item(e)
+      warn "unnamed item in theme #{name.inspect}" unless e.name
+      warn "empty scope for item '#{e.name}' in theme #{name.inspect}" unless e.scope
+      e.name && items.any? { |el| el.name == e.name } and
+        warn "duplicate item name '#{e.name}' in theme #{name.inspect}"
+      items << e
+    end
+
+    def to_dsl
+      out = StringIO.new('', 'wb:utf-8')
+
+      args = name.to_source
+      args << dsl_file_arg
+
+      out.puts comment.strip.lines.map { |l| "# #{l}" }.join << "\n\n" if comment
+      out.puts "theme #{args} do"
+      out.puts
+      out.puts "  author '#{author}'" if author
+      out.puts "  uuid '#{uuid}'" if uuid
+      if license
+        out.puts
+        out.puts "  license <<-TXT"
+        license.lines.each { |l| out.puts l.strip.empty? ? '' : l.strip.wrap.indent(4) }
+        out.puts "  TXT"
+      end
+
+      out.puts
+      max = colors_hash.values.map(&:length).max
+      colors_hash.each_pair do |color, name|
+        out.puts "  %*1$2$s = '%3$s'" % [-max, name, color]
+      end
+
+      out.puts
+      out.puts "  base_colors("
+      base_colors.each_pair do |k,v|
+        out.puts "    #{k}: #{colors_hash[v]},"
+      end
+      out.puts "  )"
+
+      out.puts
+      names_hash = items.group_by(&:name)
+      items.each do |e|
+        out.puts '  # FIXME: duplicate name:' if e.name && names_hash[e.name].length > 1
+        out.puts e.to_dsl(colors_hash).indent(2)
+      end
+
+      out.puts "\nend"
+
+      out.string
+    end
+
+    def write(dir)
+      file = "#{dir}/#{basename}.tmTheme.rb"
+      File.open(file, 'wb:utf-8') do |f|
+        f.puts '# encoding: utf-8'
+        f.puts "\n" << to_dsl
+      end
+    end
+
+    def export(dir)
+      file = "#{dir}/#{basename}.tmTheme"
+      PListWriter.new(self).export(file)
+    end
+
+    # A Hash { <color value> => <color name> }.
+    def colors_hash
+      @colors_hash ||= begin
+        colors = base_colors.values + items.flat_map(&:colors)
+        colors.uniq!
+        h = {}
+        colors.each_with_index { |c, i| h[c] = COLOR_NAMES_HASH[c] || "color#{i}" }
+        h
+      end
+    end
+
+  end
+
+end
+end
+
+__END__
+
+= Red
+
+IndianRed             CD5C5C
+LightCoral            F08080
+Salmon                FA8072
+DarkSalmon            E9967A
+LightSalmon           FFA07A
+Crimson               DC143C
+Red                   FF0000
+FireBrick             B22222
+DarkRed               8B0000
+
+= Pink
+
+Pink                  FFC0CB
+LightPink             FFB6C1
+HotPink               FF69B4
+DeepPink              FF1493
+MediumVioletRed       C71585
+PaleVioletRed         DB7093
+
+= Orange
+
+LightSalmon           FFA07A
+Coral                 FF7F50
+Tomato                FF6347
+OrangeRed             FF4500
+DarkOrange            FF8C00
+Orange                FFA500
+
+= Yellow
+
+Gold                  FFD700
+Yellow                FFFF00
+LightYellow           FFFFE0
+LemonChiffon          FFFACD
+LightGoldenrodYellow  FAFAD2
+PapayaWhip            FFEFD5
+Moccasin              FFE4B5
+PeachPuff             FFDAB9
+PaleGoldenrod         EEE8AA
+Khaki                 F0E68C
+DarkKhaki             BDB76B
+
+= Purple
+
+Lavender              E6E6FA
+Thistle               D8BFD8
+Plum                  DDA0DD
+Violet                EE82EE
+Orchid                DA70D6
+Fuchsia               FF00FF
+Magenta               FF00FF
+MediumOrchid          BA55D3
+MediumPurple          9370DB
+BlueViolet            8A2BE2
+DarkViolet            9400D3
+DarkOrchid            9932CC
+DarkMagenta           8B008B
+Purple                800080
+Indigo                4B0082
+SlateBlue             6A5ACD
+DarkSlateBlue         483D8B
+
+= Green
+
+GreenYellow           ADFF2F
+Chartreuse            7FFF00
+LawnGreen             7CFC00
+Lime                  00FF00
+LimeGreen             32CD32
+PaleGreen             98FB98
+LightGreen            90EE90
+MediumSpringGreen     00FA9A
+SpringGreen           00FF7F
+MediumSeaGreen        3CB371
+SeaGreen              2E8B57
+ForestGreen           228B22
+Green                 008000
+DarkGreen             006400
+YellowGreen           9ACD32
+OliveDrab             6B8E23
+Olive                 808000
+DarkOliveGreen        556B2F
+MediumAquamarine      66CDAA
+DarkSeaGreen          8FBC8F
+LightSeaGreen         20B2AA
+DarkCyan              008B8B
+Teal                  008080
+
+= Blue
+
+Aqua                  00FFFF
+Cyan                  00FFFF
+LightCyan             E0FFFF
+PaleTurquoise         AFEEEE
+Aquamarine            7FFFD4
+Turquoise             40E0D0
+MediumTurquoise       48D1CC
+DarkTurquoise         00CED1
+CadetBlue             5F9EA0
+SteelBlue             4682B4
+LightSteelBlue        B0C4DE
+PowderBlue            B0E0E6
+LightBlue             ADD8E6
+SkyBlue               87CEEB
+LightSkyBlue          87CEFA
+DeepSkyBlue           00BFFF
+DodgerBlue            1E90FF
+CornflowerBlue        6495ED
+MediumSlateBlue       7B68EE
+RoyalBlue             4169E1
+Blue                  0000FF
+MediumBlue            0000CD
+DarkBlue              00008B
+Navy                  000080
+MidnightBlue          191970
+
+= Brown
+
+Cornsilk              FFF8DC
+BlanchedAlmond        FFEBCD
+Bisque                FFE4C4
+NavajoWhite           FFDEAD
+Wheat                 F5DEB3
+BurlyWood             DEB887
+Tan                   D2B48C
+RosyBrown             BC8F8F
+SandyBrown            F4A460
+Goldenrod             DAA520
+DarkGoldenrod         B8860B
+Peru                  CD853F
+Chocolate             D2691E
+SaddleBrown           8B4513
+Sienna                A0522D
+Brown                 A52A2A
+Maroon                800000
+
+= White
+
+White                 FFFFFF
+Snow                  FFFAFA
+Honeydew              F0FFF0
+MintCream             F5FFFA
+Azure                 F0FFFF
+AliceBlue             F0F8FF
+GhostWhite            F8F8FF
+WhiteSmoke            F5F5F5
+Seashell              FFF5EE
+Beige                 F5F5DC
+OldLace               FDF5E6
+FloralWhite           FFFAF0
+Ivory                 FFFFF0
+AntiqueWhite          FAEBD7
+Linen                 FAF0E6
+LavenderBlush         FFF0F5
+MistyRose             FFE4E1
+
+= Grey
+
+Gainsboro             DCDCDC
+LightGrey             D3D3D3
+Silver                C0C0C0
+DarkGray              A9A9A9
+Gray                  808080
+DimGray               696969
+LightSlateGray        778899
+SlateGray             708090
+DarkSlateGray         2F4F4F
+Black                 000000

data/lib/sublime_dsl/textmate.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+require_relative 'textmate/plist'
+require_relative 'textmate/custom_base_name'
+
+require_relative 'textmate/grammar'
+require_relative 'textmate/snippet'
+require_relative 'textmate/preference'
+require_relative 'textmate/theme'

data/lib/sublime_dsl/tools/blank_slate.rb

@@ -0,0 +1,49 @@
+
+module SublimeDSL
+module Tools
+
+  ##
+  # A class with a minimal set of methods, used for DSL readers
+  # that heavily rely on #method_missing.
+
+  class BlankSlate < Object
+
+    # Methods kept:
+    # - public/protected from BasicObject, except operators
+    # - private from BasicObject
+    # - a few Object/Kernel methods
+
+    KEPT_METHODS = %w(
+      __id__
+      __send__
+      equal?
+      instance_eval
+      instance_exec
+
+      initialize
+      method_missing
+      singleton_method_added
+      singleton_method_removed
+      singleton_method_undefined
+
+      __callee__
+      __method__
+      caller
+      define_singleton_method
+      method
+      object_id
+      p
+      puts
+      raise
+      singleton_methods
+      warn
+    ).map(&:to_sym)
+
+    (instance_methods + private_instance_methods - KEPT_METHODS).each do |m|
+      undef_method m
+    end
+
+  end
+
+end
+end

data/lib/sublime_dsl/tools/console.rb

@@ -0,0 +1,74 @@
+
+module SublimeDSL
+module Tools
+
+  ##
+  # Tools for console interaction.
+
+  class Console
+
+    attr_reader :verbosity
+    attr_accessor :set_ruby_verbosity
+    attr_reader :in_progress
+
+    def initialize
+      @verbosity = 1
+      @set_ruby_verbosity = true
+      @in_progress = false
+    end
+
+    def error(text)
+      end_progress
+      $stderr.puts text
+    end
+
+    def verbosity=(value)
+      if set_ruby_verbosity
+        case value
+        when 0 then $VERBOSE = nil
+        when 1 then $VERBOSE = false
+        when 2 then $VERBOSE = true
+        end
+      end
+      @verbosity = value
+    end
+
+    def info(text, force = false)
+      return unless $stdout.tty? && (verbosity > 0 || force)
+      end_progress
+      puts text
+    end
+
+    def width
+      (ENV['COLUMNS'] || 80).to_i
+    end
+
+    def progress(index, count, file, force = false)
+      return unless $stdout.tty? && (verbosity == 2 || force)
+      @in_progress = true
+      c = count.to_s
+      prefix = "file %#{c.length}d/#{c}: " % index
+      line = "#{prefix}#{file}"
+      padding = width - line.length - 1
+      if padding < 0
+        file = file[(-padding) .. -1]
+        file[0..2] = "..."
+        line = "#{prefix}#{file}"
+      else
+        line << ' ' * padding
+      end
+      print "#{line}\r"
+      $stdout.flush
+    end
+
+  private
+
+    def end_progress
+      puts() if in_progress
+      @in_progress = false
+    end
+
+  end
+
+end
+end

data/lib/sublime_dsl/tools/helpers.rb

@@ -0,0 +1,152 @@
+
+module SublimeDSL
+module Tools
+
+  ##
+  # Helper methods to include in DSL blocks as needed.
+
+  module Helpers
+
+    # Return an optimized regexp string matching a word in +words+. Example:
+    #   include SublimeDSL::Tools::Helpers
+    #   list = %w(abs addr addrlong airy allcomb allperm anyalnum anyalpha anycntrl)
+    #   optimized_re(list)
+    #     => 'a(bs|ddr(long)?|iry|ll(comb|perm)|ny(al(num|pha)|cntrl))'
+
+    def optimized_re(words)
+      root = Node.new('')
+      root.add_children words
+      root.reduce!
+      root.to_re
+    end
+
+    module_function :optimized_re
+
+  end
+
+  ##
+  # A node in the optimization of a Regexp matching a list of keywords.
+
+  class Node
+
+    # The start string.
+    attr_reader :start
+
+    # The child nodes.
+    attr_reader :children
+
+    # Creates a new node for the +start+ string, with an empty list of children.
+    def initialize(start)
+      @start = start
+      @children = []
+    end
+
+    # The node representing the end of a string: an empty string with no child.
+    NULL = self.new('')
+
+    # Adds +words+ to the children of the current node:
+    # the children of the current node are the unique initial letters of words,
+    # and the following letters are recurisvely added as grandchildren:
+    #   x = Node.new('')
+    #   x.add_children %w(a abc abd abde)
+    #   => tree:
+    #      ""
+    #        "a"
+    #          ""
+    #          "b"
+    #            "c"
+    #              ""
+    #            "d"
+    #              ""
+    #              "e"
+    #                ""
+
+    def add_children(words)
+      words.group_by { |w| w[0] }.each_pair do |letter, list|
+        if letter.nil?
+          self.children << Node::NULL
+        else
+          n = Node.new(letter.dup)
+          self.children << n
+          n.add_children list.map { |w| w[1..-1] }
+        end
+      end
+    end
+
+    # Reduce the current node:
+    # - first reduce all children
+    # - then if there is only one +child+ left:
+    #   - append the child#start value to self#start
+    #   - replace the children of +self+ by the children of +child+
+    # Example:
+    #   x = Node.new('')
+    #   x.add_children %w(abs addr addrlong airy allcomb allperm anyalnum anyalpha anycntrl)
+    #   x.reduce!
+    #   => tree:
+    #      "a"
+    #        "bs"
+    #        "ddr"
+    #          ""
+    #          "long"
+    #        "iry"
+    #        "ll"
+    #          "comb"
+    #          "perm"
+    #        "ny"
+    #          "al"
+    #            "num"
+    #            "pha"
+    #          "cntrl"
+
+    def reduce!
+      children.each(&:reduce!)
+      if children.length == 1
+        child = children.first
+        @start << child.start
+        @children = child.children
+      end
+    end
+
+    # Converts the current node to a regular expression string:
+    #   x = Node.new('')
+    #   x.add_children %w(abs addr addrlong airy allcomb allperm anyalnum anyalpha anycntrl)
+    #   x.reduce!
+    #   x.to_re
+    #   => 'a(bs|ddr(long)?|iry|ll(comb|perm)|ny(al(num|pha)|cntrl))'
+
+    def to_re
+      t, list = children.partition { |c| c == NULL }
+      t = t.first
+      start + (
+        case list.length
+        when 0
+          ''
+        when 1
+          r = list.first.to_re
+          r.length == 1 ? r : '(' + r + ')'
+        else
+          r = list.map(&:to_re)
+          if r.all? { |s| s.length == 1 }
+            '[' + r.join + ']'
+          else
+            '(' + r.join('|') + ')'
+          end
+        end
+      ) + (
+        ( t ? '?' : '' )
+      )
+    end
+
+    # The display tree for the current node.
+
+    def display_tree(indent = '')
+      return indent + start.inspect if children.empty?
+      [ indent + start.inspect,
+        children.map { |c| c.display_tree(indent+'  ') },
+      ].join("\n")
+    end
+
+  end
+
+end
+end