diff options
| author | Sacha Chua <sacha@sachachua.com> | 2021-12-13 01:20:27 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2021-12-13 01:20:27 -0500 |
| commit | cf3ab315f2df9f4548bec5fcd336a839a68291ec (patch) | |
| tree | 43d2b26a6ca8d65bd7c2feef0cf79cfc75d40202 /emacsconf-subed.el | |
| parent | 17781f0097fd8a0cf59942c6426ecfac78a2a90a (diff) | |
| download | emacsconf-el-cf3ab315f2df9f4548bec5fcd336a839a68291ec.tar.xz emacsconf-el-cf3ab315f2df9f4548bec5fcd336a839a68291ec.zip | |
Add base variables
Diffstat (limited to 'emacsconf-subed.el')
| -rw-r--r-- | emacsconf-subed.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/emacsconf-subed.el b/emacsconf-subed.el index cfb81b4..899f3a0 100644 --- a/emacsconf-subed.el +++ b/emacsconf-subed.el @@ -93,12 +93,12 @@ (kill-new result)) result)) -(defun conf-prepare-transcript-directives () +(defun emacsconf-subed-prepare-transcript-directives () (interactive) (let* ((info (emacsconf-get-talk-info-for-subtree)) (wiki-file (plist-get info :wiki-file-path)) (caption-file (expand-file-name (concat (plist-get info :video-slug) "--main.vtt") - conf-captions-directory)) + emacsconf-captions-directory)) (chapters (emacsconf-subed-chapters-as-list info))) (with-temp-file wiki-file (insert @@ -114,7 +114,7 @@ (format "youtube-dl --write-sub --write-auto-sub --no-warnings --sub-lang en --skip-download --sub-format %s %s -o %s" f youtube-url - (expand-file-name video-slug conf-captions-directory))) + (expand-file-name video-slug emacsconf-captions-directory))) '("vtt" "srv2") ";"))) @@ -151,7 +151,7 @@ Create it if necessary." (require 'compile-media) (let ((video-slug (org-entry-get (point) "VIDEO_SLUG"))) (find-file - (or (car (directory-files conf-captions-directory + (or (car (directory-files emacsconf-captions-directory t (concat (regexp-quote video-slug) "--main\\.\\(srt\\|vtt\\)"))) @@ -174,9 +174,9 @@ Create it if necessary." (defun emacsconf-subed-chapters-as-list (info) (when (file-exists-p (expand-file-name (concat (plist-get info :video-slug) "--main--chapters.vtt") - conf-captions-directory)) + emacsconf-captions-directory)) (with-current-buffer (find-file-noselect (expand-file-name (concat (plist-get info :video-slug) "--main--chapters.vtt") - conf-captions-directory)) + emacsconf-captions-directory)) (let (result) (subed-for-each-subtitle (point-min) (point-max) nil (setq result |