summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-12-28 08:16:21 -0500
committerSacha Chua <sacha@sachachua.com>2023-12-28 08:16:21 -0500
commitc89f28d618ab07f89dd499342972ef2de6f6d077 (patch)
treeeadc8c8cecf1b175c9b48d153106bc3c5c8a63a7
parent777d52e43b49a2436be3c64510df31eecd0fc2a8 (diff)
downloademacsconf-el-c89f28d618ab07f89dd499342972ef2de6f6d077.tar.xz
emacsconf-el-c89f28d618ab07f89dd499342972ef2de6f6d077.zip
filter out original files
Diffstat (limited to '')
-rw-r--r--emacsconf-publish.el16
1 files 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)))