diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-12-28 08:16:21 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-12-28 08:16:21 -0500 |
| commit | c89f28d618ab07f89dd499342972ef2de6f6d077 (patch) | |
| tree | eadc8c8cecf1b175c9b48d153106bc3c5c8a63a7 | |
| parent | 777d52e43b49a2436be3c64510df31eecd0fc2a8 (diff) | |
| download | emacsconf-el-c89f28d618ab07f89dd499342972ef2de6f6d077.tar.xz emacsconf-el-c89f28d618ab07f89dd499342972ef2de6f6d077.zip | |
filter out original files
| -rw-r--r-- | emacsconf-publish.el | 16 |
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))) |