Plugin.ls() lists actual plugins

.gitignore

@@ -14,6 +14,7 @@ erl_crash.dump
 
 ### Elixir Patch ###
 /doc
+/.elixir-tools
 
 # Nix resources
 /.nix-mix

lib/plugin.ex

@@ -62,8 +62,26 @@ defmodule Plugin do
     end
   end
 
+  @doc "returns loaded modules using the Plugin behavior."
+  @spec! ls() :: MapSet.t(module())
   def ls() do
-    S.find_submodules(__MODULE__)
+    S.find_submodules(Elixir)
+    |> Enum.reduce(MapSet.new(), fn
+      mod, acc ->
+        if not Kernel.function_exported?(mod, :__info__, 1) do
+          acc
+        else
+          b =
+            apply(mod, :__info__, [:attributes])
+            |> Keyword.get(:behaviour, [])
+
+          if Plugin in b do
+            MapSet.put(acc, mod)
+          else
+            acc
+          end
+        end
+    end)
   end
 
   def default_plugin_mfa(plug, [cfg, msg]) do
@@ -218,7 +236,6 @@ defmodule Plugin do
         )
         |> S.Interact.record_interaction!()
 
-        # TODO: logging interactions
         chosen_response
 
       %Response{callback: {mod, fun, args}} ->

lib/service/discord.ex

@@ -107,7 +107,7 @@ defmodule Service.Discord do
 
     [
       "Message from ",
-      msg.author_id |> Nostrum.Struct.User.full_name() |> inspect(),
+      msg.author_id |> Nostrum.Api.get_user!() |> Nostrum.Struct.User.full_name() |> inspect(),
       " lead to ",
       error_type,
       " in plugin ",
@@ -145,7 +145,9 @@ defmodule Service.Discord do
         "Erlang-level error ",
         inspect(level),
         "\n",
-        message |> S.pp() |> Service.Discord.txt_format(:source_block)
+        message
+        |> TxtBlock.to_str_list(Service.Discord)
+        |> Service.Discord.txt_format(:source_block)
       ]
 
       _ = send_msg(channel_id, log)

lib/stampede.ex

@@ -78,11 +78,17 @@ defmodule Stampede do
   @spec! find_submodules(module()) :: MapSet.t(module())
   def find_submodules(module_name) do
     :code.all_available()
-    |> Enum.map(&(elem(&1, 0) |> to_string))
-    |> Enum.filter(&String.starts_with?(&1, to_string(module_name) <> "."))
-    |> Enum.sort()
-    |> Enum.map(&String.to_atom/1)
-    |> MapSet.new()
+    |> Enum.reduce(MapSet.new(), fn
+      {name, _location, _loaded}, acc ->
+        name
+        |> List.to_string()
+        |> String.starts_with?(to_string(module_name) <> ".")
+        |> if do
+          MapSet.put(acc, List.to_atom(name))
+        else
+          acc
+        end
+    end)
   end
 
   @doc """

lib/stampede/interaction.ex

@@ -8,7 +8,7 @@ defmodule Stampede.Interaction do
     plugin: _ :: any(),
     msg: _ :: Msg,
     response: _ :: Response,
-    traceback: [] :: iodata() | String.t(),
+    traceback: [] :: TxtBlock.t(),
     channel_lock: false :: S.channel_lock_action()
   )