From d3c6bf186c6239881065e0e3bfe77070a4b6e0bd Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 28 Nov 2022 21:06:21 -0500 Subject: intros --- emacsconf.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index 25964e7..fe1d2ff 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -617,8 +617,8 @@ (when track (plist-put o :watch-url (concat emacsconf-base-url emacsconf-year "/watch/" (plist-get track :id))) (plist-put o :webchat-url (concat emacsconf-chat-base "?join=emacsconf," - (replace-regexp-in-string "#" "" - (plist-get track :channel))))) + (replace-regexp-in-string "#" "" + (plist-get track :channel))))) (plist-put o :channel (plist-get track :channel)) (plist-put o :bbb-backstage (concat emacsconf-media-base-url emacsconf-year "/backstage/current/room/" (plist-get o :slug))) (cond @@ -644,6 +644,11 @@ (t (plist-put o :qa-info "none") (plist-put o :qa-link "none"))) (plist-put o :pad-url (format "https://pad.emacsconf.org/%s-%s" emacsconf-year (plist-get o :slug))) + (plist-put o :recorded-intro + (let ((filename + (expand-file-name (concat (plist-get o :slug) ".webm") + (expand-file-name "intros" emacsconf-stream-asset-dir)))) + (and (file-exists-p filename) filename))) o)) (defun emacsconf-search-talk-info (search &optional info) -- cgit v1.2.3