Change models, new migrations, fix front and make tests work

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

lib/eventos/events/event.ex

@@ -1,18 +1,65 @@
+defmodule Eventos.Events.Event.TitleSlug do
+  alias Eventos.Events.Event
+  import Ecto.Query
+  alias Eventos.Repo
+  use EctoAutoslugField.Slug, from: :title, to: :slug
+
+  def build_slug(sources, changeset) do
+    slug = super(sources, changeset)
+    build_unique_slug(slug, changeset)
+  end
+
+  defp build_unique_slug(slug, changeset) do
+    query = from e in Event,
+                 where: e.slug == ^slug
+
+    case Repo.one(query) do
+      nil -> slug
+      _event ->
+        slug
+        |> increment_slug
+        |> build_unique_slug(changeset)
+    end
+  end
+
+  defp increment_slug(slug) do
+    case List.pop_at(String.split(slug, "-"), -1) do
+      {nil, _} ->
+        slug
+      {suffix, slug_parts} ->
+        case Integer.parse(suffix) do
+          {id, _} -> Enum.join(slug_parts, "-") <> "-" <> Integer.to_string(id + 1)
+          :error -> slug <> "-1"
+        end
+    end
+  end
+end
+
 defmodule Eventos.Events.Event do
   use Ecto.Schema
   import Ecto.Changeset
-  alias Eventos.Events.{Event, EventAccount, EventRequest}
+  alias Eventos.Events.{Event, Participant, Request, Tag, Session, Track}
+  alias Eventos.Events.Event.TitleSlug
   alias Eventos.Accounts.Account
 
-
   schema "events" do
-    field :begin_on, :utc_datetime
+    field :begins_on, Timex.Ecto.DateTimeWithTimezone
     field :description, :string
-    field :ends_on, :utc_datetime
+    field :ends_on, Timex.Ecto.DateTimeWithTimezone
     field :title, :string
-    has_one :organizer_id, Account
-    many_to_many :participants, Account, join_through: EventAccount
-    has_many :event_request, EventRequest
+    field :geom, Geo.Geometry
+    field :slug, TitleSlug.Type
+    field :state, :integer, default: 0
+    field :public, :boolean, default: true
+    field :thumbnail, :string
+    field :large_image, :string
+    field :publish_at, Timex.Ecto.DateTimeWithTimezone
+    belongs_to :organizer, Account, [foreign_key: :organizer_id]
+    has_many :tags, Tag
+    many_to_many :participants, Account, join_through: Participant
+    has_many :event_request, Request
+    has_many :tracks, Track
+    has_many :sessions, Session
 
     timestamps()
   end
@@ -20,7 +67,9 @@ defmodule Eventos.Events.Event do
   @doc false
   def changeset(%Event{} = event, attrs) do
     event
-    |> cast(attrs, [:title, :description, :begin_on, :ends_on])
-    |> validate_required([:title, :description, :begin_on, :ends_on, :organizer_id])
+    |> cast(attrs, [:title, :description, :begins_on, :ends_on, :organizer_id])
+    |> validate_required([:title, :description, :begins_on, :ends_on, :organizer_id])
+    |> TitleSlug.maybe_generate_slug()
+    |> TitleSlug.unique_constraint()
   end
-end
+end