From 8a66b962bb7a12e1bc063dc3a64f230a8ea695de Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 1 Dec 2022 20:02:37 -0500 Subject: shortcuts for overlays and music --- emacsconf-stream.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'emacsconf-stream.el') diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 897236c..ac648e3 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -357,6 +357,20 @@ This uses the BBB room if available, or the IRC channel if not." (defvar emacsconf-stream-asset-dir "/data/emacsconf/assets/") (defvar emacsconf-stream-overlay-dir "/data/emacsconf/assets/overlays/") +(defun emacsconf-stream-set-overlay (talk) + "Reset the overlay for TALK, just in case. +With a prefix argument (\\[universal-argument]), clear the overlay." + (interactive (list + (if current-prefix-arg + (emacsconf-complete-track) + (emacsconf-complete-talk-info)))) + (emacsconf-stream-track-ssh + (emacsconf-get-track talk) + "overlay" + (if current-prefix-arg + "blank" + (plist-get talk :slug)))) + (defun emacsconf-stream-generate-overlays (&optional info) (interactive) (setq info (emacsconf-filter-talks (or info (emacsconf-get-talk-info)))) @@ -986,6 +1000,15 @@ ffplay URL ;; (emacsconf-stream-audio-louder "General" "qa") ;; (emacsconf-stream-audio-quieter "General" "qa") +;;; Background music + +(defun emacsconf-stream-start-music (track) + (interactive (list (emacsconf-complete-track))) + (emacsconf-stream-track-ssh track "nohup" "start-background-music" "&")) +(defun emacsconf-stream-stop-music (track) + (interactive (list (emacsconf-complete-track))) + (emacsconf-stream-track-ssh track "screen" "-S" "background" "-X" "quit")) + ;;; Live (defun emacsconf-stream-update-track-status (track &optional status) -- cgit v1.2.3