diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-30 18:53:25 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-30 18:53:25 -0500 |
| commit | 5c2b5665aa6f09f225afdf4596d1343ddc450d80 (patch) | |
| tree | ce902c0252dc118722eab0ffdf4de6ead95ac5da /emacsconf-stream.el | |
| parent | b3b0cfa1f290e73655a41aa643da403e8b54fff5 (diff) | |
| download | emacsconf-el-5c2b5665aa6f09f225afdf4596d1343ddc450d80.tar.xz emacsconf-el-5c2b5665aa6f09f225afdf4596d1343ddc450d80.zip | |
setup and teardown
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 |