defmodule Meilisearch.PaginatedTasks do
  @moduledoc """
  Represents a Meilisearch paginated response.
  """

  use TypedEctoSchema

  @primary_key false
  typed_embedded_schema null: false do
    field(:results, {:array, :map}) :: list(Meilisearch.Task.t())
    field(:limit, :integer)
    field(:from, :integer)
    field(:next, :integer, null: true)
  end

  def cast(data, load_items \\ fn x -> Meilisearch.Task.cast(x) end)
      when is_map(data) and is_function(load_items, 1) do
    %__MODULE__{}
    |> Ecto.Changeset.cast(data, [:results, :limit, :from, :next])
    |> cast_results(load_items)
    |> Ecto.Changeset.apply_changes()
  end

  defp cast_results(changeset, loader) do
    results = Ecto.Changeset.get_change(changeset, :results, [])
    results = loader.(results)
    Ecto.Changeset.put_change(changeset, :results, results)
  end
end