From c89f28d618ab07f89dd499342972ef2de6f6d077 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Thu, 28 Dec 2023 08:16:21 -0500
Subject: filter out original files

---
 emacsconf-publish.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index acb1992..da31c3c 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -1503,19 +1503,19 @@ answers without needing to listen to everything again. You can see <a href=\"htt
 															f)
 						;; further tests
 						(pcase f
-							((rx (seq "vtt" string-end))
+							((rx "--original")
+							 ;; include original only if --main or does not exist
+							 (and
+								(not (string-match "--answers" f))
+								(not (member (concat (plist-get talk :file-prefix)
+																		 "--main.webm")
+														 files))))							((rx (seq "vtt" string-end))
 							 (or (plist-get talk :captions-edited)
 									 (emacsconf-captions-edited-p (expand-file-name f emacsconf-cache-dir))))
 							((rx (seq "--"
 												(or "reencoded" "normalized" "final" "old" "bbb")))
 							 nil)
-							((rx "--original")
-							 ;; include original only if --main or --answers does not exist
-							 (not (member (concat (plist-get talk :file-prefix)
-																		(if (string-match "--answers-original" f)
-																				"--answers.webm"
-																			"--main.webm"))
-														files)))
+
 							((rx (or "--main.txt" "--after-zaeph")) nil)
 							(_ t))))
 				files)))
-- 
cgit v1.2.3