From 9958e90eb5eb5a2cc171c40860745e95a96bd429 Mon Sep 17 00:00:00 2001
From: Jordan Bracco <href@random.sh>
Date: Tue, 20 Dec 2022 02:19:42 +0000
Subject: Actually do not prefix folders with nola_ refs T77

---
 lib/plugins/seen.ex | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 lib/plugins/seen.ex

(limited to 'lib/plugins/seen.ex')

diff --git a/lib/plugins/seen.ex b/lib/plugins/seen.ex
new file mode 100644
index 0000000..65af0c1
--- /dev/null
+++ b/lib/plugins/seen.ex
@@ -0,0 +1,59 @@
+defmodule Nola.Plugins.Seen do
+  @moduledoc """
+  # seen
+
+  * **!seen `<nick>`**
+  """
+
+  def irc_doc, do: @moduledoc
+  def start_link() do
+    GenServer.start_link(__MODULE__, [], name: __MODULE__)
+  end
+
+  def init([]) do
+    regopts = [plugin: __MODULE__]
+    {:ok, _} = Registry.register(IRC.PubSub, "triggers", regopts)
+    {:ok, _} = Registry.register(IRC.PubSub, "messages", regopts)
+    dets_filename = (Nola.data_path() <> "/seen.dets") |> String.to_charlist()
+    {:ok, dets} = :dets.open_file(dets_filename, [])
+    {:ok, %{dets: dets}}
+  end
+
+  def handle_info({:irc, :trigger, "seen", m = %IRC.Message{trigger: %IRC.Trigger{type: :bang, args: [nick]}}}, state) do
+    witness(m, state)
+    m.replyfun.(last_seen(m.channel, nick, state))
+    {:noreply, state}
+  end
+
+  def handle_info({:irc, :trigger, _, m}, state) do
+    witness(m, state)
+    {:noreply, state}
+  end
+
+  def handle_info({:irc, :text, m}, state) do
+    witness(m, state)
+    {:noreply, state}
+  end
+
+  defp witness(%IRC.Message{channel: channel, text: text, sender: %{nick: nick}}, %{dets: dets}) do
+    :dets.insert(dets, {{channel, nick}, DateTime.utc_now(), text})
+    :ok
+  end
+
+  defp last_seen(channel, nick, %{dets: dets}) do
+    case :dets.lookup(dets, {channel, nick}) do
+      [{_, date, text}] ->
+        diff = round(DateTime.diff(DateTime.utc_now(), date)/60)
+        cond do
+          diff >= 30 ->
+            duration = Timex.Duration.from_minutes(diff)
+            format = Timex.Format.Duration.Formatter.lformat(duration, "fr", :humanized)
+            "#{nick} a parlé pour la dernière fois il y a #{format}: “#{text}”"
+          true -> "#{nick} est là..."
+        end
+      [] ->
+        "je ne connais pas de #{nick}"
+    end
+  end
+
+end
-- 
cgit v1.2.3