supabase_auth

defmodule Supabase.GoTrue.Session do
  @moduledoc false

  use Ecto.Schema

  import Ecto.Changeset

  alias Supabase.GoTrue.User

  @type t :: %__MODULE__{
          provider_token: String.t() | nil,
          provider_refresh_token: String.t() | nil,
          access_token: String.t(),
          refresh_token: String.t(),
          expires_in: integer,
          expires_at: NaiveDateTime.t() | nil,
          token_type: String.t(),
          user: User.t()
        }

  @required_fields ~w[access_token refresh_token expires_in token_type]a
  @optional_fields ~w[provider_token provider_refresh_token expires_at]a

  @derive Jason.Encoder
  @primary_key false
  embedded_schema do
    field(:provider_token, :string)
    field(:provider_refresh_token, :string)
    field(:access_token, :string)
    field(:refresh_token, :string)
    field(:expires_in, :integer)
    field(:expires_at, :integer)
    field(:token_type, :string)

    embeds_one(:user, User)
  end

  @spec parse(map) :: {:ok, t} | {:error, Ecto.Changeset.t()}
  def parse(attrs) do
    %__MODULE__{}
    |> cast(attrs, @required_fields ++ @optional_fields)
    |> validate_required(@required_fields)
    |> apply_action(:parse)
  end

  @spec parse(map, User.t() | map) :: {:ok, t} | {:error, Ecto.Changeset.t()}
  def parse(attrs, user) do
    with {:ok, session} <- parse(attrs) do
      session
      |> change()
      |> maybe_put_user_assoc(user)
      |> apply_action(:parse)
    end
  end

  defp maybe_put_user_assoc(changeset, %User{} = user) do
    put_embed(changeset, :user, user, required: true)
  end

  defp maybe_put_user_assoc(changeset, %{} = user) do
    case User.parse(user) do
      {:ok, user} -> maybe_put_user_assoc(changeset, user)
      {:error, changeset} -> changeset
    end
  end
end