Add a formatter for notices

.gitlab-ci.yml

@@ -0,0 +1,29 @@
+image: silex/emacs:26.3-alpine-dev
+
+stages:
+  - package
+  - deploy
+
+package:
+  stage: package
+  before_script:
+    - rm -rf public/
+    - mkdir public/
+  script: >
+    emacs --batch --load package --load package-x --funcall package-initialize
+    --eval "(let ((package-archive-upload-base \"public/\"))
+              (package-upload-file \"circe-serenity.el\"))"
+  artifacts:
+    paths:
+      - public/
+
+pages:
+  stage: deploy
+  only:
+    - master
+  dependencies:
+    - package
+  script: echo "Done"
+  artifacts:
+    paths:
+      - public

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."