From 3abe63d17d42e143b55c3dae350f080262655cbe Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 1 Aug 2023 11:28:31 +0300 Subject: Add yeetube-save-video (New Feature) --- yeetube.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/yeetube.el b/yeetube.el index 5059ab8..971ab44 100644 --- a/yeetube.el +++ b/yeetube.el @@ -145,12 +145,13 @@ It's recommended you keep it as the default value." (message "Opening with %s" yeetube-player)) (push url yeetube--history))) -(defun yeetube-clear-history ( ) - "Clear yeetube history." +(defun yeetube-save-video () + "Save url at point." (interactive) - (let ((clear-history (y-or-n-p "Delete history?"))) - (when clear-history - (setq yeetube--history nil)))) + (let ((name (read-string "Save as: ")) + (url (org-element-property + :raw-link (org-element-context)))) + (push (cons name url) yeetube-saved-videos))) (defun yeetube-toggle-video-mpv () "Toggle video on/off for mpv player." -- cgit v1.2.3