diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-11-23 09:38:29 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-11-23 09:38:29 -0500 |
| commit | 5fbfb62936ae960d72e56d612dbe15497e5e1860 (patch) | |
| tree | ca97c89d9c34ca6ab3a740ccdd3423fcd4864d8f | |
| parent | 3dd7ecb8e34b82a176aca344bb0479beeb5763d5 (diff) | |
| download | emacsconf-el-5fbfb62936ae960d72e56d612dbe15497e5e1860.tar.xz emacsconf-el-5fbfb62936ae960d72e56d612dbe15497e5e1860.zip | |
add alpha index, to_check section
| -rw-r--r-- | emacsconf-publish.el | 15 |
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") |