From 7f72a0a47e5a68563ff5ddca973fec3c9315abc2 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 22 Nov 2022 23:31:17 -0800 Subject: [oni-elfeed] Subscribe to specific wallpaper sizes on reddit --- oni-elfeed.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'oni-elfeed.el') 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 ;; 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) -- cgit v1.2.3-54-g00ecf