summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacsconf-publish.el15
1 files changed, 14 insertions, 1 deletions
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")))
"")
"</ul>"
+ ;; alphabetical index
+ "<div>Alphabetical index: "
+ (mapconcat (lambda (o)
+ (format "<a href=\"#%s\">%s</a>"
+ (plist-get o :slug)
+ (plist-get o :slug)))
+ (sort talks (lambda (a b) (string< (plist-get a :slug) (plist-get b :slug))))
+ ", ")
+ "</div>"
(pcase emacsconf-backstage-phase
('prerec
(concat
@@ -1264,6 +1273,10 @@ If MODIFY-FUNC is specified, use it to modify the talk."
(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
"ready to be streamed")