mobilizon.chapril.org-mobilizon/lib/mobilizon/events/tag/title_slug.ex

defmodule Mobilizon.Events.Tag.TitleSlug do
  @moduledoc """
  Generates slugs for tags.
  """

  use EctoAutoslugField.Slug, from: :title, to: :slug

  alias Mobilizon.Events

  @slug_separator "-"

  @doc """
  Builds a slug.
  """
  @spec build_slug(keyword, Ecto.Changeset.t()) :: String.t()
  def build_slug(sources, changeset) do
    slug = super(sources, changeset)

    build_unique_slug(slug, changeset)
  end

  @spec build_unique_slug(String.t(), Ecto.Changeset.t()) :: String.t()
  defp build_unique_slug(slug, changeset) do
    case Events.get_tag_by_slug(slug) do
      nil ->
        slug

      _tag ->
        slug
        |> increment_slug()
        |> build_unique_slug(changeset)
    end
  end

  @spec increment_slug(String.t()) :: String.t()
  defp increment_slug(slug) do
    case List.pop_at(String.split(slug, @slug_separator), -1) do
      {nil, _} ->
        slug

      {suffix, slug_parts} ->
        case Integer.parse(suffix) do
          {id, _} ->
            Enum.join(slug_parts, @slug_separator) <>
              @slug_separator <>
              Integer.to_string(id + 1)

          :error ->
            "#{slug}#{@slug_separator}1"
        end
    end
  end
end