aboutsummaryrefslogtreecommitdiffstats
path: root/yeetube.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-08-01 11:26:11 +0300
committerThanos Apollo <[email protected]>2023-08-01 11:26:11 +0300
commit5da2b10b8e721fcf9c068e991b7843007e2cc1ae (patch)
tree1adec0060f3f0248a8f3d5b0d1b8df8e5125bca7 /yeetube.el
parenta917ff4c223310a4c912add2428ed88d68cedbcc (diff)
Rename: yeetube-check-if-youtube to yeetube-youtube-p
Rename: yeetube-check-if-youtube to yeetube-youtube-p Autoload yeetube-search
Diffstat (limited to 'yeetube.el')
-rw-r--r--yeetube.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/yeetube.el b/yeetube.el
index ae82fdb..327ba7a 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -122,6 +122,7 @@ It's recommended you keep it as the default value."
(defvar yeetube--video-titles '())
(defun yeetube-check-if-youtube (url)
+(defun yeetube-youtube-p (url)
"Check if it's a youtube URL."
(if (string-match-p "youtube" url)
t
@@ -217,10 +218,11 @@ PREFIX [[URL/watch?v=VIDEOID][VIDEOTITLE ]]"
(search-forward yeetube-results-prefix)
(yeetube-mode)))
+;;;###autoload
(defun yeetube-search (query)
"Search for QUERY."
(interactive "sYeetube Search: ")
- (let ((is-youtube? (yeetube-check-if-youtube yeetube-query-url)))
+ (let ((is-youtube? (yeetube-youtube-p yeetube-query-url)))
(with-current-buffer
(url-retrieve-synchronously
(concat yeetube-query-url