From 5b16321156f5b0708a3c2841cdd6715d52ce75f3 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 1 Aug 2023 11:29:46 +0300 Subject: Add yeetube-play-saved-video --- yeetube.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 971ab44..8bd7f68 100644 --- a/yeetube.el +++ b/yeetube.el @@ -153,6 +153,15 @@ It's recommended you keep it as the default value." :raw-link (org-element-context)))) (push (cons name url) yeetube-saved-videos))) +(defun yeetube-play-saved-video () + "Select & Play a saved video." + (interactive) + (let ((video (completing-read "Select video: " yeetube-saved-videos nil t))) + (if (string-match "mpv" yeetube-player) + (shell-command (format "pkill -9 -f mpv")) + (shell-command (format "pkill -9 -f %s" (shell-quote-argument yeetube-player)))) + (call-process-shell-command + (format "%s %s" yeetube-player (cdr (assoc video yeetube-saved-videos))) nil 0))) (defun yeetube-toggle-video-mpv () "Toggle video on/off for mpv player." (interactive) -- cgit v1.2.3