From 5c2b5665aa6f09f225afdf4596d1343ddc450d80 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 30 Nov 2022 18:53:25 -0500 Subject: setup and teardown --- emacsconf-stream.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'emacsconf-stream.el') diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 0daab10..c49ec90 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -911,5 +911,15 @@ ffplay URL ;; (emacsconf-stream-audio-get-volume "General" "qa") ;; (emacsconf-stream-audio-louder "General" "qa") ;; (emacsconf-stream-audio-quieter "General" "qa") + +;;; Live + +(defun emacsconf-stream-update-track-status (track &optional status) + (interactive (list (emacsconf-complete-track))) + (plist-put (emacsconf-get-track track) + :status (or status (completing-read "Status: " '("online" "offline")))) + (emacsconf-stream-update-status-page)) + + (provide 'emacsconf-stream) ;;; emacsconf-stream.el ends here -- cgit v1.2.3