diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-10-10 10:14:48 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-10-10 10:14:48 -0400 |
| commit | d8881dbc1333a68644b5d9808a7471ba9ab25194 (patch) | |
| tree | 2de0783b82e5fa08176ea29f5cfd1509830813a0 /emacsconf-stream.el | |
| parent | 50879322aaaf5ac53b5fdeeb15aaf7cb53fea485 (diff) | |
| download | emacsconf-el-d8881dbc1333a68644b5d9808a7471ba9ab25194.tar.xz emacsconf-el-d8881dbc1333a68644b5d9808a7471ba9ab25194.zip | |
rename VIDEO_SLUG to FILE_PREFIX
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 4c23d0b..774c83c 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -26,7 +26,7 @@ (defvar emacsconf-stream-dir "/data/emacsconf/stream/" "Directory where the stream versions are. -Files should be in YEAR/video-slug--main.webm and video-slug--main.vtt.") +Files should be in YEAR/file-prefix--main.webm and file-prefix--main.vtt.") (defvar emacsconf-stream-host "res.emacsconf.org") (defun emacsconf-stream-track-login (track) @@ -253,9 +253,9 @@ especially when two things need to happen close together." (defun emacsconf-stream-get-filename (talk) "Return the local filename for the video file for TALK. -Final files should be stored in /data/emacsconf/stream/YEAR/video-slug--main.webm." +Final files should be stored in /data/emacsconf/stream/YEAR/file-prefix--main.webm." (expand-file-name - (concat (plist-get talk :video-slug) "--main.webm") + (concat (plist-get talk :file-prefix) "--main.webm") (expand-file-name emacsconf-year emacsconf-stream-dir))) @@ -550,7 +550,7 @@ With a prefix argument (\\[universal-argument]), clear the overlay." (subtitle-len 1)) (unless (file-directory-p dir) (make-directory dir t)) (mapc (lambda (talk) - (with-temp-file (expand-file-name (concat (plist-get talk :video-slug) "--main.vtt") + (with-temp-file (expand-file-name (concat (plist-get talk :file-prefix) "--main.vtt") dir) (insert "WEBVTT\n\n" (cl-loop @@ -575,7 +575,7 @@ With a prefix argument (\\[universal-argument]), clear the overlay." (unless (file-directory-p dir) (make-directory dir t)) (mapc (lambda (talk) (add-name-to-file (expand-file-name "template.webm" dir) - (expand-file-name (concat (plist-get talk :video-slug) "--main.webm") dir) + (expand-file-name (concat (plist-get talk :file-prefix) "--main.webm") dir) t)) info))) |