2019-11-08 18:37:14 +00:00
|
|
|
defmodule Mobilizon.Service.Geospatial.Mimirsbrunn do
|
|
|
|
@moduledoc """
|
|
|
|
[Mimirsbrunn](https://github.com/CanalTP/mimirsbrunn) backend.
|
|
|
|
|
|
|
|
## Issues
|
|
|
|
* Has trouble finding POIs.
|
|
|
|
* Doesn't support zoom level for reverse geocoding
|
|
|
|
"""
|
|
|
|
|
|
|
|
alias Mobilizon.Addresses.Address
|
|
|
|
alias Mobilizon.Config
|
2020-01-28 19:15:59 +00:00
|
|
|
alias Mobilizon.Service.Geospatial.Provider
|
2019-11-08 18:37:14 +00:00
|
|
|
|
|
|
|
require Logger
|
|
|
|
|
|
|
|
@behaviour Provider
|
|
|
|
|
|
|
|
@endpoint Application.get_env(:mobilizon, __MODULE__) |> get_in([:endpoint])
|
|
|
|
|
2020-02-18 07:57:00 +00:00
|
|
|
@http_options [
|
|
|
|
follow_redirect: true,
|
|
|
|
ssl: [{:versions, [:"tlsv1.2"]}]
|
|
|
|
]
|
|
|
|
|
2019-11-08 18:37:14 +00:00
|
|
|
@impl Provider
|
|
|
|
@doc """
|
|
|
|
Mimirsbrunn implementation for `c:Mobilizon.Service.Geospatial.Provider.geocode/3`.
|
|
|
|
"""
|
|
|
|
@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 Mimirsbrunn for reverse geocoding with #{url}")
|
|
|
|
|
|
|
|
with {:ok, %HTTPoison.Response{status_code: 200, body: body}} <-
|
2020-02-18 07:57:00 +00:00
|
|
|
HTTPoison.get(url, headers, @http_options),
|
2019-11-08 18:37:14 +00:00
|
|
|
{:ok, %{"features" => features}} <- Poison.decode(body) do
|
|
|
|
process_data(features)
|
2019-11-20 12:49:57 +00:00
|
|
|
else
|
|
|
|
_ -> []
|
2019-11-08 18:37:14 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
@impl Provider
|
|
|
|
@doc """
|
|
|
|
Mimirsbrunn implementation for `c:Mobilizon.Service.Geospatial.Provider.search/2`.
|
|
|
|
"""
|
|
|
|
@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 Mimirsbrunn for addresses with #{url}")
|
|
|
|
|
|
|
|
with {:ok, %HTTPoison.Response{status_code: 200, body: body}} <-
|
2020-02-18 07:57:00 +00:00
|
|
|
HTTPoison.get(url, headers, @http_options),
|
2019-11-08 18:37:14 +00:00
|
|
|
{:ok, %{"features" => features}} <- Poison.decode(body) do
|
|
|
|
process_data(features)
|
2019-11-20 12:49:57 +00:00
|
|
|
else
|
|
|
|
_ -> []
|
2019-11-08 18:37:14 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
@spec build_url(atom(), map(), list()) :: String.t()
|
|
|
|
defp build_url(method, args, options) do
|
|
|
|
limit = Keyword.get(options, :limit, 10)
|
|
|
|
lang = Keyword.get(options, :lang, "en")
|
|
|
|
coords = Keyword.get(options, :coords, nil)
|
|
|
|
endpoint = Keyword.get(options, :endpoint, @endpoint)
|
|
|
|
|
|
|
|
case method do
|
|
|
|
:search ->
|
|
|
|
url = "#{endpoint}/autocomplete?q=#{URI.encode(args.q)}&lang=#{lang}&limit=#{limit}"
|
|
|
|
if is_nil(coords), do: url, else: url <> "&lat=#{coords.lat}&lon=#{coords.lon}"
|
|
|
|
|
|
|
|
:geocode ->
|
|
|
|
"#{endpoint}/reverse?lon=#{args.lon}&lat=#{args.lat}"
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
defp process_data(features) do
|
|
|
|
features
|
|
|
|
|> Enum.map(fn %{
|
|
|
|
"geometry" => %{"coordinates" => coordinates},
|
|
|
|
"properties" => %{"geocoding" => geocoding}
|
|
|
|
} ->
|
|
|
|
address = process_address(geocoding)
|
|
|
|
%Address{address | geom: Provider.coordinates(coordinates)}
|
|
|
|
end)
|
|
|
|
end
|
|
|
|
|
|
|
|
defp process_address(%{"type" => "poi", "address" => address} = geocoding) do
|
|
|
|
address = process_address(address)
|
|
|
|
|
|
|
|
%Address{
|
|
|
|
address
|
|
|
|
| type: get_type(geocoding),
|
|
|
|
origin_id: Map.get(geocoding, "id"),
|
|
|
|
description: Map.get(geocoding, "name")
|
|
|
|
}
|
|
|
|
end
|
|
|
|
|
|
|
|
defp process_address(geocoding) do
|
|
|
|
%Address{
|
|
|
|
country: get_administrative_region(geocoding, "country"),
|
|
|
|
locality: Map.get(geocoding, "city"),
|
|
|
|
region: get_administrative_region(geocoding, "region"),
|
|
|
|
description: Map.get(geocoding, "name"),
|
|
|
|
postal_code: get_postal_code(geocoding),
|
|
|
|
street: street_address(geocoding),
|
|
|
|
origin_id: "mimirsbrunn:" <> Map.get(geocoding, "id"),
|
|
|
|
type: get_type(geocoding)
|
|
|
|
}
|
|
|
|
end
|
|
|
|
|
|
|
|
defp street_address(properties) do
|
|
|
|
if Map.has_key?(properties, "housenumber") do
|
|
|
|
Map.get(properties, "housenumber") <> " " <> Map.get(properties, "street")
|
|
|
|
else
|
|
|
|
Map.get(properties, "street")
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
defp get_type(%{"type" => type}) when type in ["house", "street", "zone", "address"], do: type
|
|
|
|
|
|
|
|
defp get_type(%{"type" => "poi", "poi_types" => types})
|
|
|
|
when is_list(types) and length(types) > 0,
|
|
|
|
do: hd(types)["id"]
|
|
|
|
|
|
|
|
defp get_type(_), do: nil
|
|
|
|
|
|
|
|
defp get_administrative_region(
|
|
|
|
%{"administrative_regions" => administrative_regions},
|
|
|
|
administrative_level
|
|
|
|
) do
|
|
|
|
Enum.find_value(
|
|
|
|
administrative_regions,
|
|
|
|
&process_administrative_region(&1, administrative_level)
|
|
|
|
)
|
|
|
|
end
|
|
|
|
|
|
|
|
defp get_administrative_region(_, _), do: nil
|
|
|
|
|
|
|
|
defp process_administrative_region(%{"zone_type" => "country", "name" => name}, "country"),
|
|
|
|
do: name
|
|
|
|
|
|
|
|
defp process_administrative_region(%{"zone_type" => "state", "name" => name}, "region"),
|
|
|
|
do: name
|
|
|
|
|
|
|
|
defp process_administrative_region(_, _), do: nil
|
|
|
|
|
|
|
|
defp get_postal_code(%{"postcode" => nil}), do: nil
|
|
|
|
defp get_postal_code(%{"postcode" => postcode}), do: postcode |> String.split(";") |> hd()
|
|
|
|
end
|