From c29ecae30ea47b725994ef41e012200a76e2fc37 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 18 Jul 2023 17:22:37 +0300 Subject: remove scratch --- yeetube-search2.el | 73 ------------------------------------------------------ 1 file changed, 73 deletions(-) delete mode 100644 yeetube-search2.el (limited to 'yeetube-search2.el') diff --git a/yeetube-search2.el b/yeetube-search2.el deleted file mode 100644 index db57561..0000000 --- a/yeetube-search2.el +++ /dev/null @@ -1,73 +0,0 @@ - -(defvar yeetube--video-ids '()) -(defvar yeetube--video-titles '()) - -(defun yt-search2 (query) - "Search for QUERY." - (interactive "sYeetube Search: ") - (let ((is-youtube? (yeetube-check-if-youtube yeetube-query-url))) - (with-current-buffer - (url-retrieve-synchronously - (concat yeetube-query-url - "/search?q=" - (replace-regexp-in-string " " "+" query)) - t t) - (goto-char (point-min)) - (toggle-enable-multibyte-characters) - (if is-youtube? - (yeetube--get-content-youtube) - (yeetube--get-content-invidious)) - (yeetube--draw-buffer query yeetube--video-titles yeetube--video-ids)))) - - -(defun yeetube--get-content-youtube () - (setq yeetube--video-ids nil) - (setq yeetube--video-titles nil) - (while (and (< (length yeetube--video-ids) yeetube-results-limit) - (search-forward "videoId" nil t)) - (let* ((start (point)) - (end (search-forward ",")) - (videoid (buffer-substring - (+ start 3) - (- end 2)))) - (unless (or (member videoid yeetube--video-ids) - (not (and (>= (length videoid) 9) - (<= (length videoid) 13) - (string-match-p "^[a-zA-Z0-9_-]*$" videoid)))) - (push videoid yeetube--video-ids) - (search-forward "text") - (let* ((start (point)) - (end (search-forward ",\"")) - (title (buffer-substring - (+ start 3) - (- end 5)))) - (if (string-match-p "vssLoggingContext" title) - (pop yeetube--video-ids) - (push title yeetube--video-titles))))))) - -(defun yeetube--get-content-invidious () - (setq yeetube--video-ids nil) - (setq yeetube--video-titles nil) - (while (and (< (length yeetube--video-ids) yeetube-results-limit) - (search-forward "watch?v" nil t)) - (let* ((start (point)) - (end (search-forward ">")) - (videoid (buffer-substring - (+ start 1) - (- end 2)))) - (unless (or (member videoid yeetube--video-ids) - (not (and (>= (length videoid) 9) - (<= (length videoid) 13) - (string-match-p "^[a-zA-Z0-9_-]*$" videoid)))) - (push videoid yeetube--video-ids) - (search-forward "\"auto\">") - (let* ((start (point)) - (end (search-forward ">")) - (title (buffer-substring - (+ start 0) - (- end 4)))) - (if (string-match-p "vssLoggingContext" title) - (pop yeetube--video-ids) - (push title yeetube--video-titles))))))) - -(setq yeetube-results-limit 15) -- cgit v1.2.3