multimedia module

4 files changed, 174 insertions, 58 deletions

diff --git a/bard-elisp/bard-videos.el b/bard-elisp/bard-videos.el
new file mode 100644
index 0000000..721d9e3
--- /dev/null
+++ b/bard-elisp/bard-videos.el
@@ -0,0 +1,118 @@
+(require 'cl-lib)
+(require 'seq)
+
+(defun bard/play-youtube-video ()
+  "Prompt for a YouTube URL and play it in mpv."
+  (interactive)
+  (let ((url (read-string "Enter YouTube URL: ")))
+    (if (and url (string-match-p "https?://\\(www\\.\\)?youtube\\.com\\|youtu\\.be" url))
+        (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)
+
+(provide 'bard-videos.el)
diff --git a/bard-emacs-modules/bard-emacs-emms.el b/bard-emacs-modules/bard-emacs-emms.el
index fd9dfa9..e69de29 100644
--- a/bard-emacs-modules/bard-emacs-emms.el
+++ b/bard-emacs-modules/bard-emacs-emms.el
@@ -1,52 +0,0 @@
-;; |------------------------------------|
-;; |             EMMS                   |
-;; |------------------------------------|
-
-;; (require 'emms)
-;; (require 'emms-setup)
-;; (require 'emms-mpris)
-;; (require 'emms-mode-line-icon)
-
-(use-package emms
-  :ensure t
-  ;; :demand t
-  :bind
-  (:map emms-playlist-mode-map
-        ("A" . emms-add-directory)
-        ("l" . emms-add-playlist)
-        ("T" . emms-add-directory-tree)
-        ("F" . emms-add-file)
-        ("U" . emms-add-url)
-        ("L" . emms-toggle-repeat-track)
-        ("<mouse-3>" . emms-pause)
-        ("<SPC>" . emms-pause)
-        ("c" . bard/emms-recenter)
-        ("P" . emms-playlist-mode-shift-track-up)
-        ("N" . emms-playlist-mode-shift-track-down))
-  :bind (("<f8>" . emms)
-         ("M-<f8>" . emms-browser))
-  :hook
-  (emms-playlist-mode . hl-line-mode)
-  :config
-  (emms-all)
-  (emms-default-players)
-  (emms-mpris-enable)
-  (setq emms-player-list '(emms-player-mpv))
-  ;; emms-info-functions '(emms-info-native)
-
-  ;; (setq emms-browser-covers 'emms-browser-cache-thumbnail)
-
-  (setq emms-volume-amixer-card 0)
-
-  ;; center line function
-  (defun bard/emms-recenter ()
-    (interactive)
-    (recenter-top-bottom)
-    (emms-playlist-mode-center-current))
-
-  ;; modeline
-  (emms-mode-line-disable)
-  (emms-playing-time-disable-display)
-  )
-
-(provide 'bard-emacs-emms)
diff --git a/bard-emacs-modules/bard-emacs-media.el b/bard-emacs-modules/bard-emacs-media.el
new file mode 100644
index 0000000..d1b82db
--- /dev/null
+++ b/bard-emacs-modules/bard-emacs-media.el
@@ -0,0 +1,56 @@
+;;;; EMMS
+(use-package emms
+  :ensure t
+  ;; :demand t
+  :bind
+  (:map emms-playlist-mode-map
+        ("A" . emms-add-directory)
+        ("l" . emms-add-playlist)
+        ("T" . emms-add-directory-tree)
+        ("F" . emms-add-file)
+        ("U" . emms-add-url)
+        ("L" . emms-toggle-repeat-track)
+        ("<mouse-3>" . emms-pause)
+        ("<SPC>" . emms-pause)
+        ("c" . bard/emms-recenter)
+        ("P" . emms-playlist-mode-shift-track-up)
+        ("N" . emms-playlist-mode-shift-track-down))
+  :bind (("<f8>" . emms)
+         ("M-<f8>" . emms-browser))
+  :hook
+  (emms-playlist-mode . hl-line-mode)
+  :config
+  (emms-all)
+  (emms-default-players)
+  (emms-mpris-enable)
+  (setq emms-player-list '(emms-player-mpv))
+  ;; emms-info-functions '(emms-info-native)
+
+  ;; (setq emms-browser-covers 'emms-browser-cache-thumbnail)
+
+  (setq emms-volume-amixer-card 0)
+
+  ;; center line function
+  (defun bard/emms-recenter ()
+    (interactive)
+    (recenter-top-bottom)
+    (emms-playlist-mode-center-current))
+
+  ;; modeline
+  (emms-mode-line-disable)
+  (emms-playing-time-disable-display)
+  )
+
+;;;; Youtube
+(use-package yeetube
+  :ensure t
+  )
+
+;;;; PDFS
+(use-package pdf-tools
+  :ensure t
+  :config
+  (pdf-tools-install)
+  (add-to-list 'pdf-tools-enabled-modes #'pdf-view-themed-minor-mode))
+
+(provide 'bard-emacs-media)
diff --git a/bard-emacs-modules/bard-emacs-writing.el b/bard-emacs-modules/bard-emacs-writing.el
index 1dfff9e..3ae3c6a 100644
--- a/bard-emacs-modules/bard-emacs-writing.el
+++ b/bard-emacs-modules/bard-emacs-writing.el
@@ -202,10 +202,4 @@
    ("<f9>" . logos-focus-mode)
    ("C-x n n" . logos-narrow-dwim)))
 
-(use-package pdf-tools
-  :ensure t
-  :config
-  (pdf-tools-install)
-  (add-to-list 'pdf-tools-enabled-modes #'pdf-view-themed-minor-mode))
-
 (provide 'bard-emacs-writing)