Add elfeed-default-filter command

2 files changed, 6 insertions, 0 deletions

diff --git a/init.el b/init.el
index ddf01bc..4b98762 100644
--- a/init.el
+++ b/init.el
@@ -2064,6 +2064,7 @@
   :init
   (after 'elfeed
     (bind-keys :map elfeed-search-mode-map
+               ("d" . km/elfeed-default-filter)
                ("t" . km/elfeed-set-tag))))
 
 
diff --git a/lisp/km-elfeed.el b/lisp/km-elfeed.el
index 0e67e01..bea17c1 100644
--- a/lisp/km-elfeed.el
+++ b/lisp/km-elfeed.el
@@ -51,5 +51,10 @@ filter to the default, respectively."
                     (format " +%s"
                             (cdr (assq tag-key km/elfeed-tag-keys)))))))))
 
+;;;###autoload
+(defun km/elfeed-default-filter ()
+  (interactive)
+  (elfeed-search-set-filter (default-value 'elfeed-search-filter)))
+
 (provide 'km-elfeed)
 ;;; km-elfeed.el ends here