From: Philip Kaludercic <philipk@posteo.net>
Date: Mon, 6 Sep 2021 20:37:33 +0000 (+0200)
Subject: Implement standard-replies capability
X-Git-Tag: emacs-28.0.90~948^2~21
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=354929a85a292137256b3abbca6c2983dd93dee3;p=emacs.git

Implement standard-replies capability

* rcirc.el (rcirc-implemented-capabilities): Add standard-replies to list
(rcirc-response-formats): Add response formats for WARN, FAIL and NOTE
(rcirc-handler-FAIL): Add handler
(rcirc-handler-WARN): Add handler
(rcirc-handler-NOTE): Add handler
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a819fb87c08..0315d715036 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -607,6 +607,7 @@ See `rcirc-connect' for more details on these variables.")
     "invite-notify"                     ;https://ircv3.net/specs/extensions/invite-notify
     "sasl"                              ;https://ircv3.net/specs/extensions/sasl-3.1
     "multi-prefix"                      ;https://ircv3.net/specs/extensions/multi-prefix
+    "standard-replies"                  ;https://ircv3.net/specs/extensions/standard-replies
     )
   "A list of capabilities that rcirc supports.")
 (defvar-local rcirc-requested-capabilities nil
@@ -1639,6 +1640,9 @@ extracted."
     ("ACTION"  . "[%N %m]")
     ("COMMAND" . "%m")
     ("ERROR"   . "%fw!!! %m")
+    ("FAIL"   . "(%fwFAIL%f-) %m")
+    ("WARN"   . "(%fwWARN%f-) %m")
+    ("NOTE"   . "(%fwNOTE%f-) %m")
     (t         . "%fp*** %fs%n %r %m"))
   "An alist of formats used for printing responses.
 The format is looked up using the response-type as a key;
@@ -3565,6 +3569,27 @@ process object for the current connection."
     (rcirc-send-string process "CAP" "END"))
   (rcirc-join-channels-post-auth process))
 
+(defun rcirc-handler-FAIL (process _sender args _text)
+  "Display a FAIL message, as indicated by ARGS.
+PROCESS is the process object for the current connection."
+  (rcirc-print process nil "FAIL" nil
+               (mapconcat #'identity args " ")
+               t))
+
+(defun rcirc-handler-WARN (process _sender args _text)
+  "Display a WARN message, as indicated by ARGS.
+PROCESS is the process object for the current connection."
+  (rcirc-print process nil "WARN" nil
+               (mapconcat #'identity args " ")
+               t))
+
+(defun rcirc-handler-NOTE (process _sender args _text)
+  "Display a NOTE message, as indicated by ARGS.
+PROCESS is the process object for the current connection."
+  (rcirc-print process nil "NOTE" nil
+               (mapconcat #'identity args " ")
+               t))
+
 
 (defgroup rcirc-faces nil
   "Faces for rcirc."