defmodule Supabase.Auth.User.Identity do
  @moduledoc """
  This schema is used to validate and parse the identity of a user.

  ## Fields
    * `id` - The user's ID.
    * `user_id` - The user's ID.
    * `provider` - The user's provider.
    * `created_at` - The user's creation date.
    * `updated_at` - The user's last update date.
    * `identity_data` - The user's identity data.
    * `last_sign_in_at` - The user's last sign-in date.
  """

  use Ecto.Schema

  import Ecto.Changeset

  @type t :: %__MODULE__{
          id: Ecto.UUID.t(),
          user_id: Ecto.UUID.t(),
          provider: providers,
          created_at: NaiveDateTime.t(),
          updated_at: NaiveDateTime.t(),
          identity_data: map,
          last_sign_in_at: NaiveDateTime.t() | nil
        }

  @providers ~w[apple azure bitbucket discord email facebook figma github gitlab google kakao keycloak linkedin linkedin_oidc notion phone slack spotify twitch twitter workos zoom fly]a

  @type providers ::
          unquote(@providers |> Enum.map_join(" | ", &inspect/1) |> Code.string_to_quoted!())

  @required_fields ~w[id provider]a
  @optional_fields ~w[identity_data last_sign_in_at created_at updated_at user_id]a

  @derive Code.ensure_loaded!(Supabase) && Module.concat(Supabase.json_library(), Encoder)
  @primary_key false
  embedded_schema do
    field(:id, :binary_id)
    field(:identity_data, :map)
    field(:provider, Ecto.Enum, values: @providers)
    field(:last_sign_in_at, :naive_datetime)

    belongs_to(:user, Supabase.Auth.User, type: :binary_id)

    timestamps(inserted_at: :created_at)
  end

  def changeset(identifty \\ %__MODULE__{}, attrs) do
    identifty
    |> cast(attrs, @required_fields ++ @optional_fields)
    |> validate_required(@required_fields)
  end

  def providers, do: @providers

  def parse(attrs) do
    attrs
    |> changeset()
    |> apply_action(:parse)
  end

  def parse_list(list_attrs) do
    results =
      Enum.reduce_while(list_attrs, [], fn attrs, acc ->
        changeset = changeset(attrs)

        case result = apply_action(changeset, :parse) do
          {:ok, identity} -> {:cont, [identity | acc]}
          {:error, _} -> {:halt, result}
        end
      end)

    if is_list(results), do: {:ok, results}, else: results
  end
end