From 5fbfb62936ae960d72e56d612dbe15497e5e1860 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 23 Nov 2023 09:38:29 -0500 Subject: add alpha index, to_check section --- emacsconf-publish.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/emacsconf-publish.el b/emacsconf-publish.el index f0388d8..3e51b4b 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1246,10 +1246,19 @@ If MODIFY-FUNC is specified, use it to modify the talk." (assoc-default status by-status) ", "))) (pcase emacsconf-backstage-phase - ('prerec '("WAITING_FOR_PREREC" "PROCESSING" "TO_ASSIGN" "TO_CAPTION" "TO_STREAM")) + ('prerec '("WAITING_FOR_PREREC" "PROCESSING" "TO_ASSIGN" "TO_CAPTION" "TO_CHECK" "TO_STREAM")) ('harvest '("TO_ARCHIVE" "TO_REVIEW_QA" "TO_INDEX_QA" "TO_CAPTION_QA"))) "") "" + ;; alphabetical index + "
Alphabetical index: " + (mapconcat (lambda (o) + (format "%s" + (plist-get o :slug) + (plist-get o :slug))) + (sort talks (lambda (a b) (string< (plist-get a :slug) (plist-get b :slug)))) + ", ") + "
" (pcase emacsconf-backstage-phase ('prerec (concat @@ -1263,6 +1272,10 @@ If MODIFY-FUNC is specified, use it to modify the talk." "Not ready for captioning yet, but they will be eventually") (emacsconf-publish-backstage-to-assign by-status files) (emacsconf-publish-backstage-to-caption by-status files) + (emacsconf-publish-backstage-list + (assoc-default "TO_CHECK" by-status) files + "to be checked" + "These can be checked to see if the subtitle timings are correct, audio/video is fine, etc.") (emacsconf-publish-backstage-list (assoc-default "TO_STREAM" by-status) files -- cgit v1.2.3