From a917ff4c223310a4c912add2428ed88d68cedbcc Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 28 Jul 2023 23:04:25 +0300 Subject: Add yeetube-clear-history --- yeetube.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/yeetube.el b/yeetube.el index b4d04ea..ae82fdb 100644 --- a/yeetube.el +++ b/yeetube.el @@ -138,8 +138,15 @@ It's recommended you keep it as the default value." (when (string-prefix-p "http" url) (call-process-shell-command (format "%s %s" yeetube-player url) nil 0) - (message "Opening with %s" yeetube-player))) - (yeetube--get-title)) + (message "Opening with %s" yeetube-player)) + (push url yeetube--history))) + +(defun yeetube-clear-history ( ) + "Clear yeetube history." + (interactive) + (let ((clear-history (y-or-n-p "Delete history?"))) + (when clear-history + (setq yeetube--history nil)))) (defun yeetube-toggle-video-mpv () "Toggle video on/off for mpv player." -- cgit v1.2.3