branch: elpa/elfeed
commit 8167b99286e88a902e9f6325d65ab76c721b5328
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
elfeed-search/show-mode-menu: New menus (Fix #420)
---
elfeed-search.el | 28 ++++++++++++++++++++++++++++
elfeed-show.el | 25 +++++++++++++++++++++++++
2 files changed, 53 insertions(+)
diff --git a/elfeed-search.el b/elfeed-search.el
index cf939f534b..f44d8dbb97 100644
--- a/elfeed-search.el
+++ b/elfeed-search.el
@@ -162,6 +162,34 @@ When live editing the filter, it is bound to :live.")
"<" #'elfeed-search-first-entry
">" #'elfeed-search-last-entry)
+(easy-menu-define elfeed-search-mode-menu elfeed-search-mode-map
+ "Menu for `elfeed-search-mode'."
+ '("Elfeed Search"
+ ["Show entry" elfeed-search-show-entry]
+ ["Browse entry" elfeed-search-browse-url]
+ ["Browse secondary" elfeed-search-browse-url-secondary]
+ ["Copy URL" elfeed-search-yank]
+ "--"
+ ["Add tag" elfeed-search-tag-all]
+ ["Remove tag" elfeed-search-untag-all]
+ ["Mark as unread" elfeed-search-tag-all-unread]
+ ["Mark as read" elfeed-search-untag-all-unread]
+ "--"
+ ["Set feed title" elfeed-search-set-feed-title]
+ ["Set entry title" elfeed-search-set-entry-title]
+ "--"
+ ["Live filter" elfeed-search-live-filter]
+ ["Set filter" elfeed-search-set-filter]
+ ["Clear filter" elfeed-search-clear-filter]
+ "--"
+ ["Fetch" elfeed-search-fetch]
+ ["Fetch visible" elfeed-search-fetch-visible]
+ "--"
+ ["Revert buffer" revert-buffer]
+ ["Quit window" quit-window]
+ "--"
+ ["Customize" (customize-group 'elfeed)]))
+
(defun elfeed-search--remain-on-entry-p (action)
"Remain on current entry for ACTION?"
(and elfeed-search-remain-on-entry
diff --git a/elfeed-show.el b/elfeed-show.el
index 7082dc7913..a77b3f5f1b 100644
--- a/elfeed-show.el
+++ b/elfeed-show.el
@@ -96,6 +96,31 @@ Called without arguments."
"A" #'elfeed-show-add-enclosure-to-playlist
"P" #'elfeed-show-play-enclosure)
+(easy-menu-define elfeed-show-mode-menu elfeed-show-mode-map
+ "Menu for `elfeed-show-mode'."
+ '("Elfeed Entry"
+ ["Browse entry" elfeed-show-visit]
+ ["Browse secondary" elfeed-show-visit-secondary]
+ ["Copy URL" elfeed-show-yank]
+ "--"
+ ["Save enclosure" elfeed-show-save-enclosure]
+ ["Play enclosure" elfeed-show-play-enclosure]
+ ["Add enclosure to playlist" elfeed-show-add-enclosure-to-playlist]
+ "--"
+ ["Add tag" elfeed-show-tag]
+ ["Remove tag" elfeed-show-untag]
+ ["Mark as unread" elfeed-show-tag-unread]
+ "--"
+ ["Next entry" elfeed-show-next]
+ ["Previous entry" elfeed-show-prev]
+ "--"
+ ["New live filter" elfeed-show-live-filter]
+ "--"
+ ["Revert buffer" revert-buffer]
+ ["Quit window" quit-window]
+ "--"
+ ["Customize" (customize-group 'elfeed)]))
+
(define-derived-mode elfeed-show-mode special-mode "elfeed-show"
"Mode for displaying Elfeed feed entries."
:syntax-table nil :abbrev-table nil :interactive nil
