module Padrino::Helpers::FormHelpers

def error_messages_for(*objects)
  options = objects.extract_options!.symbolize_keys
  objects = objects.collect {|object_name| object_name.is_a?(Symbol) ? instance_variable_get("@#{object_name}") : object_name }.compact
  count   = objects.inject(0) {|sum, object| sum + object.errors.size }
  unless count.zero?
    html = {}
    [:id, :class, :style].each do |key|
      if options.include?(key)
        value = options[key]
        html[key] = value unless value.blank?
      else
        html[key] = 'field-errors' unless key == :style
      end
    end
    options[:object_name] ||= objects.first.class
    I18n.with_options :locale => options[:locale], :scope => [:models, :errors, :template] do |locale|
      header_message = if options.include?(:header_message)
        options[:header_message]
      else
        object_name = options[:object_name].to_s.underscore.gsub('_', ' ')
        object_name = I18n.t(:name, :default => object_name.humanize, :scope => [:models, object_name], :count => 1)
        locale.t :header, :count => count, :model => object_name
      end
      message = options.include?(:message) ? options[:message] : locale.t(:body)
      error_messages = objects.map { |object|
        object_name = options[:object_name].to_s.underscore.gsub('_', ' ')
        object.errors.map { |f, msg|
          field = I18n.t(f, :default => f.to_s.humanize, :scope => [:models, object_name, :attributes])
          content_tag(:li, "%s %s" % [field, msg])
        }
      }.join
      contents = ''
      contents << content_tag(options[:header_tag] || :h2, header_message) unless header_message.blank?
      contents << content_tag(:p, message) unless message.blank?
      contents << content_tag(:ul, error_messages)
      content_tag(:div, contents, html)
    end
  else
    ''
  end
end

def field_set_tag(*args, &block)
  options = args.extract_options!
  legend_text = args[0].is_a?(String) ? args.first : nil
  legend_html = legend_text.blank? ? '' : content_tag(:legend, legend_text)
  field_set_content = legend_html + capture_html(&block)
  concat_content content_tag('fieldset', field_set_content, options)
end

def fields_for(object, settings={}, &block)
  builder_class = configured_form_builder_class(settings[:builder])
  fields_html = capture_html(builder_class.new(self, object), &block)
  concat_content fields_html
end

def file_field_tag(name, options={})
  options.reverse_merge!(:name => name)
  input_tag(:file, options)
end

def form_for(object, url, settings={}, &block)
  builder_class = configured_form_builder_class(settings[:builder])
  form_html = capture_html(builder_class.new(self, object), &block)
  form_tag(url, settings) { form_html }
end

def form_tag(url, options={}, &block)
  desired_method = options[:method]
  data_method = options.delete(:method) if options[:method].to_s !~ /get|post/i
  options.reverse_merge!(:method => 'post', :action => url)
  options[:enctype] = "multipart/form-data" if options.delete(:multipart)
  options["data-remote"] = "true" if options.delete(:remote)
  options["data-method"] = data_method if data_method
  inner_form_html = hidden_form_method_field(desired_method) + capture_html(&block)
  concat_content content_tag('form', inner_form_html, options)
end

def hidden_field_tag(name, options={})
  options.reverse_merge!(:name => name)
  input_tag(:hidden, options)
end

def hidden_form_method_field(desired_method)
  return '' if desired_method.blank? || desired_method.to_s =~ /get|post/i
  hidden_field_tag(:_method, :value => desired_method)
end

def image_submit_tag(source, options={})
  options.reverse_merge!(:src => image_path(source))
  input_tag(:image, options)
end

def label_tag(name, options={}, &block)
  options.reverse_merge!(:caption => "#{name.to_s.humanize}: ", :for => name)
  caption_text = options.delete(:caption)
  caption_text << "* " if options.delete(:required)
  if block_given? # label with inner content
    label_content = caption_text + capture_html(&block)
    concat_content(content_tag(:label, label_content, options))
  else # regular label
    content_tag(:label, caption_text, options)
  end
end

def options_for_select(option_items, selected_value=nil)
  return '' if option_items.blank?
  option_items.collect do |caption, value|
    value ||= caption
    content_tag(:option, caption, :value => value, :selected => selected_value.to_s =~ /#{value}|#{caption}/)
  end
end

def options_from_collection(collection, fields)
  collection.collect { |item| [ item.send(fields.first), item.send(fields.last) ] }
end

def password_field_tag(name, options={})
  options.reverse_merge!(:name => name)
  input_tag(:password, options)
end

def radio_button_tag(name, options={})
  options.reverse_merge!(:name => name)
  input_tag(:radio, options)
end

def select_tag(name, options={})
  options.reverse_merge!(:name => name)
  collection, fields = options.delete(:collection), options.delete(:fields)
  options[:options] = options_from_collection(collection, fields) if collection
  blank = options.delete(:include_blank)
  options[:options].unshift(blank.is_a?(String) ? [blank, ''] : '') if blank
  select_options_html = options_for_select(options.delete(:options), options.delete(:selected))
  options.merge!(:name => "#{options[:name]}[]") if options[:multiple]
  content_tag(:select, select_options_html, options)
end

def submit_tag(caption="Submit", options={})
  options.reverse_merge!(:value => caption)
  input_tag(:submit, options)
end

def text_area_tag(name, options={})
  options.reverse_merge!(:name => name)
  content_tag(:textarea, options.delete(:value).to_s, options)
end

def text_field_tag(name, options={})
  options.reverse_merge!(:name => name)
  input_tag(:text, options)
end