+ 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
+
+ def follow(follower, followed, activity_id \\ nil, local \\ true) do
+ with data <- make_follow_data(follower, followed, activity_id),
+ {:ok, activity} <- insert(data, local),
+ :ok <- maybe_federate(activity) do
+ {:ok, activity}
+ end
+ end
+
+ def unfollow(follower, followed, local \\ true) do
+ with %Activity{} = follow_activity <- fetch_latest_follow(follower, followed),
+ unfollow_data <- make_unfollow_data(follower, followed, follow_activity),
+ {:ok, activity} <- insert(unfollow_data, local),
+ :ok, maybe_federate(activity) do
+ {:ok, activity}
+ end
+ end
+
+ def delete(%Object{data: %{"id" => id, "actor" => actor}} = object, local \\ true) do
+ user = User.get_cached_by_ap_id(actor)
+ data = %{
+ "type" => "Delete",
+ "actor" => actor,
+ "object" => id,
+ "to" => [user.follower_address, "https://www.w3.org/ns/activitystreams#Public"]
+ }
+ with {:ok, activity} <- insert(data, local),
+ :ok <- maybe_federate(activity) do
+ Repo.delete(object)
+ Repo.delete_all(Activity.all_non_create_by_object_ap_id_q(id))
+ Repo.delete_all(Activity.all_by_object_ap_id_q(id))
+ {:ok, activity}
+ end
+ end
+
+ def fetch_activities_for_context(context) do