diff options
| author |  Tom Willemse | 2016-09-18 00:11:20 +0200 |
|---|---|---|
| committer | Tom Willemse | 2016-09-18 00:11:20 +0200 |
| commit | 66f6ce7309851ce2b5f12deb84ba3afbd0862c74 (patch) | |
| tree | 61e1eb9f82550614d8db6fce9f59cd532111cd06 /emacs/.emacs.d/vendor-lisp | |
| parent | 2fb6235807df0264ee399d1408f12dbf1aa149c8 (diff) | |
| download | new-dotfiles-66f6ce7309851ce2b5f12deb84ba3afbd0862c74.tar.gz new-dotfiles-66f6ce7309851ce2b5f12deb84ba3afbd0862c74.zip | |
Simplify Circe server messages
Diffstat (limited to 'emacs/.emacs.d/vendor-lisp')
| -rw-r--r-- | emacs/.emacs.d/vendor-lisp/sermon/sermon.el | 12 |
1 files changed, 6 insertions, 6 deletions
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))) |