summaryrefslogtreecommitdiff
path: root/emacs.d/custom/fcuny-elfeed.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs.d/custom/fcuny-elfeed.el')
-rw-r--r--emacs.d/custom/fcuny-elfeed.el31
1 files changed, 30 insertions, 1 deletions
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