From 3b386b3e1e470d6a32c24718b1216a57bba2258c Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Thu, 3 Nov 2022 18:41:31 -0400
Subject: Join chat

---
 emacsconf-stream.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

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)))
-- 
cgit v1.2.3