about summary refs log tree commit diff
path: root/web/panettone/src/packages.lisp
diff options
context:
space:
mode:
authoreta <eta@theta.eu.org>2020-11-08T18·38+0000
committereta <eta@theta.eu.org>2020-11-08T19·02+0000
commit2e2bdf9c6ce1cd66ba5cfe1a42786a6f486b7969 (patch)
tree7e982ea0754491efd795c3f60b57d4f8c8df057d /web/panettone/src/packages.lisp
parent1442c5c8ac07a08d279d87e1f0659f7e563da038 (diff)
feat(panettone): announce newly created issues using irccat r/1877
- The new PANETTONE.IRC package contains the SEND-IRC-NOTIFICATION function,
  which opens a new TCP socket to irccat (if it's running and configured) in
  order to announce the creation of new issues.
- The IRCCATHOST and IRCCATPORT environment variables must be set for this to
  work.
- Additionally, the ISSUECHANNEL environment variable may be used to direct
  announcements at a given channel (otherwise it'll just use the first one).

Change-Id: I429a66f24d0f80ed10db173d6af7105fb1d3d023
Reviewed-on: https://cl.tvl.fyi/c/depot/+/2077
Tested-by: BuildkiteCI
Reviewed-by: glittershark <grfn@gws.fyi>
Diffstat (limited to 'web/panettone/src/packages.lisp')
-rw-r--r--web/panettone/src/packages.lisp5
1 files changed, 5 insertions, 0 deletions
diff --git a/web/panettone/src/packages.lisp b/web/panettone/src/packages.lisp
index 1a8453055f..87285fa34d 100644
--- a/web/panettone/src/packages.lisp
+++ b/web/panettone/src/packages.lisp
@@ -7,6 +7,10 @@
   (:use :cl :lass)
   (:export :styles))
 
+(defpackage panettone.irc
+  (:use :cl :usocket)
+  (:export :send-irc-notification))
+
 (defpackage :panettone.authentication
   (:nicknames :authn)
   (:use :cl :panettone.util :klatre)
@@ -47,5 +51,6 @@
    :id :subject :body :author-dn :issue-id :status :created-at
    :field :previous-value :new-value :acting-user-dn
    :issue-comments :num-comments :issue-events)
+  (:import-from :panettone.irc :send-irc-notification)
   (:shadow :next)
   (:export :start-pannetone :config :main))