diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-06 15:13:36 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-06 15:13:36 -0500 |
| commit | 40a1f6de23fddf6f5515dcad93193ea3a4528aed (patch) | |
| tree | f4fd1c4cabdb5ba47c81ea2d838f779aa5c0a8ba /emacsconf-publish.el | |
| parent | 0ffe08c3ac5c40ad7dd9e3f7534b3bc3d6a358be (diff) | |
| download | emacsconf-el-40a1f6de23fddf6f5515dcad93193ea3a4528aed.tar.xz emacsconf-el-40a1f6de23fddf6f5515dcad93193ea3a4528aed.zip | |
backstage tweaks
Diffstat (limited to 'emacsconf-publish.el')
| -rw-r--r-- | emacsconf-publish.el | 23 |
1 files 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 "<html><head><meta charset=\"UTF-8\"><link rel=\"stylesheet\" href=\"/style.css\" /></head><body>" + "<p>Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: captioned and ready)<br />Updated by conf.org and the wiki repository</br />" + "<img src=\"https://emacsconf.org/2022/organizers-notebook/schedule.svg\" /></p>" (format "<p>Waiting for %d talks (~%d minutes) out of %d total</p>" (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 "<h1>%s talk(s) to be captioned (%d minutes)</h1><p>You can e-mail <a href=\"mailto:sacha@sachachua.com\">sacha@sachachua.com</a> 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: <a href=\"https://emacsconf.org/captioning/\">captioning tips</a></p><ul class=\"videos\">%s</ul>" @@ -868,11 +870,12 @@ Entries are sorted chronologically, with different tracks interleaved." (if (plist-get f :caption-note) (concat "<div class=\"caption-note\">" (plist-get f :caption-note) "</div>") "") :files (emacsconf-publish-talk-files f files)))) - (format "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s<br />%s</li>" + (format "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>" 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 "<div class=\"caption-note\">Being captioned by " (plist-get f :captioner) "</div>") "") :files (emacsconf-publish-talk-files f files)))) - (format "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s<br />%s</li>" + (format "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>" 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 "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s<br />%s</li>" + (format "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>" 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 " <span class=\"sched-track %s\">" (or (plist-get talk :track) "")) (plist-get talk :track) "</span>" "") :q-info (emacsconf-surround " <span class=\"sched-q-and-a\">Q&A: " (plist-get talk :q-and-a) "</span>; " "") :slug-info (emacsconf-surround " <span class=\"sched-slug\">id:" (plist-get talk :slug) "</span>" "") - :speaker-info (emacsconf-surround " <div class=\"sched-speakers\">" (plist-get talk :speakers) "</div>" "") + :speaker-info (emacsconf-surround " <div class=\"sched-speakers\">" (plist-get talk :speakers-with-pronouns) "</div>" "") :resources-info (emacsconf-surround "<ul class=\"resources\">" (plist-get talk :resources) "</ul>" ""))) "<div data-start=\"${startutc}\" data-end=\"${endutc}\" class=\"sched-entry track-${track}\"> <div class=\"sched-meta\"><span class=\"sched-time\">${start-info}${end-info}</span>${track-info}${q-info}${slug-info}</div> |