diff options
| author | Griffin Smith <grfn@gws.fyi> | 2021-04-03T17·05-0400 |
|---|---|---|
| committer | glittershark <grfn@gws.fyi> | 2021-04-04T14·17+0000 |
| commit | 349b98ccc841587aadc6a2de5684f093cd72d628 (patch) | |
| tree | c2042ae8d9411ffcb59740afa234aa10be913482 /web/panettone/src/packages.lisp | |
| parent | 37d573479ba56eebc5304f5209790ba7a4a3762b (diff) | |
feat(panettone): Add functions to send email notifications r/2426
Add a new package to panettone, :panettone.email with functions to send email notifications to users through the SMTP relay on whitby, respecting the value of `enable_email_notifications` on the user_settings table. Change-Id: Ia4ec65965abda06f1fadb178143d66bb8eae6482 Reviewed-on: https://cl.tvl.fyi/c/depot/+/2804 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> Reviewed-by: tazjin <mail@tazj.in>
Diffstat (limited to '')
| -rw-r--r-- | web/panettone/src/packages.lisp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/web/panettone/src/packages.lisp b/web/panettone/src/packages.lisp index 3bdb553b70..22a2a8649a 100644 --- a/web/panettone/src/packages.lisp +++ b/web/panettone/src/packages.lisp @@ -48,6 +48,19 @@ :issue-comments :num-comments :create-issue-comment)) +(defpackage panettone.email + (:nicknames :email) + (:use :cl) + (:import-from :alexandria :when-let) + (:import-from :panettone.model + :settings-for-user :enable-email-notifications-p) + (:import-from :panettone.authentication + :find-user-by-dn :mail :displayname) + (:export + :*smtp-server* :*smtp-server-port* :*notification-from* + :*notification-from-display-name* :*notification-subject-prefix* + :notify-user :send-email-notification)) + (defpackage panettone (:use :cl :klatre :easy-routes :iterate :panettone.util |