summaryrefslogblamecommitdiff
path: root/lib/lsg_irc/wolfram_alpha_plugin.ex
blob: c07f659cc4b283a3eb681f9ff774014d10f3f1cb (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13












                                                            
                                                          


                
                                                                                




























                                                                                                                   
defmodule LSG.IRC.WolframAlphaPlugin do
  use GenServer
  require Logger

  @moduledoc """
  # wolfram alpha

  * **`!wa <requête>`** lance `<requête>` sur WolframAlpha
  """

  def irc_doc, do: @moduledoc

  def start_link() do
    GenServer.start_link(__MODULE__, [], name: __MODULE__)
  end

  def init(_) do
    {:ok, _} = Registry.register(IRC.PubSub, "trigger:wa", [plugin: __MODULE__])
    {:ok, nil}
  end

  def handle_info({:irc, :trigger, _, m = %IRC.Message{trigger: %IRC.Trigger{type: :bang, args: query}}}, state) do
    query = Enum.join(query, " ")
    params = %{
      "appid" => Keyword.get(Application.get_env(:lsg, :wolframalpha, []), :app_id, "NO_APP_ID"),
      "units" => "metric",
      "i" => query
    }
    url = "https://www.wolframalpha.com/input/?i=" <> URI.encode(query)
    case HTTPoison.get("http://api.wolframalpha.com/v1/result", [], [params: params]) do
      {:ok, %HTTPoison.Response{status_code: 200, body: body}} ->
        m.replyfun.(["#{query} -> #{body}", url])
      {:ok, %HTTPoison.Response{status_code: code, body: body}} ->
        error = case {code, body} do
          {501, b} -> "input invalide: #{body}"
          {code, error} -> "erreur #{code}: #{body || ""}"
        end
        m.replyfun.("wa: #{error}")
      {:error, %HTTPoison.Error{reason: reason}} ->
        m.replyfun.("wa: erreur http: #{to_string(reason)}")
      _ ->
        m.replyfun.("wa: erreur http")
    end
    {:noreply, state}
  end

end