diff options
| -rw-r--r-- | emacsconf-mail.el | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/emacsconf-mail.el b/emacsconf-mail.el index 190ca4b..7cfc5cb 100644 --- a/emacsconf-mail.el +++ b/emacsconf-mail.el @@ -1801,6 +1801,61 @@ ${transcript} (concat "Automatic captions for " (plist-get talk :title)) "attachment"))) +(defvar emacsconf-sticker-mailer nil "E-mail address of person who sends out stickers.") + +(defun emacsconf-mail-template-mailing-address-to-all () + "Ask for mailing address." + (interactive) + (let* ((log-note "asked for mailing address") + (groups + (emacsconf-mail-groups + (emacsconf-filter-talks-by-logbook + log-note + (seq-filter (lambda (o) (plist-get o :email)) + (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))))) + (dolist (group groups) + (emacsconf-mail-prepare + (list + :subject "${conf-name} ${year}: Can we send you a sticker of appreciation?" + :reply-to "${user-email}, ${sticker-mailer}, ${email}" + :mail-followup-to "${user-email}, ${sticker-mailer}, ${email}" + :log-note "Asked for mailing address" + :body + "${email-notes}Hi, ${speakers-short}! + +Thank you again for participating in EmacsConf 2023. It was a lot +of fun. We hope we captured some of that energy and awesomeness +in this short conference report at ${base-url}${year}/report/ . +Unedited transcripts are now up for the rest of the talks and Q&A +sessions at ${base-url}${year}/talks - more ways to enjoy the +conference. + +We're thinking of experimenting with ways to show our appreciation for +speakers. Actually, it's also part of an evil plan to see if other +people might see the sticker on your laptop/whatever and then talk to +you about Emacs, mwahahaha! Would you consider sending us your mailing +address so that we can send you an ${conf-name} logo sticker? If you +would like one, please reply to this e-mail with the details. We +promise to use your address only for sending the sticker. (Or +stickers, depending on what else Corwin rustles up.) + +Thanks again! + +${signature} +") + (car group) + (list + :email-notes (emacsconf-surround "ZZZ: " (string-join (seq-uniq (seq-map (lambda (talk) (plist-get talk :email-notes)) (cdr group))) + ", ") "\n\n" "") + :speakers-short (plist-get (cadr group) :speakers-short) + :conf-name emacsconf-name + :year emacsconf-year + :email (car group) + :base-url emacsconf-base-url + :signature user-full-name + :user-email user-mail-address + :sticker-mailer emacsconf-sticker-mailer))))) + ;;; Other mail functions (defun emacsconf-mail-verify-delivery (groups subject) |