rmthemegen 0.0.32 → 0.0.33

data/bin/geany_fix.rb

@@ -0,0 +1,274 @@
+#!/usr/bin/env ruby
+#require 'rubygems'
+#require 'xmlsimple'
+#require 'color'
+
+#doing it with local files since these are stable gems and I want geany_fix.rb to function without gem dependencies. 
+
+#***********************************************************************
+#  geany_fix.rb - a utility to create a new, random color theme for the
+#  geany editor. http://www.geany.org/
+#    
+#  Released under an MIT-style license, see license.txt for details
+#
+#  copyright (c) David Heitzman 2011
+#
+#***********************************************************************
+
+# geany_fix.rb uses a local copy of gems color and xml-simple, in order 
+# ease use as a stand-alone utility. 
+
+require File.dirname(__FILE__)+"/token_list"
+require File.dirname(__FILE__)+'/color/color'
+require File.dirname(__FILE__)+'/xmlsimple.rb'
+
+module RMThemeGen
+  class GeanyFixer < RMThemeParent
+
+    attr_reader :xmlout #a huge structure of xml that can be given to XmlSimple.xml_out() to create that actual color theme file
+
+    def initialize
+#    @rand = Random.new
+    @iterations = 0
+    @iterations = ARGV[0].to_s.to_i
+
+    puts "geany_fix - puts a new (random) color theme into your geany directory"
+    puts "  copyright (c) David Heitzman 2011 "
+    puts "  Note: if you want to put back your old Geany colors, go to ~/.config/geany/filedefs/ and"
+    puts "  copy the corresponding _old_xxx file back onto filetypes.xyz, eg. filetypes.html, etc. "
+    puts "  Restart geany to see new colors  "
+  
+    begin
+    @dir = (File.expand_path "~/.config/geany/filedefs/")
+    @filelist = Dir.glob(@dir+"/filetypes.*")
+#  puts @dir+"filetypes.*"
+#    puts @filelist.inspect
+    t =Time.now
+    @extstring = t.year.to_s+t.month.to_s+t.day.to_s+t.sec.to_s
+#    rescue
+ #     raise "Sorry. There was trouble accessing the files in " + @dir
+    end
+
+
+      @italic_candidates = ["STRING", "SYMBOL", "REQUIRE"]
+
+      @bold_candidates = ["KEYWORD","RUBY_SPECIFIC_CALL", "CONSTANT", "COMMA", "PAREN","RUBY_ATTR_ACCESSOR_CALL", "RUBY_ATTR_READER_CALL" ,"RUBY_ATTR_WRITER_CALL", "IDENTIFIER"]
+# with code inspections we don't color the text, we just put a line or something under it .
+      @code_inspections = ["ERROR","WARNING_ATTRIBUTES","DEPRECATED", "TYPO","WARNING_ATTRIBUTES", "BAD_CHARACTER",
+      "CUSTOM_INVALID_STRING_ESCAPE_ATTRIBUTES","ERRORS_ATTRIBUTES", "MATCHED_BRACE_ATTRIBUTES"]
+      @cross_out = ["DEPRECATED_ATTRIBUTES" ]
+
+      @unders = %w(-1 0 1 2 5  )
+      @underline_candidates = ["STRING"]
+      @italic_chance = 0.2
+      @bold_chance = 0.4
+      @underline_chance = 0.3
+      @bright_median = 0.85
+        @min_bright = @bright_median * 0.65
+        @max_bright =  [@bright_median * 1.35,1.0].max
+
+        @min_bright = 0.0
+        @max_bright =  1.0
+
+      #	if we avoid any notion of "brightness", which is an absolute quality, then we
+      # can make our background any color we want !
+
+      #tighter contrast spec
+      @cont_median = 0.85
+        @min_cont = @cont_median * 0.65
+        @max_cont =  [@cont_median * 1.35,1.0].max
+
+      #broad contrast spec
+      @min_cont = 0.32
+      @max_cont = 1.0
+
+      @schemeversion = 1
+      @background_max_brightness = 0.16
+      @background_grey = true #if false, allows background to be any color, as long as it meets brightness parameter
+    #  @foreground_min_brightness = 0.4
+
+
+      @backgroundcolor= randcolor( :shade_of_grey=>@background_grey, :max_bright=>@background_max_brightness)# "0"
+
+    end #initialize
+
+    def randthemename
+      out = " "
+      while out.include? " "   do
+       out = @@adjectives[rand * @@adjectives.size]+"_"+@@nouns[rand * @@nouns.size]
+        
+      end
+      return out
+    end
+
+    def randfilename(existing = "")
+     if existing != "" then
+      out=existing
+     else
+      ar=["a","b","f","h","z","1","5"]
+      ar.shuffle!
+      out =""
+      ar.each { |n|
+        out << n
+      }
+     end
+     return "rmt_"+out+".xml"
+    end
+
+
+    def randcolor(opts={})
+
+      df= { :r=>nil, :g=>nil, :b=>nil, #these are the usual 0..255
+            :bg_rgb => nil,
+            :min_cont  => @min_cont, #if a backrgb (background color)  is supplied this will be used to create a minimum contrast with it.
+            :max_cont => @max_cont,
+            :max_bright => @max_bright,
+            :min_bright => @min_bright,
+          #  :bright_median => 0.5,
+            :shade_of_grey => false} #forces r == g == b
+      df = df.merge opts
+      df[:bg_rgb] = Color::RGB.from_html(df[:bg_rgb]) if df[:bg_rgb]
+      color = brightok = contok = nil;
+      while (!color || !brightok || !contok ) do
+        r = (df[:r] || rand*256)%256 #mod for robustness
+        g = (df[:g] || rand*256)%256
+        b = (df[:b] || rand*256)%256
+        g = b = r if df[:shade_of_grey] == true
+        color = Color::RGB.new(r,g,b)
+  #puts "bg" + @backgroundcolor if df[:bg_rgb]
+  #puts "color "+color.html
+  #puts "contrast "+color.contrast(df[:bg_rgb]).to_s if df[:bg_rgb]
+        contok = df[:bg_rgb] ? (df[:min_cont]..df[:max_cont]).include?( color.contrast(df[:bg_rgb]) ) : true
+  #puts "contok "+contok.to_s
+        brightok = (df[:min_bright]..df[:max_bright]).include?( color.to_hsl.brightness )
+  #puts "brightok "+brightok.to_s
+      end
+
+      cn = color.html
+      cn= cn.slice(1,cn.size)
+      return cn
+    end
+
+    def go_fix_geany
+      #goes into the geany directory and kicks some ass. it replaces every single color definition with
+      #something random, of course with a consistent background. 
+
+      @filelist.each do |f|
+        begin
+#          puts f+" -->"+@dir+"_old_"+@extstring+File.basename(f)
+#          IO.copy_stream(f,@dir+"_old_"+@extstring+File.basename(f))
+        copystring="cp #{f} #{@dir+"/_old_"+@extstring+File.basename(f)}"
+#        puts(copystring) 
+        `#{copystring}`
+        rescue
+          backup_problem = true
+          raise "sorry there was a problem backing up the following file: "+f
+        end
+      end
+
+      ##########################################
+      # copy in our new files from token_list.rb
+      ##########################################
+      @@geany_file_contents.each_key do |key|
+      filename=@dir+'/filetypes.'+key.to_s
+#      puts filename
+      @fout1 = File.open(filename,"w+")
+        @@geany_file_contents[key].each do |c|
+          @fout1.puts c
+        end
+      @fout1.close
+      end 
+
+      @filelist = Dir.glob(@dir+"/filetypes.*")
+      @filelist.each do |f|
+  #      puts f.inspect
+        @fin = File.open(f,"r+")
+        @fout = File.open(@dir+"/tmp_out_"+rand.to_s,"w+")
+  #      puts @fin.inspect
+
+        while !@fin.eof? do
+          curpos = @fin.pos
+          line  = @fin.readline
+          if line[0] != "#" && line.include?("=") && line.include?("0x") then
+           # go in and root out the color and give it a new one.
+#            puts "here is the line I'm working on -- "
+#            puts line
+            r1 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont, :max_cont=>@max_cont).upcase
+            r2 = @backgroundcolor.upcase
+            token = line.split("=")[0]
+            p3 = line.split(";")[2] || "false"
+            p4 = line.split(";")[3] || "false"
+            case File.basename(f)
+              when  "filetypes.common"
+                if    token == "marker_search" then
+                  r9 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>0.35, :max_cont=>@max_cont).upcase
+                  newl = token +"="+"0x"+r1+";0x"+r9+";true;true"
+                elsif token == "caret"  then
+                  r9 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>0.35, :max_cont=>@max_cont).upcase
+                  newl = token +"="+"0xFFFFFF;0x"+r9+";"+p3+";"+p4
+                elsif token == "current_line" then
+                  r9 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont*0.15, :max_cont=>@min_cont*0.3).upcase
+                  newl = token +"="+"0x"+r1+";0x"+r9+";"+"true"+";"+"false"
+                elsif token == "selection" then
+                  r9 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont*0.25, :max_cont=>@min_cont*0.5).upcase
+                  newl = token +"="+"0x"+r1+";0x"+r9+";"+"false"+";"+"true"
+                elsif token == "brace_good" then
+                  rb = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>0.25, :max_cont=>@max_cont).upcase
+                  rf = randcolor(:bg_rgb=>rb, :min_cont=>0.30, :max_cont=>1.0).upcase
+                  newl = token +"="+"0x"+rf+";0x"+rb+";"+"true"+";"+"false"
+                elsif token == "brace_bad" then
+                  rb = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont, :max_cont=>1.0).upcase
+                  rf = randcolor(:bg_rgb=>rb, :min_cont=>0.30, :max_cont=>1.0).upcase
+                  newl = token +"="+"0x"+rf+";0x"+rb+";"+"true"+";"+"false"
+                elsif token.include?("type") then 
+                  newl ="type=0xffffff;;true;false"
+                elsif token.include?("indent_guide") then
+                  newl= "indent_guide=0xc0c0c0;;false;false"
+                else
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4
+                end
+
+              when "filetypes.xml"
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4
+
+              when "filetypes.ruby"
+                if token=="default" then
+                  r3 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont, :max_cont=>@max_cont).upcase
+                  #for whatever reason this needs to go in there in a ruby file : pod=0x388afb;0x131313;false;false
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4+"\npod=0x#{r3};0x#{@backgroundcolor};false;false"
+                elsif token.include?("comment") then
+                  r1 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont*0.87, :max_cont=>@min_cont*0.95).upcase
+                  r2 = @backgroundcolor.upcase
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4
+                else
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4
+                end
+              else  ############ DEFAULT  ############ 
+                if token.include?("comment") then
+                  r1 = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>@min_cont*0.77, :max_cont=>@min_cont*0.95).upcase
+                  r2 = @backgroundcolor.upcase
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4
+                else
+                  newl = token +"="+"0x"+r1+";0x"+r2+";"+p3+";"+p4
+                end
+            end
+            @fout.puts(newl)
+          else
+            @fout.puts(line)
+          end
+        end
+        if @fout then
+#        puts "wanting to delete "+@fin.path.to_s
+#        puts "wanting to copy this file onto it:"+@fout.path.to_s
+          File.delete(@fin.path.to_s)
+          File.rename(@fout.path.to_s, @fin.path.to_s )
+        else puts "there was a problem writing to the new file #{@fout.path.to_s} so I left the old one in place"
+        end
+        @fout.close
+      end
+    end
+  end #class
+end #module
+
+l = RMThemeGen::GeanyFixer.new
+l.go_fix_geany

data/bin/geanyfy.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby 
+
+#this is to open all of the editable text files in the current and all subdirectories into geany
+if !File.exist?("/usr/bin/geany") 
+   exit "Doesn't look like you have geany installed, sorry."
+end
+
+class Geanyfy
+   attr_accessor :filelist, :openables, :subs
+
+   def initialize
+      @openables = ["php","rb","sql","py","h","c","java"]
+      @filelist = []
+      @subs = []
+   end
+
+   def get_file_list(curdir)
+      match_openables(curdir)
+      allfiles = Dir.entries(curdir)
+      allfiles.each do |f|
+         get_file_list(f) if File.directory?(f) && ![".",".."].include?( f) 
+      end
+   end
+
+   def match_openables(dir_string)
+      #returns an array of filenames that are of the type specified by @openables
+      @openables.each do |o|
+         dir_string += File::SEPARATOR if dir_string[-1,1] != File::SEPARATOR
+         @filelist.concat Dir[dir_string+"*."+o]
+      end 
+   end
+
+   def open_all_files
+      @open_string = "geany "
+      @filelist.each do |f|
+         @open_string += " " + f
+      end
+      `#{@open_string} &`
+   end
+end 
+
+g=Geanyfy.new
+g.get_file_list(File.dirname(__FILE__))
+
+g.open_all_files

data/bin/generate_themes.rb

@@ -12,7 +12,7 @@
 #originally it was written and tested for ruby 1.9.2
 
 
-require File.dirname(__FILE__)+'./lib/rmthemegen/rmthemegen_187'
+require File.expand_path('../../lib/rmthemegen/rmthemegen_187',__FILE__)
 
 puts    
 puts "  rmthemegen - creates theme files for use with rubymine (3.0.0 and up) "

data/lib/geanyfy.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby 
+
+#this is to open all of the editable text files in the current and all subdirectories into geany
+if !File.exist?("/usr/bin/geany") 
+   exit "Doesn't look like you have geany installed, sorry."
+end
+
+class Geanyfy
+   attr_accessor :filelist, :openables, :subs
+
+   def initialize
+      @openables = ["php","rb","sql","py","h","c","java"]
+      @filelist = []
+      @subs = []
+   end
+
+   def get_file_list(curdir)
+      match_openables(curdir)
+      allfiles = Dir.entries(curdir)
+      allfiles.each do |f|
+         get_file_list(f) if File.directory?(f) && ![".",".."].include?( f) 
+      end
+   end
+
+   def match_openables(dir_string)
+      #returns an array of filenames that are of the type specified by @openables
+      @openables.each do |o|
+         dir_string += File::SEPARATOR if dir_string[-1,1] != File::SEPARATOR
+         @filelist.concat Dir[dir_string+"*."+o]
+      end 
+   end
+
+   def open_all_files
+      @open_string = "geany "
+      @filelist.each do |f|
+         @open_string += " " + f
+      end
+      `#{@open_string} &`
+   end
+end 
+
+g=Geanyfy.new
+g.get_file_list(File.dirname(__FILE__))
+
+g.open_all_files

data/lib/rmthemegen/rmthemegen_187.rb

@@ -52,7 +52,6 @@ module RMThemeGen
       # underline not implemented yet. There are several font decorations in rubymine, 
       # probably should be used sparingly. 
       @italic_candidates = ["STRING", "SYMBOL", "REQUIRE"]
-      
       @bold_candidates = ["KEYWORD","RUBY_SPECIFIC_CALL", "CONSTANT", "COMMA", "PAREN","RUBY_ATTR_ACCESSOR_CALL", "RUBY_ATTR_READER_CALL" ,"RUBY_ATTR_WRITER_CALL", "IDENTIFIER"]
 # with code inspections we don't color the text, we just put a line or something under it .
       @code_inspections = ["ERROR","WARNING_ATTRIBUTES","DEPRECATED", "TYPO","WARNING_ATTRIBUTES", "BAD_CHARACTER",
@@ -70,7 +69,6 @@ module RMThemeGen
 
       #	if we avoid any notion of "brightness", which is an absolute quality, then we
       # can make our background any color we want, then adjust contrast to taste
-      
       #tighter contrast spec
       @cont_median = 0.85
 #      @min_cont = @cont_median * 0.65
@@ -89,9 +87,9 @@ module RMThemeGen
       @bg_color_style = 0 #0 = grey/dark 1 = grey/light (whitish), 2 = any color
     #  @foreground_min_brightness = 0.4
 
-      
-      @backgroundcolor= randcolor( :shade_of_grey=>@background_grey, :max_bright=>@background_max_brightness)# "0"
-
+      @document_globals = {}
+      @backgroundcolor = randcolor( :shade_of_grey=>@background_grey, :max_bright=>@background_max_brightness)# "0"
+      @textmate_hash = {}
       reset_colorsets
     end #def initialize 
 
@@ -236,16 +234,18 @@ module RMThemeGen
         if o == "CARET_ROW_COLOR" then
           @caret_row_color = randcolor(:bg_rgb=>@backgroundcolor,:min_cont=>0.05,:max_cont => 0.08,:shade_of_grey=>false)
           newopt << {:name=> o, :value => @caret_row_color }
+          @document_globals[:CARET_ROW_COLOR] = @caret_row_color
         elsif o.include?("SELECTION_BACKGROUND") then
           @selection_background = randcolor(:bg_rgb=>@backgroundcolor,:min_cont=>0.07,:max_cont => 0.09,:shade_of_grey=>false)
           newopt << {:name=> o, :value => @selection_background }
+          @document_globals[:SELECTION_BACKGROUND] = @selection_background
         elsif o.include?("SELECTION_FOREGROUND") then
           newopt << {:name=> o }
         elsif o.include?("GUTTER_BACKGROUND") then
           newopt << {:name=> o, :value => @backgroundcolor }
         elsif o.include?("CARET_COLOR") then
-          newopt << {:name=> o, :value => randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>0.30,:max_cont=>0.7,:shade_of_grey=>true) }
-
+          newopt << {:name=> o, :value => (@caret_color = randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>0.30,:max_cont=>0.7,:shade_of_grey=>true) )}
+          @document_globals[:CARET_COLOR] = @caret_color
         elsif o.include?("READONLY_BACKGROUND") then
           newopt << {:name=> o, :value => randcolor(:bg_rgb=>@backgroundcolor, :min_cont=>0.03,:max_cont=>0.09,:shade_of_grey=>@background_grey) }
         elsif o.include?("READONLY_FRAGMENT_BACKGROUND") then
@@ -300,12 +300,13 @@ module RMThemeGen
             {:name => "EFFECT_COLOR" },{:name => "FONT_TYPE", :value=>fonttype.to_s },
             {:name => "ERROR_STRIPE_COLOR", :value =>randcolor(:bg_rgb=>@backgroundcolor) }]}] 
        #default text and background for whole document
-          when ["TEXT","FOLDED_TEXT_ATTRIBUTES"].include?( o.to_s)  
+          when ["TEXT","FOLDED_TEXT_ATTRIBUTES"].include?( o.to_s)
             newcol = randcolor(:bg_rgb=>@backgroundcolor ) 
             optblj=[{:option=>[ {:name => "FOREGROUND", :value => newcol},     
             {:name => "BACKGROUND", :value =>@backgroundcolor},
             {:name => "EFFECT_COLOR" },{:name => "FONT_TYPE", :value=>fonttype.to_s },
-            {:name => "ERROR_STRIPE_COLOR", :value =>randcolor(:bg_rgb=>@backgroundcolor)}]}] 
+            {:name => "ERROR_STRIPE_COLOR", :value => (randcolor(:bg_rgb=>@backgroundcolor) ) }]}] 
+            @document_globals[:TEXT] = newcol
           when @code_inspections.include?(o.to_s)  
             newcol = randcolor(:bg_rgb=>@backgroundcolor) 
             optblj=[{:option=>[ {:name => "FOREGROUND"},     
@@ -328,7 +329,13 @@ module RMThemeGen
             {:name => "ERROR_STRIPE_COLOR", :value =>randcolor(:bg_rgb=>@backgroundcolor) }]}] 
         end
         newopt[0][:option] << {:name =>o.to_s , :value=>optblj}
+        tmphash = {}
+        optblj[0][:option].each do |siing| 
+          tmphash[ siing[:name].to_sym ] = siing[:value] 
+        end 
+        @textmate_hash[o.to_sym] = tmphash
       end
+      
       @xmlout[:scheme][0][:attributes] = newopt
     end 
   
@@ -377,6 +384,7 @@ module RMThemeGen
       end
       @backgroundcolor= randcolor(:shade_of_grey=>@background_grey, :max_bright=>@background_max_brightness,
         :min_bright => @background_min_brightness )# "0"
+      @document_globals[:backgroundcolor] = @backgroundcolor
       @themename = randthemename
       @xmlout = {:scheme=>
                 [{
@@ -399,6 +407,8 @@ module RMThemeGen
         XmlSimple.xml_out(@xmlout,{:keeproot=>true,:xmldeclaration=>true,:outputfile=> @outf, :rootname => "scheme"})
         @outf.close	
         @theme_successfully_created = true
+puts "textmate_hash: "
+puts @textmate_hash.inspect
         return File.expand_path(@outf.path)
     end
   

data/lib/rmthemegen/rmthemegen_187_textmate.rb

@@ -15,6 +15,7 @@
 require 'rubygems'
 require 'color'
 require 'xmlsimple'
+require 'rexml/document'
 require File.dirname(__FILE__)+"/token_list"
 require File.dirname(__FILE__)+'/rgb_contrast_methods'
 require File.dirname(__FILE__)+'/rmthemegen_to_css'
@@ -23,28 +24,7 @@ module RMThemeGen
 
   class ThemeGenerator < RMThemeParent
 
-    def set_tm_doc_options
-      #newopt has to be a hash of "key" => ["color"],"string" => ["color"]
-      #order matters here. ... 
-      #newopt = {}
-      #newopt={:key => ["background"],:string=>["#00ff00"] }  
-      #newopt.merge!( {:key => ["caret"],:string => ["#000000"]}) 
-      #newopt.merge!( {:key => ["foreground"],:string => ["#ffffff"] })
-      @xml_textmate_out[:dict][0][:array][0][:dict][0][:dict][0]
-    end
-
-    def set_tm_doc_colors
-    end
-
-    def set_tm_element_colors
-    end
-
-    def read_tmfile
-      @inf = File.open("./iPlastic.tmTheme","r")
-      
-      @xml_in=XmlSimple.xml_in(@inf)
-      puts @xml_in.inspect 
-    end
+    
     
     def to_textmate
       #it will save the theme file ".tmTheme" in the same directory as other themes
@@ -66,23 +46,110 @@ module RMThemeGen
                         :key =>["settings"],
                         :dict=> [{"string"=>["#000000","#FFFFFF"],
                                   "key"=>["background","foreground"] 
-                                
                                 }]
-                                
-                                
                     }]}]
                   }]
                 }
         @savefile = "rmt_"+@themename+".tmTheme"
         @outf = File.new(@opts[:outputdir]+"/"+@savefile, "w+")
-        set_tm_doc_options
-        set_tm_doc_colors
-        set_tm_element_colors
-        XmlSimple.xml_out(@xml_textmate_out,{:keeproot=>false,:xmldeclaration=>true,:outputfile=> @outf, :rootname => ""})
+        #set_tm_doc_options
+        #set_tm_doc_colors
+        #set_tm_element_colors
+        #XmlSimple.xml_out(@xml_textmate_out,{:keeproot=>false,:xmldeclaration=>true,:outputfile=> @outf, :rootname => ""})
+        rexmlout = REXML::Document.new
+        rexmlout << REXML::DocType.new('plist','PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"')
+        rexmlout << REXML::XMLDecl.new("1.0","UTF-8",nil)
+        plist = REXML::Element.new "plist"
+        plist.add_attributes( "version"=>"1.0")
+        dict = REXML::Element.new( "dict", plist) #causes plist to be the parent of dict
+        dict.add_text(REXML::Element.new("key").add_text("name") )
+        dict.add_text(REXML::Element.new("string").add_text( @themename ) )
+        dict.add_text(REXML::Element.new("key").add_text("author") )
+        dict.add_text(REXML::Element.new("string").add_text("David Heitzman") )
+        dict.add_text(REXML::Element.new("key").add_text("settings") )
+        main_array = REXML::Element.new("array",dict)
+        doc_dict = REXML::Element.new("dict",main_array)
+        doc_dict.add_text(REXML::Element.new("key").add_text("settings") )
+        doc_dict.add_element(
+          make_dict(
+          :background=>"#"+@document_globals[:backgroundcolor].upcase,
+          :caret=>"#"+ @document_globals[:CARET_COLOR].upcase ,
+          :foreground=>"#"+@document_globals[:TEXT].upcase,
+          :invisibles=>"#"+@document_globals[:backgroundcolor].upcase,
+          :lineHighlight=>"#"+@document_globals[:CARET_ROW_COLOR].upcase,
+          :selection=>"#"+@document_globals[:SELECTION_BACKGROUND].upcase) 
+        ) 
+
+#puts @@document_opts_to_textmate.to_s
+        @@document_opts_to_textmate.each do |k,v|
+          main_array.add_element(
+            make_name_scope_settings(k,v) 
+          ) if @textmate_hash[k]
+        end
+         
+
+        uuid_key = REXML::Element.new("key")
+        uuid_key.add_text("uuid")
+        uuid_element = REXML::Element.new("string")
+        uuid_element.add_text( gen_uuid)
+        dict.add_element uuid_key
+        dict.add_element uuid_element
+
+        rexmlout << plist
+#        rexmlout.write(@outf)
+        formatter = REXML::Formatters::Pretty.new
+        formatter.compact=true
+        formatter.write(rexmlout, @outf)
         @outf.close	
         @theme_successfully_created = true
         return File.expand_path(@outf.path)
     end
+
+
+    def make_dict(a_hash)
+      new_dict = REXML::Element.new("dict")
+      a_hash.each do |k,v| 
+        te1 = REXML::Element.new("key")      
+        te1.add_text(k.to_s) 
+        te2 = REXML::Element.new("string")      
+        te2.add_text(v.to_s)
+        new_dict.add_element te1
+        new_dict.add_element te2
+      end
+      return new_dict
+    end 
+    
+    def make_name_scope_settings(ruby_symbol,an_array)
+    fontstyles = ["","bold","italic", "bold italic"]
+      #the array looks like ["name","scope",{}] . the third element in the array is a hash for "settings"
+        new_dict = REXML::Element.new("dict")
+        te1 = REXML::Element.new("key")      
+        te1.add_text("name") 
+        te2 = REXML::Element.new("string")      
+        te2.add_text(an_array[0])
+        te3 = REXML::Element.new("key")      
+        te3.add_text("scope")
+        te4 = REXML::Element.new("string")      
+        te4.add_text(an_array[1])
+        te5 = REXML::Element.new("key")
+        te5.add_text("settings")      
+        new_dict.add_element te1
+        new_dict.add_element te2
+        new_dict.add_element te3
+        new_dict.add_element te4
+        new_dict.add_element te5
+        fontStyle = fontstyles[@textmate_hash[ruby_symbol][:FONT_TYPE].to_i ]
+        di1 = make_dict(:foreground => "#"+@textmate_hash[ruby_symbol][:FOREGROUND].upcase, :fontStyle=>fontStyle) 
+        new_dict.add_element di1
+      return new_dict
+    end
+    
+    def gen_uuid
+        nn = sprintf("%X",rand(99999999999999999999999999999999999999999999999999).abs)
+        nn = nn[0,8]+"-"+nn[12,4]+"-4"+nn[17,3]+"-"+["8","9","A","B"].shuffle[0]+nn[21,3]+"-"+nn[24,12]
+    end
+
   end #class
 
+
 end #module