diff options
| author | EmacsConf <emacsconf-org@gnu.org> | 2022-11-05 05:40:44 -0700 |
|---|---|---|
| committer | EmacsConf <emacsconf-org@gnu.org> | 2022-11-05 05:40:44 -0700 |
| commit | ef2fe850f7d3e7f7c19230cf0da2f476b0168664 (patch) | |
| tree | 7c509ab6769f894dc19f91e66eee2b115323550f | |
| parent | be425c8f5a596822c770e47816c2a7faea1e245f (diff) | |
| download | emacsconf-el-ef2fe850f7d3e7f7c19230cf0da2f476b0168664.tar.xz emacsconf-el-ef2fe850f7d3e7f7c19230cf0da2f476b0168664.zip | |
don't show cancelled
| -rw-r--r-- | emacsconf-publish.el | 6 |
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 |