ryuslash/circe-serenity
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add a formatter for notices

Browse source
This commit is contained in:
Tom Willemse 2023-12-12 11:19:20 -08:00
parent 7a2a4523aa
commit 91f0b224e1
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
circe-serenity.el
View file

@ -202,6 +202,16 @@ passed on to `lui-format'."
(circe-serenity--define-formatter 'circe-serenity-server-nick-regain-formatter (circe-serenity--define-formatter 'circe-serenity-server-nick-regain-formatter
'circe-format-server-nick-regain) 'circe-format-server-nick-regain)
(defun circe-serenity-notice-formatter (&rest keywords)
"Format a notice.
KEYWORDS should be a plist with at least a :nick and :body key."
(propertize
(lui-format
(format "{intro:%ds} -{nick}- {body}" circe-serenity-longest-nick)
(plist-put keywords :intro "***"))
'wrap-prefix (circe-serenity--fill-string)))
(circe-serenity--define-formatter 'circe-serenity-notice-formatter 'circe-format-notice)
;;;###autoload ;;;###autoload
(defun enable-circe-serenity () (defun enable-circe-serenity ()
"Enable Serenity for Circe." "Enable Serenity for Circe."