From 0e4ccb882cccd8ae6d8270c1c3f0dcb922ae7709 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 21 Oct 2021 19:00:43 -0500
Subject: Format more circe messages

---
 init.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ffbc2f2..5a8cc48 100644
--- a/init.el
+++ b/init.el
@@ -1191,6 +1191,10 @@ specific to most general, they are these:
   (require 'acdw-irc)
   (:also-load acdw-circe)
 
+  (defun acdw-circe/format-meta (string)
+    "Return a format string for `lui-format'."
+    (format "{nick:%1$d.%1$ds} *** %s" (- acdw-irc/left-margin 3) string))
+
   (:option acdw-irc/left-margin 20
            circe-channel-killed-confirmation nil
            circe-color-nicks-everywhere t
@@ -1207,6 +1211,17 @@ specific to most general, they are these:
            circe-format-self-say (format
                                   "{nick:%1$d.%1$ds} > {body}"
                                   (- acdw-irc/left-margin 3))
+           circe-format-server-part (acdw-circe/format-meta
+                                     "PART {channel}: {reason}")
+           circe-format-server-quit (acdw-circe/format-meta "QUIT: {reason}")
+           circe-format-server-quit-channel (acdw-circe/format-meta
+                                             "QUIT {channel}: {reason}")
+           circe-format-server-join (acdw-circe/format-meta "JOIN: {userinfo}")
+           circe-format-server-rejoin (acdw-circe/format-meta
+                                       (concat "REJOIN: {userinfo}"
+                                               " after {departuredelta}"))
+           circe-format-server-topic (acdw-circe/format-meta
+                                      "TOPIC: {new-topic}")
            circe-prompt-string (format (format "%%%ds> "
                                                (- acdw-irc/left-margin 2))
                                        " ")
-- 
cgit 1.4.1-21-gabe81