Recursive Haml abuse

gistfile1.txt

    - p = Proc.new do |element, hidden, block|
      - tab_up
      %div{:id => element.div_id, :class => element.error_class, :style => "display:#{hidden ? 'none' : ''};"}
        = element.name + " (" + element.length.to_s + " instances)"
        .toggle_button
          %a{:onclick => "toggle_div('#{element.div_id}-examples');"}
            Examples
        .examples{:id => element.div_id + "-examples", :style => "display:none;"}
          - for example in element.examples
            .filename
              = example.xml_file
            .xml
              %code= html_escape(example.xml_content)
            .leiden
              = example.text
        - if element.children?
          Children:
          - for child in element.children
            .toggle_button
              %a{:onclick => "toggle_div('#{child.div_id}');"}
                = child.name
            - block.call(child, true, block)
      - tab_down
    - for ddb_element in ddb_elements
      - p.call(ddb_element, false, p)