yeetube-mpv:(check) Improve error message & use `unless`

There is no need for more specific error messages (via pcase).

2 files changed, 7 insertions, 5 deletions

diff --git a/yeetube-mpv.el b/yeetube-mpv.el
index 24a10a1..a24e544 100644
--- a/yeetube-mpv.el
+++ b/yeetube-mpv.el
@@ -36,9 +36,9 @@
 
 (defun yeetube-mpv-check ()
   "Check if mpv and yt-dlp is installed."
-  (pcase (and (executable-find "mpv")
-	      (executable-find "yt-dlp"))
-    (`nil (error "Unable to play video.  Please install `yt-dlp' and `mpv'"))))
+  (unless (and (executable-find "mpv")
+	       (executable-find "yt-dlp"))
+    (error "Unable to play video.  Please install `yt-dlp' and `mpv'")))
 
 (defun yeetube-mpv-process (command)
   "Start yeetube process for shell COMMAND."
diff --git a/yeetube.el b/yeetube.el
index 679e932..a79bcef 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -265,11 +265,13 @@ then for item."
   (while (and (< (length yeetube-content) yeetube-results-limit)
 	      (search-forward "videorenderer" nil t))
     (search-forward "videoid")
-    (let ((videoid (buffer-substring (+ (point) 3) (- (search-forward ",") 2))))
+    (let ((videoid (buffer-substring (+ (point) 3)
+				     (- (search-forward ",") 2))))
       (unless (member videoid (car yeetube-content))
 	(yeetube-get-item "title") ;; Video Title
         (let ((title (yeetube---fix-title
-		      (buffer-substring (+ (point) 3) (- (search-forward ",\"") 5)))))
+		      (buffer-substring (+ (point) 3)
+					(- (search-forward ",\"") 5)))))
 	  (unless (member title (car yeetube-content))
 	    (yeetube-get-item "viewcounttext") ;; View Count
 	    (let ((view-count (buffer-substring (+ (point) 3)