From 12420598f4c07a8fceceb2ae5a0e7792f6be0693 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 18 Aug 2023 16:11:52 +0300 Subject: Add yeetube--mpv-play Used to play url and defining a process session --- yeetube.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 829be21..9da745f 100644 --- a/yeetube.el +++ b/yeetube.el @@ -216,6 +216,21 @@ Example Usage: (defun yeetube-disable-video-mpv () "Toggle video on/off for mpv player." +(defun yeetube--mpv-play (url) + "Use mpv to play URL." + (let ((mpv (executable-find "mpv")) + (socket (concat (temporary-file-directory) "yeetube-socket")) + (process-name "yeetube")) + (dolist (process (process-list)) + (when (string-match process-name (process-name process)) + (kill-process process))) + (sit-for 0.1) + (unless (get-process process-name) + (start-process-shell-command + "yeetube" nil + (if yeetube-mpv-disable-video + (format "%s --no-video --input-ipc-server=%s %s" mpv socket url) + (format "%s --input-ipc-server= %s %s" mpv socket url)))))) (interactive) (let ((socket (concat " --input-ipc-server=" yeetube-mpv-socket)) (no-video " --no-video") -- cgit v1.2.3