Release version 2.1.0: Merge branch 'v2.1.0-dev'

- Fix filtering
- Add filtering options

This was inspired by Boruch Baum fork:
 https://github.com/Boruch-Baum/emacs-yeetube.el

But instead of sorting using a tabulated-list-sort-key, we apply a
filter for query. This should negate issues issues for sorting by date
based on users region/language, as well as add future possible options
with more filter options

2 files changed, 44 insertions, 5 deletions

diff --git a/README.md b/README.md
index fb210a8..97b5ad2 100644
--- a/README.md
+++ b/README.md
@@ -71,6 +71,21 @@ packages like so:
 Make sure that the media player of your choice can directly play
 youtube urls.
 
+### Apply Filters
+
+To filter the search results based on a specific criterion, you can
+modify the `yeetube-filter` value to your preferred option.
+
+For example:
+
+```emacs-lisp
+(setf yeetube-filter "Views")
+```
+
+This will filter & sort the search results according to the number of
+each video.
+
+
 ### FAQ
 #### Feature request: display thumbnails
 Formatting images in a text buffer is not something that I found easy
diff --git a/yeetube.el b/yeetube.el
index 402e085..144f01d 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -5,7 +5,7 @@
 ;; Author: Thanos Apollo <[email protected]>
 ;; Keywords: extensions youtube videos
 ;; URL: https://git.thanosapollo.org/yeetube
-;; Version: 2.0.10
+;; Version: 2.1.0
 
 
 ;; Package-Requires: ((emacs "27.2") (compat "29.1.4.2"))
@@ -73,6 +73,20 @@ Example Usage:
   :type 'string
   :group 'yeetube)
 
+(defcustom yeetube-filter "Relevance"
+  "Sorty search results for value.
+
+Valid options include:
+- \"Relevance\"
+- \"Date\"
+- \"Views\"
+- \"Rating\""
+  :type '(radio (const "Relevance")
+		(const "Date")
+		(const "Views")
+		(const "Rating"))
+  :group 'yeetube)
+
 (defgroup yeetube-faces nil
   "Faces used by yeetube."
   :group 'yeetube
@@ -250,6 +264,16 @@ This is used to download thumbnails from `yeetube-content', within
 		   (concat "wget " (shell-quote-argument thumbnail) " -O" (shell-quote-argument title))
 		   nil 0)))))
 
+(defvar yeetube-filter-code-alist
+  '(("Relevance" . "CAASAhAB")
+    ("Date" . "CAISAhAB")
+    ("Views" . "CAMSAhAB")
+    ("Rating" . "CAESAhAB")))
+
+(defun yeetube-get-filter-code (filter)
+  "Get filter code for sorting search results."
+  (cdr (assoc filter yeetube-filter-code-alist)))
+
 ;;;###autoload
 (defun yeetube-search (query)
   "Search for QUERY."
@@ -259,15 +283,15 @@ This is used to download thumbnails from `yeetube-content', within
        (concat "https://youtube.com/search?q="
 	       (replace-regexp-in-string " " "+" query)
 	       ;; Filter parameter to remove live videos.
-	       "&sp=EgQQASAB")
+	       "&sp="
+	       (yeetube-get-filter-code yeetube-filter))
        'silent 'inhibit-cookies 30)
     (decode-coding-region (point-min) (point-max) 'utf-8)
     (goto-char (point-min))
     (toggle-enable-multibyte-characters)
-    (yeetube-get-content)
+    (yeetube-get-content))
     ;; (yeetube-get-thumbnails yeetube-content) ;; download thumbnails
-    ;; unfortunately can't use images them with tabulated list
-    )
+    ;; unfortunately we can't use images them with tabulated list
   (with-current-buffer
       (switch-to-buffer (get-buffer-create (concat "*yeetube*")))
     (yeetube-mode)))