From 0dc06ff5d607f6297fee66793f6a689374962293 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 19 Aug 2023 04:57:42 +0300 Subject: Rewrite yeetube-start-process --- yeetube.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index c103b84..f33e05a 100644 --- a/yeetube.el +++ b/yeetube.el @@ -209,21 +209,16 @@ Example Usage: (when clear-saved (setq yeetube-saved-videos nil)))) -(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")) +(defun yeetube-start-process (command) + "Start yeetube process for shell COMMAND." + (let ((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)))))) + "yeetube" nil command)))) (defun yeetube-mpv-toggle-disable-video () "Disable/Enable video for mpv player." -- cgit v1.2.3