worldly

defmodule Worldly.Locale do

  alias Worldly.Country
  alias Worldly.Region

  def locales_folder_path do
    Application.get_env(:worldly, :data_path)
    |> Path.join("locale")
  end

  def set_locale_data(model, type, locale_name\\'en')

  def set_locale_data(region, 'region', locale_name) do
    local_map = get_locale_data(region, locale_name)
                |> Enum.map(fn({key, value}) -> {String.to_atom(to_string(key)), to_string(value)} end)
    struct(region, local_map)
  end
  def set_locale_data(country, 'country', locale_name) do
    local_map =
      get_locale_data(country, locale_name)
      |> Enum.map(fn({key, value}) ->
                    {String.to_atom(to_string(key)), to_string(value)}
                 end)
    struct(country, local_map)
  end

  defp get_locale_data(%Country{alpha_2_code: country_code}, locale_name) do
    country_code_cc = to_char_list(String.downcase country_code)
    [{^locale_name, [{'world', world_data}]}] = world_locale_file(locale_name) |> load_locale_data()
    [{^country_code_cc, country_locale_data}] = Enum.filter(world_data, fn({code, _}) -> code == country_code_cc end)
    country_locale_data
  end
  defp get_locale_data(%Region{code: code, parent_file_path: parent_file_path}, locale_name) do
    code_cc = to_char_list(String.downcase to_string(code))
    [{^locale_name, [{'world', world_data}]}] = regional_locale_file_path(locale_name, parent_file_path) |> load_locale_data()
    parents = String.split(parent_file_path, "/") |> Enum.map(fn(x) -> to_char_list(x) end)
    {_, filtered_data} = Enum.map_reduce(parents, world_data, fn(p, acc) ->
      [{^p, new_acc}] = acc
      {p, new_acc}
    end)
    [{^code_cc, data_map}] = Enum.filter(filtered_data, fn({code, _}) -> code == code_cc end)
    data_map
  end

  defp locale_folder(locale_name) do
    locales_folder_path
    |> Path.join(locale_name)
  end

  defp regional_locale_file_path(locale_name, parent_file_path) do
    locale_folder(locale_name)
    |> Path.join("world")
    |> Path.join("#{parent_file_path}.yml")
  end

  defp world_locale_file(locale_name) do
    locale_folder(locale_name) |> Path.join("world.yml")
  end

  defp load_locale_data(file) do
    [locale_data] = :yamerl_constr.file file, schema: :failsafe
    locale_data
  end
end