Add km/elfeed-avy-goto-subword-1 command

2 files changed, 10 insertions, 0 deletions

diff --git a/init.el b/init.el
index 26455a2..504eb54 100644
--- a/init.el
+++ b/init.el
@@ -541,6 +541,8 @@
 (use-package km-avy
   :defer t
   :init
+  (after 'elfeed-search
+    (define-key elfeed-search-mode-map "j" #'km/elfeed-avy-goto-subword-1))
   (after 'gnus-sum
     (define-key gnus-summary-mode-map "j"
       #'km/gnus-avy-goto-subword-and-select))
diff --git a/lisp/km-avy.el b/lisp/km-avy.el
index ba8e058..bfed3e1 100644
--- a/lisp/km-avy.el
+++ b/lisp/km-avy.el
@@ -66,5 +66,13 @@
     (call-interactively #'avy-goto-subword-1))
   (gnus-summary-scroll-up 0))
 
+(declare-function elfeed-search-show-entry "elfeed-search" (entry))
+;;;###autoload
+(defun km/elfeed-avy-goto-subword-1 ()
+  (interactive)
+  (let (avy-all-windows)
+    (call-interactively #'avy-goto-subword-1))
+  (call-interactively #'elfeed-search-show-entry))
+
 (provide 'km-avy)
 ;;; km-avy.el ends here