debianize-mobilizon/lib/service/pictures/unsplash.ex
Thomas Citharel ee20e03cc2
Migrate to Vue 3 and Vite
Signed-off-by: Thomas Citharel <tcit@tcit.fr>
2022-08-11 16:46:31 +02:00

66 lines
1.8 KiB
Elixir

defmodule Mobilizon.Service.Pictures.Unsplash do
@moduledoc """
[Unsplash](https://unsplash.com) backend.
"""
alias Mobilizon.Service.Pictures.{Information, Provider}
alias Mobilizon.Service.HTTP.GenericJSONClient
require Logger
@unsplash_api "/search/photos"
@unsplash_name "Unsplash"
@behaviour Provider
@impl Provider
@doc """
Unsplash implementation for `c:Mobilizon.Service.Geospatial.Provider.geocode/3`.
"""
@spec search(String.t(), keyword()) :: list(Information.t())
def search(location, _options \\ []) do
url = "#{unsplash_endpoint()}#{@unsplash_api}?query=#{location}&orientation=landscape"
client =
GenericJSONClient.client(headers: [{:Authorization, "Client-ID #{unsplash_access_key()}"}])
with {:ok, %{status: 200, body: body}} <- GenericJSONClient.get(client, url),
selectedPicture <- Enum.random(body["results"]) do
%Information{
url: selectedPicture["urls"]["small"],
author: %{
name: selectedPicture["user"]["name"],
url: "#{selectedPicture["user"]["links"]["html"]}#{unsplash_utm_source()}"
},
source: %{
name: @unsplash_name,
url: unsplash_url()
}
}
else
_ ->
nil
end
end
defp unsplash_app_name do
Application.get_env(:mobilizon, __MODULE__) |> get_in([:app_name])
end
defp unsplash_utm_source do
"?utm_source=#{unsplash_app_name()}&utm_medium=referral"
end
defp unsplash_url do
"https://unsplash.com/#{unsplash_utm_source()}"
end
defp unsplash_endpoint do
Application.get_env(:mobilizon, __MODULE__) |> get_in([:endpoint]) ||
"https://api.unsplash.com"
end
defp unsplash_access_key do
Application.get_env(:mobilizon, __MODULE__) |> get_in([:access_key])
end
end