diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-01 19:22:16 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-01 19:22:16 -0500 |
| commit | c3b3180a18decabe0fdd4dc16a1f01f47ab817b8 (patch) | |
| tree | 4ab937a7c75df4d24b5181e77e7e7b16bc08fc9c /emacsconf-stream.el | |
| parent | d89e6d82f99c2d46b8f88bb6752b3d69d6b999b7 (diff) | |
| download | emacsconf-el-c3b3180a18decabe0fdd4dc16a1f01f47ab817b8.tar.xz emacsconf-el-c3b3180a18decabe0fdd4dc16a1f01f47ab817b8.zip | |
easy rebroadcasting from one stream to another
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 9d14696..5d38c12 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -844,6 +844,21 @@ ffplay URL (time-add (current-time) (seconds-to-time (- duration playback-position))) emacsconf-timezone)))) +(defun emacsconf-stream-rebroadcast (source-track dest-track) + (interactive + (let* ((source (emacsconf-complete-track "Source: ")) + (others (remove source emacsconf-tracks))) + (list + source + (if (= (length others) 1) + (car others) + (emacsconf-complete-track "Destination: " others))))) + (setq source-track (emacsconf-get-track source-track)) + (setq dest-track (emacsconf-get-track dest-track)) + (emacsconf-stream-track-ssh dest-track "nohup" "mpv" (plist-get source-track :stream) "--profile=full" "&")) +;; (emacsconf-stream-rebroadcast "Development" "General") +;; (emacsconf-stream-send-to-mpv "General" '(:command ("video-zoom" "0"))) +;; (emacsconf-stream-send-to-mpv "General" "set video-zoom 0") ;;; xdotool (defun emacsconf-stream-xdotool (track command) |