summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-17 20:27:40 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-17 20:27:40 -0500
commitdf13d42dc084fdc2717e29284e54a56f69026312 (patch)
treecc714c8cd2bce3f88ae2acf0f4f3f0839351cbd3
parent7369d31e588964d97c125c4676224ef6a288158d (diff)
downloademacsconf-wiki-df13d42dc084fdc2717e29284e54a56f69026312.tar.xz
emacsconf-wiki-df13d42dc084fdc2717e29284e54a56f69026312.zip
Add chapter note
Diffstat (limited to '')
-rw-r--r--2022/organizers-notebook/index.org23
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!