summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-01 10:14:21 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-01 10:14:21 -0400
commitcff77cc27363ecf7f39aad66440bb51e2959d5d1 (patch)
treec4f05cd5b3fbfcce729e9292311da540f69f8d5c
parent852a40abbd2f26ced2d512d8eb859e1ae1a22a7f (diff)
downloademacsconf-el-cff77cc27363ecf7f39aad66440bb51e2959d5d1.tar.xz
emacsconf-el-cff77cc27363ecf7f39aad66440bb51e2959d5d1.zip
Remove need for subed-video-extensions
Diffstat (limited to '')
-rw-r--r--emacsconf-publish.el4
-rw-r--r--emacsconf.el1
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)