#!/usr/bin/guile \
-e main -s
!#

(use-modules (ice-9 format)
             (ice-9 popen)
             (ice-9 rdelim)
             (srfi srfi-1))  ; List library

;; Configuration
(define venv-path (string-append (getenv "HOME") "/.venv/youtube"))
(define yt-dlp-path (string-append venv-path "/bin/yt-dlp"))

;; Function to setup virtual environment and install yt-dlp
(define (setup-environment)
  (unless (file-exists? venv-path)
    (format #t "Setting up virtual environment...~%")
    (system (string-append "python3 -m venv " venv-path))
    (system (string-append venv-path "/bin/pip3 install yt-dlp"))))

;; Function to download a playlist
(define (download-playlist playlist-url)
  (let ((command
         (string-append
          yt-dlp-path
          " --yes-playlist"
          " --prefer-free-formats"
          " -N 10"
          " -civ"
          " -o \"%(channel)s/%(playlist)s/%(playlist_index)s--%(upload_date)s--%(title)s.%(ext)s\""
          " \"" playlist-url "\"")))
    (system command)))

;; List of playlist URLs
(define playlists
  '("https://www.youtube.com/playlist?list=PLRM-PeIcYAz81DzemBOT1SYvAaOBcV8QW"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz85oDXpHVHw1X81oUHrnD8p"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz9-EqL6_UO23SdXQpLL38OP"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz96aLWkjROdfOdl5UKK3265"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz-u3kuc0e8NUfQgSzoxIC86"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz8RQhRvXnR4b-HJFbeCPhDl"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz_c6HbRtpBp9eSlTmW7DN-o"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz8vaEERVVeiOpn5xTWkGD0a"
    "https://www.youtube.com/playlist?list=PLSiFUSQSRYAPDKeptJvl88S92seEHJCmn"
    "https://www.youtube.com/playlist?list=PLknodeJt-I5FML0R1FfukZB__Y1lYLXMR"
    "https://www.youtube.com/playlist?list=PLCpux10P7KDKPb4eI5b_qSnQaY1ePGKGK"
    "https://www.youtube.com/playlist?list=PLFdMuo0ICT2D_9Ip8sNduGWQQ8Ib9ngpQ"
    "https://www.youtube.com/playlist?list=PLFdMuo0ICT2C3gOqkDL83bpBhJtsF9e5r"
    "https://www.youtube.com/playlist?list=PLA66mD-6yK8wXG7ts9RJY5isNabRi8uCT"
    "https://www.youtube.com/playlist?list=PLA66mD-6yK8zRjZH-2EgZQGefba_LTeRX"
    "https://www.youtube.com/playlist?list=PLRM-PeIcYAz8h_swh98He_7HabXzXVi8K"
    "https://www.youtube.com/playlist?list=PLJOFJ3Ok_idsFYz-0bEkWTyXXcqXF6dpw"
    "https://www.youtube.com/playlist?list=PLJOFJ3Ok_idtiMTz8fAiF1ElcKJM7Rncj"
    "https://www.youtube.com/playlist?list=PLJOFJ3Ok_idt2YLm0mrQ3lc-07pyj4Etv"
    "https://www.youtube.com/playlist?list=PLJOFJ3Ok_idsHSibHAy0naQFW2gmCS5XK"))

;; Main function
(define (main args)
  (setup-environment)

  ;; Download each playlist
  (for-each
   (lambda (playlist)
     (format #t "Downloading playlist: ~a~%" playlist)
     (download-playlist playlist)
     (format #t "Finished downloading playlist: ~a~%" playlist)
     (format #t "----------------------------------------~%"))
   playlists)

  (format #t "All playlists have been processed.~%"))