0
@@ -14,5 +14,99 @@
0
 $KCODE = "U"
0
 
0
 class ClothBlue < String
0
-end
0
+#--
0
+  TEXT_FORMATTING = [
0
+    ["<b>", "**"], ["</b>","**"], ["<em>","_"], ["</em>", "_"], ["<b>", "**"], 
0
+    ["</b>", "**"], ["<code>", "`"], ["<i>","_"], ["</i>", "_"]
0
+    ["</code>", "`"], ["<strong>", "**"], ["</strong>", "**"] 
0
+  ]
0
+
0
+  HEADINGS = [
0
+    ["<h1>","# "], ["</h1>", "#"], ["<h2>","## "], ["</h2>", "##"], 
0
+    ["<h3>","### "], ["</h3>", "###"], ["<h4>","#### "], ["</h4>", "####"], 
0
+    ["<h5>","##### "], ["</h5>", "#####"], ["<h6>","###### "], ["</h6>", "######"]
0
+  ]
0
+
0
+  STRUCTURES = [
0
+    ["<p>", ""],["</p>","\n\n"], ["<blockquote>", "> "], ["</blockquote>","\n"], 
0
+    ["<br />", "\n\n"], ["<br>", "\n\n"]
0
+  ]
0
+
0
+  ENTITIES = [
0
+    ["&#8220;", '"'], ["&#8221;", '"'], ["&#8212;", "--"], ["&#8212;", "--"], 
0
+    ["&#8211;","-"], ["&#8230;", "..."], ["&#215;", " x "], ["&#8482;","(TM)"], 
0
+    ["&#174;","(R)"], ["&#169;","(C)"], ["&#8217;", "'"]
0
+  ]
0
+
0
+  TABLES = [
0
+    ["<table>","\n\n<table>"], ["</table>","</table>\n\n"]
0
+  ]
0
+
0
+  def initialize (html)
0
+    super(html)
0
+    @workingcopy = html
0
+  end
0
+
0
+#++  
0
+  #Call all necessary methods to convert a string of HTML into Textile markup.
0
+
0
+  def to_textile
0
+    headings(@workingcopy)
0
+    structure(@workingcopy)
0
+    text_formatting(@workingcopy)
0
+    entities(@workingcopy)
0
+    tables(@workingcopy)
0
+    @workingcopy = CGI::unescapeHTML(@workingcopy)
0
+    @workingcopy
0
+  end
0
+
0
+#--
0
+  #The conversion methods themselves are private.
0
+  private
0
+
0
+  def text_formatting(text)
0
+    TEXT_FORMATTING.each do |htmltag, textiletag|
0
+      text.gsub!(htmltag, textiletag)
0
+    end
0
+    text
0
+  end
0
+
0
+
0
+  def headings(text)
0
+    HEADINGS.each do |htmltag, textiletag|
0
+      text.gsub!(htmltag, textiletag)
0
+    end
0
+    text
0
+  end
0
+
0
+
0
+  def entities(text)
0
+    ENTITIES.each do |htmlentity, textileentity|
0
+      text.gsub!(htmlentity, textileentity)
0
+    end
0
+    text
0
+  end
0
+
0
+
0
+  def structure(text)
0
+    STRUCTURES.each do |htmltag, textiletag|
0
+      text.gsub!(htmltag, textiletag)
0
+    end
0
+    text
0
+  end
0
+
0
+  def tables(text)
0
+    TABLES.each do |htmltag, textiletag|
0
+      text.gsub!(htmltag, textiletag)
0
+    end
0
+    text
0
+  end
0
+
0
+
0
+  def css_styles(text)
0
+    #TODO: Translate CSS-styles
0
+    text
0
+  end
0
+#++
0
+end # end class ClothBlue