Introduce comments below events

Also add tomstones

Signed-off-by: Thomas Citharel <tcit@tcit.fr>

lib/mobilizon_web/api/comments.ex

@@ -9,11 +9,22 @@ defmodule MobilizonWeb.API.Comments do
   @doc """
   Create a comment
 
-  Creates a comment from an actor and a status
+  Creates a comment from an actor
   """
   @spec create_comment(map()) ::
           {:ok, Activity.t(), Comment.t()} | any()
   def create_comment(args) do
     ActivityPub.create(:comment, args, true)
   end
+
+  @doc """
+  Deletes a comment
+
+  Deletes a comment from an actor
+  """
+  @spec delete_comment(Comment.t()) ::
+          {:ok, Activity.t(), Comment.t()} | any()
+  def delete_comment(%Comment{} = comment) do
+    ActivityPub.delete(comment, true)
+  end
 end

lib/mobilizon_web/api/reports.ex

@@ -5,11 +5,7 @@ defmodule MobilizonWeb.API.Reports do
 
   import Mobilizon.Service.Admin.ActionLogService
 
-  import MobilizonWeb.API.Utils
-
-  alias Mobilizon.Actors
   alias Mobilizon.Actors.Actor
-  alias Mobilizon.Events
   alias Mobilizon.Reports, as: ReportsAction
   alias Mobilizon.Reports.{Note, Report, ReportStatus}
   alias Mobilizon.Service.ActivityPub
@@ -20,44 +16,16 @@ defmodule MobilizonWeb.API.Reports do
   @doc """
   Create a report/flag on an actor, and optionally on an event or on comments.
   """
-  def report(
-        %{
-          reporter_actor_id: reporter_actor_id,
-          reported_actor_id: reported_actor_id
-        } = args
-      ) do
-    with {:reporter, %Actor{url: reporter_url} = _reporter_actor} <-
-           {:reporter, Actors.get_actor!(reporter_actor_id)},
-         {:reported, %Actor{url: reported_actor_url} = reported_actor} <-
-           {:reported, Actors.get_actor!(reported_actor_id)},
-         {:ok, content} <- args |> Map.get(:content, nil) |> make_report_content_text(),
-         {:ok, event} <- args |> Map.get(:event_id, nil) |> get_event(),
-         {:get_report_comments, comments_urls} <-
-           get_report_comments(reported_actor, Map.get(args, :comments_ids, [])),
-         {:make_activity, {:ok, %Activity{} = activity, %Report{} = report}} <-
-           {:make_activity,
-            ActivityPub.flag(%{
-              reporter_url: reporter_url,
-              reported_actor_url: reported_actor_url,
-              event_url: (!is_nil(event) && event.url) || nil,
-              comments_url: comments_urls,
-              content: content,
-              forward: args[:forward] || false,
-              local: args[:local] || args[:forward] || false
-            })} do
-      {:ok, activity, report}
-    else
-      {:make_activity, err} -> {:error, err}
-      {:error, err} -> {:error, err}
-      {:actor_id, %{}} -> {:error, "Valid `actor_id` required"}
-      {:reporter, nil} -> {:error, "Reporter Actor not found"}
-      {:reported, nil} -> {:error, "Reported Actor not found"}
+  def report(args) do
+    case {:make_activity, ActivityPub.flag(args, Map.get(args, :local, false) == false)} do
+      {:make_activity, {:ok, %Activity{} = activity, %Report{} = report}} ->
+        {:ok, activity, report}
+
+      {:make_activity, err} ->
+        {:error, err}
     end
   end
 
-  defp get_event(nil), do: {:ok, nil}
-  defp get_event(event_id), do: Events.get_event(event_id)
-
   @doc """
   Update the state of a report
   """
@@ -72,13 +40,6 @@ defmodule MobilizonWeb.API.Reports do
     end
   end
 
-  defp get_report_comments(%Actor{id: actor_id}, comment_ids) do
-    {:get_report_comments,
-     actor_id |> Events.list_comments_by_actor_and_ids(comment_ids) |> Enum.map(& &1.url)}
-  end
-
-  defp get_report_comments(_, _), do: {:get_report_comments, nil}
-
   @doc """
   Create a note on a report
   """