esx

defmodule ESx.Funcs do

  def to_mod(%{from: {_, mod}}), do: mod
  def to_mod(%{__struct__: mod}), do: mod
  def to_mod(mod), do: mod

  def to_index_name(mod) do
    to_mod(mod)
    |> to_string
    |> String.split(".")
    |> Enum.take(-2)
    |> Enum.join("-")
    |> String.downcase
  end

  def to_document_type(mod), do: to_index_name mod

  def to_map(any) when is_map(any), do: to_map Enum.into(any, [])
  def to_map(any) when is_list(any) do
    Enum.reduce any, %{}, fn {key, value}, acc ->
      map =
        if Keyword.keyword?(value) do
          Map.new [{:"#{key}", to_map(value)}]
        else
          Map.new [{:"#{key}", value}]
        end

      Map.merge acc, map
    end
  end

  def encid(mod, name) when is_list(mod) do
    encid Enum.join(mod), name
  end
  def encid(mod, name) do
    [mod, "_", name]
    |> Enum.join
    |> Base.encode64
    |> String.to_atom
  end

  def decid(name) do
    "#{name}"
    |> Base.decode64!
    |> String.split("_")
    |> List.last
  end

  def build_url!([url: url]) when is_binary(url) do
    case URI.parse(url) do
      %URI{scheme: nil} -> raise ArgumentError, "Missing scheme in #{url}"
      %URI{host: nil}   -> raise ArgumentError, "Missing host in #{url}"
      _                 -> [url: url]
    end
  end
  def build_url!([url: _]), do: raise ArgumentError, "Missing url value"

  def build_url!({:system, env}) when is_binary(env) do
    build_url! [url: System.get_env(env)]
  end

  def build_url!(cfg) when is_list(cfg) do
    u = struct URI, cfg
    u = if cfg[:protocol], do: Map.put(u, :scheme, cfg[:protocol]), else: u
    u = if cfg[:user], do: Map.put(u, :userinfo, "#{cfg[:user]}:#{cfg[:password]}"), else: u

    build_url! [url: URI.to_string u]
  end

end