606d2af2da
Send notification emails to the same group of users who receive notifications on issue comments when issues are marked as closed. This also takes the opportunity to generalize issue notification emails a bit, and lay the groundwork for (but not implement) explicit issue subscriber lists. Change-Id: Ie2572ed3ad0207d415b4c362438f772925e7a2c5 Reviewed-on: https://cl.tvl.fyi/c/depot/+/2807 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> Reviewed-by: tazjin <mail@tazj.in>
82 lines
2.6 KiB
Common Lisp
82 lines
2.6 KiB
Common Lisp
(defpackage panettone.util
|
|
(:use :cl :klatre)
|
|
(:import-from :alexandria :when-let)
|
|
(:export :integer-env))
|
|
|
|
(defpackage panettone.css
|
|
(:use :cl :lass)
|
|
(:export :styles))
|
|
|
|
(defpackage panettone.inline-markdown
|
|
(:use :cl)
|
|
(:import-from :alexandria :define-constant)
|
|
(:export :render-inline-markdown))
|
|
|
|
(defpackage panettone.irc
|
|
(:nicknames :irc)
|
|
(:use :cl :usocket)
|
|
(:export :noping :send-irc-notification))
|
|
|
|
(defpackage :panettone.authentication
|
|
(:nicknames :authn)
|
|
(:use :cl :panettone.util :klatre)
|
|
(:import-from :defclass-std :defclass/std)
|
|
(:import-from :alexandria :when-let :with-gensyms)
|
|
(:export
|
|
:*user* :*ldap*
|
|
:user :cn :dn :mail :displayname
|
|
:connect-ldap :find-user :find-user-by-dn :authenticate-user))
|
|
|
|
(defpackage panettone.model
|
|
(:nicknames :model)
|
|
(:use :cl :panettone.util :klatre :postmodern :iterate)
|
|
(:import-from :alexandria :if-let :when-let :define-constant)
|
|
(:export
|
|
:connect-postgres :ddl/init :make-thread
|
|
|
|
:user-settings
|
|
:user-dn :enable-email-notifications-p :settings-for-user
|
|
:update-user-settings :enable-email-notifications
|
|
|
|
:issue :issue-comment :issue-event
|
|
:id :subject :body :author-dn :issue-id :status :created-at :acting-user-dn
|
|
:field :previous-value :new-value
|
|
|
|
:get-issue :issue-exists-p :list-issues :create-issue :set-issue-status
|
|
:update-issue :delete-issue :issue-not-found
|
|
|
|
:issue-events
|
|
|
|
:issue-comments :num-comments :create-issue-comment
|
|
:issue-commenter-dns :issue-subscribers))
|
|
|
|
(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
|
|
:panettone.authentication
|
|
:panettone.inline-markdown)
|
|
(:import-from :defclass-std :defclass/std)
|
|
(:import-from :alexandria :if-let :when-let :switch :alist-hash-table)
|
|
(:import-from :cl-ppcre :split)
|
|
(:import-from :bordeaux-threads :make-thread)
|
|
(:import-from
|
|
:panettone.model
|
|
: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))
|