require 'active_model'
require 'active_record'
require 'active_support'

# :nodoc: namespace
module Authpwn

# :nodoc: namespace
module UserExtensions

# Augments the User model with an email virtual attribute.
module EmailField
  extend ActiveSupport::Concern

  included do
    validates_each :email do |record, attr, value|
      if record.email_credential
        unless record.email_credential.valid?
          record.email_credential.errors.each do |_, message|
            record.errors.add attr, message
          end
        end
      else
        record.errors.add attr, :blank
      end
    end
    if ActiveRecord::Base.respond_to? :mass_assignment_sanitizer=
      attr_accessible :email
    end
  end

  module ClassMethods
    begin
      ActiveRecord::QueryMethods.instance_method :references
      # Rails 4.

      # The user who has a certain e-mail, or nil if the e-mail is unclaimed.
      def with_email(email)
        credential = Credentials::Email.where(name: email).
            includes(:user).references(:user).first
        credential && credential.user
      end
    rescue NameError
      # Rails 3.

      def with_email(email)
        credential = Credentials::Email.where(name: email).includes(:user).
                                        first
        credential && credential.user
      end
    end
  end

  # Credentials::Email instance associated with this user.
  def email_credential
    credentials.find { |c| c.instance_of?(Credentials::Email) }
  end

  # The e-mail from the user's Email credential.
  #
  # Returns nil if this user has no Email credential.
  def email
    credential = self.email_credential
    credential && credential.email
  end

  # Sets the e-mail on the user's Email credential.
  #
  # Creates a new Credentials::Email instance if necessary.
  def email=(new_email)
    if credential = self.email_credential
      credential.email = new_email
    else
      credentials << Credentials::Email.new(email: new_email)
    end
    new_email
  end
end  # module Authpwn::UserExtensions::EmailField

end  # module Authpwn::UserExtensions

end  # module Authpwn