From 2ac78884b044e065fc6e8bcbb8f4e1c46bd877e0 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 28 Sep 2015 23:10:28 +0200
Subject: Add circe settings

---
 emacs/.emacs.d/init.el | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)

(limited to 'emacs')

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))
-- 
cgit v1.2.3-54-g00ecf