From b4bf2104559636863f7617b8601afbff41e941e0 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 19 Mar 2020 17:30:30 -0700 Subject: elfeed: add support for hydra --- emacs.d/custom/fcuny-elfeed.el | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) (limited to 'emacs.d/custom') diff --git a/emacs.d/custom/fcuny-elfeed.el b/emacs.d/custom/fcuny-elfeed.el index 08f6027..65ac5d0 100644 --- a/emacs.d/custom/fcuny-elfeed.el +++ b/emacs.d/custom/fcuny-elfeed.el @@ -1,7 +1,36 @@ (require 'fcuny-vars) (use-package elfeed - :ensure t) + :ensure t + :pretty-hydra + ((:title "elfeed" :color amaranth :quit-key "q") + ("Search" + (("c" elfeed-db-compact "compact db") + ("g" elfeed-search-update--force "refresh") + ("G" elfeed-search-fetch "update") + ("y" elfeed-search-yank "copy URL") + ("+" elfeed-search-tag-all "tag all") + ("-" elfeed-search-untag-all "untag all")) + "Filter" + (("s" elfeed-search-live-filter "live filter") + ("S" elfeed-search-set-filter "set filter") + ("*" (elfeed-search-set-filter "@6-months-ago +star") "starred") + ("A" (elfeed-search-set-filter "@6-months-ago" "all")) + ("T" (elfeed-search-set-filter "@1-day-ago" "today"))) + "Article" + (("b" elfeed-search-browse-url "browse") + ("n" next-line "next") + ("p" previous-line "previous") + ("u" elfeed-search-tag-all-unread "mark unread") + ("r" elfeed-search-untag-all-unread "mark read") + ("RET" elfeed-search-show-entry "show")))) + :bind (("C-x w" . elfeed) + :map elfeed-search-mode-map + ("?" . elfeed-hydra/body) + :map elfeed-show-mode-map + ("o" . ace-link) + ("q" . delete-window)) + :config (push elfeed-db-directory recentf-exclude)) (use-package elfeed-org :ensure t -- cgit 1.4.1