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