From 69cc8503078eaa995a278ec56e59219005537bdf Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 1 Aug 2023 11:30:10 +0300 Subject: Add functions to remove saved videos Add yeetube-remove-saved-video -> Select & Remove video Add yeetube-remove-all-saved-videos -> set yeetube-saved-videos to nil --- yeetube.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 8bd7f68..ed8547a 100644 --- a/yeetube.el +++ b/yeetube.el @@ -162,6 +162,20 @@ It's recommended you keep it as the default value." (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-remove-saved-video () + "Select video to remove from saved videos." + (interactive) + (let ((video (completing-read "Select video: " yeetube-saved-videos nil t))) + (setq yeetube-saved-videos (remove (assoc video yeetube-saved-videos) yeetube-saved-videos)))) + +(defun yeetube-remove-all-saved-videos ( ) + "Clear yeetube saved." + (interactive) + (let ((clear-saved (y-or-n-p "Delete saved?"))) + (when clear-saved + (setq yeetube-saved-videos nil)))) + (defun yeetube-toggle-video-mpv () "Toggle video on/off for mpv player." (interactive) -- cgit v1.2.3