Add yeetube-mpv-change-video-quality

2 files changed, 7 insertions, 0 deletions

diff --git a/yeetube-mpv.el b/yeetube-mpv.el
index 5b43ae1..2c925a4 100644
--- a/yeetube-mpv.el
+++ b/yeetube-mpv.el
@@ -45,6 +45,12 @@
 
 Accepted values include: 1080, 720, 480, 360, 240, 144")
 
+(defun yeetube-mpv-change-video-quality ()
+  (interactive)
+  (let ((new-value (completing-read (format "Set video quality (current value %s):" yeetube-mpv-video-quality)
+				    '("1080" "720" "480" "360" "240" "144") nil t)))
+    (setf yeetube-mpv-video-quality new-value)))
+
 (defun yeetube-mpv-toggle-torsocks ()
   "Toggle torsocks."
   (interactive)
diff --git a/yeetube.el b/yeetube.el
index 5c28324..6a2e9db 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -481,6 +481,7 @@ FIELDS-FACE-PAIRS is a list of fields and faces."
   "r" #'yeetube-replay
   "t" #'yeetube-view-thumbnail
   "T" #'yeetube-mpv-toggle-torsocks
+  "C-q" #'yeetube-mpv-change-video-quality
   "q" #'quit-window)
 
 (define-derived-mode yeetube-mode tabulated-list-mode "Yeetube"