From 3011fca72a8080ee380a23eb601f73b83aa90824 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 3 Jul 2023 09:44:53 +0300 Subject: yeetube-play: Move to call-process-shell-command Redo this function using call-process-shell-command & kill all previous commands with 'yeetube-player' This way the user can just select video/song to play and get back to whatever he was working on, without generating new buffers that async-shell-command does. --- yeetube.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/yeetube.el b/yeetube.el index 50a9d44..46ac97b 100644 --- a/yeetube.el +++ b/yeetube.el @@ -96,10 +96,14 @@ Example Usage: "Open the url at point in an `'org-mode buffer using 'yeetube-player'." (interactive) (let ((url (org-element-property - :raw-link (org-element-context)))) + :raw-link (org-element-context))) + (buffer (get-buffer "*Yeetube Player*"))) + (shell-command (format "pkill -9 -f %s" (shell-quote-argument yeetube-player))) (when (string-prefix-p "http" url) - (async-shell-command (format "%s %s" yeetube-player url)) - (message "Opening %s with mpv" url)))) + (call-process-shell-command + (format "%s %s" yeetube-player url) nil 0) + (message "Opening %s" url) + (switch-to-buffer buffer)))) ;; TODO: Check if video_type of videoid is short or video -- cgit v1.2.3