commit f5a27d61bfe3f74aff9b4b74ccd540f25e148d17
from: Lukas Henkel <lh@entf.net>
date: Mon Jul 11 19:44:20 2022 UTC

Improve elfeed-tube integration

commit - b3d5bfa5ab12ec3309a1eafc3bc84de213a28147
commit + f5a27d61bfe3f74aff9b4b74ccd540f25e148d17
blob - 5323063104908f4a7dbe44f5ddaaec669ef18cbe
blob + 98048a02538e58092fecd58b45b21199a58dd076
--- init.el
+++ init.el
@@ -179,9 +179,25 @@
                 (("<mouse-8>" . sly-inspector-pop)
                  ("<mouse-9>" . sly-inspector-next))
                 sly)
+
+(defun lh/elfeed-show-visit ()
+  (interactive)
+  (let ((link (elfeed-entry-link elfeed-show-entry)))
+    (if (string-match-p (rx
+                         line-start
+                         "http" (opt "s") "://"
+                         (opt "www.")
+                         "youtube.com/")
+                        link)
+        (elfeed-tube-mpv (point))
+      (elfeed-show-visit))))
+
 (lh/define-keys elfeed-show-mode-map
-                (("F" . elfeed-tube-fetch)
-                 ([remap save-buffer] . elfeed-tube-save))
+                (("b" . lh/elfeed-show-visit)
+                 ("F" . elfeed-tube-fetch)
+                 ([remap save-buffer] . elfeed-tube-save)
+                 ("C-c C-f" . elfeed-tube-mpv-follow-mode)
+                 ("C-c C-w" . elfeed-tube-mpv-where))
                 elfeed)
 (lh/define-keys elfeed-search-mode-map
                 (("F" . elfeed-tube-fetch)
@@ -254,6 +270,7 @@
  '(dired-dwim-target 'dired-dwim-target-next)
  '(dired-kill-when-opening-new-dired-buffer t)
  '(ediff-split-window-function 'split-window-horizontally)
+ '(elfeed-tube-auto-save-p t)
  '(fido-mode t)
  '(fido-vertical-mode t)
  '(frame-resize-pixelwise t)