From fbe5bd642c6a8d1cae3b7b37bfb96420a18fe5ff Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Fri, 9 Feb 2024 11:28:16 +0200
Subject: Add yeetube-mpv-change-video-quality

---
 yeetube-mpv.el | 6 ++++++
 yeetube.el     | 1 +
 2 files changed, 7 insertions(+)

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"
-- 
cgit v1.2.3