From 92a1f72f410c8ac46d3c4f9913a8b2d4316f7914 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 22 Nov 2020 14:05:00 -0500 Subject: feat(panettone): Send notifications when issues are closed Send an irc notification when issues are marked closed, in a similar format to the notifications sent when new issues are created. Change-Id: I2fdde33f0dedc223a5c2265eed778161938f8e9a Reviewed-on: https://cl.tvl.fyi/c/depot/+/2126 Tested-by: BuildkiteCI Reviewed-by: tazjin --- web/panettone/src/panettone.lisp | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'web/panettone') diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index 49492363ff..bcf215d158 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -454,11 +454,13 @@ (model:create-issue :subject subject :body body :author-dn (dn *user*)))) - (send-irc-notification (format nil "b/~A: \"~A\" opened by ~A - https://b.tvl.fyi/issues/~A" - (id issue) subject (cn *user*) - (id issue)) - :channel (or (uiop:getenvp "ISSUECHANNEL") - "##tvl-dev")) + (send-irc-notification + (format nil + "b/~A: \"~A\" opened by ~A - https://b.tvl.fyi/issues/~A" + (id issue) subject (cn *user*) + (id issue)) + :channel (or (uiop:getenvp "ISSUECHANNEL") + "##tvl-dev")) (hunchentoot:redirect "/")))) (defroute show-issue @@ -515,6 +517,13 @@ :method :post) (&path (id 'integer)) (model:set-issue-status id :closed) + (let ((issue (model:get-issue id))) + (send-irc-notification + (format nil + "b/~A: \"~A\" closed by ~A - https://b.tvl.fyi/issues/~A" + id (subject issue) (cn *user*) id) + :channel (or (uiop:getenvp "ISSUECHANNEL") + "##tvl-dev"))) (hunchentoot:redirect (format nil "/issues/~A" id))) (defroute open-issue -- cgit 1.4.1