diff options
Diffstat (limited to '2022/organizers-notebook')
| -rw-r--r-- | 2022/organizers-notebook/index.org | 107 | 
1 files changed, 84 insertions, 23 deletions
| diff --git a/2022/organizers-notebook/index.org b/2022/organizers-notebook/index.org index 8b127266..c7831300 100644 --- a/2022/organizers-notebook/index.org +++ b/2022/organizers-notebook/index.org @@ -357,42 +357,102 @@ Dependencies:  - youtube, toobnix urls  - bbb playback urls  - pads copied + +  #+begin_src emacs-lisp +(defvar emacsconf-mail-thank-speaker-open-youtube t +	"If non-nil, browse to the YouTube page so we can mention views and stuff.") + +(defun emacsconf-mail-thank-speaker (group &optional template) +	(interactive (list (emacsconf-mail-complete-email-group))) +	(delete-other-windows) +	(with-selected-window +			(split-window-right) +		(emacsconf-edit-wiki-page (plist-get (cadr group) :slug)) +		(when (> (length (cdr group)) 1) +			(mapc +			 (lambda (talk) +				 (with-selected-window (split-window-below) +					 (emacsconf-edit-wiki-page (plist-get talk :slug)))) +			 (cddr group)) +			(balance-windows (current-window)))) +	(let ((with-bbb (seq-filter (lambda (talk) (plist-get talk :bbb-playback)) (cdr group)))) +		(emacsconf-mail-prepare +		 (or template (emacsconf-mail-merge-get-template "thanks-speaker")) +		 (car group) +		 (list +			:email (car group) +			:conf-name emacsconf-name +			:year +			emacsconf-year +			:plural +			(if (= (length (cdr group)) 1) "" "s") +			:video-is +			(if (= (length (cdr group)) 1) "video is" "videos are") +			:bbb-note +			(if with-bbb +					(concat +					 " We'd like to publish the audio (and possibly the video as well) + with chapter markers and maybe even captions, depending on + volunteers. In case you want to revisit your Q&A sessions in + order to remember anything particularly cool that you'd like to + follow up on (or anything particularly sensitive/embarrassing + that you'd like us to omit), you can view the BigBlueButton + playback at " (mapconcat (lambda (talk) (plist-get talk :bbb-playback)) with-bbb " , ") " . Volunteers will be working on harvesting the Q&A over the next few weeks/months. If you'd like to help with the processing, I've added the files +to ${backstage} and documented our harvesting process at +https://emacsconf.org/harvesting/ . The files start with --bbb in the backstage area. This is +totally optional and just there in case you feel like taking advantage +of it. =)") +				"") +			:backstage +			(mapconcat (lambda (talk) +									 (concat "https://media.emacsconf.org/" emacsconf-year "/backstage/#" (plist-get talk :slug))) +								 (cdr group) " , ") +			:urls +			(mapconcat (lambda (talk) +									 (plist-get talk :absolute-url)) +								 (cdr group) " , ") +			:toobnix-url +			(mapconcat (lambda (talk) +									 (plist-get talk :toobnix-url)) +								 (cdr group) " , ") +			:youtube-url +			(mapconcat (lambda (talk) +									 (plist-get talk :youtube-url)) +								 (cdr group) " , ") +			:speakers-short (plist-get (cadr group) :speakers-short))) +		(when emacsconf-mail-thank-speaker-open-youtube +			(mapc (lambda (talk) +							(when (plist-get talk :youtube-url)) (browse-url (plist-get talk :youtube-url))) +						(cdr group))))) +  #+end_src +    **** Template  :PROPERTIES:  :EMAIL_ID: thanks-speaker  :TO: ${email} -:REPLY_TO: emacsconf-submit@gnu.org, ${email} -:MAIL_FOLLOWUP_TO: emacsconf-submit@gnu.org, ${email} +:REPLY_TO: emacsconf-submit@gnu.org, ${email}, sacha@sachachua.com +:MAIL_FOLLOWUP_TO: emacsconf-submit@gnu.org, ${email}, sacha@sachachua.com +:FUNCTION: emacsconf-mail-thank-speaker  :CC: emacsconf-submit@gnu.org +:LOG_NOTE: thanked speaker  :SUBJECT:  ${conf-name} ${year}: Thank you for presenting  :END: -Hi ${speakers-short}! +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 video is available on the talk page at ${url} , and we'll be -working on adding the questions and comments from IRC/BBB/Etherpad. -We'd like to publish the audio (and possibly the video as well) with -chapter markers and maybe even captions depending on volunteers. In -case you want to revisit your Q&A session in order to remember -anything particularly cool that you'd like to follow up on (or -anything particularly sensitive/embarrassing that you'd like us to -omit), you can view the BigBlueButton playback at ${bbb-playback} . - -You can also do your own processing, if you like. I've added the files -to https://media.emacsconf.org/${year}/backstage/#${slug} . They start -with --bbb. This is totally optional and just there in case you feel -like taking advantage of it. - -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, please feel free to do so. 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.${wrap} +Your ${video-is} available on the talk page${plural} at ${urls} , and +we've added the discussions from Etherpad/IRC.${bbb-note}${wrap} + +We've also uploaded your talk video${plural} to Toobnix (a PeerTube +instance) at ${toobnix-url} and YouTube at ${youtube-url} . If you +want to reupload the video to your own channel, please feel free to do +so. If you let me know where you've uploaded it, I think 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.${wrap}  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. @@ -401,6 +461,7 @@ Thanks again for speaking at EmacsConf!  Sacha +  *** TODO Send thank-you notes to volunteers  ** STARTED Finalize the files to be used for streaming  SCHEDULED: <2022-12-02 Fri> | 
