Add chapter note

1 files changed, 16 insertions, 7 deletions

diff --git a/2022/organizers-notebook/index.org b/2022/organizers-notebook/index.org
index 6a5ceaae..8c759247 100644
--- a/2022/organizers-notebook/index.org
+++ b/2022/organizers-notebook/index.org
@@ -4267,7 +4267,8 @@ Sacha Chua
 #+begin_src emacs-lisp
 (defun emacsconf-mail-captions-for-approval (talk)
   (interactive (list (emacsconf-complete-talk-info)))
-  (let ((captions (expand-file-name (concat (plist-get talk :video-slug) "--main.vtt") emacsconf-cache-dir))
+  (let ((captions (expand-file-name (concat (plist-get talk :video-slug) "--main.vtt")
+                                    emacsconf-cache-dir))
         (captioner-info
          (with-current-buffer (find-file-noselect emacsconf-org-file)
                    (org-entry-properties (org-find-property "CUSTOM_ID" (plist-get talk :captioner))))))
@@ -4280,13 +4281,21 @@ Sacha Chua
       :email (plist-get talk :email)
       :title (plist-get talk :title)
       :captioner (assoc-default "NAME_SHORT" captioner-info)
-      :url (format "https://media.emacsconf.org/%s/backstage" emacsconf-year)
+      :url
+      (format "https://media.emacsconf.org/%s/backstage/#%s" emacsconf-year
+              (plist-get talk :slug))
       :password emacsconf-backstage-password
       :captioner-email (assoc-default "EMAIL" captioner-info)
       :captioner-volunteered
       (if (string= (plist-get talk :captioner) "sachac")
           ""
         (format "%s volunteered to edit the captions for your video. " (assoc-default "NAME_SHORT" captioner-info)))
+      :chapters-note
+      (if (file-exists-p
+           (expand-file-name (concat (plist-get talk :video-slug) "--main--chapters.vtt")
+                             emacsconf-cache-dir))
+          "I've come up with some potential chapter headings which you can see as NOTE in the transcript or in the backstage entry for your video. Let me know if you want to tweak those.\n\n"
+        "")
       :intro-note
       (emacsconf-surround
        "${wrap}Also, I drafted a quick intro for the host to read. Let me know if you want to tweak this: " (plist-get talk :intro-note) "\n\n"
@@ -4295,8 +4304,8 @@ Sacha Chua
       (if (string= (plist-get talk :captioner) "sachac")
           ""
         (format "%s: Thank you for editing the captions!\n\n" (assoc-default "NAME_SHORT" captioner-info)))
-      :captions (with-temp-buffer (insert-file-contents captions) (buffer-string)))
-     (mml-attach-file captions "text/vtt" "Subtitles" "attachment"))))
+      :captions (with-temp-buffer (insert-file-contents captions) (buffer-string))))
+    (mml-attach-file captions "text/vtt" "Subtitles" "attachment")))
 #+end_src
 
 **** Template
@@ -4316,11 +4325,11 @@ caption it so that more people can find and enjoy your talk.
 ${captioner-volunteered} 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}#${slug} (username: emacsconf,
+your video with closed captions at ${url} (username: emacsconf,
 password: ${password}). I've also included the captions at the end of
-this e-mail for your convenience.
+this e-mail for your convenience.${wrap}
 
-${intro-note}Do you have a bio or social/donation links you'd like us
+${chapters-note}${intro-note}Do you have a bio or social/donation links you'd like us
 to add to the wiki page for your talk?
 
 Thanks again for your contribution!