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

1 files changed, 14 insertions, 0 deletions

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)