# custom type
class WindowSize
  attr_reader :width, :height
  
  def self.to_mongo(value)
    value.to_a
  end
  
  def self.from_mongo(value)
    value.is_a?(self) ? value : WindowSize.new(value)
  end
  
  def initialize(*args)
    @width, @height = args.flatten
  end
  
  def to_a
    [width, height]
  end
  
  def ==(other)
    other.is_a?(self.class) && other.width == width && other.height == height
  end
end


class Post
  include MongoMapper::Document

  key :title, String
  key :body, String

  has_many :comments, :as => :commentable, :class_name => 'PostComment'

  timestamps!
end

class PostComment
  include MongoMapper::Document

  key :username, String, :default => 'Anonymous'
  key :body, String

  key :commentable_id, String
  key :commentable_type, String
  belongs_to :commentable, :polymorphic => true

  timestamps!
end

class Address
  include MongoMapper::EmbeddedDocument

  key :address, String
  key :city,    String
  key :state,   String
  key :zip,     Integer
end

class Message
  include MongoMapper::Document

  key :body, String
  key :position, Integer
  key :_type, String
  key :room_id, String

  belongs_to :room
end

class Enter < Message; end
class Exit < Message;  end
class Chat < Message;  end

class Room
  include MongoMapper::Document

  key :name, String
  many :messages, :polymorphic => true
end

class Answer
  include MongoMapper::Document

  key :body, String
end

class Project
  include MongoMapper::Document

  key :name, String
  many :statuses
  many :addresses
end

class Status
  include MongoMapper::Document

  key :project_id, String
  key :target_id, String
  key :target_type, String
  key :name, String
  key :position, Integer

  belongs_to :project
  belongs_to :target, :polymorphic => true
end

class RealPerson
  include MongoMapper::Document

  many :pets
  key :name, String

  def realname=(n)
    self.name = n
  end
end

class Person
  include MongoMapper::EmbeddedDocument

  key :name, String
  key :child, Person

  many :pets
end

class Pet
  include MongoMapper::EmbeddedDocument

  key :name, String
  key :species, String
end

class Media
  include MongoMapper::EmbeddedDocument

  key :_type, String
  key :file, String
end

class Video < Media
  key :length, Integer
end

class Image < Media
  key :width, Integer
  key :height, Integer
end

class Music < Media
  key :bitrate, String
end

class Catalog
  include MongoMapper::Document

  many :medias, :polymorphic => true
end

module TrModels
  class Transport
    include MongoMapper::EmbeddedDocument

    key :_type, String
    key :license_plate, String
  end

  class Car < TrModels::Transport
    include MongoMapper::EmbeddedDocument

    key :model, String
    key :year, Integer
  end

  class Bus < TrModels::Transport
    include MongoMapper::EmbeddedDocument

    key :max_passengers, Integer
  end

  class Ambulance < TrModels::Transport
    include MongoMapper::EmbeddedDocument

    key :icu, Boolean
  end

  class Fleet
    include MongoMapper::Document

    many :transports, :polymorphic => true, :class_name => "TrModels::Transport"
    key :name, String
  end
end

module Hollywood
  class Movie
    include MongoMapper::Document
    
    many :roles
  end

  class Actor
    include MongoMapper::Document
    
    many :roles
  end
  
  class Role
    include MongoMapper::Document

    key :movie_id, String
    key :actor_id, String
    
    belongs_to :movie
    belongs_to :actor
  end
end