remove backslashes

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>