From 51ce40aee0b4dff89266add1ff5879e73b7372d7 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 17 Feb 2025 22:50:01 +0000 Subject: +elfeed/dispatch-entry -> +elfeed/dispatch Don't pop the option up to the user on entry, just provide a good binding to access when needed. --- Emacs/.config/emacs/config.org | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) (limited to 'Emacs/.config/emacs') diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org index 68ef458..088387c 100644 --- a/Emacs/.config/emacs/config.org +++ b/Emacs/.config/emacs/config.org @@ -3722,6 +3722,9 @@ to elfeed for loading the system. "gr" #'elfeed-update "s" #'elfeed-search-live-filter "" #'elfeed-search-show-entry) + (nmmap + :keymaps 'elfeed-show-mode-map + "M-RET" #'+elfeed/dispatch) :init (setq elfeed-db-directory (no-littering-expand-var-file-name "elfeed/")) :config @@ -3732,7 +3735,7 @@ to elfeed for loading the system. '(("Yank URL" . (lambda (url) (kill-new url) - (message "elfeed: Yanked %s" url))) + (message "elfeed-dispatch: Yanked %s" url))) ("Open via EWW" . eww) ("Play via EMPV" . (lambda (url) @@ -3740,17 +3743,18 @@ to elfeed for loading the system. ;; FIXME: Using internal macro (empv--with-video-enabled (empv-play-or-enqueue url)) - (message "elfeed: EMPV is not available"))))) + (message "elfeed-dispatch: EMPV is not available"))))) "Options available on entering an elfeed post.") - (defun +elfeed/dispatch-entry (entry) + (defun +elfeed/dispatch () "Provide some extra options once you've clicked on an article." + (interactive) + (if (null elfeed-show-entry) + (user-error "elfeed-dispatch: Not in an elfeed post.")) (let ((choice (completing-read "Choose action: " (mapcar #'car +elfeed/dispatch-options))) - (url (elfeed-entry-link entry))) + (url (elfeed-entry-link elfeed-show-entry))) (if-let ((option (cdr (assoc choice +elfeed/dispatch-options #'string=)))) - (funcall option url)))) - - (advice-add 'elfeed-search-show-entry :after #'+elfeed/dispatch-entry)) + (funcall option url))))) #+end_src *** Elfeed-org #+begin_src emacs-lisp -- cgit v1.2.3-13-gbd6f