seasharp/mpv-yt-helper
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v0.05 - Working code parsing, selection, and mpv playback call

Browse Source
This commit is contained in:
M00T 2025-08-03 02:29:22 -04:00
parent 9e10d6e7d8
commit fd970ec833
1 changed files with 41 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
mpv-yt-helper.scm
View File

@ -2,12 +2,13 @@
(ice-9 rdelim)
(ice-9 regex)
(ice-9 textual-ports)
(srfi srfi-1)
(os process))
(debug-enable 'backtrace)
(define defaults `((preferred-video-codes . ("234" "311"))
(preferred-audio-codes . ("232"))))
(define defaults `((preferred-audio-codes . ("234" "311"))
(preferred-video-codes . ("232"))))
(define test-url "https://www.youtube.com/embed/1xVkRh7mEe0")
@ -29,13 +30,13 @@
(cdr (assoc `preferred-video-codes defaults))
(cdr (assoc `preferred-audio-codes defaults)))
(define (lines-to-values port)
(define (fetch-formats port)
(define (iterate line out-list)
(define (iterate line audio-code-list video-code-list)
(let ((this-line (get-line port)))
(if (eof-object? this-line)
(values (reverse out-list))
(values (reverse (append audio-code-list video-code-list)))
(let ((video-match (match-video-format this-line))
(audio-match (match-audio-format this-line)))
@ -47,19 +48,48 @@
(video-bitrate (match:substring video-match 4))
(video-moreinfo (match:substring video-match 5)))
(iterate this-line (acons video-code (string-append
(iterate this-line audio-code-list (acons video-code (string-append
video-resolution ","
video-framerate ","
video-bitrate) out-list))))
video-bitrate) video-code-list))))
(audio-match
(let ((audio-code (match:substring audio-match 1))
(audio-quality (match:substring audio-match 2)))
(iterate this-line (acons audio-code audio-quality out-list))))
(iterate this-line (acons audio-code audio-quality audio-code-list) video-code-list)))
(else
(iterate this-line out-list)))))))
(iterate get-line '()))
(iterate this-line audio-code-list video-code-list)))))))
(iterate get-line '() '()))
(define (select-formats formats-list)
(let* ((preferred-audio-codes (cdr (assoc `preferred-audio-codes defaults)))
(preferred-video-codes (cdr (assoc `preferred-video-codes defaults))))
(format #t "CAAR FORMATS LIST: ~a\n" (caar formats-list))
(define (preferred-video-formats this-alist return-list)
(if (not (null? this-alist))
(if (member (caar this-alist) preferred-video-codes)
(preferred-video-formats (cdr this-alist) (cons (caar this-alist) return-list))
(preferred-video-formats (cdr this-alist) return-list))
(reverse return-list)))
(define (preferred-audio-formats this-alist return-list)
(if (not (null? this-alist))
(if (member (caar this-alist) preferred-audio-codes)
(preferred-audio-formats (cdr this-alist) (cons (caar this-alist) return-list))
(preferred-audio-formats (cdr this-alist) return-list))
(reverse return-list)))
(values (cons (preferred-audio-formats formats-list `()) (preferred-video-formats formats-list `())))))
;; Main
(display (lines-to-values yt-dlp-port))
(let* ((formats (fetch-formats yt-dlp-port))
(codes (select-formats formats))
(mpv-commandline (string-append "mpv --ytdl-format=" (caar codes) "+" (cadr codes) " " read-url)))
(system mpv-commandline))
(close-port yt-dlp-port)