Introduce group posts

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

lib/service/geospatial/photon.ex

@@ -4,8 +4,8 @@ defmodule Mobilizon.Service.Geospatial.Photon do
   """
 
   alias Mobilizon.Addresses.Address
-  alias Mobilizon.Config
   alias Mobilizon.Service.Geospatial.Provider
+  alias Mobilizon.Service.HTTP.BaseClient
 
   require Logger
 
@@ -13,11 +13,6 @@ defmodule Mobilizon.Service.Geospatial.Photon do
 
   @endpoint Application.get_env(:mobilizon, __MODULE__) |> get_in([:endpoint])
 
-  @http_options [
-    follow_redirect: true,
-    ssl: [{:versions, [:"tlsv1.2"]}]
-  ]
-
   @impl Provider
   @doc """
   Photon implementation for `c:Mobilizon.Service.Geospatial.Provider.geocode/3`.
@@ -26,14 +21,11 @@ defmodule Mobilizon.Service.Geospatial.Photon do
   """
   @spec geocode(number(), number(), keyword()) :: list(Address.t())
   def geocode(lon, lat, options \\ []) do
-    user_agent = Keyword.get(options, :user_agent, Config.instance_user_agent())
-    headers = [{"User-Agent", user_agent}]
     url = build_url(:geocode, %{lon: lon, lat: lat}, options)
     Logger.debug("Asking photon for reverse geocoding with #{url}")
 
-    with {:ok, %HTTPoison.Response{status_code: 200, body: body}} <-
-           HTTPoison.get(url, headers, @http_options),
-         {:ok, %{"features" => features}} <- Poison.decode(body) do
+    with {:ok, %{status: 200, body: body}} <- BaseClient.get(url),
+         %{"features" => features} <- body do
       process_data(features)
     else
       _ -> []
@@ -46,14 +38,11 @@ defmodule Mobilizon.Service.Geospatial.Photon do
   """
   @spec search(String.t(), keyword()) :: list(Address.t())
   def search(q, options \\ []) do
-    user_agent = Keyword.get(options, :user_agent, Config.instance_user_agent())
-    headers = [{"User-Agent", user_agent}]
     url = build_url(:search, %{q: q}, options)
     Logger.debug("Asking photon for addresses with #{url}")
 
-    with {:ok, %HTTPoison.Response{status_code: 200, body: body}} <-
-           HTTPoison.get(url, headers, @http_options),
-         {:ok, %{"features" => features}} <- Poison.decode(body) do
+    with {:ok, %{status: 200, body: body}} <- BaseClient.get(url),
+         %{"features" => features} <- body do
       process_data(features)
     else
       _ -> []