summary refs log tree commit diff
path: root/emacs.d
diff options
context:
space:
mode:
authorFranck Cuny <franck.cuny@gmail.com>2020-03-19 17:30:30 -0700
committerFranck Cuny <franck.cuny@gmail.com>2020-03-19 17:30:30 -0700
commitb4bf2104559636863f7617b8601afbff41e941e0 (patch)
treee74c4170c6b3eba6057bbba7c48abe1ebd287a4a /emacs.d
parentemacs: use the theme modus-operandi (diff)
downloademacs.d-b4bf2104559636863f7617b8601afbff41e941e0.tar.gz
elfeed: add support for hydra
Diffstat (limited to 'emacs.d')
-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