diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-03 18:41:31 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-03 18:41:31 -0400 |
| commit | 3b386b3e1e470d6a32c24718b1216a57bba2258c (patch) | |
| tree | ecb6cbb57bfdb19c364c2fc62a286a7518eacec7 | |
| parent | c36261caaff9305d256c616edcc9d1fdb51b1b42 (diff) | |
| download | emacsconf-el-3b386b3e1e470d6a32c24718b1216a57bba2258c.tar.xz emacsconf-el-3b386b3e1e470d6a32c24718b1216a57bba2258c.zip | |
Join chat
| -rw-r--r-- | emacsconf-stream.el | 10 |
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))) |