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/mobilizon/events/event.ex

@@ -54,6 +54,7 @@ defmodule Mobilizon.Events.Event do
     field(:online_address, :string)
     field(:phone_address, :string)
     field(:category, :string)
+    embeds_one(:options, Mobilizon.Events.EventOptions)
     belongs_to(:organizer_actor, Actor, foreign_key: :organizer_actor_id)
     belongs_to(:attributed_to, Actor, foreign_key: :attributed_to_id)
     many_to_many(:tags, Tag, join_through: "events_tags")
@@ -87,6 +88,7 @@ defmodule Mobilizon.Events.Event do
       :picture_id,
       :physical_address_id
     ])
+    |> cast_embed(:options)
     |> validate_required([
       :title,
       :begins_on,

lib/mobilizon/events/event_options.ex

@@ -0,0 +1,69 @@
+import EctoEnum
+
+defenum(Mobilizon.Events.CommentModeration, :comment_moderation, [:allow_all, :moderated, :closed])
+
+defmodule Mobilizon.Events.EventOffer do
+  @moduledoc """
+  Represents an event offer
+  """
+  use Ecto.Schema
+
+  embedded_schema do
+    field(:price, :float)
+    field(:price_currency, :string)
+    field(:url, :string)
+  end
+end
+
+defmodule Mobilizon.Events.EventParticipationCondition do
+  @moduledoc """
+  Represents an event participation condition
+  """
+  use Ecto.Schema
+
+  embedded_schema do
+    field(:title, :string)
+    field(:content, :string)
+    field(:url, :string)
+  end
+end
+
+defmodule Mobilizon.Events.EventOptions do
+  @moduledoc """
+  Represents an event options
+  """
+  use Ecto.Schema
+
+  alias Mobilizon.Events.{
+    EventOptions,
+    EventOffer,
+    EventParticipationCondition,
+    CommentModeration
+  }
+
+  @primary_key false
+  embedded_schema do
+    field(:maximum_attendee_capacity, :integer)
+    field(:remaining_attendee_capacity, :integer)
+    field(:show_remaining_attendee_capacity, :boolean)
+    embeds_many(:offers, EventOffer)
+    embeds_many(:participation_condition, EventParticipationCondition)
+    field(:attendees, {:array, :string})
+    field(:program, :string)
+    field(:comment_moderation, CommentModeration)
+    field(:show_participation_price, :boolean)
+  end
+
+  def changeset(%EventOptions{} = event_options, attrs) do
+    event_options
+    |> Ecto.Changeset.cast(attrs, [
+      :maximum_attendee_capacity,
+      :remaining_attendee_capacity,
+      :show_remaining_attendee_capacity,
+      :attendees,
+      :program,
+      :comment_moderation,
+      :show_participation_price
+    ])
+  end
+end