def meta(xml, event)
  xml.dc :identifier, "#{event.id}@#{request.domain}"
  xml.dc :date, l(event.start_time, format: :xml)

  return unless event.latitude || event.longitude
  xml.georss :point, event.latitude, ' ', event.longitude
end

def event_to_rss(xml, event)
  meta xml, event

  xml.title "#{event.city}: #{event.title}, #{display_date event}"
  xml.link event_url event
  xml.description event.description
  xml.content(:encoded) { xml.cdata! event.description }
end

xml.instruct!

xml.rdf :RDF,
        'xmlns' => 'http://purl.org/rss/1.0/',
        'xmlns:rdf' => 'http://www.w3.org/1999/02/22-rdf-syntax-ns#',
        'xmlns:dc' => 'http://purl.org/dc/elements/1.1/',
        'xmlns:content' => 'http://purl.org/rss/1.0/modules/content/',
        'xmlns:georss' => 'http://www.georss.org/georss' do
  xml.channel 'rdf:about' => root_url do
    title = t 'layouts.application.title'
    region = Region.find_by id: session[:region]
    title += " [#{region.name}]" if region
    xml.title title
    xml.description t 'layouts.application.subtitle'
    xml.link root_url
    xml.dc :language, 'fr'
    xml.dc :creator, root_url

    xml.items do
      xml.rdf :Seq do
        @events.each do |event|
          xml.rdf :li, 'rdf:resource' => event_url(event)
        end
      end
    end
  end

  @events.each do |event|
    xml.item 'rdf:about' => event_url(event) do
      event_to_rss xml, event
    end
  end
end