summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf-publish.el23
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&amp;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>