diff options
Diffstat (limited to 'emacsconf-stream.el')
-rw-r--r-- | emacsconf-stream.el | 23 |
1 files changed, 23 insertions, 0 deletions
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) |