summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-03 15:12:31 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-03 15:12:31 -0400
commit3cce90093797c7524cecff94df35b4b8253f91fa (patch)
tree4efe862930cd37695bca50fab43746c3c5d50675
parent6c3a3fcdb3bb0ab0f875610ba6563325f4b5bf63 (diff)
parent51b69e924e9f92e8baaddec7a9dab5b23bdba345 (diff)
downloademacsconf-el-3cce90093797c7524cecff94df35b4b8253f91fa.tar.xz
emacsconf-el-3cce90093797c7524cecff94df35b4b8253f91fa.zip
Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el into main
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)))