From 99df03c875faf14d96800fdf705379ae06b2fcb9 Mon Sep 17 00:00:00 2001 From: EmacsConf Date: Thu, 3 Nov 2022 11:59:10 -0700 Subject: Add pad and Q&A --- emacsconf-stream.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'emacsconf-stream.el') 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))) -- cgit v1.2.3