merbjedi-haml 2.1.0

data/lib/haml/helpers/action_view_extensions.rb

@@ -0,0 +1,45 @@
+require 'haml/helpers/action_view_mods'
+
+if defined?(ActionView)
+  module Haml
+    module Helpers
+      # This module contains various useful helper methods
+      # that either tie into ActionView or the rest of the ActionPack stack,
+      # or are only useful in that context.
+      # Thus, the methods defined here are only available
+      # if ActionView is installed.
+      module ActionViewExtensions
+        # Returns a value for the "class" attribute
+        # unique to this controller/action pair.
+        # This can be used to target styles specifically at this action or controller.
+        # For example, if the current action were EntryController#show,
+        #
+        #   %div{:class => page_class} My Div
+        #
+        # would become
+        #
+        #   <div class="entry show">My Div</div>
+        #
+        # Then, in a stylesheet
+        # (shown here as Sass),
+        # you could refer to this specific action:
+        #
+        #   .entry.show
+        #     :font-weight bold
+        #
+        # or to all actions in the entry controller:
+        #
+        #   .entry
+        #     :color #00f
+        #
+        def page_class
+          controller.controller_name + " " + controller.action_name
+        end
+
+        # :stopdoc:
+        alias_method :generate_content_class_names, :page_class
+        # :startdoc:
+      end
+    end
+  end
+end

data/lib/haml/helpers/action_view_mods.rb

@@ -0,0 +1,181 @@
+if defined?(ActionView) and not defined?(Merb::Plugins)
+  module ActionView
+    class Base # :nodoc:
+      def render_with_haml(*args, &block)
+        options = args.first
+
+        # If render :layout is used with a block,
+        # it concats rather than returning a string
+        # so we need it to keep thinking it's Haml
+        # until it hits the sub-render
+        if is_haml? && !(options.is_a?(Hash) && options[:layout] && block_given?)
+          return non_haml { render_without_haml(*args, &block) }
+        end
+        render_without_haml(*args, &block)
+      end
+      alias_method :render_without_haml, :render
+      alias_method :render, :render_with_haml
+
+      # Rails >2.1
+      if Haml::Util.has?(:instance_method, self, :output_buffer)
+        def output_buffer_with_haml
+          return haml_buffer.buffer if is_haml?
+          output_buffer_without_haml
+        end
+        alias_method :output_buffer_without_haml, :output_buffer
+        alias_method :output_buffer, :output_buffer_with_haml
+
+        def set_output_buffer_with_haml(new)
+          if is_haml?
+            haml_buffer.buffer = new
+          else
+            set_output_buffer_without_haml new
+          end
+        end
+        alias_method :set_output_buffer_without_haml, :output_buffer=
+        alias_method :output_buffer=, :set_output_buffer_with_haml
+      end
+    end
+
+    # This overrides various helpers in ActionView
+    # to make them work more effectively with Haml.
+    module Helpers
+      # :stopdoc:
+      # In Rails <=2.1, we've got to override considerable capturing infrastructure.
+      # In Rails >2.1, we can make do with only overriding #capture
+      # (which no longer behaves differently in helper contexts).
+      unless Haml::Util.has?(:instance_method, ActionView::Base, :output_buffer)
+        module CaptureHelper
+          def capture_with_haml(*args, &block)
+            # Rails' #capture helper will just return the value of the block
+            # if it's not actually in the template context,
+            # as detected by the existance of an _erbout variable.
+            # We've got to do the same thing for compatibility.
+
+            if is_haml? && block_is_haml?(block)
+              capture_haml(*args, &block)
+            else
+              capture_without_haml(*args, &block)
+            end
+          end
+          alias_method :capture_without_haml, :capture
+          alias_method :capture, :capture_with_haml
+
+          def capture_erb_with_buffer_with_haml(buffer, *args, &block)
+            if is_haml?
+              capture_haml(*args, &block)
+            else
+              capture_erb_with_buffer_without_haml(buffer, *args, &block)
+            end
+          end
+          alias_method :capture_erb_with_buffer_without_haml, :capture_erb_with_buffer
+          alias_method :capture_erb_with_buffer, :capture_erb_with_buffer_with_haml
+        end
+
+        module TextHelper
+          def concat_with_haml(string, binding = nil)
+            if is_haml?
+              haml_buffer.buffer.concat(string)
+            else
+              concat_without_haml(string, binding)
+            end
+          end
+          alias_method :concat_without_haml, :concat
+          alias_method :concat, :concat_with_haml
+        end
+      else
+        module CaptureHelper
+          def capture_with_haml(*args, &block)
+            if Haml::Helpers.block_is_haml?(block)
+              capture_haml(*args, &block)
+            else
+              capture_without_haml(*args, &block)
+            end
+          end
+          alias_method :capture_without_haml, :capture
+          alias_method :capture, :capture_with_haml
+        end
+      end
+
+      module TagHelper
+        def content_tag_with_haml(name, *args, &block)
+          return content_tag_without_haml(name, *args, &block) unless is_haml?
+
+          preserve = haml_buffer.options[:preserve].include?(name.to_s)
+
+          if block_given? && block_is_haml?(block) && preserve
+            return content_tag_without_haml(name, *args) {preserve(&block)}
+          end
+
+          returning content_tag_without_haml(name, *args, &block) do |content|
+            return Haml::Helpers.preserve(content) if preserve && content
+          end
+        end
+
+        alias_method :content_tag_without_haml, :content_tag
+        alias_method :content_tag, :content_tag_with_haml
+      end
+
+      class InstanceTag
+        # Includes TagHelper
+
+        def haml_buffer
+          @template_object.send :haml_buffer
+        end
+
+        def is_haml?
+          @template_object.send :is_haml?
+        end
+
+        alias_method :content_tag_without_haml, :content_tag
+        alias_method :content_tag, :content_tag_with_haml
+      end
+
+      module FormTagHelper
+        def form_tag_with_haml(url_for_options = {}, options = {}, *parameters_for_url, &proc)
+          if is_haml?
+            if block_given?
+              oldproc = proc
+              proc = haml_bind_proc do |*args|
+                concat "\n"
+                tab_up
+                oldproc.call(*args)
+                tab_down
+                concat haml_indent
+              end
+              concat haml_indent
+            end
+            res = form_tag_without_haml(url_for_options, options, *parameters_for_url, &proc) + "\n"
+            concat "\n" if block_given?
+            res
+          else
+            form_tag_without_haml(url_for_options, options, *parameters_for_url, &proc)
+          end
+        end
+        alias_method :form_tag_without_haml, :form_tag
+        alias_method :form_tag, :form_tag_with_haml
+      end
+
+      module FormHelper
+        def form_for_with_haml(object_name, *args, &proc)
+          if block_given? && is_haml?
+            oldproc = proc
+            proc = haml_bind_proc do |*args|
+              tab_up
+              oldproc.call(*args)
+              tab_down
+              concat haml_indent
+            end
+            concat haml_indent
+          end
+          form_for_without_haml(object_name, *args, &proc)
+          concat "\n" if block_given? && is_haml?
+        end
+        alias_method :form_for_without_haml, :form_for
+        alias_method :form_for, :form_for_with_haml
+      end
+      # :startdoc:
+    end
+  end
+end
+

data/lib/haml/html.rb

@@ -0,0 +1,218 @@
+require File.dirname(__FILE__) + '/../haml'
+
+require 'haml/engine'
+require 'rubygems'
+require 'hpricot'
+require 'cgi'
+
+module Haml
+  # This class contains the functionality used in the +html2haml+ utility,
+  # namely converting HTML documents to Haml templates.
+  # It depends on Hpricot for HTML parsing (http://code.whytheluckystiff.net/hpricot/).
+  class HTML
+    # Creates a new instance of Haml::HTML that will compile the given template,
+    # which can either be a string containing HTML or an Hpricot node,
+    # to a Haml string when +render+ is called.
+    def initialize(template, options = {})
+      @@options = options
+
+      if template.is_a? Hpricot::Node
+        @template = template
+      else
+        if template.is_a? IO
+          template = template.read
+        end
+
+        if @@options[:rhtml]
+          match_to_html(template, /<%=(.*?)-?%>/m, 'loud')
+          match_to_html(template, /<%-?(.*?)-?%>/m,  'silent')
+        end
+
+        method = @@options[:xhtml] ? Hpricot.method(:XML) : method(:Hpricot)
+        @template = method.call(template.gsub('&', '&amp;'))
+      end
+    end
+
+    # Processes the document and returns the result as a string
+    # containing the Haml template.
+    def render
+      @template.to_haml(0)
+    end
+    alias_method :to_haml, :render
+
+    module ::Hpricot::Node
+      # Returns the Haml representation of the given node,
+      # at the given tabulation.
+      def to_haml(tabs = 0)
+        parse_text(self.to_s, tabs)
+      end
+
+      private
+
+      def tabulate(tabs)
+        '  ' * tabs
+      end
+
+      def parse_text(text, tabs)
+        text.strip!
+        if text.empty?
+          String.new
+        else
+          lines = text.split("\n")
+
+          lines.map do |line|
+            line.strip!
+            "#{tabulate(tabs)}#{'\\' if Haml::Engine::SPECIAL_CHARACTERS.include?(line[0])}#{line}\n"
+          end.join
+        end
+      end
+    end
+
+    # :stopdoc:
+
+    def self.options
+      @@options
+    end
+
+    TEXT_REGEXP = /^(\s*).*$/
+
+    class ::Hpricot::Doc
+      def to_haml(tabs = 0)
+        output = ''
+        children.each { |child| output += child.to_haml(0) } if children
+        output
+      end
+    end
+
+    class ::Hpricot::XMLDecl
+      def to_haml(tabs = 0)
+        "#{tabulate(tabs)}!!! XML\n"
+      end
+    end
+
+    class ::Hpricot::DocType
+      def to_haml(tabs = 0)
+        attrs = public_id.scan(/DTD\s+([^\s]+)\s*([^\s]*)\s*([^\s]*)\s*\/\//)[0]
+        if attrs == nil
+          raise Exception.new("Invalid doctype")
+        end
+
+        type, version, strictness = attrs.map { |a| a.downcase }
+        if type == "html"
+          version = "1.0"
+          strictness = "transitional"
+        end
+
+        if version == "1.0" || version.empty?
+          version = nil
+        end
+
+        if strictness == 'transitional' || strictness.empty?
+          strictness = nil
+        end
+
+        version = " #{version}" if version
+        if strictness
+          strictness[0] = strictness[0] - 32
+          strictness = " #{strictness}"
+        end
+
+        "#{tabulate(tabs)}!!!#{version}#{strictness}\n"
+      end
+    end
+
+    class ::Hpricot::Comment
+      def to_haml(tabs = 0)
+        "#{tabulate(tabs)}/\n#{parse_text(self.content, tabs + 1)}"
+      end
+    end
+
+    class ::Hpricot::Elem
+      def to_haml(tabs = 0)
+        output = "#{tabulate(tabs)}"
+        if HTML.options[:rhtml] && name[0...5] == 'haml:'
+          return output + HTML.send("haml_tag_#{name[5..-1]}", CGI.unescapeHTML(self.inner_text))
+        end
+
+        output += "%#{name}" unless name == 'div' && (static_id? || static_classname?)
+
+        if attributes
+          if static_id?
+            output += "##{attributes['id']}"
+            remove_attribute('id')
+          end
+          if static_classname?
+            attributes['class'].split(' ').each { |c| output += ".#{c}" }
+            remove_attribute('class')
+          end
+          output += haml_attributes if attributes.length > 0
+        end
+
+        (self.children || []).inject(output + "\n") do |output, child|
+          output + child.to_haml(tabs + 1)
+        end
+      end
+
+      private
+      
+      def dynamic_attributes
+        @dynamic_attributes ||= begin
+          Haml::Util.map_hash(attributes) do |name, value|
+            next if value.empty?
+            full_match = nil
+            ruby_value = value.gsub(%r{<haml:loud>\s*(.+?)\s*</haml:loud>}) do
+              full_match = $`.empty? && $'.empty?
+              full_match ? $1: "\#{#{$1}}"
+            end
+            next if ruby_value == value
+            [name, full_match ? ruby_value : %("#{ruby_value}")]
+          end
+        end
+      end
+      
+      def static_attribute?(name)
+        attributes[name] and !dynamic_attribute?(name)
+      end
+      
+      def dynamic_attribute?(name)
+        HTML.options[:rhtml] and dynamic_attributes.key?(name)
+      end
+      
+      def static_id?
+        static_attribute? 'id'
+      end
+      
+      def static_classname?
+        static_attribute? 'class'
+      end
+
+      # Returns a string representation of an attributes hash
+      # that's prettier than that produced by Hash#inspect
+      def haml_attributes
+        attrs = attributes.map do |name, value|
+          value = dynamic_attribute?(name) ? dynamic_attributes[name] : value.inspect
+          name = name.index(/\W/) ? name.inspect : ":#{name}"
+          "#{name} => #{value}"
+        end
+        "{ #{attrs.join(', ')} }"
+      end
+    end
+
+    def self.haml_tag_loud(text)
+      "= #{text.gsub(/\n\s*/, ' ').strip}\n"
+    end
+
+    def self.haml_tag_silent(text)
+      text.split("\n").map { |line| "- #{line.strip}\n" }.join
+    end
+
+    private
+
+    def match_to_html(string, regex, tag)
+      string.gsub!(regex) do
+        "<haml:#{tag}>#{CGI.escapeHTML($1)}</haml:#{tag}>"
+      end
+    end
+    # :startdoc:
+  end
+end

data/lib/haml/precompiler.rb

@@ -0,0 +1,896 @@
+require 'strscan'
+require 'haml/shared'
+
+module Haml
+  module Precompiler
+    include Haml::Util
+
+    # Designates an XHTML/XML element.
+    ELEMENT         = ?%
+
+    # Designates a <tt><div></tt> element with the given class.
+    DIV_CLASS       = ?.
+
+    # Designates a <tt><div></tt> element with the given id.
+    DIV_ID          = ?#
+
+    # Designates an XHTML/XML comment.
+    COMMENT         = ?/
+
+    # Designates an XHTML doctype or script that is never HTML-escaped.
+    DOCTYPE_OR_UNESCAPE = ?!
+
+    # Designates script, the result of which is output.
+    SCRIPT          = ?=
+
+    # Designates script that is always HTML-escaped.
+    SANITIZE        = ?&
+
+    # Designates script, the result of which is flattened and output.
+    FLAT_SCRIPT     = ?~
+
+    # Designates script which is run but not output.
+    SILENT_SCRIPT   = ?-
+
+    # When following SILENT_SCRIPT, designates a comment that is not output.
+    SILENT_COMMENT  = ?#
+
+    # Designates a non-parsed line.
+    ESCAPE          = ?\\
+
+    # Designates a block of filtered text.
+    FILTER          = ?:
+
+    # Designates a non-parsed line. Not actually a character.
+    PLAIN_TEXT      = -1
+
+    # Keeps track of the ASCII values of the characters that begin a
+    # specially-interpreted line.
+    SPECIAL_CHARACTERS   = [
+      ELEMENT,
+      DIV_CLASS,
+      DIV_ID,
+      COMMENT,
+      DOCTYPE_OR_UNESCAPE,
+      SCRIPT,
+      SANITIZE,
+      FLAT_SCRIPT,
+      SILENT_SCRIPT,
+      ESCAPE,
+      FILTER
+    ]
+
+    # The value of the character that designates that a line is part
+    # of a multiline string.
+    MULTILINE_CHAR_VALUE = ?|
+
+    # Keywords that appear in the middle of a Ruby block with lowered
+    # indentation. If a block has been started using indentation,
+    # lowering the indentation  with one of these won't end the block.
+    # For example:
+    #
+    #   - if foo
+    #     %p yes!
+    #   - else
+    #     %p no!
+    #
+    # The block is ended after <tt>%p no!</tt>, because <tt>else</tt>
+    # is a member of this array.
+    MID_BLOCK_KEYWORDS   = ['else', 'elsif', 'rescue', 'ensure', 'when']
+
+    # The Regex that matches a Doctype command.
+    DOCTYPE_REGEX = /(\d\.\d)?[\s]*([a-z]*)/i
+
+    # The Regex that matches a literal string or symbol value
+    LITERAL_VALUE_REGEX = /^\s*(:(\w*)|(('|")([^\\\#'"]*?)\4))\s*$/
+
+    private
+
+    # Returns the precompiled string with the preamble and postamble
+    def precompiled_with_ambles(local_names)
+      preamble = <<END.gsub("\n", ";")
+extend Haml::Helpers
+_hamlout = @haml_buffer = Haml::Buffer.new(@haml_buffer, #{options_for_buffer.inspect})
+_erbout = _hamlout.buffer
+__in_erb_template = true
+END
+      postamble = <<END.gsub("\n", ";")
+@haml_buffer = @haml_buffer.upper
+_erbout
+END
+      preamble + locals_code(local_names) + @precompiled + postamble
+    end
+
+    def locals_code(names)
+      names = names.keys if Hash == names
+
+      names.map do |name|
+        # Can't use || because someone might explicitly pass in false with a symbol
+        sym_local = "_haml_locals[#{name.to_sym.inspect}]" 
+        str_local = "_haml_locals[#{name.to_s.inspect}]" 
+        "#{name} = #{sym_local}.nil? ? #{str_local} : #{sym_local}"
+      end.join(';') + ';'
+    end
+
+    class Line < Struct.new(:text, :unstripped, :full, :index, :precompiler, :eod)
+      alias_method :eod?, :eod
+
+      def tabs
+        line = self
+        @tabs ||= precompiler.instance_eval do
+          break 0 if line.text.empty? || !(whitespace = line.full[/^\s+/])
+          
+          if @indentation.nil?
+            @indentation = whitespace
+
+            if @indentation.include?(?\s) && @indentation.include?(?\t)
+              raise SyntaxError.new("Indentation can't use both tabs and spaces.", line.index)
+            end
+
+            @flat_spaces = @indentation * @template_tabs if flat?
+            break 1
+          end
+
+          tabs = whitespace.length / @indentation.length
+          break tabs if whitespace == @indentation * tabs
+          break @template_tabs if flat? && whitespace =~ /^#{@indentation * @template_tabs}/
+
+          raise SyntaxError.new(<<END.strip.gsub("\n", ' '), line.index)
+Inconsistent indentation: #{Haml::Shared.human_indentation whitespace, true} used for indentation,
+but the rest of the document was indented using #{Haml::Shared.human_indentation @indentation}.
+END
+        end
+      end
+    end
+
+    def precompile
+      @haml_comment = @dont_indent_next_line = @dont_tab_up_next_text = false
+      @indentation = nil
+      @line = next_line
+      resolve_newlines
+      newline
+
+      raise SyntaxError.new("Indenting at the beginning of the document is illegal.", @line.index) if @line.tabs != 0
+
+      while next_line
+        process_indent(@line) unless @line.text.empty?
+
+        if flat?
+          push_flat(@line)
+          @line = @next_line
+          newline
+          next
+        end
+
+        process_line(@line.text, @line.index) unless @line.text.empty? || @haml_comment
+
+        if !flat? && @next_line.tabs - @line.tabs > 1
+          raise SyntaxError.new("The line was indented #{@next_line.tabs - @line.tabs} levels deeper than the previous line.", @next_line.index)
+        end
+
+        resolve_newlines unless @next_line.eod?
+        @line = @next_line
+        newline unless @next_line.eod?
+      end
+
+      # Close all the open tags
+      close until @to_close_stack.empty?
+      flush_merged_text
+    end
+
+    # Processes and deals with lowering indentation.
+    def process_indent(line)
+      return unless line.tabs <= @template_tabs && @template_tabs > 0
+
+      to_close = @template_tabs - line.tabs
+      to_close.times { |i| close unless to_close - 1 - i == 0 && mid_block_keyword?(line.text) }
+    end
+
+    # Processes a single line of Haml.
+    #
+    # This method doesn't return anything; it simply processes the line and
+    # adds the appropriate code to <tt>@precompiled</tt>.
+    def process_line(text, index)
+      @index = index + 1
+
+      case text[0]
+      when DIV_CLASS, DIV_ID
+        return push_interpolate(text) if text[0..1] == '#{' and contains_interpolation?(text)
+        render_div(text)
+      when ELEMENT; render_tag(text)
+      when COMMENT; render_comment(text[1..-1].strip)
+      when SANITIZE
+        return push_script(unescape_interpolation(text[3..-1].strip), false, false, false, true) if text[1..2] == "=="
+        return push_script(text[2..-1].strip, false, false, false, true) if text[1] == SCRIPT
+        return push_script(unescape_interpolation(text[1..-1].strip), false, false, false, true) if text[1] == ?\s
+        return push_interpolate(text) if contains_interpolation?(text)
+        push_plain text
+      when SCRIPT
+        return push_script(unescape_interpolation(text[2..-1].strip), false) if text[1] == SCRIPT
+        return push_script(text[1..-1], false, false, false, true) if options[:escape_html]
+        push_script(text[1..-1], false)
+      when FLAT_SCRIPT; push_flat_script(text[1..-1])
+      when SILENT_SCRIPT
+        return start_haml_comment if text[1] == SILENT_COMMENT
+
+        raise SyntaxError.new(<<END.rstrip, index) if text[1..-1].strip == "end"
+You don't need to use "- end" in Haml. Use indentation instead:
+- if foo?
+  %strong Foo!
+- else
+  Not foo.
+END
+#'
+        push_silent(text[1..-1], true)
+        newline_now
+
+        case_stmt = text[1..-1].split(' ', 2)[0] == "case"
+        block = block_opened? && !mid_block_keyword?(text)
+        push_and_tabulate([:script]) if block || case_stmt
+        push_and_tabulate(:nil)      if block && case_stmt
+      when FILTER; start_filtered(text[1..-1].downcase)
+      when DOCTYPE_OR_UNESCAPE
+        return render_doctype(text) if text[0...3] == '!!!'
+        return push_script(unescape_interpolation(text[3..-1].strip), false) if text[1..2] == "=="
+        return push_script(text[2..-1].strip, false) if text[1] == SCRIPT
+        return push_script(unescape_interpolation(text[1..-1].strip), false) if text[1] == ?\s
+        return push_interpolate(text) if contains_interpolation?(text)
+        push_plain text
+      when ESCAPE
+        return push_interpolate(text[1..-1]) if contains_interpolation?(text)
+        push_plain text[1..-1]
+      else
+        return push_interpolate(text) if contains_interpolation?(text)
+        push_plain text
+      end
+    end
+
+    # Returns whether or not the text is a silent script text with one
+    # of Ruby's mid-block keywords.
+    def mid_block_keyword?(text)
+      text.length > 2 && text[0] == SILENT_SCRIPT && MID_BLOCK_KEYWORDS.include?(text[1..-1].split[0])
+    end
+
+    # Evaluates <tt>text</tt> in the context of the scope object, but
+    # does not output the result.
+    def push_silent(text, can_suppress = false)
+      flush_merged_text
+      return if can_suppress && options[:suppress_eval]
+      @precompiled << "#{text};"
+    end
+
+    # Adds <tt>text</tt> to <tt>@buffer</tt> with appropriate tabulation
+    # without parsing it.
+    def push_merged_text(text, tab_change = 0, indent = true)
+      text = !indent || @dont_indent_next_line || @options[:ugly] ? text : "#{'  ' * @output_tabs}#{text}"
+      @to_merge << [:text, text, tab_change]
+      @dont_indent_next_line = false
+    end
+
+    # Concatenate <tt>text</tt> to <tt>@buffer</tt> without tabulation.
+    def concat_merged_text(text)
+      @to_merge << [:text, text, 0]
+    end
+
+    def push_text(text, tab_change = 0)
+      push_merged_text("#{text}\n", tab_change)
+    end
+
+    def push_interpolate(text)
+      push_script(unescape_interpolation(text.strip), false)
+    end
+
+    def flush_merged_text
+      return if @to_merge.empty?
+
+      text, tab_change = @to_merge.inject(["", 0]) do |(str, mtabs), (type, val, tabs)|
+        case type
+        when :text
+          [str << val.gsub('#{', "\\\#{"), mtabs + tabs]
+        when :script
+          if mtabs != 0 && !@options[:ugly]
+            val = "_hamlout.adjust_tabs(#{mtabs}); " + val
+          end
+          [str << "\#{#{val}}", 0]
+        else
+          raise SyntaxError.new("[HAML BUG] Undefined entry in Haml::Precompiler@to_merge.")
+        end
+      end
+
+      @precompiled <<
+        if @options[:ugly]
+          "_erbout << #{unescape_interpolation(text)};"
+        else
+          "_hamlout.push_text(#{unescape_interpolation(text)}, #{tab_change}, #{@dont_tab_up_next_text.inspect});"
+        end
+      @to_merge = []
+      @dont_tab_up_next_text = false
+    end
+
+    # Renders a block of text as plain text.
+    # Also checks for an illegally opened block.
+    def push_plain(text)
+      if block_opened?
+        raise SyntaxError.new("Illegal nesting: nesting within plain text is illegal.", @next_line.index)
+      end
+
+      push_text text
+    end
+
+    # Adds +text+ to <tt>@buffer</tt> while flattening text.
+    def push_flat(line)
+      text = line.full.dup
+      text = "" unless text.gsub!(/^#{@flat_spaces}/, '')
+      @filter_buffer << "#{text}\n"
+    end
+
+    # Causes <tt>text</tt> to be evaluated in the context of
+    # the scope object and the result to be added to <tt>@buffer</tt>.
+    #
+    # If <tt>preserve_script</tt> is true, Haml::Helpers#find_and_flatten is run on
+    # the result before it is added to <tt>@buffer</tt>
+    def push_script(text, preserve_script, in_tag = false, preserve_tag = false,
+                    escape_html = false, nuke_inner_whitespace = false)
+      raise SyntaxError.new("There's no Ruby code for = to evaluate.") if text.empty?
+      return if options[:suppress_eval]
+
+      args = [preserve_script, in_tag, preserve_tag, escape_html,
+              nuke_inner_whitespace, !block_opened?, @options[:ugly]]
+      no_format = @options[:ugly] && !(preserve_script || preserve_tag || escape_html)
+      temp = "haml_temp_#{@temp_count}"
+      @temp_count += 1
+      out = "_hamlout.#{static_method_name(:format_script, *args)}(#{temp});"
+
+      # Prerender tabulation unless we're in a tag
+      push_merged_text '' unless in_tag
+
+      unless block_opened?
+        @to_merge << [:script, no_format ? "#{text}\n" : "#{temp} = #{text}\n#{out}"]
+        concat_merged_text("\n") unless in_tag || nuke_inner_whitespace
+        @newlines -= 1
+        return
+      end
+
+      flush_merged_text
+
+      push_silent "#{temp} = #{text}"
+      newline_now
+      push_and_tabulate([:loud, "_erbout << #{no_format ? "#{temp}.to_s;" : out}",
+        !(in_tag || nuke_inner_whitespace || @options[:ugly])])
+    end
+
+    # Causes <tt>text</tt> to be evaluated, and Haml::Helpers#find_and_flatten
+    # to be run on it afterwards.
+    def push_flat_script(text)
+      flush_merged_text
+
+      raise SyntaxError.new("There's no Ruby code for ~ to evaluate.") if text.empty?
+      push_script(text, true)
+    end
+
+    def start_haml_comment
+      return unless block_opened?
+
+      @haml_comment = true
+      push_and_tabulate([:haml_comment])
+    end
+
+    # Closes the most recent item in <tt>@to_close_stack</tt>.
+    def close
+      tag, *rest = @to_close_stack.pop
+      send("close_#{tag}", *rest)
+    end
+
+    # Puts a line in <tt>@precompiled</tt> that will add the closing tag of
+    # the most recently opened tag.
+    def close_element(value)
+      tag, nuke_outer_whitespace, nuke_inner_whitespace = value
+      @output_tabs -= 1 unless nuke_inner_whitespace
+      @template_tabs -= 1
+      rstrip_buffer! if nuke_inner_whitespace
+      push_merged_text("</#{tag}>" + (nuke_outer_whitespace ? "" : "\n"),
+                       nuke_inner_whitespace ? 0 : -1, !nuke_inner_whitespace)
+      @dont_indent_next_line = nuke_outer_whitespace
+    end
+
+    # Closes a Ruby block.
+    def close_script
+      push_silent "end", true
+      @template_tabs -= 1
+    end
+
+    # Closes a comment.
+    def close_comment(has_conditional)
+      @output_tabs -= 1
+      @template_tabs -= 1
+      close_tag = has_conditional ? "<![endif]-->" : "-->"
+      push_text(close_tag, -1)
+    end
+
+    # Closes a loud Ruby block.
+    def close_loud(command, add_newline)
+      push_silent 'end', true
+      @precompiled << command
+      @template_tabs -= 1
+      concat_merged_text("\n") if add_newline
+    end
+
+    # Closes a filtered block.
+    def close_filtered(filter)
+      filter.internal_compile(self, @filter_buffer)
+      @flat = false
+      @flat_spaces = nil
+      @filter_buffer = nil
+      @template_tabs -= 1
+    end
+
+    def close_haml_comment
+      @haml_comment = false
+      @template_tabs -= 1
+    end
+
+    def close_nil
+      @template_tabs -= 1
+    end
+
+    # Iterates through the classes and ids supplied through <tt>.</tt>
+    # and <tt>#</tt> syntax, and returns a hash with them as attributes,
+    # that can then be merged with another attributes hash.
+    def parse_class_and_id(list)
+      attributes = {}
+      list.scan(/([#.])([-_a-zA-Z0-9]+)/) do |type, property|
+        case type
+        when '.'
+          if attributes['class']
+            attributes['class'] += " "
+          else
+            attributes['class'] = ""
+          end
+          attributes['class'] += property
+        when '#'; attributes['id'] = property
+        end
+      end
+      attributes
+    end
+
+    def parse_literal_value(text)
+      return nil unless text
+      text.match(LITERAL_VALUE_REGEX)
+
+      # $2 holds the value matched by a symbol, but is nil for a string match
+      # $5 holds the value matched by a string
+      $2 || $5
+    end
+
+    def parse_static_hash(text)
+      return {} unless text
+
+      attributes = {}
+      text.split(',').each do |attrib|
+        key, value, more = attrib.split('=>')
+
+        # Make sure the key and value and only the key and value exist
+        # Otherwise, it's too complicated or dynamic and we'll defer it to the actual Ruby parser
+        key = parse_literal_value key
+        value = parse_literal_value value
+        return nil if more || key.nil? || value.nil?
+
+        attributes[key] = value
+      end
+      text.count("\n").times { newline }
+      attributes
+    end
+
+    # This is a class method so it can be accessed from Buffer.
+    def self.build_attributes(is_html, attr_wrapper, attributes = {})
+      quote_escape = attr_wrapper == '"' ? "&quot;" : "&apos;"
+      other_quote_char = attr_wrapper == '"' ? "'" : '"'
+
+      result = attributes.collect do |attr, value|
+        next if value.nil?
+
+        if value == true
+          next " #{attr}" if is_html
+          next " #{attr}=#{attr_wrapper}#{attr}#{attr_wrapper}"
+        elsif value == false
+          next
+        end
+
+        value = Haml::Helpers.preserve(Haml::Helpers.escape_once(value.to_s))
+        # We want to decide whether or not to escape quotes
+        value.gsub!('&quot;', '"')
+        this_attr_wrapper = attr_wrapper
+        if value.include? attr_wrapper
+          if value.include? other_quote_char
+            value = value.gsub(attr_wrapper, quote_escape)
+          else
+            this_attr_wrapper = other_quote_char
+          end
+        end
+        " #{attr}=#{this_attr_wrapper}#{value}#{this_attr_wrapper}"
+      end
+      result.compact.sort.join
+    end
+
+    def prerender_tag(name, self_close, attributes)
+      attributes_string = Precompiler.build_attributes(html?, @options[:attr_wrapper], attributes)
+      "<#{name}#{attributes_string}#{self_close && xhtml? ? ' /' : ''}>"
+    end
+
+    # Parses a line into tag_name, attributes, attributes_hash, object_ref, action, value
+    def parse_tag(line)
+      raise SyntaxError.new("Invalid tag: \"#{line}\".") unless match = line.scan(/%([-:\w]+)([-\w\.\#]*)(.*)/)[0]
+      tag_name, attributes, rest = match
+      attributes_hash, rest, last_line = parse_attributes(rest) if rest[0] == ?{
+      if rest
+        object_ref, rest = balance(rest, ?[, ?]) if rest[0] == ?[
+        attributes_hash, rest, last_line = parse_attributes(rest) if rest[0] == ?{ && attributes_hash.nil?
+        nuke_whitespace, action, value = rest.scan(/(<>|><|[><])?([=\/\~&!])?(.*)?/)[0]
+        nuke_whitespace ||= ''
+        nuke_outer_whitespace = nuke_whitespace.include? '>'
+        nuke_inner_whitespace = nuke_whitespace.include? '<'
+      end
+      value = value.to_s.strip
+      [tag_name, attributes, attributes_hash, object_ref, nuke_outer_whitespace,
+       nuke_inner_whitespace, action, value, last_line || @index]
+    end
+
+    def parse_attributes(line)
+      line = line.dup
+      last_line = @index
+
+      begin
+        attributes_hash, rest = balance(line, ?{, ?})
+      rescue SyntaxError => e
+        if line.strip[-1] == ?, && e.message == "Unbalanced brackets."
+          line << "\n" << @next_line.text
+          last_line += 1
+          next_line
+          retry
+        end
+
+        raise e
+      end
+
+      attributes_hash = attributes_hash[1...-1] if attributes_hash
+      return attributes_hash, rest, last_line
+    end
+
+    # Parses a line that will render as an XHTML tag, and adds the code that will
+    # render that tag to <tt>@precompiled</tt>.
+    def render_tag(line)
+      tag_name, attributes, attributes_hash, object_ref, nuke_outer_whitespace,
+        nuke_inner_whitespace, action, value, last_line = parse_tag(line)
+
+      raise SyntaxError.new("Illegal element: classes and ids must have values.") if attributes =~ /[\.#](\.|#|\z)/
+
+      # Get rid of whitespace outside of the tag if we need to
+      rstrip_buffer! if nuke_outer_whitespace
+
+      preserve_tag = options[:preserve].include?(tag_name)
+      nuke_inner_whitespace ||= preserve_tag
+      preserve_tag &&= !options[:ugly]
+
+      case action
+      when '/'; self_closing = true
+      when '~'; parse = preserve_script = true
+      when '='
+        parse = true
+        value = unescape_interpolation(value[1..-1].strip) if value[0] == ?=
+      when '&', '!'
+        if value[0] == ?=
+          parse = true
+          value = (value[1] == ?= ? unescape_interpolation(value[2..-1].strip) : value[1..-1].strip)
+        elsif contains_interpolation?(value)
+          parse = true
+          value = unescape_interpolation(value.strip)
+        end
+      else
+        if contains_interpolation?(value)
+          # switch to parse if interpolation is detected
+          parse = true
+          value = unescape_interpolation(value.strip)
+        end
+      end
+
+      if parse && @options[:suppress_eval]
+        parse = false
+        value = ''
+      end
+
+      escape_html = (action == '&' || (action != '!' && @options[:escape_html]))
+
+      object_ref = "nil" if object_ref.nil? || @options[:suppress_eval]
+
+      static_attributes = parse_static_hash(attributes_hash) # Try pre-compiling a static attributes hash
+      attributes_hash = nil if static_attributes || @options[:suppress_eval]
+      attributes = parse_class_and_id(attributes)
+      Buffer.merge_attrs(attributes, static_attributes) if static_attributes
+
+      raise SyntaxError.new("Illegal nesting: nesting within a self-closing tag is illegal.", @next_line.index) if block_opened? && self_closing
+      raise SyntaxError.new("Illegal nesting: content can't be both given on the same line as %#{tag_name} and nested within it.", @next_line.index) if block_opened? && !value.empty?
+      raise SyntaxError.new("There's no Ruby code for #{action} to evaluate.", last_line - 1) if parse && value.empty?
+      raise SyntaxError.new("Self-closing tags can't have content.", last_line - 1) if self_closing && !value.empty?
+
+      self_closing ||= !!( !block_opened? && value.empty? && @options[:autoclose].include?(tag_name) )
+
+      dont_indent_next_line =
+        (nuke_outer_whitespace && !block_opened?) ||
+        (nuke_inner_whitespace && block_opened?)
+
+      # Check if we can render the tag directly to text and not process it in the buffer
+      if object_ref == "nil" && attributes_hash.nil? && !preserve_script
+        tag_closed = !block_opened? && !self_closing && !parse
+
+        open_tag  = prerender_tag(tag_name, self_closing, attributes)
+        if tag_closed
+          open_tag << "#{value}</#{tag_name}>"
+          open_tag << "\n" unless nuke_outer_whitespace
+        else
+          open_tag << "\n" unless parse || nuke_inner_whitespace || (self_closing && nuke_outer_whitespace)
+        end
+        
+        push_merged_text(open_tag, tag_closed || self_closing || nuke_inner_whitespace ? 0 : 1,
+                         !nuke_outer_whitespace)
+
+        @dont_indent_next_line = dont_indent_next_line
+        return if tag_closed
+      else
+        flush_merged_text
+        content = value.empty? || parse ? 'nil' : value.dump
+        attributes_hash = ', ' + attributes_hash if attributes_hash
+        args = [tag_name, self_closing, !block_opened?, preserve_tag, escape_html,
+                attributes, nuke_outer_whitespace, nuke_inner_whitespace
+               ].map { |v| v.inspect }.join(', ')
+        push_silent "_hamlout.open_tag(#{args}, #{object_ref}, #{content}#{attributes_hash})"
+        @dont_tab_up_next_text = @dont_indent_next_line = dont_indent_next_line
+      end
+
+      return if self_closing
+
+      if value.empty?
+        push_and_tabulate([:element, [tag_name, nuke_outer_whitespace, nuke_inner_whitespace]])
+        @output_tabs += 1 unless nuke_inner_whitespace
+        return
+      end
+
+      if parse
+        push_script(value, preserve_script, true, preserve_tag, escape_html, nuke_inner_whitespace)
+        concat_merged_text("</#{tag_name}>" + (nuke_outer_whitespace ? "" : "\n"))
+      end
+    end
+
+    # Renders a line that creates an XHTML tag and has an implicit div because of
+    # <tt>.</tt> or <tt>#</tt>.
+    def render_div(line)
+      render_tag('%div' + line)
+    end
+
+    # Renders an XHTML comment.
+    def render_comment(line)
+      conditional, line = balance(line, ?[, ?]) if line[0] == ?[
+      line.strip!
+      conditional << ">" if conditional
+
+      if block_opened? && !line.empty?
+        raise SyntaxError.new('Illegal nesting: nesting within a tag that already has content is illegal.', @next_line.index)
+      end
+
+      open = "<!--#{conditional} "
+
+      # Render it statically if possible
+      unless line.empty?
+        return push_text("#{open}#{line} #{conditional ? "<![endif]-->" : "-->"}")
+      end
+
+      push_text(open, 1)
+      @output_tabs += 1
+      push_and_tabulate([:comment, !conditional.nil?])
+      unless line.empty?
+        push_text(line)
+        close
+      end
+    end
+
+    # Renders an XHTML doctype or XML shebang.
+    def render_doctype(line)
+      raise SyntaxError.new("Illegal nesting: nesting within a header command is illegal.", @next_line.index) if block_opened?
+      doctype = text_for_doctype(line)
+      push_text doctype if doctype
+    end
+
+    def text_for_doctype(text)
+      text = text[3..-1].lstrip.downcase
+      if text.index("xml") == 0
+        return nil if html?
+        wrapper = @options[:attr_wrapper]
+        return "<?xml version=#{wrapper}1.0#{wrapper} encoding=#{wrapper}#{text.split(' ')[1] || "utf-8"}#{wrapper} ?>"
+      end
+
+      if html5?
+        '<!DOCTYPE html>'
+      else
+        version, type = text.scan(DOCTYPE_REGEX)[0]
+
+        if xhtml?
+          if version == "1.1"
+            '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'
+          else
+            case type
+            when "strict";   '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
+            when "frameset"; '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">'
+            when "mobile";   '<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.2//EN" "http://www.openmobilealliance.org/tech/DTD/xhtml-mobile12.dtd">'
+            when "basic";    '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.1//EN" "http://www.w3.org/TR/xhtml-basic/xhtml-basic11.dtd">'
+            else             '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
+            end
+          end
+
+        elsif html4?
+          case type
+          when "strict";   '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'
+          when "frameset"; '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'
+          else             '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
+          end
+        end
+      end
+    end
+
+    # Starts a filtered block.
+    def start_filtered(name)
+      raise Error.new("Invalid filter name \":#{name}\".") unless name =~ /^\w+$/
+      raise Error.new("Filter \"#{name}\" is not defined.") unless filter = Filters.defined[name]
+
+      push_and_tabulate([:filtered, filter])
+      @flat = true
+      @filter_buffer = String.new
+
+      # If we don't know the indentation by now, it'll be set in Line#tabs
+      @flat_spaces = @indentation * @template_tabs if @indentation
+    end
+
+    def raw_next_line
+      text = @template.shift
+      return unless text
+
+      index = @template_index
+      @template_index += 1
+
+      return text, index
+    end
+
+    def next_line
+      text, index = raw_next_line
+      return unless text
+
+      # :eod is a special end-of-document marker
+      line = 
+        if text == :eod
+          Line.new '-#', '-#', '-#', index, self, true
+        else
+          Line.new text.strip, text.lstrip.chomp, text, index, self, false
+        end
+
+      # `flat?' here is a little outdated,
+      # so we have to manually check if the previous line closes the flat block.
+      unless flat? && (@line.text.empty? || @line.tabs >= @template_tabs)
+        if line.text.empty?
+          newline
+          return next_line
+        end
+
+        handle_multiline(line)
+      end
+
+      @next_line = line
+    end
+
+    def un_next_line(line)
+      @template.unshift line
+      @template_index -= 1
+    end
+
+    def handle_multiline(line)
+      if is_multiline?(line.text)
+        line.text.slice!(-1)
+        while new_line = raw_next_line.first
+          break if new_line == :eod
+          newline and next if new_line.strip.empty?
+          break unless is_multiline?(new_line.strip)
+          line.text << new_line.strip[0...-1]
+          newline
+        end
+        un_next_line new_line
+        resolve_newlines
+      end
+    end
+
+    # Checks whether or not +line+ is in a multiline sequence.
+    def is_multiline?(text)
+      text && text.length > 1 && text[-1] == MULTILINE_CHAR_VALUE && text[-2] == ?\s
+    end
+
+    def contains_interpolation?(str)
+      interpolation_index = str.index('#{')
+      if interpolation_index
+        # checks the rest of the line for a closing brace
+        return !str.index("}", interpolation_index).nil?
+      else
+        return false
+      end
+    end
+
+    def unescape_interpolation(str)
+      res = ''
+      rest = Haml::Shared.handle_interpolation str.dump do |scan|
+        escapes = (scan[2].size - 1) / 2
+        res << scan.matched[0...-3 - escapes]
+        if escapes % 2 == 1
+          res << '#{'
+        else
+          res << '#{' + eval('"' + balance(scan, ?{, ?}, 1)[0][0...-1] + '"') + "}"# Use eval to get rid of string escapes
+        end
+      end
+      res + rest
+    end
+
+    def balance(*args)
+      res = Haml::Shared.balance(*args)
+      return res if res
+      raise SyntaxError.new("Unbalanced brackets.")
+    end
+
+    def block_opened?
+      !flat? && @next_line.tabs > @line.tabs
+    end
+
+    # Pushes value onto <tt>@to_close_stack</tt> and increases
+    # <tt>@template_tabs</tt>.
+    def push_and_tabulate(value)
+      @to_close_stack.push(value)
+      @template_tabs += 1
+    end
+
+    def flat?
+      @flat
+    end
+
+    def newline
+      @newlines += 1
+    end
+
+    def newline_now
+      @precompiled << "\n"
+      @newlines -= 1
+    end
+
+    def resolve_newlines
+      return unless @newlines > 0
+      @precompiled << "\n" * @newlines
+      @newlines = 0
+    end
+
+    # Get rid of and whitespace at the end of the buffer
+    # or the merged text
+    def rstrip_buffer!
+      if @to_merge.empty?
+        push_silent("_erbout.rstrip!", false)
+        @dont_tab_up_next_text = true
+        return
+      end
+
+      last = @to_merge.last
+      case last.first
+      when :text
+        last[1].rstrip!
+        if last[1].empty?
+          @to_merge.pop
+          rstrip_buffer!
+        end
+      when :script
+        last[1].gsub!(/\(haml_temp, (.*?)\);$/, '(haml_temp.rstrip, \1);')
+      else
+        raise SyntaxError.new("[HAML BUG] Undefined entry in Haml::Precompiler@to_merge.")
+      end
+    end
+  end
+end