summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-03 20:23:28 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-03 20:23:28 -0400
commitdfbbf5d6078020b511f9c0104d2f056fa5769f38 (patch)
tree2a402d6e6af10397950df31b8655af0f6142d17c
parent322ccd2e6caaf30d1ec5d18bbfb37d0c5649bb94 (diff)
downloademacsconf-el-dfbbf5d6078020b511f9c0104d2f056fa5769f38.tar.xz
emacsconf-el-dfbbf5d6078020b511f9c0104d2f056fa5769f38.zip
open IRC for IRC Q&A
-rw-r--r--emacsconf-stream.el14
1 files changed, 8 insertions, 6 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index 1e2df14..2017683 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -201,12 +201,14 @@ This uses the BBB room if available, or the IRC channel if not."
(interactive (list (emacsconf-complete-talk-info)))
(let ((default-directory (emacsconf-stream-track-login talk))
(async-shell-command-buffer 'new-buffer))
- (shell-command
- (concat "nohup firefox -new-window "
- (shell-quote-argument
- (or (plist-get talk :bbb-room)
- (plist-get talk :webchat-url)))
- " > /dev/null 2>&1 & "))))
+ (save-window-excursion
+ (shell-command
+ (concat "nohup firefox -new-window "
+ (shell-quote-argument
+ (if (string-match (plist-get talk :q-and-a) "IRC")
+ (plist-get talk :webchat-url)
+ (plist-get talk :bbb-room)))
+ " > /dev/null 2>&1 & ")))))
(defun emacsconf-stream-join-chat (talk)
"Join the IRC chat for TALK."