defmodule Pleroma.Web.ActivityPub.ObjectValidators.Types.ObjectID do
  use Ecto.Type

  def type, do: :string

  def cast(object) when is_binary(object) do
    # Host has to be present and scheme has to be an http scheme (for now)
    case URI.parse(object) do
      %URI{host: nil} ->
        :error

      %URI{scheme: scheme} when scheme in ["https", "http"] ->
        {:ok, object}

      _ ->
        :error
    end
  end

  def cast(%{"id" => object}), do: cast(object)

  def cast(_) do
    :error
  end

  def dump(data) do
    {:ok, data}
  end

  def load(data) do
    {:ok, data}
  end
end