diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-11-28 21:06:21 -0500 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-11-28 21:06:21 -0500 |
commit | d3c6bf186c6239881065e0e3bfe77070a4b6e0bd (patch) | |
tree | 0991f380886f9ee155f520e3a4ddd352ac7ece31 /emacsconf.el | |
parent | 94adfdf2ea92cdb3e711af11017332735ba5e5ff (diff) | |
download | emacsconf-el-d3c6bf186c6239881065e0e3bfe77070a4b6e0bd.tar.xz emacsconf-el-d3c6bf186c6239881065e0e3bfe77070a4b6e0bd.zip |
intros
Diffstat (limited to 'emacsconf.el')
-rw-r--r-- | emacsconf.el | 9 |
1 files changed, 7 insertions, 2 deletions
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) |