From ef2fe850f7d3e7f7c19230cf0da2f476b0168664 Mon Sep 17 00:00:00 2001 From: EmacsConf Date: Sat, 5 Nov 2022 05:40:44 -0700 Subject: don't show cancelled --- emacsconf-publish.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'emacsconf-publish.el') 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 -- cgit v1.2.3