diff options
| -rw-r--r-- | yeetube-mpv.el | 6 | ||||
| -rw-r--r-- | yeetube.el | 6 |
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." @@ -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) |