Format more circe messages

1 files changed, 15 insertions, 0 deletions

@@ -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))
                                        " ")