ex_openpay

defmodule ExOpenpay.Util do
  def datetime_from_timestamp(ts) when is_binary ts do
    ts = case Integer.parse ts do
      :error -> 0
      {i, _r} -> i
    end
    datetime_from_timestamp ts
  end

  def datetime_from_timestamp(ts) when is_number ts do
    {{year, month, day}, {hour, minutes, seconds}} = :calendar.gregorian_seconds_to_datetime ts
    {{year + 1970, month, day}, {hour, minutes, seconds}}
  end

  def datetime_from_timestamp(nil) do
    datetime_from_timestamp 0
  end

  def string_map_to_atoms([string_key_map]) do
    string_map_to_atoms string_key_map
  end

  def string_map_to_atoms(string_key_map) do
    for {key, val} <- string_key_map, into: %{}, do: {String.to_atom(key), val}
  end

  def handle_openpay_response(res) do
    cond do
      res["error_code"] -> {:error, res}
      # res["description"] -> {:ok, Enum.map(res["data"], &ExOpenpay.Util.string_map_to_atoms &1)}
      true -> {:ok, ExOpenpay.Util.string_map_to_atoms res}
    end
  end

  # returns the full response in {:ok, response}
  # this is useful to access top-level properties
  def handle_openpay_full_response(res) do
    cond do
      res[:error] -> {:error, res}
      true -> {:ok, res}
      # true -> {:ok, ExOpenpay.Util.string_map_to_atoms res}
    end
  end

  def list_raw( endpoint, limit \\ 10, starting_after \\ "") do
    list_raw endpoint, ExOpenpay.config_or_api_key, limit, starting_after
  end

  def list_raw( endpoint, key, limit, starting_after)  do
    q = "#{endpoint}?limit=#{limit}"

    q =
      if String.length(starting_after) > 0 do
        q <> "&creation[gte]=#{starting_after}"
      else
        q
      end
    ExOpenpay.make_request_with_key(:get, q, key )
    |> ExOpenpay.Util.handle_openpay_full_response
  end

  def list( endpoint, key, starting_after, limit) do
    list_raw endpoint, key, limit, starting_after
  end

  def list( endpoint, starting_after \\ "", limit \\ 10) do
    list endpoint, ExOpenpay.config_or_api_key, starting_after, limit
  end

  # most openpay listing endpoints allow the total count to be included without any results
  def count(endpoint) do
    count endpoint, ExOpenpay.config_or_api_key
  end

  def count(endpoint, key) do
    case ExOpenpay.make_request_with_key(:get, "#{endpoint}?limit=0", key)
    |> ExOpenpay.Util.handle_openpay_full_response do
      {:ok, res} ->
        {:ok, length(res)}
      {:error, err} -> raise err
    end
  end
end