about summary refs log tree commit diff
path: root/web/panettone/src/irc.lisp
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2021-03-28T15·05-0400
committerglittershark <grfn@gws.fyi>2021-03-28T17·07+0000
commitdb62866d820cf524b67cebe34033d3928804cf3c (patch)
tree5a68fa9f462eae8f08ad78c4383bb9b321866d5b /web/panettone/src/irc.lisp
parent1f250e374d9da401e60f2db02151af8f6bdb7c28 (diff)
feat(web/panettone): Noping issue authors' usernames r/2355
When sending irc notifications, insert a zero-width space after the
first character of the username of the author of issues, to prevent that
user from receiving a ping.

Fixes: b/95
Change-Id: Ibcacb45129b2cb99b587744eb61f4f1dbc0060d6
Reviewed-on: https://cl.tvl.fyi/c/depot/+/2693
Tested-by: BuildkiteCI
Reviewed-by: tazjin <mail@tazj.in>
Diffstat (limited to 'web/panettone/src/irc.lisp')
-rw-r--r--web/panettone/src/irc.lisp6
1 files changed, 6 insertions, 0 deletions
diff --git a/web/panettone/src/irc.lisp b/web/panettone/src/irc.lisp
index f116e2a70631..2ab72a2e391e 100644
--- a/web/panettone/src/irc.lisp
+++ b/web/panettone/src/irc.lisp
@@ -2,6 +2,12 @@
 
 (in-package :panettone.irc)
 
+(defun noping (s)
+  (format nil "~A~A~A"
+          (char s 0)
+          #\ZERO_WIDTH_SPACE
+          (subseq s 1)))
+
 (defun get-irccat-config ()
   "Reads the IRCCATHOST and IRCCATPORT environment variables, and returns them
 as two values"