diff options
Diffstat (limited to '2022/organizers-notebook.org')
| -rw-r--r-- | 2022/organizers-notebook.org | 480 |
1 files changed, 478 insertions, 2 deletions
diff --git a/2022/organizers-notebook.org b/2022/organizers-notebook.org index 2cc4b974..03ba3957 100644 --- a/2022/organizers-notebook.org +++ b/2022/organizers-notebook.org @@ -194,9 +194,485 @@ We extended the EmacsConf 2022 call for participation deadline to Sept for your patience! Sacha +** Future +*** Acceptance +**** Code +#+begin_src emacs-lisp +(defun conf-summarize-times (time timezones) + (let (prev-day) + (mapconcat + (lambda (tz) + (let ((cur-day (format-time-string "%a %b %-e" time tz)) + (cur-time (format-time-string "%H%MH %Z" time tz))) + (if (equal prev-day cur-day) + cur-time + (setq prev-day cur-day) + (concat cur-day " " cur-time)))) + timezones + " / "))) + +;; (assert (string= (conf-replace-plist-in-string '(:test "ABC") "hello ${test} world") "hello ABC world")) + + +(defun conf-draft-acceptance () + (interactive) + (let* ((mustache-key-type 'keyword) + (sched (org-timestamp-from-string (org-entry-get (point) "SCHEDULED"))) + (attrs + (append (emacsconf-get-talk-info-for-subtree) + :other-notes + (if (org-entry-get (point) "ORG_NOTE") (concat "--- notes ---\n" (org-entry-get (point) "ORG_NOTE") "\n-----\n\n") ""))) + (avail (plist-get attrs :avail))) + (plist-put attrs + :availability + (cond + ((null avail) "I don't think you specified availability when submitting. Would this time be okay with you?") + ((string-match "!avail" avail) "We know this isn't when you've indicated when you'd be available, but will this time be okay for presenting the talk? It's okay to follow up with questions after the event. If you happen to be available, we'd love to have you join us.") + ((string-match "live" avail) "We've scheduled a few minutes for live questions and answers via web conference. Will you be available around this time? If there are more questions, you can also continue over Etherpad/IRC.") + ((string-match "IRC" avail) "Will you be able to join around this time to handle questions over IRC or the pad? If not, we can forward questions to you.") + ((string-match "pad" avail) "Will you be able to join around this time to handle questions over the pad? If not, we can forward questions to you.") + (t avail))) + (plist-put attrs + :time-explanation + (if (<= (string-to-number (plist-get attrs :time)) (string-to-number (plist-get attrs :min-time))) + "Thank you for suggesting an awesome talk of that length!" + "This is less time than you requested, but we've had to make some tough choices to fit all these interesting talks into the schedule. Would it be possible for you to squeeze your talk into that time?")) + (save-excursion + (goto-char (org-find-entry-with-id "acceptance")) + (plist-put attrs :subject (conf-replace-plist-in-string attrs (org-entry-get (point) "ITEM"))) + (org-end-of-meta-data) + (plist-put attrs :body (buffer-substring-no-properties (point) (org-end-of-subtree)))) + (compose-mail + (plist-get attrs :email) + (plist-get attrs :subject) + '(("Reply-To" . "emacsconf-submit@gnu.org") + ("Mail-Followup-To" . "emacsconf-submit@gnu.org")) + nil) + (message-goto-body) + (save-excursion (conf-replace-plist-in-string attrs (plist-get attrs :body))))) +#+end_src + +**** Template +:PROPERTIES: +:ID: acceptance +:SUBJECT: EmacsConf ${year} SUB${sub-id} accepted: ${title} +:END: + +Dear ${name}, + +We would love to have your talk "${title}" as part of EmacsConf +${year}, and we've allocated ${time} minutes for it. ${time-explanation} + +Your talk is tentatively scheduled for ${scheduled}. The times +may move around a bit as we update the schedule, so we'll check in +with you if things change a lot. ${availability} + +${other-notes}Please plan to prerecord your ${time}-minute +talk(s) by Sunday ${prere-date} at the latest. If you can, please send +it in as early as possible. Submitting your video early lets us ask +volunteers to help caption the video, making your talk more accessible +and searchable. + +You can check out https://emacsconf.org/${year}/prepare/ for tips on +preparing and recording your talk. If you have questions or concerns, +please let us know. + +Thanks, + +Sacha Chua +EmacsConf organization team + +P.S. Please keep emacsconf-submit@gnu.org in To or Cc when replying. + +*** Acknowledge pre-rec submission + +#+begin_src emacs-lisp +(defun emacsconf-acknowledge-submission () + (interactive) + (let ((files (directory-files "captions" t (regexp-quote (org-entry-get (point) "VIDEO_SLUG")))) + (page (format "https://emacsconf.org/%s/talks/%s" conf-year (org-entry-get (point) "SLUG"))) + (slug (org-entry-get (point) "VIDEO_SLUG"))) + (emacsconf-mail-speaker + "Thanks for sending us your prerecorded video for EmacsConf ${year}!" + (concat + "Hi! Just a quick note to let you know that I've downloaded your submission for \"" (org-entry-get (point) "ITEM") "\".\n" + (format "\nNow we have the following file%s starting with %s:\n%s" + (if (= (length files) 1) "" "s") + slug + (mapconcat (lambda (f) + (format "- %s (%s, md5: %s)\n" + (replace-regexp-in-string slug "" (file-name-nondirectory f)) + (file-size-human-readable (file-attribute-size (file-attributes f))) + (string-trim (shell-command-to-string (concat "md5sum " (shell-quote-argument f) " | cut -f 1 -d ' '"))))) + files "")) + (format "A quick check shows that it's about %d minutes long.\n" + (ceiling + (/ (compile-media-get-file-duration-ms + (seq-find (lambda (o) (member (file-name-extension o) subed-video-extensions)) + files)) + 60000.0))) + "\nWe'll be working on captioning it over the next few weeks. We'll e-mail again a little closer to the conference with schedule updates and other useful information. If you want to upload a new version, you can upload it the same way you did the previous one.\n\n" + "Please feel free to e-mail us at emacsconf-submit@gnu.org if you need help updating the talk wiki page at " page " or if you have other questions.\n\n" +"Thank you so much for all the work you put into preparing a talk for EmacsConf ${year}, and thank you for submitting the prerecorded video before the conference!\n\nSacha")))) +#+end_src + +*** Captions for approval +:PROPERTIES: +:SUBJECT: EmacsConf ${year}: Please review these captions for ${title} +:EMAIL_ID: captions +:END: + +Hi ${speakers-short}! + +Thanks for speaking at EmacsConf ${year}! ${captioner} volunteered to +caption your talk video, and here it is. I've attached the caption +text file in case you want to review it, suggest any corrections, or +use the text in a blog post or elsewhere. You can look at the attached +file or watch your video with closed captions at ${url} . Thanks again +for your contribution! + +Sacha + +*** Speakers we haven't confirmed e-mail communications with +Hi, ${name}! + +I think we haven't heard from you since we accepted your EmacsConf +${year} proposal for "${title}". EmacsConf coming up soon, so I wanted +to check in with you to see how you're doing. + +Could you please e-mail us to let us know if you're still working on +your prerecorded video, if you're planning to present live, or if you +can't make it this year? No worries if other priorities have come up +and you don't have the time for a presentation. + +If you've been working on a presentation, fantastic! When you're +ready, you can upload it following the instructions at +https://emacsconf.org/${year}/prepare/ (ideally before ${prerec-date} so +that we have time to download it, doublecheck, etc.). + +If you plan to present live, please go through the self-check at +https://test.bigbluebutton.org/ . Some speakers have encountered +technical issues with BigBlueButton that they didn't have with Zoom or +Google Meet, so this is something we definitely want to look into +earlier rather than later. If that works for you, please e-mail us +back so that I can keep your timeslot. The tentative schedule for your +talk is on the talk page at ${url} . + +*Please e-mail us your plans before ${date}.* I'm +planning to shift the schedule around to give more time to confirmed +speakers for Q&A and possibly live demos. If I don't hear from you by +then (maybe an over-enthusiastic spam filter has been swallowing up +all our mail?), I'll probably reallocate the ${time} minutes that had +been set aside for your talk. We might be able to squeeze it back in +afterwards or play a video from you at the end of the conference day, +but it would be nice to get the schedule sorted out instead of +scrambling to fill gaps on the day of the conference. + +Hope to hear from you by ${date}! + +Sacha Chua + +(Please use Reply to All to keep emacsconf-submit@gnu.org in the loop. Thanks!) + +*** Speakers who are missing prerecs +#+begin_src emacs-lisp :eval no :tangle no +(let ((template (conf-mail-merge-get-template "missing"))) + (seq-map + (lambda (info) + (compose-mail (plist-get info :email) + (conf-replace-plist-in-string info (plist-get template :subject)) + `(("Reply-To" . ,(plist-get template :reply-to)) + ("Mail-Followup-To" . ,(plist-get template :mail-followup-to)) + ("Cc" . ,(plist-get template :cc)))) + (message-goto-body) + (insert (conf-replace-plist-in-string info (plist-get template :body))) + (plist-get info :email)) + (mapcar 'cadr + (seq-group-by (lambda (o) (plist-get o :email)) + (seq-filter (lambda (o) (string= (plist-get o :status) "WAITING_FOR_PREREC")) + (conf-get-talk-info)))))) +#+end_src + +**** Template +:PROPERTIES: +:SUBJECT: [need answer by Friday noon EST] EmacsConf ${year}: Don't have a prerec from you yet, aaah! +:EMAIL_ID: missing +:END: + +Hi ${speakers}, + +EmacsConf is in a few days and I don't think we have your prerecorded +video yet, so I'm getting miiiildly stressed about the schedule. And +you're probably stressing out about it too, so let's go figure out how +we can make this work. + +Option A: If you happen to have the prerecording or can get it done by +tomorrow, we can probably squeeze it in. Please upload it to +ftp-upload.emacsconf.org by following the instructions in +https://emacsconf.org/${year}/prepare#ftp-upload , or send us a link using +your favourite file-sharing service (especially if FTP is giving you +problems). + +Option B: If you want to present live, it might be an option. I'm a little +worried about the potential for technical issues, since we've had +problems with that in previous EmacsConfs. The tight schedule means +there's not a lot of time to figure things out, and it can be hard to +make something as focused as a prerecorded video when you're doing it +live. We will definitely want to make sure that: + - your self-serve tech check works: https://test.bigbluebutton.org + at your convenience; + - you check in as early as possible (at least 1 hour before, so we + know if the speaker before you needs to extend) and let us know + that you want to do it live https://emacsconf.org/${year}/speakers . + We keep adapting the schedule as things come up, so please check + https://emacsconf.org/${year}/schedule/ on the day of the conference. + +If there are technical issues or your talk runs a little over time, we +might have to stop streaming it on the main stream when it's time for +the next talk. We may be able to continue streaming it on the +alternate stream. If so, people can continue watching it there if they +wish to. + +Option C: If you can't make it, that's okay. Life gets crazy +sometimes. Please let us know and we can update the wiki. If you +happen to be able to make a prerecorded video afterwards, we can add +that to the wiki, playlists, and announcements. We hope you can join +us next year. + +Since EmacsConf is *this weekend* (aaaaaaah), please let us know by +tomorrow noon EST (Friday; 9AM PST, 5PM GMT, 6PM CET) so that we can +keep the time allocated for you in the schedule. If we don't hear from +you, we'll probably reallocate the ${time} minutes reserved for you so +that other talks can have longer Q&A. If you can still make it, check +in early and let us know so that we can try to work out an alternate +stream for you. Hope to hear from you soon! + +Sacha + + +*** Check-in instructions +:PROPERTIES: +:SUBJECT: Getting ready for EmacsConf ${year} +:CC: zaeph@zaeph.net +:MAIL_FOLLOWUP_TO: sacha@sachachua.com, zaeph@zaeph.net +:REPLY_TO: sacha@sachachua.com, zaeph@zaeph.net +:END: + +Goals: +- Ask speaker verify their scheduled time + It has already been confirmed with them, but it might have changed slightly (give-or-take 30' + - HOW: They should check the time at the top of their talk page on the day of the conference +- Double-check Q&A preference, encourage tech checks for live talks/Q&A + - If they are available: + - Direct to tech-checks via https://emacsconf.org/${year}/prepare/ + - Inform them of the check-in process + - They come say hi to us 30' before their session in #emacsconf-org or #emacsconf (they can use chat.emacsconf.org ) + - We get them set up in a room where they can wait until the end of the broadcast of their pretention + - They’re joined by the streamer and host. + +**** Code + +Slightly more complex because of the conditionals + +#+begin_src emacs-lisp :lexical t +(defun emacsconf-mail-checkin-instructions () + (interactive) + (seq-map + (lambda (list) + (let ((template (with-current-buffer (find-file-noselect emacsconf-org-file) + (emacsconf-mail-merge-get-template (car list))))) + (seq-map + (lambda (email-list) + (let* ((email (car email-list)) + (talks (cdr email-list)) + (combined-info (emacsconf-combine-plist talks " , ")) + (for-mail + (list + :name (or (car (plist-get combined-info :speakers)) "???") + :url (or (string-join (plist-get combined-info :url) " , ") "???") + :email (car (plist-get combined-info :email)))) + (body (when (plist-get for-mail :email) (emacsconf-replace-plist-in-string for-mail (plist-get template :body)))) + (subject (when (plist-get for-mail :email) (emacsconf-replace-plist-in-string for-mail (plist-get template :subject))))) + (when (plist-get for-mail :email) + (compose-mail + (plist-get for-mail :email) + subject + `(("Reply-To" . ,(plist-get template :reply-to)) + ("Mail-Followup-To" . ,(plist-get template :mail-followup-to)) + ("Cc" . ,(plist-get template :cc)))) + (message-goto-body) + (save-excursion + (insert body))))) + (cdr list)))) + ;; Group by e-mail + (seq-map + (lambda (list) + (cons (car list) (seq-group-by (lambda (o) (plist-get o :email)) (cdr list)))) + ;; Group by q-and-a pref + (seq-group-by + (lambda (o) + (pcase (plist-get o :q-and-a) + ('nil "checkin-unknown") + ((pred (string-match "after")) "checkin-after") + ((pred (string-match "live\\|irc\\|pad")) "checkin-at-conf") + (_ "checkin-unknown"))) + (emacsconf-filter-talks (emacsconf-get-talk-info)))))) + +(defun emacsconf-cancel-mail-merge () + (interactive) + (mapc (lambda (buffer) + (when (string-match "unsent" (buffer-name buffer)) + (let ((buffer-modified-p nil)) (kill-buffer buffer)))) + (buffer-list))) +#+end_src + +#+RESULTS: +:results: +conf-cancel-mail-merge +:end: + +**** E-mail for speakers who are planning to be at the conference +:PROPERTIES: +:EMAIL_ID: checkin-at-conf +:SUBJECT: EmacsConf ${year}: Check-in instructions +:END: + +Hello, ${name}! + +We're looking forward to having you join us at EmacsConf! + +We'll probably keep updating the schedule even on the day of the +conference. You can get a rough idea of when your talk is scheduled at +${url}. You might want to check it some time next week to get a rough +sense of where it is, and then check it again on the day of your talk. + +Please check in at least 30 minutes before the scheduled start of your +prerecorded talk so that we can deal with small scheduling changes or +technical issues. You can find the check-in process at +https://emacsconf.org/${year}/speakers/ . + +If something comes up, please let us know as soon as you can. Here's +our emergency contact information: + +${emergency} + +Looking forward to seeing you soon! + +Sacha + +**** E-mail for speakers who are not planning to be around, but who have sent us their prerecs +:PROPERTIES: +:EMAIL_ID: checkin-after +:SUBJECT: EmacsConf ${year}: Check-in instructions +:END: + +Hello, ${name}! + +Thank you so much for contributing a talk for EmacsConf ${year}! We're +looking forward to collecting questions and forwarding them to you by +e-mail after the conference. We'll also post the prerecording at the +time that it gets streamed, so people will be able to access it at +${url} once it has gone live. + +If it turns out that you can make it to the conference after all, feel +free to drop us a line at #emacsconf-org and we'll let people know +you're around. You can find the check-in process at +https://emacsconf.org/${year}/speakers/ . + +Thank you again for being part of EmacsConf ${year}! + +Sacha + + +*** Last email before the conference +#+begin_quote +Friends, emacsians, hackers, lend me your ears! +This is it, the final stretch until the next EmacsConf. A couple of weeks +ago, we’ve shared our program with you; now, it is time for us to share our +schedule, i.e. when the talks will happen! -** DONE Second announcement: CFP +You can find it on our wiki: +https://emacsconf.org/$year/schedule/ + +All the times on the program are listed in EST (UTC-5). If a talk catches +your eye, we invite you to click on its title to find out at what time it will +be broadcast in your local time. Also, if the talk is pre-recorded, it will +also be the time at which the talk will be made available on the same page. +#+end_quote + + +*** Thank you, next steps +**** Code + + +#+begin_src emacs-lisp +(defun conf-mail-thanks-after-conference () + (interactive) + (let* ((template (conf-mail-merge-get-template "speaker-thanks")) + (info (conf-get-talk-info-for-subtree))) + (compose-mail (plist-get info :email) + (conf-replace-plist-in-string + info (plist-get template :subject))) + (message-goto-body) + (save-excursion + (insert + (string-trim + (conf-replace-plist-in-string + (append + (list :subtitle-note + (if (file-exists-p (expand-file-name (format "%s/captions/%s--main.vtt" + (plist-get info :year) + (plist-get info :video-slug)) conf-directory)) + "You can add the subtitles by downloading them from the talk page and uploading them to your video. " + "We didn't quite manage to squeeze in captions for your talk during the conference, but we'll work on those soon.") + :qa-note + (if (plist-get info :qa-public) + "The recording of your Q&A session is also on the talk page. " + "") + ) + info) + (plist-get template :body))))))) +#+end_src + +#+RESULTS: +:results: +conf-mail-thanks-after-conference +:end: + + +**** Text +:PROPERTIES: +:EMAIL_ID: speaker-thanks +:SUBJECT: Thanks for speaking at EmacsConf ${year}! Prerec for ${title} up on page, YouTube, Toobnix +:END: + +Hi ${speakers-short}! + +Thank you so much for being part of EmacsConf ${year}! Hundreds of people +enjoyed it, and I'm sure even more will come across the videos in the +days to follow. + +Your prerecorded video is available on the talk page at ${url} , and +we've added the questions and comments that we've collected from +IRC/BBB/Etherpad. ${qa-note} + +We've also uploaded your talk video to ToobNix (a PeerTube +instance) at ${toobnix-url} and YouTube at ${youtube-url} . If you +want to reupload the video to your own channel, feel free to do so. +${subtitle-note} If you let me know where you've uploaded +it, I can switch our playlist to include your version of the video +instead. That way, it might be easier for you to respond to comments +on videos. + +If you would like to share more resources, you can add them to the +talk page or e-mail them to us and we can add them for you. + +Thanks again for speaking at EmacsConf! + +Sacha +** Archive +*** DONE Second announcement: CFP :PROPERTIES: :SUBJECT: [ANN] EmacsConf 2022 Second Call for Participation (extended until Sep 30) :END: @@ -230,7 +706,7 @@ amin P.S. please direct any replies to this post either to myself or to the emacsconf-discuss list, so as to help avoid generating extra off-topic chatter in the other lists cc'd on this message. Thank you. -** DONE First announcement: CFP +*** DONE First announcement: CFP :PROPERTIES: :SUBJECT: [ANN] EmacsConf 2022 Second Call for Participation (extended until Sep 30) :END: |