From bd0a698983bdd12fa96db5da7d3c794338f52317 Mon Sep 17 00:00:00 2001 From: EmacsConf Date: Sun, 7 Dec 2025 12:50:03 -0500 Subject: Try to tweak things --- emacsconf-erc.el | 3 +++ 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 @@ -228,6 +228,9 @@ If MESSAGE is not specified, reset the topic to the template." (plist-get talk :slug) (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 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 -- cgit v1.2.3