autocolors 0.0.0

data/lib/autocolors/colors.rb

@@ -0,0 +1,159 @@
+require 'matrix'
+
+module Colors
+  LRGB2XYZ = Matrix[[0.4124,0.3576,0.1805],[0.2126,0.7152,0.0722],[0.0193,0.1192,0.9505]]
+  XYZ2LRGB = Matrix[[3.2406,-1.5372,-0.4986],[-0.9689,1.8758,0.0415],[0.0557,-0.2040,1.0570]]
+
+  # http://cs.haifa.ac.il/hagit/courses/ist/Lectures/Demos/ColorApplet2/t_convert.html
+  # http://en.wikipedia.org/wiki/Lab_color_space
+  class Color
+    attr_reader :rgb_approx
+
+    def initialize(lab,rgb=nil)
+      if rgb.nil?
+        @cl,@ca,@cb = lab.map{|v| v.to_f}
+        @lab_dirty = true
+        @rgb_dirty = false
+      else
+        @r,@g,@b = rgb.map{|v| v.to_f}
+        @lab_dirty = false
+        @rgb_dirty = true
+      end
+    end
+
+    # Intermediate spaces
+    def lr; rgb_propagate if @rgb_dirty; lab_propagate if @lab_dirty; @lr end
+    def lg; rgb_propagate if @rgb_dirty; lab_propagate if @lab_dirty; @lg end
+    def lb; rgb_propagate if @rgb_dirty; lab_propagate if @lab_dirty; @lb end
+    def x; rgb_propagate if @rgb_dirty; lab_propagate if @lab_dirty; @x end
+    def y; rgb_propagate if @rgb_dirty; lab_propagate if @lab_dirty; @y end
+    def z; rgb_propagate if @rgb_dirty; lab_propagate if @lab_dirty; @z end
+
+    # CIELAB colorspace
+    def lab;    rgb_propagate if @rgb_dirty; [@cl,@ca,@cb]    end
+    def cl;     rgb_propagate if @rgb_dirty; @cl              end
+    def ca;     rgb_propagate if @rgb_dirty; @ca              end
+    def cb;     rgb_propagate if @rgb_dirty; @cb              end
+    def lab=(v) @lab_dirty=true; @cl,@ca,@cb=v.map{|a|a.to_f} end
+    def cl=(v)  @lab_dirty=true; @cl=v.to_f                   end
+    def ca=(v)  @lab_dirty=true; @ca=v.to_f                   end
+    def cb=(v)  @lab_dirty=true; @cb=v.to_f                   end
+
+    # RGB colorspace
+    def rgb;    lab_propagate if @lab_dirty; [@r,@g,@b]       end
+    def r;      lab_propagate if @lab_dirty; @r               end
+    def g;      lab_propagate if @lab_dirty; @g               end
+    def b;      lab_propagate if @lab_dirty; @b               end
+    def rgb=(v) @rgb_dirty=true; @r,@g,@b=v.map{|a|a.to_f}    end
+    def r=(v)   @rgb_dirty=true; @r=v.to_f                    end
+    def g=(v)   @rgb_dirty=true; @g=v.to_f                    end
+    def b=(v)   @rgb_dirty=true; @b=v.to_f                    end
+
+    def to_s
+      '#' + rgb.map{|v|v.to_s(16).rjust(2,'0')}.join('')
+    end
+
+    def -(c)
+      if c.is_a?(Color)
+        # Euclidean distance in 3 dimensions, but emphasize brightness a bit
+        # more than the color (which is more how the human eye works)
+        ((cl*2.5 - c.cl*2.5)**2 + (ca - c.ca)**2 + (cb - c.cb)**2)**0.5
+      end
+    end
+
+    protected
+
+    def rgb_propagate
+      @lr,@lg,@lb = [@r,@g,@b].map{|c|rgbc_to_lrgbc(c)}
+      @x,@y,@z = (LRGB2XYZ*Matrix[[@lr],[@lg],[@lb]]).to_a.flatten
+      @cl = (@y > 0.008856) ? 116.0*(@y ** (1.0/3.0)) - 16.0 : 903.3 * @y
+      @ca = 500.0 * (labf(@x) - labf(@y))
+      @cb = 200.0 * (labf(@y) - labf(@z))
+      @rgb_dirty = false
+    end
+
+    def lab_propagate
+      p = (@cl + 16.0) / 116.0
+      @x = (p + @ca / 500.0) ** 3.0
+      @y = p ** 3.0
+      @z = (p - @cb / 200.0) ** 3.0
+      @lr,@lg,@lb = (XYZ2LRGB*Matrix[[@x],[@y],[@z]]).to_a.flatten
+      @rgb_approx = false
+      @r,@g,@b = [@lr,@lg,@lb].map{|c|lrgbc_to_rgbc(c)}
+      @lab_dirty = false
+    end
+
+    def labf(t)
+      t > 0.008856 ? t**(1.0/3.0) : 7.787 * t + (16.0/116.0)
+    end
+
+    # http://en.wikipedia.org/wiki/SRGB_color_space
+    def rgbc_to_lrgbc(c)
+      cf = c.to_f / 255.0
+      if cf <= 0.04045 then cf / 12.92
+      else ((cf + 0.055) / 1.055) ** 2.4 end
+    end
+
+    def lrgbc_to_rgbc(c)
+      if c <= 0.0031308 then v = (12.92 * c * 255.0).round
+      else v = ((1.055 * (c ** (1.0/2.4)) - 0.055) * 255.0).round end
+      if v < 0 then @rgb_approx = true; 0
+      elsif v > 255 then @rgb_approx = true; 255
+      else v end
+    end
+  end
+
+  # Primary 3-bit (8 colors). Unique representation!
+  CUBE256_8NORM = [[0x00,0x00,0x00],[0x80,0x00,0x00],[0x00,0x80,0x00],[0x80,0x80,0x00],
+                   [0x00,0x00,0x80],[0x80,0x00,0x80],[0x00,0x80,0x80],[0xc0,0xc0,0xc0]]
+  # Equivalent "bright" versions of original 8 colors.
+  CUBE256_BRIGHT= [[0x80,0x80,0x80],[0xff,0x00,0x00],[0x00,0xff,0x00],[0xff,0xff,0x00],
+                   [0x00,0x00,0xff],[0xff,0x00,0xff],[0x00,0xff,0xff],[0xff,0xff,0xff]]
+  # Strictly ascending.
+  CUBE256_STEPS = [0x00,0x5f,0x87,0xaf,0xd7,0xff]
+  # Gray-scale range.
+  CUBE256_GRAYS = [[0x08,0x08,0x08],[0x12,0x12,0x12],[0x1c,0x1c,0x1c],[0x26,0x26,0x26],
+                   [0x30,0x30,0x30],[0x3a,0x3a,0x3a],[0x44,0x44,0x44],[0x4e,0x4e,0x4e],
+                   [0x58,0x58,0x58],[0x62,0x62,0x62],[0x6c,0x6c,0x6c],[0x76,0x76,0x76],
+                   [0x80,0x80,0x80],[0x8a,0x8a,0x8a],[0x94,0x94,0x94],[0x9e,0x9e,0x9e],
+                   [0xa8,0xa8,0xa8],[0xb2,0xb2,0xb2],[0xbc,0xbc,0xbc],[0xc6,0xc6,0xc6],
+                   [0xd0,0xd0,0xd0],[0xda,0xda,0xda],[0xe4,0xe4,0xe4],[0xee,0xee,0xee]]
+
+  CUBE256 = CUBE256_8NORM.map {|rgb| Colors::Color.new(rgb)} +
+            CUBE256_BRIGHT.map{|rgb| Colors::Color.new(rgb)} +
+            (0..(6*6*6 - 1)).map do |i|
+              b = i % 6; i = (i - b) / 6
+              g = i % 6; i = (i - g) / 6
+              Colors::Color.new([CUBE256_STEPS[i % 6],
+                                 CUBE256_STEPS[g],
+                                 CUBE256_STEPS[b]])
+            end +
+            CUBE256_GRAYS.map{|rgb| Colors::Color.new(rgb)}
+
+  class Color
+    def to_256
+      CUBE256.each_with_index.map{|c,i| [i,c-self]}.sort_by{|i,diff| diff}.first[0]
+      #CUBE256.sort_by{|c| c - self}.first
+    end
+
+    def to_16
+      CUBE256[0..15].each_with_index.map{|c,i| [i,c-self]}.sort_by{|i,diff| diff}.first[0]
+    end
+
+    def s_term
+      'NONE'
+    end
+
+    def s_lcterm
+      'NONE'
+    end
+
+    def s_cterm
+      'NONE'
+    end
+
+    def s_high
+      'NONE'
+    end
+  end
+end

data/lib/autocolors/colorschemes.rb

@@ -0,0 +1,121 @@
+require 'rubygems'
+require 'webster'
+require 'colors'
+
+class DeepHash < Hash
+  def [](key)
+    self[key] = DeepHash.new unless has_key?(key)
+    super(key)
+  end
+
+  def nil?; return (super || keys.size == 0) end
+end
+
+class ColorScheme
+  attr_accessor :name, :contrast, :saturation
+
+  def initialize(name=nil)
+    @lights = DeepHash.new
+    @darks  = DeepHash.new
+    srand rand(0xffffffff)
+    name ||= Webster.new.random_word
+    @name = name
+    @seed = @name.hash
+    srand @seed
+    generate
+  end
+
+  def [](key)
+    if key == :dark
+      @darks
+    elsif key == :light
+      @lights
+    else
+      raise ArgumentError, 'only :dark or :light as first key'
+    end
+  end
+
+  protected
+  LOW3  = 0; LOW2  = 1; LOW1  = 2; NORML = 3; NORMH = 4; HIGH1 = 5; HIGH2 = 6; HIGH3 = 7
+
+  AUX = [:string,:keyword,:preprocessor,:variable,:function,:constant,:type,:invalid]
+  AUX_CH = {
+    :comment => [],
+    :delimiter => [],
+    :string => [:pod_text,:heredoc,:heredoc_target,:single_quote,:double_quote,:backtick,:interpolated,:regex,:other,:character,:escape],
+    
+
+  def generate
+    bc = nrand(-1,2,-4,5)
+    sat = rand * 2.0
+    @contrast = bc    # Value between -4.0 and 5.0 used to contract/spread out intensity values
+    @saturation = sat # Value between 0.0 and 2.0 used to contract/intensify color values
+
+    @intensity = [00-(bc*3), 20-(bc*2), 45-bc, 50, 60, 65+bc, 90+(bc*2), 110+(bc*3)]
+    @fcolor = [0.0, 0.1*sat, 0.2*sat, 0.4*sat, 0.8*sat, 1.6*sat, 3.2*sat, 6.4*sat]
+
+    @base_a = nrand(0.0, 40.0, -120.0, 120.0)
+    @base_b = nrand(0.0, 40.0, -120.0, 120.0)
+
+    map_color [:normal, :bg], LOW3,  LOW2
+    map_color [:comment, :bg], LOW3, LOW2
+
+    map_color [:normal, :fg], HIGH1, NORML
+    map_color [:comment, :fg], LOW2, LOW2
+
+    @aux = AUX.inject({}){|h,name| h[name] = [rand_color, rand_color]; h}
+    @aux.each do |name, colors|
+      a,b = colors
+      map_color [name, :bg], LOW3, LOW2, a, b
+      map_color [name, :fg], NORMH, NORMH, a, b
+    end
+
+    #colors[:normal][:bg] = lab(LOW3, LOW2 )
+    #colors[:normal][:fg] = lab(HIGH1,NORML)
+  end
+
+  def dark_i(idx) idx end
+  def light_i(idx) 7 - idx end
+
+  def map_color(mapping, intensity, saturation, a=@base_a, b=@base_b, styles=[])
+    loc = @lights
+    mapping[0..-2].each{|m| loc = loc[m]}
+    loc[mapping.last] = lab(light_i(intensity),saturation,a,b)
+    loc = @darks
+    mapping[0..-2].each{|m| loc = loc[m]}
+    loc[mapping.last] = lab(dark_i(intensity),saturation,a,b)
+  end
+
+  def lab(intensity, saturation, a, b)
+    Colors::Color.new([@intensity[intensity], a * @fcolor[saturation], b * @fcolor[saturation]])
+  end
+
+  def rand_color; nrand(0.0, 40.0, -120.0, 120.0) end
+
+  def nrand(mean=0, stddev=nil, floor=nil, ceil=nil)
+    theta = 2 * Math::PI * rand
+    rho = Math.sqrt(-2 * Math.log(1 - rand))
+    scale = stddev * rho
+    res = (rand >= 0.5) ? Math.cos(theta) : Math.sin(theta)
+    res = mean.to_f + scale * res
+    res = floor if (! floor.nil?) && (res < floor)
+    res = ceil  if (! ceil.nil?) && (res > ceil)
+    return res
+  end
+
+  def curve(start,count,step=1.0)
+    gr = (1.0 + Math.sqrt(5))
+    res = [start]
+    (1..count-1).each do |i|
+      start *= (gr ** step)
+      res << start / 2.0
+    end
+    return res
+  end
+end
+
+#schemes = (0..100).map{ColorScheme.new}.sort_by{|c|c.contrast}
+scheme = ColorScheme.new
+require 'erb'
+template = ERB.new(IO.read('templates/colorscheme.vim'),nil,'-')
+puts template.result(binding)

data/lib/autocolors/mapping.udon

@@ -0,0 +1,64 @@
+# Autocolor                  | FC | FGI | FGS | BC | BGI | BGS | STYLES | vim              | textmate / redcar                  | pygments        | emacs
+
+| nontext                    | 1  | ++  | ~   | 1  | --- | ~   | N      | NonText          | markup.other                       | gx *            | ?
+| ignore                     | 1  | --- | --  | 1  | --- | --  | V      | Ignore           | markup.ignore *                    | invisible *     | ?
+
+
+| text                       | 1  | ++  | ~   | 1  | --- | --  | N      | Normal           | markup                             | g *             | font-face??
+| text.whitespace            | <  | <   | <   | <' | <-  | <-  | N      | Whitespace *     | markup.whitespace *                | w               | ?
+| text.deleted               | <' | --  | <-  | <  | <   | <   | X      | TextDeleted *    | markup.deleted *                   | gd              | ?
+| text.inserted              | <' | <+  | <+  | <  | <   | <   | N      | TextInserted *   | markup.inserted *                  | gi              | ?
+| text.emphasis              | <  | <   | <   | <  | <   | <   | I      | TextEmphasis *   | markup.italic                      | ge              | ?
+| text.strong                | <  | <   | <   | <  | <   | <   | B      | TextStrong *     | markup.bold                        | gs              | ?
+| text.heading               | <' | <+  | <+  | <  | <   | <   | U'I'B' | TextHeading *    | markup.heading                     | gh              | ?
+| text.subheading            | <' | <+  | <   | <  | <   | <   | U'I'B' | TextSubheading * | markup.heading.2                   | gu              | ?
+| text.output                | <' | <   | <   | <  | <   | <   | N      | TextOutput *     | markup.output *                    | go              | ?
+
+
+| comment                    | 1' | -   | --  | 1  | --- | --  | I'     | Comment          | comment                            | c               | comment-face
+| comment.inline             | <' | <   | <   | <  | <   | <   | I'     | CommentInline *  | comment.line                       | c1              | ?
+| comment.multiline          | <' | <   | <   | <  | <   | <   | I'     | CommentBlock *   | comment.block                      | cm              | ?
+| comment.special            | <' | <+  | <+  | <  | <   | <   | I'B'   | SpecialComment   | comment.block.documentation        | cs              | ?
+
+| documentation              | 1''| ++  | ~   | 1  | --- | --  | N      | ?                | comment.block.documentation        | sd              | doc-face + doc-string-face
+| documentation.note         | <' | <   | <   | <  | <   | <   | N      | ?                | comment.block.documentation.note * | ?               | ? 
+| documentation.todo         | <' | <   | <   | <  | <   | <   | N      | Todo             | comment.block.documentation.todo * | ?               | ? 
+| documentation.version      | <' | <   | <   | <  | <   | <   | N      | ?                | comment.version *                  | v               | ? 
+
+
+| literal                    | 2  | ++  | ~   | 1  | --- | --  | N      | ?                | ?                                  | ?               | ?
+
+| lit.string                 | 2' | ++  | ~   | 1  | --- | --  | N      | String           | string                             | s               | string-face
+| lit.string.heredoc         | <' | <   | <   | <  | <   | <   | N      | ?                | string.unquoted                    | sh              | ? 
+| lit.string.quoted          | <' | <   | <   | <  | <   | <   | N      | ?                | string.quoted                      | sx              | ? 
+| lit.string.quoted.double   | <' | <   | <   | <  | <   | <   | N      | ?                | string.quoted.double               | s2              | ? 
+| lit.string.quoted.single   | <' | <   | <   | <  | <   | <   | N      | ?                | string.quoted.single               | s1              | ? 
+| lit.string.quoted.backtick | <' | <   | <   | <  | <   | <   | N      | ?                | string.quoted.backtick *           | sb              | ? 
+| lit.string.interpolated    | <' | <   | <   | <  | <-  | <+  | N      | ?                | string.interpolated                | si              | ? 
+| lit.string.regexp          | <' | <   | <   | <  | <   | <   | N      | ?                | string.regexp                      | sr              | ? 
+| lit.string.char            | <' | <   | <   | <  | <   | <   | N      | Character        | constant.character                 | sc              | ? 
+| lit.string.char.esc        | 2' | <+  | <   | <  | <   | <   | U'     | SpecialChar      | constant.character.escape          | se              | ?
+| lit.string.char.esc.unicode| <' | <   | <   | <  | <   | <   | U'     | ?                | constant.character.escape.unicode *| ?               | ?
+| lit.string.char.esc.hex    | <' | <   | <   | <  | <   | <   | U'     | ?                | constant.character.escape.hex *    | ?               | ?
+| lit.string.char.esc.oct    | <' | <   | <   | <  | <   | <   | U'     | ?                | constant.character.escape.oct *    | ?               | ?
+
+| lit.number                 | 3  | ++  | ~   | 1  | --- | --  | N      | Number           | constant.numeric                   | m               | ?
+| lit.number.int             | <' | <   | <   | <  | <   | <   | N      | ?                | constant.numeric.integer *         | mi              | ?
+| lit.number.int.hex         | <' | <   | <   | <  | <   | <   | N      | ?                | constant.numeric.integer
+| lit.number.int.oct         | <' | <   | <   | <  | <   | <   | N      | ?                |
+| lit.number.int.binary
+| lit.number.int.long        | <' | <   | <   | <  | <   | <   | N      | ?                | constant.numeric.integer.long *    | il              | ?
+| lit.number.float           | <' | <   | <   | <  | <   | <   | N      | Float            | constant.numeric.float *           | mf              | ?
+
+| preproc.shebang            | 
+
+
+| debug.errormsg             |                  |                                    | gr
+| debug.traceback            |                  |                                    | gt
+
+
+| delimiter                  |
+| delimiter.comment          | ?                | ?                                  | ?               | comment-delimiter-face
+| delimiter.heredoc
+| delimiter.string
+| delimiter.string.escape

data/lib/autocolors/templates/colorscheme.vim

@@ -0,0 +1,64 @@
+<%
+    map = {
+        [:text]              => 'Normal',
+        [:text, :misc]       => 'NonText',
+        [:text, :whitespace] => 'Whitespace', # ***
+        [:text, :deleted]    => 'TextDeleted',
+        [:text, :emph]       => 'TextEmph',
+        [:text, :error]      => 'TextError',
+        # ...
+        [:comment]           => 'Comment',
+    }
+
+    map = {
+        'Normal'       => [:text, :normal],
+        'Comment'      => [:comment],
+        'String'       => [:literal,:string],
+        'Statement'    => [:keyword],
+        'PreProc'      => [:preprocessor],
+        'Identifier'   => [:variable],
+        'Function'     => [:function],
+        'Constant'     => [:constant],
+        'Type'         => [:type],
+        'Error'        => [:invalid],
+
+        'Character'    => [:literal,:string,:character],
+        'SpecialChar'  => [:literal,:string,:escape],
+    }
+%>
+if version > 580
+  hi clear
+  if exists("syntax_on")
+    syntax reset
+  endif
+endif
+
+let g:colors_name = expand('<sfile>:t:r')
+
+if has("gui_running") || &t_Co > 16
+  if &background == "light"
+   <%- c = scheme[:light] -%>
+   <%- map.each do |vim_name, keys| cc = c; keys.each{|k| cc=cc[k]} -%>
+    hi <%= vim_name %> cterm=<%=cc[:fg].s_cterm %> gui=<%=cc[:fg].s_high %>
+    hi <%= vim_name %> ctermbg=<%=cc[:bg].to_256 %> ctermfg=<%= cc[:fg].to_256 %> guifg=<%=cc[:fg] %> guibg=<%=cc[:bg]%>
+   <%- end -%>
+  else
+   <%- c = scheme[:dark] -%>
+   <%- map.each do |vim_name, keys| cc = c; keys.each{|k| cc=cc[k]} -%>
+    hi <%= vim_name %> cterm=<%=cc[:fg].s_cterm %> gui=<%=cc[:fg].s_high %>
+    hi <%= vim_name %> ctermbg=<%=cc[:bg].to_256 %> ctermfg=<%= cc[:fg].to_256 %> guifg=<%=cc[:fg] %> guibg=<%=cc[:bg]%>
+   <%- end -%>
+  endif
+else
+  if &background == "light"
+   <%- c = scheme[:light] -%>
+   <%- map.each do |vim_name, keys| cc = c; keys.each{|k| cc=cc[k]} -%>
+    hi <%=vim_name%> term=<%=cc[:fg].s_term%> cterm=<%=cc[:fg].s_lcterm%> ctermbg=<%=cc[:bg].to_16%> ctermfg=<%=cc[:fg].to_16%>
+   <%- end -%>
+  else
+   <%- c = scheme[:dark] -%>
+   <%- map.each do |vim_name, keys| cc = c; keys.each{|k| cc=cc[k]} -%>
+    hi <%=vim_name%> term=<%=cc[:fg].s_term%> cterm=<%=cc[:fg].s_lcterm%> ctermbg=<%=cc[:bg].to_16%> ctermfg=<%=cc[:fg].to_16%>
+   <%- end -%>
+  endif
+endif

data/lib/autocolors.rb

@@ -0,0 +1,6 @@
+module AutoColors
+  VERSION = File.exist?(File.join(File.dirname(__FILE__),'VERSION')) ? File.read(File.join(File.dirname(__FILE__),'VERSION')) : ""
+  class << self
+    def version() VERSION end
+  end
+end