diff options
| author | EmacsConf <emacsconf-org@gnu.org> | 2025-12-07 12:50:03 -0500 |
|---|---|---|
| committer | EmacsConf <emacsconf-org@gnu.org> | 2025-12-07 12:50:03 -0500 |
| commit | bd0a698983bdd12fa96db5da7d3c794338f52317 (patch) | |
| tree | 2a06b5ee29b47970aa4aa0d8f3c3e084847a3dc7 /emacsconf-publish.el | |
| parent | 140af5ac57c8aeeb93f85cba516ee372e6375ffc (diff) | |
| download | emacsconf-el-bd0a698983bdd12fa96db5da7d3c794338f52317.tar.xz emacsconf-el-bd0a698983bdd12fa96db5da7d3c794338f52317.zip | |
Try to tweak things
Diffstat (limited to 'emacsconf-publish.el')
| -rw-r--r-- | emacsconf-publish.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 479de96..dee9e2f 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -812,7 +812,8 @@ This includes the intro note, the schedule, and talk resources." (defun emacsconf-format-transcript-from-list (subtitles video-id &optional lang) "Return subtitle directives for SUBTITLES." - (when (stringp subtitles) (setq subtitles (subed-parse-file subtitles))) + (let ((subed-sanitize-functions nil)) + (when (stringp subtitles) (setq subtitles (subed-parse-file subtitles)))) (mapconcat (lambda (sub) (let ((msecs (elt sub 1))) @@ -842,7 +843,8 @@ This includes the intro note, the schedule, and talk resources." "Format the transcript for TALK, adding paragraph markers when possible." (require 'subed) (setq video-id (or video-id "mainVideo")) - (let* ((subtitles + (let* ((subed-sanitize-functions nil) + (subtitles (subed-parse-file (if lang (format "%s_%s.vtt" (file-name-sans-extension |