summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacsconf-stream.el20
1 files changed, 20 insertions, 0 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index 9e4ab74..26586b2 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -170,6 +170,26 @@ Final files should be stored in /data/emacsconf/stream/YEAR/video-slug--main.web
(concat "~/bin/track-mpv "
(shell-quote-argument (emacsconf-stream-get-filename talk))))))
+(defun emacsconf-stream-open-pad (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 :pad-url))
+ " & "))))
+
+(defun emacsconf-stream-join-qa (talk)
+ "Join the Q&A for TALK.
+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)))
+ (shell-command
+ (concat "firefox -new-window "
+ (shell-quote-argument
+ (or (plist-get talk :bbb-room)
+ (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)))