ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-elfeed] Subscribe to specific wallpaper sizes on reddit

Browse source
This commit is contained in:
Tom Willemse 2022-11-22 23:31:17 -08:00
parent ce285a51d6
commit 7f72a0a47e
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
oni-elfeed.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2022.0927.235248 ;; Version: 2022.1122.232823
;; Package-Requires: (elfeed olivetti) ;; Package-Requires: (elfeed olivetti)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -80,7 +80,8 @@
"https://programming-journal.org/feed.xml" "https://programming-journal.org/feed.xml"
"https://unzip.dev/rss/" "https://unzip.dev/rss/"
("http://lambda-the-ultimate.org/rss.xml" lisp) ("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 (add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger :before "2 weeks ago" (elfeed-make-tagger :before "2 weeks ago"
@ -92,6 +93,13 @@
:entry-title (rx bos "[$]") :entry-title (rx bos "[$]")
:remove 'unread)) :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) (add-hook 'elfeed-show-mode-hook #'oni-elfeed-enable-olivetti-mode)
(provide 'oni-elfeed) (provide 'oni-elfeed)