From 934b8c909ab00b2a55501f8bdd2a6bc1ac017d60 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 24 Nov 2022 14:08:05 -0500 Subject: publishing without unedited captions --- emacsconf.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index a3fc06c..b5a846d 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -589,9 +589,11 @@ (plist-get o :slug))) (let ((track (emacsconf-get-track (plist-get o :track)))) (when track - (plist-put o :watch-url (concat emacsconf-base-url emacsconf-year "/watch/" (plist-get track :id)))) + (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))))) (plist-put o :channel (plist-get track :channel)) - (plist-put o :webchat-url (concat emacsconf-chat-base "?join=emacsconf," (plist-get track :channel))) (plist-put o :bbb-backstage (concat emacsconf-media-base-url emacsconf-year "/backstage/current/room/" (plist-get o :slug))) (cond ((string= (or (plist-get o :q-and-a) "") "") @@ -602,12 +604,17 @@ (plist-put o :qa-info (plist-get o :bbb-redirect)) (plist-put o :qa-link (format "BBB" (plist-get o :bbb-redirect)))) ((string-match "IRC" (plist-get o :q-and-a)) - (plist-put o :qa-info (concat (emacsconf-surround "nick: " (plist-get o :irc) ", " "") - (plist-get o :channel))) + (plist-put o :qa-info (concat "#" (plist-get o :channel) + (emacsconf-surround ", speaker nick: " (plist-get o :irc) ""))) (plist-put o :qa-link (format "%s" (plist-get o :webchat-url) (plist-get o :qa-info)))) ((string-match "Mumble" (plist-get o :q-and-a)) (plist-put o :qa-info "Moderated via Mumble, ask questions via pad or IRC") (plist-put o :qa-link (format "%s" (plist-get o :webchat-url) (plist-get o :qa-info)))) + ((string-match "pad" (plist-get o :q-and-a)) + (plist-put o :qa-info "Etherpad") + (plist-put o :qa-link (format "%s" + (plist-get o :pad-url) + (plist-get o :qa-info)))) (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))) -- cgit v1.2.3