test speech balloon extended

[pettanr/pettanr.git] / app / models / sheet.rb

class Sheet < Peta::Root
  load_manifest
  has_many :sheet_panels
  has_many :story_sheets
  belongs_to :author
  
  validates :caption, :presence => true, :length => {:maximum => 100}
  validates :width, :presence => true, :numericality => true, :natural_number => true
  validates :height, :presence => true, :numericality => true, :natural_number => true
  validates :visible, :presence => true, :numericality => true, :inclusion => {:in => 0..1}
  accepts_nested_attributes_for :sheet_panels, :allow_destroy => true
  
  def self.each_element_class_names
    {'SheetPanel' => 'sheet_panels'}.each do |k, n|
      yield k
    end
  end
  
  def self.class_name_to_class k
    Object.const_get k
  end
  
  def self.each_element_classes
    self.each_element_class_names do |k|
      e = self.class_name_to_class k
      yield e
    end
  end
  
  def elements_by_class_name class_name
    self.__send__ class_name.tableize
  end
  
  def supply_default
    self.visible = 0 if self.visible.blank?
  end
  
  def overwrite operators
    return false unless operators.author
    self.author_id = operators.author.id
  end
  
  def visible? operators
    case super
    when nil # super return
      return true
    when false
      return false
    else
      self.visible > 0
    end
  end
  
  def usable? operators
    self.visible? operators
  end
  
  def symbol_filename
  end
  
  def self.public_list_where
    'sheets.visible > 0'
  end
  
  def self.list_order
    'sheets.updated_at desc'
  end
  
  def self.list_opt
    {:sheet_panels => {:panel => {}}, :author => {} }
  end
  
  def self.list_json_opt
    {:include => {:sheet_panels => {:include => {:panel => {}}}, :author => {}}}
  end
  
  def self.show_opt
    {:include => {:sheet_panels => {:panel => {}}, :author => {}}}
  end
  
  def self.show_json_opt
    {:include => {:sheet_panels => {:include => {:panel => {}}}, :author => {}}}
  end
  
  def parts_element
    r = []
    self.class.each_element_class_names do |k|
      r += (self.elements_by_class_name(k) || [])
    end
    r
  end
  
  def zorderd_elements
    res = []
    self.parts_element.each do |e|
      res[e.z-1] = e
    end
    res
  end
  
  def sheet_elements
    res = []
    self.parts_element.each do |e|
      res[e.t] = e
    end
    res
  end
  
  def new_t
    self.sheet_elements.size
  end
  
  def new_z
    self.sheet_elements.size + 1
  end
  
  def self.visible_count
    Sheet.count 'visible > 0'
  end
  
  def self.collect_element_value elements, name
    elements.map {|e|
      e.map {|o|
        if o['_destroy'] or o[:_destroy]
          nil
        else
          o[name]
        end
      }.compact
    }.flatten
  end
  
  def self.validate_serial ary, offset = 0
    i = offset
    ary.compact.sort.each do |n|
      break false unless n == i
      i += 1
    end
    ary.compact.size == i - offset
  end
  
  def self.validate_element_serial elements, name, offset = 0
    Sheet.validate_serial(Sheet.collect_element_value(elements, name), offset)
  end
  
  def self.validate_elements_serial c
    c.map {|conf|
      Sheet.validate_element_serial(conf[:elements], conf[:name], conf[:offset]) ? nil : false
    }.compact.empty?
  end
  
  def validate_serial_list
    l = []
    self.class.each_element_class_names do |k|
      l << self.elements_by_class_name(k)
    end
#    l = [self.sheet_panels]
    [
      {:elements => l, :name => :t, :offset => 0}, 
      {:elements => l, :name => :z, :offset => 1}
    ]
  end
  
  def validate_child
#    r1 = Panel.validate_elements_id validate_id_list
    Sheet.validate_elements_serial validate_serial_list
  end
  
  def store attr, operators
    if attr == false
      self.errors.add :base, I18n.t('errors.invalid_json')
      return false
    end
    self.attributes = attr
    self.overwrite operators
    res = false
    Sheet.transaction do
      self.sheet_elements.each do |elm|
        elm.new_sheet = self
        elm.boost operators
      end
      res = self.save
      unless validate_child
        res = false
        self.errors.add :base, I18n.t('errors.invalid_t')
        raise ActiveRecord::Rollback
      end
    end
    res
  end
  
  def destroy_with_sheet_panel
    res = false
    Sheet.transaction do
      self.sheet_panels.each do |sheet_panel|
        raise ActiveRecord::Rollback unless sheet_panel.destroy
      end
      raise ActiveRecord::Rollback unless self.destroy
      res = true
    end
    res
  end
  
  def scenario
    panels.map {|panel|
      panel.scenario
    }.join
  end
  
  def plain_scenario
    panels.map {|panel|
      panel.plain_scenario
    }.join
  end
  
  def licensed_pictures
    r = {}
    self.sheet_elements.each do |elm|
      r.merge!(elm.licensed_pictures)
    end
    r
  end
  
  def copyable?
    r = true
    Sheet.each_element_class_names do |n|
      self.elements_by_class_name(n).each do |elm|
        next if elm.copyable?
        r = false
        break
      end
      break unless r
    end
    r
  end
  
  def copy
    attr = self.copy_attributes
    Sheet.each_element_class_names do |n|
      element_attr = Sheet.class_name_to_class(n).panelize(
        self.elements_by_class_name(n).map {|elm|
          elm.copy_attributes.merge elm.panel_attributes
        }
      )
      attr.merge! element_attr
    end
    attr
  end
  
  def copy_attributes
    r = self.attributes
    r.delete 'id'
    r.delete 'author_id'
    r.delete 'created_at'
    r.delete 'updated_at'
    r
  end
  
  def self.panelize sheet
    attr = sheet.attributes
    attr.delete 'id'
    attr
  end
  
end