From a630df6860ded07700d5995c582b68caf9c306b5 Mon Sep 17 00:00:00 2001
From: Nathan Weizenbaum <nex342@gmail.com>
Date: Mon, 5 Oct 2009 17:12:56 -0700
Subject: [PATCH] [Haml] [html2haml] Expand ERB-to-interpolation to include
 CDATA.

---
 lib/haml/html.rb            | 17 ++++++++++++++++-
 test/haml/html2haml_test.rb |  9 +++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/lib/haml/html.rb b/lib/haml/html.rb
index 59fdfcad..48063640 100644
--- a/lib/haml/html.rb
+++ b/lib/haml/html.rb
@@ -41,6 +41,19 @@ module Haml
 
       private
 
+      def erb_to_interpolation(text, options)
+        return text unless options[:erb]
+        text = CGI.escapeHTML(uninterp(text))
+        %w[<haml:loud> </haml:loud>].each {|str| text.gsub!(CGI.escapeHTML(str), str)}
+        ::Hpricot::XML(text).children.inject("") do |str, elem|
+          if elem.is_a?(::Hpricot::Text)
+            str + CGI.unescapeHTML(elem.to_s)
+          else # <haml:loud> element
+            str + '#{' + CGI.unescapeHTML(elem.innerText.strip) + '}'
+          end
+        end
+      end
+
       def tabulate(tabs)
         '  ' * tabs
       end
@@ -147,7 +160,9 @@ module Haml
     class ::Hpricot::CData
       # @see Haml::HTML::Node#to_haml
       def to_haml(tabs, options)
-        "#{tabulate(tabs)}:cdata\n#{parse_text(self.content, tabs + 1)}"
+        content = parse_text_with_interpolation(
+          erb_to_interpolation(self.content, options), tabs + 1)
+        "#{tabulate(tabs)}:cdata\n#{content}"
       end
     end
 
diff --git a/test/haml/html2haml_test.rb b/test/haml/html2haml_test.rb
index 770e7163..62f895f5 100644
--- a/test/haml/html2haml_test.rb
+++ b/test/haml/html2haml_test.rb
@@ -122,6 +122,15 @@ HAML
 HTML
   end
 
+  def test_erb_in_cdata
+    assert_equal(<<HAML.rstrip, render_erb(<<HTML))
+:cdata
+  Foo \#{bar} baz
+HAML
+<![CDATA[Foo <%= bar %> baz]]>
+HTML
+  end
+
   def test_erb_in_line
     assert_equal 'foo bar #{baz}', render_erb('foo bar <%= baz %>')
     assert_equal 'foo bar #{baz}! Bang.', render_erb('foo bar <%= baz %>! Bang.')