65 lines
1.6 KiB
Elixir
65 lines
1.6 KiB
Elixir
defmodule Eventos.Groups.Group.TitleSlug do
|
|
@moduledoc """
|
|
Slug generation for groups
|
|
"""
|
|
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
|
|
|> Eventos.Slug.increment_slug()
|
|
|> build_unique_slug(changeset)
|
|
end
|
|
end
|
|
end
|
|
|
|
defmodule Eventos.Groups.Group do
|
|
@moduledoc """
|
|
Represents a group
|
|
"""
|
|
use Ecto.Schema
|
|
import Ecto.Changeset
|
|
alias Eventos.Events.Event
|
|
alias Eventos.Groups.{Group, Member, Request}
|
|
alias Eventos.Accounts.Account
|
|
alias Eventos.Groups.Group.TitleSlug
|
|
alias Eventos.Addresses.Address
|
|
|
|
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 :members, Account, join_through: Member
|
|
has_many :organized_events, Event, [foreign_key: :organizer_group_id]
|
|
has_many :requests, Request
|
|
belongs_to :address, Address
|
|
|
|
timestamps()
|
|
end
|
|
|
|
@doc false
|
|
def changeset(%Group{} = group, attrs) do
|
|
group
|
|
|> cast(attrs, [:title, :description, :suspended, :url, :uri, :address_id])
|
|
|> validate_required([:title, :description, :suspended, :url, :uri])
|
|
|> TitleSlug.maybe_generate_slug()
|
|
|> TitleSlug.unique_constraint()
|
|
end
|
|
end
|