# encoding: utf-8

require 'active_support/concern'

# expects underlying model to have filename, class, and id attributes
module HalApi::Representer::UriMethods
  extend ActiveSupport::Concern

  module ClassMethods
    attr_accessor :profile_host, :alternate_host

    def self_link
      link(:self) do
        {
          href: self_url(represented),
          profile: model_uri(represented)
        }
      end
    end

    def profile_link
      link(:profile) { model_uri(represented) }
    end

    def alternate_link
      link :alternate do
        {
          href: alternate_url(model_path(represented)),
          type: 'text/html'
        }
      end
    end
  end

  def model_path(represented)
    rep = becomes_represented_class(represented)
    class_path = rep.class.name.underscore.pluralize
    "#{class_path}/#{represented.id}"
  end

  def self_url(represented)
    rep = becomes_represented_class(represented)
    polymorphic_path([:api, rep])
  end

  def becomes_represented_class(rep)
    return rep unless rep.respond_to?(:becomes)
    klass = rep.try(:item_class) || rep.class.try(:base_class)
    (klass && (klass != rep.class)) ? rep.becomes(klass) : rep
  end

  def alternate_url(*path)
    "https://#{self.class.alternate_host}/#{path.map(&:to_s).join('/')}"
  end

  def model_uri(*args)
    "http://#{self.class.profile_host}/model/#{joined_names(args)}"
  end

  alias_method :profil_url, :model_uri

  def joined_names(args)
    (Array(args.map { |arg| model_uri_part_to_string(arg) }) +
      model_uri_suffix(args)).flatten.compact.join('/')
  end

  def model_uri_suffix(args)
    represented = args.last
    klass = represented.try(:item_decorator) || self.class
    klass.name.deconstantize.underscore.dasherize.split('/')[1..-1] || []
  end

  def model_uri_part_to_string(part)
    if part.is_a?(String) || part.is_a?(Symbol)
      part.to_s.dasherize
    else
      klass = part.is_a?(Class) ? part : (part.try(:item_class) || part.class)
      if klass.respond_to?(:base_class) && (klass.superclass != ActiveRecord::Base)
        base = klass.superclass.name.underscore.dasherize
        child = klass.name.underscore.gsub(/_#{base}$/, "").dasherize
        [base, child]
      else
        klass.name.underscore.dasherize
      end
    end
  end

  def method_missing(method_name, *args, &block)
    if method_name.to_s.ends_with?('_path_template')
      original_method_name = method_name[0..-10]
      template_named_path(original_method_name, *args)
    else
      super(method_name, *args, &block)
    end
  end

  def template_named_path(named_path, options)
    replace_options = options.keys.inject({}) do |s, k|
      s[k] = "_#{k.upcase}_REPLACE_"
      s
    end
    path = send(named_path, replace_options)
    replace_options.keys.each do |k|
      path.gsub!(replace_options[k], (options[k] || ''))
    end
    path
  end
end