diff options
author | Tom Willemse | 2023-12-12 11:19:20 -0800 |
---|---|---|
committer | Tom Willemse | 2023-12-12 11:19:20 -0800 |
commit | 91f0b224e15e0e5004b4292d2cf5cd373136e3f2 (patch) | |
tree | 4c801ac5135339d6160a62fa7ea0109f08dc9883 | |
parent | 7a2a4523aaf730e75b3875ec51ec198978e80294 (diff) | |
download | circe-serenity-master.tar.gz circe-serenity-master.zip |
-rw-r--r-- | circe-serenity.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/circe-serenity.el b/circe-serenity.el index 6f0ecbe..501b1c8 100644 --- a/circe-serenity.el +++ b/circe-serenity.el @@ -202,6 +202,16 @@ passed on to `lui-format'." (circe-serenity--define-formatter 'circe-serenity-server-nick-regain-formatter '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 (defun enable-circe-serenity () "Enable Serenity for Circe." |