diff options
| -rw-r--r-- | oni-elfeed.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/oni-elfeed.el b/oni-elfeed.el index ebb8c6b..f4c7b7f 100644 --- a/oni-elfeed.el +++ b/oni-elfeed.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2022.0927.235248 +;; Version: 2022.1122.232823 ;; Package-Requires: (elfeed olivetti) ;; This program is free software; you can redistribute it and/or modify @@ -80,7 +80,8 @@ "https://programming-journal.org/feed.xml" "https://unzip.dev/rss/" ("http://lambda-the-ultimate.org/rss.xml" lisp) - "https://planet.emacslife.com/atom.xml")) + "https://planet.emacslife.com/atom.xml" + "https://www.reddit.com/r/wallpapers/new.xml")) (add-hook 'elfeed-new-entry-hook (elfeed-make-tagger :before "2 weeks ago" @@ -92,6 +93,13 @@ :entry-title (rx bos "[$]") :remove 'unread)) +;;; Mark any post not containing my resolutions as read. +(add-hook 'elfeed-new-entry-hook + (elfeed-make-tagger :feed-url (rx "reddit.com/r/wallpapers") + :entry-title `(not ,(rx (or (seq "5120" (minimal-match (zero-or-more whitespace)) nonl (minimal-match (zero-or-more whitespace)) "1440") + (seq "1920" (minimal-match (zero-or-more whitespace)) nonl (minimal-match (zero-or-more whitespace)) "1080")))) + :remove 'unread)) + (add-hook 'elfeed-show-mode-hook #'oni-elfeed-enable-olivetti-mode) (provide 'oni-elfeed) |