Advertize informational capability soju.im/account-required

Author: progval

lib/irc/handler.ex

@@ -85,6 +85,13 @@ defmodule M51.IrcConn.Handler do
     "userhost-in-names" => {:userhost_in_names, nil}
   }
 
+  @informative_capabilities %{
+    # https://git.sr.ht/~emersion/soju/tree/master/item/doc/ext/account-required.md
+    "soju.im/account-required" => {nil, nil}
+  }
+
+  @capabilities_ls Map.merge(@capabilities, @informative_capabilities)
+
   @valid_batch_types ["draft/multiline"]
 
   @doc """
@@ -322,7 +329,7 @@ defmodule M51.IrcConn.Handler do
 
       {"CAP", ["LS", "302"]} ->
         caps =
-          @capabilities
+          @capabilities_ls
           |> Map.to_list()
           |> Enum.sort_by(fn {k, _v} -> k end)
           |> Enum.map(fn {k, {_, v}} ->
@@ -338,7 +345,7 @@ defmodule M51.IrcConn.Handler do
 
       {"CAP", ["LS" | _]} ->
         caps =
-          @capabilities
+          @capabilities_ls
           |> Map.to_list()
           |> Enum.sort_by(fn {k, {_, _v}} -> k end)
           |> Enum.map(fn {k, _v} -> k end)

test/irc/handler_test.exs

@@ -18,8 +18,8 @@ defmodule M51.IrcConn.HandlerTest do
   use ExUnit.Case, async: false
   doctest M51.IrcConn.Handler
 
-  @cap_ls_302 ":server. CAP * LS :account-tag batch draft/account-registration=before-connect draft/channel-rename draft/chathistory draft/multiline=max-bytes=8192 echo-message extended-join labeled-response message-tags sasl=PLAIN server-time userhost-in-names\r\n"
-  @cap_ls ":server. CAP * LS :account-tag batch draft/account-registration draft/channel-rename draft/chathistory draft/multiline echo-message extended-join labeled-response message-tags sasl server-time userhost-in-names\r\n"
+  @cap_ls_302 ":server. CAP * LS :account-tag batch draft/account-registration=before-connect draft/channel-rename draft/chathistory draft/multiline=max-bytes=8192 echo-message extended-join labeled-response message-tags sasl=PLAIN server-time soju.im/account-required userhost-in-names\r\n"
+  @cap_ls ":server. CAP * LS :account-tag batch draft/account-registration draft/channel-rename draft/chathistory draft/multiline echo-message extended-join labeled-response message-tags sasl server-time soju.im/account-required userhost-in-names\r\n"
   @isupport "CASEMAPPING=rfc3454 CLIENTTAGDENY=*,-draft/react,-draft/reply CHANLIMIT= CHANTYPES=#! CHATHISTORY=1000 MAXTARGETS=1 MSGREFTYPES=msgid PREFIX= TARGMAX=JOIN:1,PART:1 UTF8ONLY :are supported by this server\r\n"
 
   setup do