YouTube queing with elfeed/EMMS

2 files changed, 14 insertions, 1 deletions

diff --git a/bard-emacs-modules/bard-emacs-emms.el b/bard-emacs-modules/bard-emacs-emms.el
index fdc1782..5e69d89 100644
--- a/bard-emacs-modules/bard-emacs-emms.el
+++ b/bard-emacs-modules/bard-emacs-emms.el
@@ -13,6 +13,7 @@
   :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)
@@ -37,6 +38,12 @@
 
   (setq emms-volume-amixer-card 0)
 
+  (require 'emms-player-simple)
+  (define-emms-simple-player mpv-video '(file url)
+    (regexp-opt '("mp4" "mkv" "webm" "youtube.com" "youtu.be"))
+    "mpv" "--quiet" "--no-audio-display" "--vid=1")
+  (add-to-list 'emms-player-list 'emms-player-mpv-video)
+
   ;; center line function
   (defun bard/emms-recenter ()
     (interactive)
diff --git a/bard-emacs-modules/bard-emacs-web.el b/bard-emacs-modules/bard-emacs-web.el
index d9a8e26..276f42d 100644
--- a/bard-emacs-modules/bard-emacs-web.el
+++ b/bard-emacs-modules/bard-emacs-web.el
@@ -27,8 +27,14 @@
 (use-package elfeed
   :ensure t
   :config
+  (require 'bard-web)
   (global-set-key (kbd "C-c r") 'elfeed)
-  (setq elfeed-search-filter "+unread -academia"))
+  (setq elfeed-search-filter "+unread")
+
+  :bind
+  (:map elfeed-search-mode-map
+        ("C-c C-p" . bard/play-elfeed-video)
+        ("C-c C-e" . bard/add-video-emms-queue)))
 
 (use-package elfeed-org
   :ensure t