summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-03 18:41:31 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-03 18:41:31 -0400
commit3b386b3e1e470d6a32c24718b1216a57bba2258c (patch)
treeecb6cbb57bfdb19c364c2fc62a286a7518eacec7
parentc36261caaff9305d256c616edcc9d1fdb51b1b42 (diff)
downloademacsconf-el-3b386b3e1e470d6a32c24718b1216a57bba2258c.tar.xz
emacsconf-el-3b386b3e1e470d6a32c24718b1216a57bba2258c.zip
Join chat
-rw-r--r--emacsconf-stream.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index fd1395a..e587836 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -190,6 +190,16 @@ This uses the BBB room if available, or the IRC channel if not."
(plist-get talk :webchat-url)))
" & "))))
+(defun emacsconf-stream-join-chat (talk)
+ "Join the IRC chat for TALK."
+ (interactive (list (emacsconf-complete-talk-info)))
+ (let ((default-directory (emacsconf-stream-track-login talk)))
+ (shell-command
+ (concat "firefox -new-window "
+ (shell-quote-argument
+ (plist-get talk :webchat-url))
+ " & "))))
+
(defun emacsconf-stream-write-talk-overlay-svgs (talk video-filename other-filename)
(setq talk (emacsconf-stream-add-talk-props talk))
(let ((dom (xml-parse-file (expand-file-name "roles/obs/overlay.svg" emacsconf-ansible-directory)))