module CopyMove
  module Model
    def new_slug_and_title_under(parent)
      test_page = self.clone
      test_page.parent = parent
      until test_page.valid?
        index = (index || 0) + 1
        raise "Couldn't generate new slug for #{id} under #{parent.id}: #{test_page.errors.full_messages.inspect}" if index > 100
        test_page.title = "#{title} Copy #{index}".first(255)
        test_page.slug = "#{slug}-copy-#{index}".first(100)
        test_page.breadcrumb = test_page.title.first(160)
        test_page.errors.clear # Reset error status before revalidating
      end
      {:slug => test_page.slug, :title => test_page.title, :breadcrumb => test_page.breadcrumb}
    end

    def move_under(parent, status = nil)
      raise CircularHierarchy.new(self) if parent == self || parent.ancestors.include?(self)
      status_id = status.blank? ? self.status_id : status
      update_attributes!(:parent_id => parent.id, :status_id => status_id)
      assume_bottom_position if defined?(Reorder)
    end

    def copy_to(parent, status = nil)
      parent.children.build(copiable_attributes.symbolize_keys.merge(new_slug_and_title_under(parent))).tap do |new_page|
        self.parts.each do |part|
          new_page.parts << part.clone
        end
        new_page.send :add_to_list_bottom if defined?(Reorder)
        new_page.status_id = status.blank? ? new_page.status_id : status
        new_page.save!
      end
    end

    def copy_with_children_to(parent, status = nil)
      copy_to(parent, status).tap do |new_page|
        children.each {|child| child.copy_to(new_page, status) }
      end
    end

    def copy_tree_to(parent, status = nil)
      copy_to(parent, status).tap do |new_page|
        children.each {|child| child.copy_tree_to(new_page, status) }
      end
    end

    private
    def copiable_attributes
      self.attributes.dup.delete_if {|k,v| [:id, :parent_id].include?(k.to_sym) }
    end
  end
end