ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Simplify Circe server messages

Browse source
This commit is contained in:
Tom Willemse 2016-09-18 00:11:20 +02:00
parent 2fb6235807
commit 66f6ce7309
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/.emacs.d/vendor-lisp/sermon/sermon.el
View file

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