diff options
| -rw-r--r-- | emacsconf-erc.el | 3 | ||||
| -rw-r--r-- | emacsconf-publish.el | 6 |
2 files changed, 7 insertions, 2 deletions
diff --git a/emacsconf-erc.el b/emacsconf-erc.el index 6139645..bde801b 100644 --- a/emacsconf-erc.el +++ b/emacsconf-erc.el @@ -229,6 +229,9 @@ If MESSAGE is not specified, reset the topic to the template." (plist-get talk :title) (emacsconf-surround " - " (plist-get talk :speakers-with-pronouns) "" ""))) (erc-send-message + (concat "Talk page: " + (plist-get talk :absolute-url))) + (erc-send-message (concat "Add your notes/questions to the pad: " (plist-get talk :pad-url))) (cond ((string-match "live" (or (plist-get talk :q-and-a) "")) 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 |