require "active-fedora"
require "active_fedora_finders"
class Concept < GenericAggregator
  include ::ActiveFedora::FinderMethods::RepositoryMethods
  include ::ActiveFedora::DatastreamCollections
  include ::Hydra::ModelMethods
  include Cul::Hydra::Models::Common
  include Cul::Hydra::Models::Aggregator

  rdf_types(RDF::CUL.Aggregator)
  rdf_types(RDF::PCDM.Object)

  has_file_datastream :name => "descriptionText", :type=>::ActiveFedora::Datastream,
                 :versionable => false, :label => 'Textual Description of Concept',
                 :mimeType => 'text/markdown'

  has_and_belongs_to_many :containers, :property=>:cul_member_of, :class_name=>'ActiveFedora::Base'

  def route_as
    "concept"
  end

  def index_type_label
    "CONCEPT"
  end

  def abstract
    get_singular_rel(:abstract)
  end

  def abstract=(val)
    set_singular_rel(:abstract, val, true)
  end

  def description_ds
    candidate =
      relationships(:description).select { |v| v.to_s.index(self.internal_uri.to_s) == 0 }
    candidate = candidate.first
    candidate = candidate.to_s.split('/')[2]
    datastreams[candidate] unless candidate.blank?
  end

  # a marked up description of this concept suitable for embedding in a web page
  # http://purl.org/dc/terms/description
  def description
    ds = description_ds
    return nil unless ds
    ds.content.to_s
  end

  def description=(value)
    return unless value
    blob = (value.is_a? String) ? StringIO.new(value) : value
    ds = description_ds
    if ds
      ds.content = value
    else
      add_relationship(:description, internal_uri.to_s + "/descriptionText")
      datastreams['descriptionText'].content =  value
    end
  end

  # a human readable PREMIS restriction ('Onsite', etc.)
  # http://www.bbc.co.uk/ontologies/coreconcepts/slug
  def restriction
    get_singular_rel(:restriction)
  end

  def restriction=(val)
    set_singular_rel(:restriction, val, true)
  end

  # a human readable URI segment for this concept
  # http://www.bbc.co.uk/ontologies/coreconcepts/slug
  def slug
    get_singular_rel(:slug)
  end

  def slug=(val)
    set_singular_rel(:slug, val, true)
  end

  # a URI property indicating the service endpoint associated with this concept
  # http://purl.org/dc/terms/source
  def source
    get_singular_rel(:source)
  end

  def source=(val)
    set_singular_rel(:source, val)
  end

  # a short or abbreviated title
  # http://purl.org/ontology/bibo/shortTitle
  def short_title
    get_singular_rel(:short_title)
  end

  def short_title=(val)
    set_singular_rel(:short_title, val, true)
  end

  # the full title
  # http://purl.org/dc/terms/title
  def title
    get_singular_rel(:title)
  end

  def title=(val)
    set_singular_rel(:title, val, true)
  end

  def get_singular_rel(predicate)
    property = relationships(predicate).first
    return nil unless property
    return (property.kind_of? RDF::Literal) ? property.value : property
  end

  def set_singular_rel(predicate, value, literal=false)
    raise "#{predicate} is a singular property" if value.respond_to? :each
    clear_relationship(predicate)
    add_relationship(predicate, value, literal)
  end

  def to_solr(solr_doc = Hash.new, opts={})
    solr_doc = super(solr_doc, opts)
    solr_doc[::ActiveFedora::SolrService.solr_name(:description_text, :displayable)] = description
    solr_doc
  end
  class SingularRelValidator < ActiveModel::Validator
    def validate(record)
      [:abstract, :alternative, :restriction, :slug, :source, :title].each do |rel|
        record.errors[rel] << "#{rel} must have 0 or 1 values" unless record.relationships(rel).length < 2
      end
    end
  end

  validates_with SingularRelValidator
end