1 files changed, 7 insertions, 105 deletions

diff --git a/bard-elisp/bard-videos.el b/bard-elisp/bard-videos.el
index 721d9e3..ae1fadc 100644
--- a/bard-elisp/bard-videos.el
+++ b/bard-elisp/bard-videos.el
@@ -1,5 +1,6 @@
 (require 'cl-lib)
 (require 'seq)
+(require 'emms)
 
 (defun bard/play-youtube-video ()
   "Prompt for a YouTube URL and play it in mpv."
@@ -9,110 +10,11 @@
         (async-shell-command (format "mpv '%s'" url))
       (message "The URL is not a valid YouTube link: %s" url))))
 
-;; (defun bard/add-mpv-log-video-emms-queue (file)
-;;   "Play the URL or file path of the entry at point in mpv log file. Add it to EMMS queue."
-;;   (interactive "fLog file: ")
-;;   (let ((history '())        ;; Store video candidates
-;;         (max-candidates 10))  ;; Limit to the most recent 10 candidates
-;;     (with-temp-buffer
-;;       (insert-file-contents file)
-;;       (goto-char (point-min))
-;;       ;; Loop through each line of the log
-;;       (while (re-search-forward
-;;               "^\\[.*\\] \\(.*\\)\\(?: \\|$\\)" nil t)
-;;         (let ((candidate (match-string 1)))
-;;           ;; If it's a URL or file path, add it to the history list
-;;           (when (or (string-match-p "https?://" candidate)
-;;                     (file-exists-p candidate))
-;;             (push candidate history))))
-;;       ;; Remove duplicates
-;;       (setq history (delete-dups history))
-;;       ;; Limit the history to the most recent ones
-;;       (setq history (cl-subseq history 0 (min max-candidates (length history))))
-;;       ;; Select the most recent URL or file path
-;;       (if history
-;;           (let* ((chosen (completing-read "Select video: " history nil t)))
-;;             (if (string-match-p "https?://" chosen)
-;;                 (let* ((playlist-name "Watch Later")
-;;                        (playlist-buffer (get-buffer (format " *%s*" playlist-name))))
-;;                   (unless playlist-buffer
-;;                     (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name))))
-;;                   (emms-playlist-set-playlist-buffer playlist-buffer)
-;;                   (emms-add-url chosen)
-;;                   (message "Added YouTube video to EMMS playlist: %s" chosen))
-;;               (let* ((playlist-name "Watch Later")
-;;                      (playlist-buffer (get-buffer (format " *%s*" playlist-name))))
-;;                 (unless playlist-buffer
-;;                   (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name))))
-;;                 (emms-playlist-set-playlist-buffer playlist-buffer)
-;;                 (emms-add-file chosen)
-;;                 (message "Added video file to EMMS playlist: %s" chosen)))
-;;             (message "No recent videos found in the log."))))))
-
-
-
-;; (defun bard/classify-content (input)
-;;   "Classify INPUT as a URL, a file path, or neither."
-;;   (cond
-;;    ((let ((parsed-url (url-generic-parse-url input)))
-;;       (and (url-type parsed-url)
-;;            (url-host parsed-url)))
-;;     'url)
-
-;;    ((file-name-absolute-p input)
-;;     (if (file-exists-p input)
-;;         'existing-file
-;;       'potential-file))
-;;    (t 'neither)))
-
-;; (defun bard/play-video-url (url)
-;;   (let* ((playlist-name "Watch Later")
-;;          (playlist-buffer (get-buffer (format " *%s*" playlist-name))))
-;;     (unless playlist-buffer
-;;       (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name))))
-;;     (emms-playlist-set-playlist-buffer playlist-buffer)
-;;     (emms-add-url url)
-;;     (message "Added YouTube video to EMMS playlist: %s" url)))
-
-;; (defun bard/play-video-file (file)
-;;   (let* ((playlist-name "Watch Later")
-;;          (playlist-buffer (get-buffer (format " *%s*" playlist-name))))
-;;     (unless playlist-buffer
-;;       (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name))))
-;;     (emms-playlist-set-playlist-buffer playlist-buffer)
-;;     (emms-add-file url)
-;;     (message "Added video file to EMMS playlist: %s" url)))
-
-;; ;; TODO: extract url/filepath into bard/classify-content
-;; ;; then to case/switch with symbols returned by ^^^ to determine which play function to use (both written above)
-;; (defun bard/play-vid-from-history (history-file)
-;;   "Read the mpv log HISTORY-FILE, and let the user select and play a video."
-;;   (interactive "fSelect MPV log file: ")
-;;   (let ((history '())
-;;         (max-candidates 10))
-;;     (with-temp-buffer
-;;       (insert-file-contents history-file)
-;;       (goto-char (point-min))
-;;       ;; Loop through each line of the log
-;;       (while (not (eobp))
-;;         (let* ((log-line (buffer-substring-no-properties
-;;                           (line-beginning-position) (line-end-position)))
-;;                )
-;;           (push log-line history)
-;;           ;; Add extracted content to the history
-;;         (forward-line 1))
-;;       ;; Remove duplicates and limit the history size
-;;       (setq history (delete-dups history))
-;;       (setq history (cl-subseq history 0 (min max-candidates (length history)))))
-;;     ;; Select an item from the history
-;;     (if history
-;;         (let* ((chosen (completing-read "Select video: " history nil t))
-;;                (content-type (bard/classify-content chosen)))
-;;           ;; Handle different content types
-;;           (extract-file-path chosen))
-;;       (error "No valid history found")))))
-
-;; (setq bard/mpv-history-log "~/.config/mpv/mpvHistory.log")
-;; (bard/play-vid-from-history bard/mpv-history-log)
+(defun bard/save-emms-watch-later ()
+  "Save the current EMMS playlist to `bard/watch-later-file` using `bard/emms-playlist-format`."
+  (interactive)
+  (when (and bard/watch-later-file bard/emms-playlist-format)
+    (emms-playlist-save bard/emms-playlist-format bard/watch-later-file)
+    (message "Playlist saved to %s" bard/watch-later-file)))
 
 (provide 'bard-videos.el)