class Opml

# File lib/opml.rb, line 53
def initialize(xml)
  @doc = REXML::Document.new(xml)

  parse_head_elements :title, :owner_name, :owner_email
  parse_head_elements :date_created, :date_modified, :with => Proc.new { |e| Time.parse(e) }

  @outlines = document_body ? initialize_outlines_from_document_body : []
end

# File lib/opml.rb, line 62
def flatten
  @flatten ||= @outlines.map(&:flatten).flatten
end

# File lib/opml.rb, line 75
def define_head_attr_reader(attribute)
  self.class.send(:attr_reader, attribute)
end

# File lib/opml.rb, line 96
def document_body
  @document_body ||= @doc.elements['opml/body']
end

# File lib/opml.rb, line 79
def get_head_value(attribute)
  # if element = @doc.elements["opml/head/#{attribute.to_s.camelize(:lower)}"]
  if element = @doc.elements["opml/head/#{attribute.to_s}"]
    element.text
  end
end

# File lib/opml.rb, line 100
def initialize_outlines_from_document_body
  document_body.elements.map { |element| Outline.new(element) }
end

# File lib/opml.rb, line 67
def parse_head_elements(*elements)
  options = elements.last.is_a?(Hash) ? elements.pop : {}
  elements.each do |attribute|
    define_head_attr_reader(attribute)
    set_head_value(attribute, options)
  end
end

# File lib/opml.rb, line 86
def parse_value(value, options)
  options[:with] ? options[:with].call(value) : value
end

# File lib/opml.rb, line 90
def set_head_value(attribute, options)
  if value = get_head_value(attribute)
    instance_variable_set("@#{attribute}", parse_value(value, options))
  end
end