Add circe settings

1 files changed, 60 insertions, 0 deletions

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 2d09237..e836f0b 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -982,8 +982,64 @@ from myaethon2.core.decorators import (
       (format "%s   %s" (s-pad-left oni:circe-longest-nick " " nick)
               (plist-get keywords :body))))
 
+  (defun oni:circe-action-prompt (&rest keywords)
+    (format "%s   %s %s" (s-pad-left oni:circe-longest-nick " " "*")
+            (plist-get keywords :nick)
+            (plist-get keywords :body)))
+
+  (defun oni:circe-server-prompt (&rest keywords)
+    (format "%s   %s" (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :body)))
+
+  (defun oni:circe-server-join-in-channel (&rest keywords)
+    (format "%s   Join: %s (%s) joined %s"
+            (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :nick)
+            (plist-get keywords :userinfo)
+            (plist-get keywords :channel)))
+
+  (defun oni:circe-server-join (&rest keywords)
+    (format "%s   %s joined the channel"
+            (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :nick)))
+
+  (defun oni:circe-server-quit (&rest keywords)
+    (format "%s   %s quit IRC: %s"
+            (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :nick)
+            (plist-get keywords :reason)))
+
+  (defun oni:circe-server-quit-channel (&rest keywords)
+    (format "%s   %s left %s: %s"
+            (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :nick)
+            (plist-get keywords :channel)
+            (plist-get keywords :reason)))
+
+  (defun oni:circe-server-part (&rest keywords)
+    (format "%s   %s parted %s: %s"
+            (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :nick)
+            (plist-get keywords :channel)
+            (plist-get keywords :reason)))
+
+  (defun oni:circe-server-nick-change (&rest keywords)
+    (format "%s   %s is now known as %s"
+            (s-pad-left oni:circe-longest-nick " " "***")
+            (plist-get keywords :old-nick)
+            (plist-get keywords :new-nick)))
+
   (setq circe-format-self-say #'oni:circe-prompt)
   (setq circe-format-say #'oni:circe-prompt)
+  (setq circe-format-self-action #'oni:circe-action-prompt)
+  (setq circe-format-action #'oni:circe-action-prompt)
+  (setq circe-format-server-message #'oni:circe-server-prompt)
+  (setq circe-format-server-join-in-channel #'oni:circe-server-join-in-channel)
+  (setq circe-format-server-join #'oni:circe-server-join)
+  (setq circe-format-server-quit #'oni:circe-server-quit)
+  (setq circe-format-server-quit-channel #'oni:circe-server-quit-channel)
+  (setq circe-format-server-part #'oni:circe-server-part)
+  (setq circe-format-server-nick-change #'oni:circe-server-nick-change)
   (setq circe-network-options
         `(("Freenode"
            :nick "ryuslash"
@@ -1241,6 +1297,10 @@ from myaethon2.core.decorators import (
   (setq time-stamp-active t)
   (setq time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)"))
 
+(stante-after tracking
+  (add-hook 'tracking-buffer-added-hook 'oni:update-mowedline-irclist)
+  (add-hook 'tracking-buffer-removed-hook 'oni:update-mowedline-irclist))
+
 (stante-after type-break
   (setq type-break-good-rest-interval (* 60 10))
   (setq type-break-interval (* 60 50))