[nongnu] elpa/subed 6db0005 338/389: New function subed-mpv-play-video-from-url

[ELPA Syncer]

branch: elpa/subed
commit 6db00057ce8c42ef688a276e99cba8e466111f9f
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    New function subed-mpv-play-video-from-url
    
    * subed/subed-mpv.el: New function subed-mpv-play-video-from-url.
    * subed/subed.el: Bind C-c C-w (mnemonic: web?) to
      subed-mpv-play-video-from-url. The main differences are that it
      doesn't complete or expand filenames.
---
 subed/subed-mpv.el | 17 +++++++++++++++++
 subed/subed.el     |  1 +
 2 files changed, 18 insertions(+)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 4bdf3d8..cf3a92f 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -335,6 +335,23 @@ See \"List of events\" in mpv(1)."
          (or (file-directory-p filepath)
              (member (file-name-extension filename) subed-video-extensions)))))
 
+(defun subed-mpv-play-video-from-url (url)
+  "Open video file from URL in mpv."
+  (interactive "MURL: ")
+  (when (subed-mpv--server-started-p)
+    (subed-mpv-kill))
+  (when (apply #'subed-mpv--server-start subed-mpv-arguments)
+      (subed-debug "Opening video from URL: %s" url)
+      (subed-mpv--client-connect subed-mpv--retry-delays)
+      (subed-mpv--client-send `(loadfile ,url replace))
+      ;; mpv won't add the subtitles if the file doesn't exist yet, so we add 
it
+      ;; via after-save-hook.
+      (if (file-exists-p (buffer-file-name))
+          (subed-mpv-add-subtitles (buffer-file-name))
+        (add-hook 'after-save-hook #'subed-mpv--add-subtitle-after-first-save 
:append :local))
+      (subed-mpv--client-send `(observe_property 1 time-pos))
+      (subed-mpv-playback-speed subed-playback-speed-while-not-typing)))
+
 (defun subed-mpv-find-video (file)
   "Open video file FILE in mpv.
 
diff --git a/subed/subed.el b/subed/subed.el
index 2d1b5cb..738597a 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -59,6 +59,7 @@
     (define-key subed-mode-map (kbd "M-SPC") #'subed-mpv-toggle-pause)
     (define-key subed-mode-map (kbd "C-c C-d") #'subed-toggle-debugging)
     (define-key subed-mode-map (kbd "C-c C-v") #'subed-mpv-find-video)
+    (define-key subed-mode-map (kbd "C-c C-u") #'subed-mpv-play-video-from-url)
     (define-key subed-mode-map (kbd "C-c C-p") 
#'subed-toggle-pause-while-typing)
     (define-key subed-mode-map (kbd "C-c C-l") 
#'subed-toggle-loop-over-current-subtitle)
     (define-key subed-mode-map (kbd "C-c C-r") 
#'subed-toggle-replay-adjusted-subtitle)