Improve event creation form by introducting EventOptions

It's a subentity that holds additional metadata in a map database type

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

lib/service/activity_pub/converters/event.ex

@@ -34,7 +34,8 @@ defmodule Mobilizon.Service.ActivityPub.Converters.Event do
            {:actor, Actors.get_actor_by_url(object["actor"])},
          {:address, address_id} <-
            {:address, get_address(object["location"])},
-         {:tags, tags} <- {:tags, fetch_tags(object["tag"])} do
+         {:tags, tags} <- {:tags, fetch_tags(object["tag"])},
+         {:options, options} <- {:options, get_options(object)} do
       picture_id =
         with true <- Map.has_key?(object, "attachment") && length(object["attachment"]) > 0,
              %Picture{id: picture_id} <-
@@ -50,25 +51,41 @@ defmodule Mobilizon.Service.ActivityPub.Converters.Event do
           _ -> nil
         end
 
-      {:ok,
-       %{
-         "title" => object["name"],
-         "description" => object["content"],
-         "organizer_actor_id" => actor_id,
-         "picture_id" => picture_id,
-         "begins_on" => object["startTime"],
-         "category" => object["category"],
-         "url" => object["id"],
-         "uuid" => object["uuid"],
-         "tags" => tags,
-         "physical_address_id" => address_id
-       }}
+      entity = %{
+        "title" => object["name"],
+        "description" => object["content"],
+        "organizer_actor_id" => actor_id,
+        "picture_id" => picture_id,
+        "begins_on" => object["startTime"],
+        "category" => object["category"],
+        "url" => object["id"],
+        "uuid" => object["uuid"],
+        "tags" => tags,
+        "physical_address_id" => address_id
+      }
+
+      {:ok, Map.put(entity, "options", options)}
     else
       err ->
         {:error, err}
     end
   end
 
+  # Get only elements that we have in EventOptions
+  defp get_options(object) do
+    keys =
+      Mobilizon.Events.EventOptions
+      |> struct
+      |> Map.keys()
+      |> List.delete(:__struct__)
+      |> Enum.map(&Utils.camelize/1)
+
+    Enum.reduce(object, %{}, fn {key, value}, acc ->
+      (value && key in keys && Map.put(acc, Utils.underscore(key), value)) ||
+        acc
+    end)
+  end
+
   defp get_address(address_url) when is_bitstring(address_url) do
     get_address(%{"id" => address_url})
   end

lib/service/activity_pub/utils.ex

@@ -298,7 +298,19 @@ defmodule Mobilizon.Service.ActivityPub.Utils do
         do: res,
         else: Map.put(res, "location", make_address_data(metadata.physical_address))
 
-    if is_nil(picture), do: res, else: Map.put(res, "attachment", [make_picture_data(picture)])
+    res =
+      if is_nil(picture), do: res, else: Map.put(res, "attachment", [make_picture_data(picture)])
+
+    if is_nil(metadata.options) do
+      res
+    else
+      options = struct(Mobilizon.Events.EventOptions, metadata.options) |> Map.from_struct()
+
+      Enum.reduce(options, res, fn {key, value}, acc ->
+        (value && Map.put(acc, camelize(key), value)) ||
+          acc
+      end)
+    end
   end
 
   def make_address_data(%Address{} = address) do
@@ -669,4 +681,21 @@ defmodule Mobilizon.Service.ActivityPub.Utils do
     public_key = :public_key.pem_entry_encode(:RSAPublicKey, public_key)
     :public_key.pem_encode([public_key])
   end
+
+  def camelize(word) when is_atom(word) do
+    camelize(to_string(word))
+  end
+
+  def camelize(word) when is_bitstring(word) do
+    {first, rest} = String.split_at(Macro.camelize(word), 1)
+    String.downcase(first) <> rest
+  end
+
+  def underscore(word) when is_atom(word) do
+    underscore(to_string(word))
+  end
+
+  def underscore(word) when is_bitstring(word) do
+    Macro.underscore(word)
+  end
 end