summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEmacsConf <emacsconf-org@gnu.org>2022-11-05 05:40:44 -0700
committerEmacsConf <emacsconf-org@gnu.org>2022-11-05 05:40:44 -0700
commitef2fe850f7d3e7f7c19230cf0da2f476b0168664 (patch)
tree7c509ab6769f894dc19f91e66eee2b115323550f
parentbe425c8f5a596822c770e47816c2a7faea1e245f (diff)
downloademacsconf-el-ef2fe850f7d3e7f7c19230cf0da2f476b0168664.tar.xz
emacsconf-el-ef2fe850f7d3e7f7c19230cf0da2f476b0168664.zip
don't show cancelled
-rw-r--r--emacsconf-publish.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 5e15d02..5dbae57 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -219,7 +219,8 @@
(and video-file
(let ((tracks
(emacsconf-video-subtitle-tracks
- (concat video-base ".vtt")
+ (concat (replace-regexp-in-string "reencoded\\|original" "main" video-base)
+ ".vtt")
(or (plist-get talk :track-base-url)
(plist-get talk :base-url))
(plist-get talk :files))))
@@ -835,7 +836,8 @@ Entries are sorted chronologically, with different tracks interleaved."
(setq filename (or filename (expand-file-name "index.html" emacsconf-backstage-dir)))
(setq emacsconf-info (emacsconf-get-talk-info))
(with-temp-file filename
- (let* ((talks (seq-filter (lambda (o) (plist-get o :speakers)) (emacsconf-filter-talks emacsconf-info)))
+ (let* ((talks (seq-filter (lambda (o) (plist-get o :speakers))
+ (emacsconf-active-talks (emacsconf-filter-talks emacsconf-info))))
(by-status (seq-group-by (lambda (o) (plist-get o :status)) talks))
(files (directory-files emacsconf-backstage-dir)))
(insert