From 66f6ce7309851ce2b5f12deb84ba3afbd0862c74 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 18 Sep 2016 00:11:20 +0200
Subject: Simplify Circe server messages

---
 emacs/.emacs.d/vendor-lisp/sermon/sermon.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'emacs/.emacs.d')

diff --git a/emacs/.emacs.d/vendor-lisp/sermon/sermon.el b/emacs/.emacs.d/vendor-lisp/sermon/sermon.el
index f2efcde..8192c66 100644
--- a/emacs/.emacs.d/vendor-lisp/sermon/sermon.el
+++ b/emacs/.emacs.d/vendor-lisp/sermon/sermon.el
@@ -99,7 +99,7 @@
 (defun sermon-server-join-in-channel-formatter (&rest keywords)
   (propertize
    (lui-format
-    (format "{intro:%ds}   Join: {nick} ({userinfo}) joined {channel}"
+    (format "{intro:%ds}   {nick} joined {channel}"
             sermon-longest-nick)
     (plist-put keywords :intro ">>>"))
    'wrap-prefix (sermon--fill-string)))
@@ -107,7 +107,7 @@
 (defun sermon-server-join-formatter (&rest keywords)
   (propertize
    (lui-format
-    (format "{intro:%ds}   Join: {nick} ({userinfo})"
+    (format "{intro:%ds}   {nick} logged on"
             sermon-longest-nick)
     (plist-put keywords :intro ">>>"))
    'wrap-prefix (sermon--fill-string)))
@@ -115,7 +115,7 @@
 (defun sermon-server-quit-formatter (&rest keywords)
   (propertize
    (lui-format
-    (format "{intro:%ds}   Quit: {nick} ({userhost}) left IRC: {reason}"
+    (format "{intro:%ds}   {nick} logged off"
             sermon-longest-nick)
     (plist-put keywords :intro "<<<"))
    'wrap-prefix (sermon--fill-string)))
@@ -123,7 +123,7 @@
 (defun sermon-server-quit-channel-formatter (&rest keywords)
   (propertize
    (lui-format
-    (format "{intro:%ds}   Quit: {nick} ({userhost}) left {channel}: {reason}"
+    (format "{intro:%ds}   {nick} left {channel}"
             sermon-longest-nick)
     (plist-put keywords :intro "<<<"))
    'wrap-prefix (sermon--fill-string)))
@@ -131,7 +131,7 @@
 (defun sermon-server-part-formatter (&rest keywords)
   (propertize
    (lui-format
-    (format "{intro:%ds}   Part: {nick} ({userhost}) left {channel}: {reason}"
+    (format "{intro:%ds}   {nick} parted from {channel}"
             sermon-longest-nick)
     (plist-put keywords :intro "***"))
    'wrap-prefix (sermon--fill-string)))
@@ -139,7 +139,7 @@
 (defun sermon-server-nick-change-formatter (&rest keywords)
   (propertize
    (lui-format
-    (format "{intro:%ds}   Nick change: {old-nick} ({userhost}) is now know as {new-nick}"
+    (format "{intro:%ds}   {old-nick} is now know as {new-nick}"
             sermon-longest-nick)
     (plist-put keywords :intro "***"))
    'wrap-prefix (sermon--fill-string)))
-- 
cgit v1.2.3-54-g00ecf