diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-03 20:23:28 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-03 20:23:28 -0400 |
| commit | dfbbf5d6078020b511f9c0104d2f056fa5769f38 (patch) | |
| tree | 2a402d6e6af10397950df31b8655af0f6142d17c | |
| parent | 322ccd2e6caaf30d1ec5d18bbfb37d0c5649bb94 (diff) | |
| download | emacsconf-el-dfbbf5d6078020b511f9c0104d2f056fa5769f38.tar.xz emacsconf-el-dfbbf5d6078020b511f9c0104d2f056fa5769f38.zip | |
open IRC for IRC Q&A
| -rw-r--r-- | emacsconf-stream.el | 14 |
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." |