From cff77cc27363ecf7f39aad66440bb51e2959d5d1 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Tue, 1 Nov 2022 10:14:21 -0400 Subject: Remove need for subed-video-extensions --- emacsconf-publish.el | 4 ++-- emacsconf.el | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 04775e5..018d8da 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1256,7 +1256,7 @@ Entries are sorted chronologically, with different tracks interleaved." (car (mapcar (lambda (suffix) - (seq-find (lambda (s) (string-match (regexp-quote (concat video-slug "--" suffix "\\." (regexp-opt subed-video-extensions))) s)) files)) + (seq-find (lambda (s) (string-match (regexp-quote (concat video-slug "--" suffix "\\." (regexp-opt emacsconf-media-extensions))) s)) files)) '("main" "captioned" "normalized" "reencoded" "compressed" "original"))) (seq-find 'file-exists-p @@ -1268,7 +1268,7 @@ Entries are sorted chronologically, with different tracks interleaved." nil (concat (regexp-quote video-slug) ".*\\." - (regexp-opt subed-video-extensions)))))) + (regexp-opt emacsconf-media-extensions)))))) (defun emacsconf-check-video-formats () (interactive) diff --git a/emacsconf.el b/emacsconf.el index 3bedddb..20d7dec 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -84,6 +84,7 @@ (defvar emacsconf-backstage-dir "/ssh:orga@media.emacsconf.org:/var/www/media.emacsconf.org/2022/backstage") (defvar emacsconf-upload-dir "/ssh:orga@media.emacsconf.org:/srv/upload") (defvar emacsconf-res-dir (format "/ssh:orga@res.emacsconf.org:/data/emacsconf/%s" emacsconf-year)) +(defvar emacsconf-media-extensions '("mkv" "mp4" "webm" "avi" "ts" "ogv" "wav" "ogg" "mp3")) (defun emacsconf-upload-dired () (interactive) -- cgit v1.2.3