From cdaa20b994531856d747639acb908919d988b74f Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 3 Aug 2023 23:54:34 +0300 Subject: yeetube-create-buffer: Rewrite Rewrite this function to use temp-buffer & use a dolist to generate content links --- yeetube.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 881de3e..5596590 100644 --- a/yeetube.el +++ b/yeetube.el @@ -238,19 +238,21 @@ It's recommended you keep it as the default value." replacements) title)) -(defun yeetube-create-buffer (query video-titles video-ids) - "Create *Yeetube-Search* buffer for QUERY, using VIDEO-TITLES with VIDEO-IDS." - (with-current-buffer - (switch-to-buffer - (get-buffer-create "*Yeetube Search*")) +(defun yeetube-create-buffer (query content) + "Create *Yeetube-Search* buffer for QUERY, using CONTENT." + (with-temp-buffer + (switch-to-buffer + (get-buffer-create "*Yeetube Search*")) (setq buffer-read-only nil) (erase-buffer) (org-mode) (insert (format "searching: %s\nfor: %s \n* Search Results: \n \n" yeetube-query-url query)) - (yeetube-insert-content - yeetube-results-prefix yeetube-query-url - video-titles video-ids) + (dolist (pair content) + (let ((videoid (car pair)) + (title (yeetube-fix-title (cdr pair)))) + (insert (format "%s [[%s/watch?v=%s][%s ]]\n" + yeetube-results-prefix yeetube-query-url videoid title)))) (yeetube-insert-info) (setq buffer-read-only t) (goto-char (point-min)) -- cgit v1.2.3