From 40a1f6de23fddf6f5515dcad93193ea3a4528aed Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 6 Nov 2022 15:13:36 -0500 Subject: backstage tweaks --- emacsconf-publish.el | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/emacsconf-publish.el b/emacsconf-publish.el index b2ff788..699b5d2 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -144,7 +144,7 @@ :chapter-list (or (plist-get video :chapter-list) "") :resources (or (plist-get video :resources) "") :extra (or (plist-get talk :extra) "") - :speaker-info (or (plist-get talk :speakers) "")))) + :speaker-info (or (plist-get talk :speakers-with-pronouns) "")))) (if (eq (plist-get talk :format) 'wiki) (plist-get talk :video-html) (emacsconf-replace-plist-in-string @@ -848,13 +848,15 @@ Entries are sorted chronologically, with different tracks interleaved." (files (directory-files emacsconf-backstage-dir))) (insert "" + "

Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: captioned and ready)
Updated by conf.org and the wiki repository
" + "

" (format "

Waiting for %d talks (~%d minutes) out of %d total

" (length (assoc-default "WAITING_FOR_PREREC" by-status)) (emacsconf-sum :time (assoc-default "WAITING_FOR_PREREC" by-status)) (length talks)) (let ((list (append - (assoc-default "TO_ASSIGN" by-status) - (assoc-default "TO_PROCESS" by-status) + (assoc-default "TO_ASSIGN" by-status) + (assoc-default "TO_PROCESS" by-status) (assoc-default "PROCESSING" by-status) (assoc-default "TO_AUTOCAP" by-status)))) (format "

%s talk(s) to be captioned (%d minutes)

You can e-mail sacha@sachachua.com to call dibs on editing the captions for one of these talks. This year, we're experimenting with using OpenAI Whisper to provide auto-generated VTT that you can use as a starting point. If you're writing them from scratch, you can choose to include timing information, or we can probably figure them out afterwards with a forced alignment tool. Also, if you feel like making chapter markers, that's cool too. More info: captioning tips

" @@ -868,11 +870,12 @@ Entries are sorted chronologically, with different tracks interleaved." (if (plist-get f :caption-note) (concat "
" (plist-get f :caption-note) "
") "") :files (emacsconf-publish-talk-files f files)))) - (format "
  • %s
    %s
    %s
  • " + (format "
  • %s
    %s (id:%s)
    %s
  • " emacsconf-base-url (plist-get f :url) (plist-get f :title) (plist-get f :speakers) + (plist-get f :slug) (emacsconf-index-card f))) list "\n"))) @@ -888,11 +891,12 @@ Entries are sorted chronologically, with different tracks interleaved." (if (plist-get f :captioner) (concat "
    Being captioned by " (plist-get f :captioner) "
    ") "") :files (emacsconf-publish-talk-files f files)))) - (format "
  • %s
    %s
    %s
  • " + (format "
  • %s
    %s (id:%s)
    %s
  • " emacsconf-base-url (plist-get f :url) (plist-get f :title) - (plist-get f :speakers) + (plist-get f :speakers-with-pronouns) + (plist-get f :slug) (emacsconf-index-card f))) (assoc-default "TO_CAPTION" by-status) "\n")) @@ -901,11 +905,12 @@ Entries are sorted chronologically, with different tracks interleaved." (length (assoc-default "TO_STREAM" by-status)) (emacsconf-sum :video-time (assoc-default "TO_STREAM" by-status)) (mapconcat (lambda (f) - (format "
  • %s
    %s
    %s
  • " + (format "
  • %s
    %s (id:%s)
    %s
  • " emacsconf-base-url (plist-get f :url) (plist-get f :title) - (plist-get f :speakers) + (plist-get f :speakers-with-pronouns) + (plist-get f :slug) (emacsconf-index-card (append f (list :extra (concat "Captioned by " (plist-get f :captioner)) :files (emacsconf-publish-talk-files f files))) emacsconf-main-extensions))) @@ -1468,7 +1473,7 @@ Entries are sorted chronologically, with different tracks interleaved." :track-info (emacsconf-surround (format " " (or (plist-get talk :track) "")) (plist-get talk :track) "" "") :q-info (emacsconf-surround " Q&A: " (plist-get talk :q-and-a) "; " "") :slug-info (emacsconf-surround " id:" (plist-get talk :slug) "" "") - :speaker-info (emacsconf-surround "
    " (plist-get talk :speakers) "
    " "") + :speaker-info (emacsconf-surround "
    " (plist-get talk :speakers-with-pronouns) "
    " "") :resources-info (emacsconf-surround "" ""))) "
    ${start-info}${end-info}${track-info}${q-info}${slug-info}
    -- cgit v1.2.3