diff options
| -rw-r--r-- | emacsconf-mail.el | 92 |
1 files changed, 90 insertions, 2 deletions
diff --git a/emacsconf-mail.el b/emacsconf-mail.el index cd4fa21..8e43549 100644 --- a/emacsconf-mail.el +++ b/emacsconf-mail.el @@ -124,7 +124,9 @@ Behavior is modified by `emacsconf-mail-prepare-behavior'." ;; prepare to send the mail (if (and (derived-mode-p 'message-mode) (string-match "unsent mail" (buffer-name)) - (not (eq emacsconf-mail-prepare-behavior 'new-message))) + (not (eq emacsconf-mail-prepare-behavior 'new-message)) + ;; is the current message a reply to this e-mail? + (string-match (regexp-quote email) (message-field-value "To"))) ;; add to headers (emacsconf-mail-update-reply-headers template email attrs fields) ;; compose a new message @@ -911,6 +913,77 @@ ${signature}") :captions (mapconcat (lambda (sub) (concat (emacsconf-surround "\n" (elt sub 4) "" "") (elt sub 3))) (subed-parse-file captions) "\n"))) (mml-attach-file captions "text/vtt" "Subtitles" "attachment"))) +(defun emacsconf-mail-upload-and-backstage-info (group) + "E-mail upload and backstage access information to GROUP." + (interactive (list (emacsconf-mail-complete-email-group))) + (emacsconf-mail-prepare + (list + :subject "${conf-name} ${year}: Upload instructions, backstage info" + :reply-to "emacsconf-submit@gnu.org, ${email}, ${user-email}" + :mail-followup-to "emacsconf-submit@gnu.org, ${email}, ${user-email}" + :log-note "sent backstage and upload information" + :body + "${email-notes}Hi ${name}! + +Hope things are going well for you! I got the upload service up +and running so you can upload your video${plural} and other talk +resources (ex: speaker notes, Org files, slides, etc.). You can +access it at ${upload-url} with the password +\"${upload-password}\". Please let me know if you run into technical issues.${fill} + +If you can get your file(s) uploaded by ${video-target-date}, +that would give us plenty of time to reencode it, edit captions, +and so on. If life has gotten a bit busier than expected, that's +okay. You can upload it when you can or we can plan to do your +presentation live. +(Late submissions and live presentations are a bit more stressful, but +it'll probably work out.)${fill} + +We've also set up ${backstage} as the backstage area where you +can view the videos and resources uploaded so far. You can access +it with the username \"${backstage-user}\" and the password +\"${backstage-password}\". Please keep the backstage password +and other speakers' talk resources secret. This is a manual +process, so your talk won't immediately show up there once you've +upload it. Once we've processed your talk, you can use the +backstage area to check if your talk has been correctly reencoded +and see the progress on captions. You can also check out other +people's talks. Enjoy!${fill} + +Thank you so much for contributing to ${conf-name} ${year}! + +${signature}") + (car group) + (list + :email-notes (emacsconf-surround "ZZZ: " (plist-get (cadr group) :email-notes) "\n\n" "") + :backstage (emacsconf-replace-plist-in-string + (list :year emacsconf-year) + "https://media.emacsconf.org/${year}/backstage/") + :plural (if (= 1 (length (cdr group))) "" "s") + :backstage-user emacsconf-backstage-user + :backstage-password emacsconf-backstage-password + :upload-url + (concat "https://ftp-upload.emacsconf.org/?sid=" + emacsconf-upload-password + "-" + (mapconcat (lambda (o) (plist-get o :slug)) (cdr group) "-")) + :upload-password emacsconf-upload-password + :video-target-date emacsconf-video-target-date + :name (plist-get (cadr group) :speakers-short) + :email (car group) + :user-email user-mail-address + :signature user-full-name + :conf-name emacsconf-name + :year emacsconf-year))) + +(defun emacsconf-mail-upload-and-backstage-info-to-waiting-for-prerecs () + "Mail upload and backstage information to all speakers who will submit files." + (interactive) + (let ((groups (emacsconf-mail-groups (seq-filter (lambda (o) (string= (plist-get o :status) "WAITING_FOR_PREREC")) + (emacsconf-get-talk-info))))) + (dolist (group groups) + (emacsconf-mail-upload-and-backstage-info group)))) + (defun emacsconf-mail-backstage-info (group) "E-mail backstage access information to GROUP." (interactive (list (emacsconf-mail-complete-email-group))) @@ -945,7 +1018,7 @@ ${signature}") :backstage-use (cond ((string= (plist-get (cadr group) :role) "volunteer") - "If you see a talk that you'd like to caption, please let us know and we can reserve it for you.") + "If you see a talk that you'd like to caption, please let us know and we can reserve it for you. I'll also let people periodically know when more talks come in.") ((string= (plist-get (cadr group) :status) "WAITING_FOR_PREREC") "As we add more talks, you can skim through any relevant ones to see if there are any points you'd like to build on in your talk. @@ -969,6 +1042,21 @@ people's talks too.")) :conf-name emacsconf-name :year emacsconf-year))) +(defun emacsconf-mail-backstage-info-to-captioning-volunteers () + "E-mail backstage info to captioning volunteers." + (interactive) + (dolist (volunteer (seq-filter + (lambda (o) + (string-match ":captions:" (assoc-default "ALLTAGS" o 'string= ""))) + (emacsconf-get-volunteer-info))) + (emacsconf-mail-backstage-info + (list + (assoc-default "EMAIL" volunteer) + (list :role "volunteer" + :speakers-short + (or (assoc-default "NAME" volunteer) + (assoc-default "NAME_SHORT" volunteer))))))) + (defun emacsconf-mail-backstage-info-to-speakers-and-captioners () (interactive) (let ((template (emacsconf-mail-merge-get-template "backstage")) |