+ def create(to, actor, context, object, additional \\ %{}, published \\ nil, local \\ true) do
+ with create_data <- make_create_data(%{to: to, actor: actor, published: published, context: context, object: object}, additional),
+ {:ok, activity} <- insert(create_data, local),
+ :ok <- maybe_federate(activity) do
+ {:ok, activity}
+ end
+ end
+
+ # TODO: This is weird, maybe we shouldn't check here if we can make the activity.
+ def like(%User{ap_id: ap_id} = user, %Object{data: %{"id" => id}} = object, activity_id \\ nil, local \\ true) do
+ with nil <- get_existing_like(ap_id, object),
+ like_data <- make_like_data(user, object, activity_id),
+ {:ok, activity} <- insert(like_data, local),
+ {:ok, object} <- add_like_to_object(activity, object),
+ :ok <- maybe_federate(activity) do
+ {:ok, activity, object}
+ else
+ %Activity{} = activity -> {:ok, activity, object}
+ error -> {:error, error}
+ end
+ end
+
+ def unlike(%User{} = actor, %Object{} = object) do
+ with %Activity{} = activity <- get_existing_like(actor.ap_id, object),
+ {:ok, _activity} <- Repo.delete(activity),
+ {:ok, object} <- remove_like_from_object(activity, object) do
+ {:ok, object}
+ else _e -> {:ok, object}
+ end
+ end
+
+ def announce(%User{ap_id: ap_id} = user, %Object{data: %{"id" => id}} = object, activity_id \\ nil, local \\ true) do
+ with announce_data <- make_announce_data(user, object, activity_id),
+ {:ok, activity} <- insert(announce_data, local),
+ {:ok, object} <- add_announce_to_object(activity, object),
+ :ok <- maybe_federate(activity) do
+ {:ok, activity, object}
+ else
+ error -> {:error, error}
+ end
+ end