Add basic search functionality

custom yt-search-query, youtube is the default, but in hopefully in
the future it won't be youtube specific.

yt-search only searches for a single url for now, just for testing
purposes.

1 files changed, 37 insertions, 7 deletions

diff --git a/yeetube.el b/yeetube.el
index c7f3c4a..b9e6bea 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -24,10 +24,15 @@
 
 ;;; Code:
 
-
+(require 'url)
 (require 'org-element)
 
 
+(defcustom yt-search-query "https://www.youtube.com/results?search_query="
+  "Search URL."
+  :type 'string
+  :group 'youtube)
+
 (defcustom yt-download-audio-format nil
   "Select download video as audio FORMAT.
 If nil yt-download-videos output will be the default format.
@@ -49,13 +54,38 @@ Example Usage:
       (message "Opening %s with mpv" url))))
 
 
-;; TODO: play a video link using a video player from an org-mode read only buffer
-
-
-
-
-;; TODO: Search Youtube videos play them using a video player
 
+;; TODO Break this function into smaller ones, repeat search for unique videoIds
+(defun yt-search (arg)
+  "Search for ARG in YouTube."
+  (interactive "sYoutube Search: ")
+  (let ((videoIds '())
+	(videoTitles '()))
+    (with-current-buffer (url-retrieve-synchronously (concat yt-search-query arg))
+      (goto-char (point-min))
+	(search-forward "videoId")
+	(let* ((start (point))
+	       (end (search-forward ","))
+	       (videoid (buffer-substring (+ start 3) (- end 2))))
+	  (if (not (member videoid videoIds))
+	      (push videoid videoIds)))
+	(search-forward "text")
+	(let* ((start (point))
+	       (end (search-forward ","))
+	       (title (buffer-substring (+ start 3) (- end 4))))
+	  (if (not (member title videoTitles))
+	      (push title videoTitles)))
+      (with-current-buffer (switch-to-buffer
+			    (get-buffer-create "*Youtube Search*"))
+	(setq buffer-read-only nil)
+	(erase-buffer)
+	(org-mode)
+	(dolist (videoId videoIds)
+	  (dolist (videoTitle videoTitles)
+	    (insert (format "- [[https://www.youtube.com/watch?v=%s][%s]] \n"
+			    videoId
+			    videoTitle))))
+	(setq buffer-read-only t)))))
 
 
 ;; TODO: let user decide custom name and path