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