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

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

lib/eventos/groups/group.ex

@@ -0,0 +1,66 @@
+defmodule Eventos.Groups.Group.TitleSlug do
+  alias Eventos.Groups.Group
+  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 g in Group,
+                 where: g.slug == ^slug
+
+    case Repo.one(query) do
+      nil -> slug
+      _story ->
+        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.Groups.Group do
+  use Ecto.Schema
+  import Ecto.Changeset
+  alias Eventos.Groups.{Group, Member, Request}
+  alias Eventos.Accounts.Account
+  alias Eventos.Groups.Group.TitleSlug
+
+  schema "groups" do
+    field :description, :string
+    field :suspended, :boolean, default: false
+    field :title, :string
+    field :slug, TitleSlug.Type
+    field :uri, :string
+    field :url, :string
+    many_to_many :accounts, Account, join_through: Member
+    has_many :requests, Request
+
+    timestamps()
+  end
+
+  @doc false
+  def changeset(%Group{} = group, attrs) do
+    group
+    |> cast(attrs, [:title, :description, :suspended, :url, :uri])
+    |> validate_required([:title, :description, :suspended, :url, :uri])
+    |> TitleSlug.maybe_generate_slug()
+    |> TitleSlug.unique_constraint()
+  end
+end

lib/eventos/groups/groups.ex

@@ -0,0 +1,296 @@
+defmodule Eventos.Groups do
+  @moduledoc """
+  The Groups context.
+  """
+
+  import Ecto.Query, warn: false
+  alias Eventos.Repo
+
+  alias Eventos.Groups.Group
+
+  @doc """
+  Returns the list of groups.
+
+  ## Examples
+
+      iex> list_groups()
+      [%Group{}, ...]
+
+  """
+  def list_groups do
+    Repo.all(Group)
+  end
+
+  @doc """
+  Gets a single group.
+
+  Raises `Ecto.NoResultsError` if the Group does not exist.
+
+  ## Examples
+
+      iex> get_group!(123)
+      %Group{}
+
+      iex> get_group!(456)
+      ** (Ecto.NoResultsError)
+
+  """
+  def get_group!(id), do: Repo.get!(Group, id)
+
+  @doc """
+  Creates a group.
+
+  ## Examples
+
+      iex> create_group(%{field: value})
+      {:ok, %Group{}}
+
+      iex> create_group(%{field: bad_value})
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def create_group(attrs \\ %{}) do
+    %Group{}
+    |> Group.changeset(attrs)
+    |> Repo.insert()
+  end
+
+  @doc """
+  Updates a group.
+
+  ## Examples
+
+      iex> update_group(group, %{field: new_value})
+      {:ok, %Group{}}
+
+      iex> update_group(group, %{field: bad_value})
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def update_group(%Group{} = group, attrs) do
+    group
+    |> Group.changeset(attrs)
+    |> Repo.update()
+  end
+
+  @doc """
+  Deletes a Group.
+
+  ## Examples
+
+      iex> delete_group(group)
+      {:ok, %Group{}}
+
+      iex> delete_group(group)
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def delete_group(%Group{} = group) do
+    Repo.delete(group)
+  end
+
+  @doc """
+  Returns an `%Ecto.Changeset{}` for tracking group changes.
+
+  ## Examples
+
+      iex> change_group(group)
+      %Ecto.Changeset{source: %Group{}}
+
+  """
+  def change_group(%Group{} = group) do
+    Group.changeset(group, %{})
+  end
+
+  alias Eventos.Groups.Member
+
+  @doc """
+  Returns the list of members.
+
+  ## Examples
+
+      iex> list_members()
+      [%Member{}, ...]
+
+  """
+  def list_members do
+    Repo.all(Member)
+  end
+
+  @doc """
+  Gets a single member.
+
+  Raises `Ecto.NoResultsError` if the Member does not exist.
+
+  ## Examples
+
+      iex> get_member!(123)
+      %Member{}
+
+      iex> get_member!(456)
+      ** (Ecto.NoResultsError)
+
+  """
+  def get_member!(id), do: Repo.get!(Member, id)
+
+  @doc """
+  Creates a member.
+
+  ## Examples
+
+      iex> create_member(%{field: value})
+      {:ok, %Member{}}
+
+      iex> create_member(%{field: bad_value})
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def create_member(attrs \\ %{}) do
+    %Member{}
+    |> Member.changeset(attrs)
+    |> Repo.insert()
+  end
+
+  @doc """
+  Updates a member.
+
+  ## Examples
+
+      iex> update_member(member, %{field: new_value})
+      {:ok, %Member{}}
+
+      iex> update_member(member, %{field: bad_value})
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def update_member(%Member{} = member, attrs) do
+    member
+    |> Member.changeset(attrs)
+    |> Repo.update()
+  end
+
+  @doc """
+  Deletes a Member.
+
+  ## Examples
+
+      iex> delete_member(member)
+      {:ok, %Member{}}
+
+      iex> delete_member(member)
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def delete_member(%Member{} = member) do
+    Repo.delete(member)
+  end
+
+  @doc """
+  Returns an `%Ecto.Changeset{}` for tracking member changes.
+
+  ## Examples
+
+      iex> change_member(member)
+      %Ecto.Changeset{source: %Member{}}
+
+  """
+  def change_member(%Member{} = member) do
+    Member.changeset(member, %{})
+  end
+
+  alias Eventos.Groups.Request
+
+  @doc """
+  Returns the list of requests.
+
+  ## Examples
+
+      iex> list_requests()
+      [%Request{}, ...]
+
+  """
+  def list_requests do
+    Repo.all(Request)
+  end
+
+  @doc """
+  Gets a single request.
+
+  Raises `Ecto.NoResultsError` if the Request does not exist.
+
+  ## Examples
+
+      iex> get_request!(123)
+      %Request{}
+
+      iex> get_request!(456)
+      ** (Ecto.NoResultsError)
+
+  """
+  def get_request!(id), do: Repo.get!(Request, id)
+
+  @doc """
+  Creates a request.
+
+  ## Examples
+
+      iex> create_request(%{field: value})
+      {:ok, %Request{}}
+
+      iex> create_request(%{field: bad_value})
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def create_request(attrs \\ %{}) do
+    %Request{}
+    |> Request.changeset(attrs)
+    |> Repo.insert()
+  end
+
+  @doc """
+  Updates a request.
+
+  ## Examples
+
+      iex> update_request(request, %{field: new_value})
+      {:ok, %Request{}}
+
+      iex> update_request(request, %{field: bad_value})
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def update_request(%Request{} = request, attrs) do
+    request
+    |> Request.changeset(attrs)
+    |> Repo.update()
+  end
+
+  @doc """
+  Deletes a Request.
+
+  ## Examples
+
+      iex> delete_request(request)
+      {:ok, %Request{}}
+
+      iex> delete_request(request)
+      {:error, %Ecto.Changeset{}}
+
+  """
+  def delete_request(%Request{} = request) do
+    Repo.delete(request)
+  end
+
+  @doc """
+  Returns an `%Ecto.Changeset{}` for tracking request changes.
+
+  ## Examples
+
+      iex> change_request(request)
+      %Ecto.Changeset{source: %Request{}}
+
+  """
+  def change_request(%Request{} = request) do
+    Request.changeset(request, %{})
+  end
+end

lib/eventos/groups/member.ex

@@ -0,0 +1,22 @@
+defmodule Eventos.Groups.Member do
+  use Ecto.Schema
+  import Ecto.Changeset
+  alias Eventos.Groups.{Member, Group}
+  alias Eventos.Accounts.Account
+
+
+  schema "members" do
+    field :role, :integer
+    belongs_to :group, Group
+    belongs_to :account, Account
+
+    timestamps()
+  end
+
+  @doc false
+  def changeset(%Member{} = member, attrs) do
+    member
+    |> cast(attrs, [:role])
+    |> validate_required([:role])
+  end
+end

lib/eventos/groups/request.ex

@@ -0,0 +1,21 @@
+defmodule Eventos.Groups.Request do
+  use Ecto.Schema
+  import Ecto.Changeset
+  alias Eventos.Groups.Request
+
+
+  schema "group_requests" do
+    field :state, :integer
+    field :group_id, :integer
+    field :account_id, :integer
+
+    timestamps()
+  end
+
+  @doc false
+  def changeset(%Request{} = request, attrs) do
+    request
+    |> cast(attrs, [:state])
+    |> validate_required([:state])
+  end
+end