Add visibility to actors

Also use url helpers to generate urls properly

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

lib/service/export/feed.ex

@@ -41,6 +41,7 @@ defmodule Mobilizon.Service.Export.Feed do
   @spec fetch_actor_event_feed(String.t()) :: String.t()
   defp fetch_actor_event_feed(name) do
     with %Actor{} = actor <- Actors.get_local_actor_by_name(name),
+         {:visibility, true} <- {:visibility, Actor.public_visibility?(actor)},
          {:ok, events, _count} <- Events.get_public_events_for_actor(actor) do
       {:ok, build_actor_feed(actor, events)}
     else

lib/service/export/icalendar.ex

@@ -40,12 +40,12 @@ defmodule Mobilizon.Service.Export.ICalendar do
   @doc """
   Export a public actor's events to iCalendar format.
 
-  The events must have a visibility of `:public` or `:unlisted`
+  The actor must have a visibility of `:public` or `:unlisted`, as well as the events
   """
-  # TODO: The actor should also have visibility options
   @spec export_public_actor(Actor.t()) :: String.t()
   def export_public_actor(%Actor{} = actor) do
-    with {:ok, events, _} <- Events.get_public_events_for_actor(actor) do
+    with true <- Actor.public_visibility?(actor),
+         {:ok, events, _} <- Events.get_public_events_for_actor(actor) do
       {:ok, %ICalendar{events: events |> Enum.map(&do_export_event/1)} |> ICalendar.to_ics()}
     end
   end