Provide analytics on Front-end

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

lib/service/front_end_analytics/analytics.ex

@@ -0,0 +1,53 @@
+defmodule Mobilizon.Service.FrontEndAnalytics do
+  @moduledoc """
+  Behaviour for any analytics service
+  """
+
+  @callback id() :: String.t()
+
+  @doc """
+  Whether the service is enabled
+  """
+  @callback enabled?() :: boolean()
+
+  @doc """
+  The configuration for the service
+  """
+  @callback configuration() :: map()
+
+  @spec providers :: list(module())
+  def providers do
+    :mobilizon
+    |> Application.get_env(:analytics, [])
+    |> Keyword.get(:providers, [])
+  end
+
+  @spec config :: map()
+  def config do
+    Enum.reduce(providers(), [], &load_config/2)
+  end
+
+  @spec load_config(module(), map()) :: map()
+  defp load_config(provider, acc) do
+    acc ++
+      [
+        %{
+          id: provider.id(),
+          enabled: provider.enabled?(),
+          configuration: convert_config(provider.configuration())
+        }
+      ]
+  end
+
+  @spec convert_config(Keyword.t()) :: list(map())
+  defp convert_config(config) do
+    Enum.reduce(config, [], fn {key, val}, acc ->
+      acc ++ [%{key: key, value: val, type: type(val)}]
+    end)
+  end
+
+  defp type(val) when is_integer(val), do: :integer
+  defp type(val) when is_float(val), do: :float
+  defp type(val) when is_boolean(val), do: :boolean
+  defp type(val) when is_binary(val), do: :string
+end

lib/service/front_end_analytics/matomo.ex

@@ -0,0 +1,30 @@
+defmodule Mobilizon.Service.FrontEndAnalytics.Matomo do
+  @moduledoc """
+  Matomo analytics provider
+  """
+  alias Mobilizon.Service.FrontEndAnalytics
+  @behaviour FrontEndAnalytics
+
+  @impl FrontEndAnalytics
+  def id, do: "matomo"
+
+  @doc """
+  Whether the service is enabled
+  """
+  @impl FrontEndAnalytics
+  def enabled? do
+    :mobilizon
+    |> Application.get_env(__MODULE__, [])
+    |> Keyword.get(:enabled, false)
+  end
+
+  @doc """
+  The configuration for the service
+  """
+  @impl FrontEndAnalytics
+  def configuration do
+    :mobilizon
+    |> Application.get_env(__MODULE__, [])
+    |> Keyword.drop([:enabled])
+  end
+end

lib/service/front_end_analytics/plausible.ex

@@ -0,0 +1,31 @@
+defmodule Mobilizon.Service.FrontEndAnalytics.Plausible do
+  @moduledoc """
+  Plausible analytics provider
+  """
+
+  alias Mobilizon.Service.FrontEndAnalytics
+  @behaviour FrontEndAnalytics
+
+  @impl FrontEndAnalytics
+  def id, do: "plausible"
+
+  @doc """
+  Whether the service is enabled
+  """
+  @impl FrontEndAnalytics
+  def enabled? do
+    :mobilizon
+    |> Application.get_env(__MODULE__, [])
+    |> Keyword.get(:enabled, false)
+  end
+
+  @doc """
+  The configuration for the service
+  """
+  @impl FrontEndAnalytics
+  def configuration do
+    :mobilizon
+    |> Application.get_env(__MODULE__, [])
+    |> Keyword.drop([:enabled])
+  end
+end

lib/service/front_end_analytics/sentry.ex

@@ -0,0 +1,31 @@
+defmodule Mobilizon.Service.FrontEndAnalytics.Sentry do
+  @moduledoc """
+  Sentry analytics provider
+  """
+
+  alias Mobilizon.Service.FrontEndAnalytics
+  @behaviour FrontEndAnalytics
+
+  @impl FrontEndAnalytics
+  def id, do: "sentry"
+
+  @doc """
+  Whether the service is enabled
+  """
+  @impl FrontEndAnalytics
+  def enabled? do
+    :mobilizon
+    |> Application.get_env(__MODULE__, [])
+    |> Keyword.get(:enabled, false)
+  end
+
+  @doc """
+  The configuration for the service
+  """
+  @impl FrontEndAnalytics
+  def configuration do
+    :mobilizon
+    |> Application.get_env(__MODULE__, [])
+    |> Keyword.drop([:enabled])
+  end
+end