From 7ef8110c2295fd45a2f79ca0002e66adae3ccd96 Mon Sep 17 00:00:00 2001
From: Nathan Weizenbaum <nex342@gmail.com>
Date: Mon, 9 Nov 2009 19:46:36 -0800
Subject: [PATCH] [Haml] Add a :css filter.

---
 doc-src/HAML_CHANGELOG.md |  5 +++++
 doc-src/HAML_REFERENCE.md |  5 +++++
 lib/haml/filters.rb       | 17 +++++++++++++++++
 test/haml/engine_test.rb  | 15 +++++++++++++++
 4 files changed, 42 insertions(+)

diff --git a/doc-src/HAML_CHANGELOG.md b/doc-src/HAML_CHANGELOG.md
index 1de65a16..faa23b0c 100644
--- a/doc-src/HAML_CHANGELOG.md
+++ b/doc-src/HAML_CHANGELOG.md
@@ -29,6 +29,11 @@ Haml and `html2haml` now produce more descriptive errors
 when given a template with invalid byte sequences for that template's encoding,
 including the line number and the offending character.
 
+### `:css` Filter
+
+Haml now supports a {file:HAML_REFERENCE.md#css-filter `:css` filter}
+that surrounds the filtered text with `<style>` and CDATA tags.
+
 ### `html2haml` Improvements
 
 * Ruby blocks within ERB are now supported.
diff --git a/doc-src/HAML_REFERENCE.md b/doc-src/HAML_REFERENCE.md
index f0c3da4f..ec92065d 100644
--- a/doc-src/HAML_REFERENCE.md
+++ b/doc-src/HAML_REFERENCE.md
@@ -1081,6 +1081,11 @@ when you don't want lines starting with `.` or `-` to be parsed.
 Surrounds the filtered text with `<script>` and CDATA tags.
 Useful for including inline Javascript.
 
+{#css-filter}
+### `:css`
+Surrounds the filtered text with `<style>` and CDATA tags.
+Useful for including inline CSS.
+
 {#cdata-filter}
 ### `:cdata`
 Surrounds the filtered text with CDATA tags.
diff --git a/lib/haml/filters.rb b/lib/haml/filters.rb
index 995f21c4..d0e96d07 100644
--- a/lib/haml/filters.rb
+++ b/lib/haml/filters.rb
@@ -200,6 +200,23 @@ END
       end
     end
 
+    # Surrounds the filtered text with `<style>` and CDATA tags.
+    # Useful for including inline CSS.
+    module Css
+      include Base
+
+      # @see Base#render_with_options
+      def render_with_options(text, options)
+        <<END
+<style type=#{options[:attr_wrapper]}text/css#{options[:attr_wrapper]}>
+  /*<![CDATA[*/
+    #{text.rstrip.gsub("\n", "\n    ")}
+  /*]]>*/
+</style>
+END
+      end
+    end
+
     # Surrounds the filtered text with CDATA tags.
     module Cdata
       include Base
diff --git a/test/haml/engine_test.rb b/test/haml/engine_test.rb
index df228827..3d788bbc 100644
--- a/test/haml/engine_test.rb
+++ b/test/haml/engine_test.rb
@@ -909,6 +909,21 @@ END
 END
   end
 
+  def test_css_filter
+    assert_equal(<<CSS, render(<<SASS))
+<style type='text/css'>
+  /*<![CDATA[*/
+    #foo {
+      bar: baz; }
+  /*]]>*/
+</style>
+CSS
+:css
+  #foo {
+    bar: baz; }
+SASS
+  end
+
   def test_local_assigns_dont_modify_class
     assert_equal("bar\n", render("= foo", :locals => {:foo => 'bar'}))
     assert_equal(nil, defined?(foo))