defmodule Ink do
  use GenEvent

  @log_level_priorities %{debug: 0, info: 1, warn: 2, error: 3}

  def init(__MODULE__) do
    {:ok, default_options()}
  end

  def handle_call({:configure, options}, state) do
    {:ok, :ok, Map.merge(state, Enum.into(options, %{}))}
  end

  def handle_event({_, gl, {Logger, _, _, _}}, state) when node(gl) != node() do
    {:ok, state}
  end

  def handle_event(:flush, state) do
    {:ok, state}
  end

  def handle_event({level, _, {Logger, message, timestamp, metadata}}, state) do
    log_message(message, level, timestamp, metadata, state)
    {:ok, state}
  end

  def log_message(message, level, timestamp, metadata, config) do
    if log_level?(level, config.level) do
      message
      |> base_map(timestamp)
      |> Map.merge(Enum.into(metadata, %{}))
      |> Poison.encode
      |> log_json(config)
    end
  end

  defp log_json({:ok, json}, config) do
    json
    |> filter_secret_strings(config.filtered_strings)
    |> IO.puts
  end
  defp log_json(other, _) do
    if Mix.env == :dev, do: IO.puts inspect(other)
  end

  defp base_map(message, timestamp) when is_binary(message) do
    %{message: message, timestamp: formatted_timestamp(timestamp)}
  end
  defp base_map(message, timestamp) do
    %{message: inspect(message), timestamp: formatted_timestamp(timestamp)}
  end

  defp formatted_timestamp({date, {hours, minutes, seconds, microseconds}}) do
    {date, {hours, minutes, seconds}}
    |> NaiveDateTime.from_erl!({microseconds, 3})
    |> NaiveDateTime.to_iso8601
  end

  defp filter_secret_strings(message, secret_strings) do
    Enum.reduce(secret_strings, message, fn secret, msg ->
      String.replace(msg, secret, "[FILTERED]")
    end)
  end

  defp default_options do
    %{level: :debug, filtered_strings: []}
    |> Map.merge(Enum.into(Application.get_env(:logger, Ink), %{}))
  end

  defp log_level?(msg_level, config_level) do
    @log_level_priorities[msg_level] >= @log_level_priorities[config_level]
  end
end