module AwesomePrint::Mongoid

def self.included(base)
  base.send :alias_method, :cast_without_mongoid, :cast
  base.send :alias_method, :cast, :cast_with_mongoid
end

def awesome_mongoid_bson_id(object)
  object.inspect
end

def awesome_mongoid_class(object)
  return object.inspect if !defined?(::ActiveSupport::OrderedHash) || !object.respond_to?(:fields)
  data = object.fields.sort_by { |key| key }.inject(::ActiveSupport::OrderedHash.new) do |hash, c|
    hash[c[1].name.to_sym] = (c[1].type || 'undefined').to_s.underscore.intern
    hash
  end
  name = "class #{awesome_simple(object.to_s, :class)}"
  base = "< #{awesome_simple(object.superclass.to_s, :class)}"
  [name, base, awesome_hash(data)].join(' ')
end

def awesome_mongoid_document(object)
  return object.inspect if !defined?(::ActiveSupport::OrderedHash)
  data = (object.attributes || {}).sort_by { |key| key }.inject(::ActiveSupport::OrderedHash.new) do |hash, c|
    hash[c[0].to_sym] = c[1]
    hash
  end
  data = { errors: object.errors, attributes: data } if !object.errors.empty?
  "#{object} #{awesome_hash(data)}"
end

def cast_with_mongoid(object, type)
  cast = cast_without_mongoid(object, type)
  if defined?(::Mongoid::Document)
    if object.is_a?(Class) && object.ancestors.include?(::Mongoid::Document)
      cast = :mongoid_class
    elsif object.class.ancestors.include?(::Mongoid::Document)
      cast = :mongoid_document
    elsif (defined?(::BSON) && object.is_a?(::BSON::ObjectId)) || (defined?(::Moped::BSON) && object.is_a?(::Moped::BSON::ObjectId))
      cast = :mongoid_bson_id
    end
  end
  cast
end