diff options
| -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))) |