diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-01 10:14:21 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-01 10:14:21 -0400 |
| commit | cff77cc27363ecf7f39aad66440bb51e2959d5d1 (patch) | |
| tree | c4f05cd5b3fbfcce729e9292311da540f69f8d5c | |
| parent | 852a40abbd2f26ced2d512d8eb859e1ae1a22a7f (diff) | |
| download | emacsconf-el-cff77cc27363ecf7f39aad66440bb51e2959d5d1.tar.xz emacsconf-el-cff77cc27363ecf7f39aad66440bb51e2959d5d1.zip | |
Remove need for subed-video-extensions
| -rw-r--r-- | emacsconf-publish.el | 4 | ||||
| -rw-r--r-- | 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) |