kanta_deep_l_plugin

defmodule Kanta.DeepL.Adapter do
  @moduledoc """
  DeepL API adapter
  """

  use Tesla

  plug(Tesla.Middleware.BaseUrl, "https://api-free.deepl.com")

  plug(Tesla.Middleware.Headers, [
    {"Authorization", "DeepL-Auth-Key #{deep_l_api_key()}"}
  ])

  plug(Tesla.Middleware.JSON)

  def request_translation(source_lang, target_lang, text) do
    post("/v2/translate", %{
      source_lang: source_lang,
      target_lang: target_lang,
      text: [text]
    })
    |> case do
      {:ok, %Tesla.Env{body: %{"translations" => translations}}} -> {:ok, translations}
      {_, %Tesla.Env{body: body, status: status}} -> {:error, status, body}
      error -> {:error, error}
    end
  end

  def usage do
    get("/v2/usage")
    |> case do
      {:ok, %Tesla.Env{body: body}} -> {:ok, body}
      {_, %Tesla.Env{body: body, status: status}} -> {:error, status, body}
      error -> {:error, error}
    end
  end

  defp deep_l_api_key do
    case Enum.find(Kanta.config().plugins, &(elem(&1, 0) == Kanta.DeepL.Plugin)) do
      nil -> raise "missing DeepL API key"
      {_, config} -> Keyword.get(config, :api_key)
    end
  end
end