From af7eafc4c4d9106614d998ec553013431e68e749 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 16 Oct 2023 15:14:40 +0300 Subject: yeetube:(feature) Add yeetube-replay Replay history entry --- yeetube.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 7ca9729..74fa05b 100644 --- a/yeetube.el +++ b/yeetube.el @@ -128,6 +128,19 @@ Keywords: (push (list :url video-url :title video-title) yeetube-history) (message "Playing: %s" video-title))) +;;;###autoload +(defun yeetube-replay () + "Select entry from history to replay. + +Select entry title from yeetube-history and play corresponding URL." + (interactive) + (let* ((titles (mapcar (lambda (entry) (cl-getf entry :title)) yeetube-history)) + (selected (completing-read "Replay: " titles)) + (selected-entry (cl-find-if (lambda (entry) (string= selected (cl-getf entry :title))) yeetube-history)) + (url (cl-getf selected-entry :url))) + (funcall yeetube-player url) + (message "Replaying: %s" selected))) + (defun yeetube-load-saved-videos () "Load saved videos." (let ((file-path (concat user-emacs-directory "yeetube"))) -- cgit v1.2.3