1
0
Fork 0

Compare commits

...

2 commits

Author SHA1 Message Date
92f4d8b53e [oni-elfeed] Ignore some blog posts from Planet Emacslife
These are posts that happend to point at blogs that I already follow.
2023-04-01 23:18:07 -07:00
b402ee0c31 [oni-elfeed] Ignore Security updates from LWN 2023-04-01 23:17:47 -07:00

View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2023.0108.120326 ;; Version: 2023.0331.141153
;; 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
@ -92,7 +92,8 @@
;;; Mark any post from LWN as read if it starts with “[$]”. ;;; Mark any post from LWN as read if it starts with “[$]”.
(add-hook 'elfeed-new-entry-hook (add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger :feed-url (rx "lwn.net") (elfeed-make-tagger :feed-url (rx "lwn.net")
:entry-title (rx bos "[$]") :entry-title (rx bos (or "[$]"
"Security updates for"))
:remove 'unread)) :remove 'unread))
;;; Mark any post not containing my resolutions as read. ;;; Mark any post not containing my resolutions as read.
@ -102,6 +103,15 @@
(seq "1920" (minimal-match (zero-or-more whitespace)) nonl (minimal-match (zero-or-more whitespace)) "1080")))) (seq "1920" (minimal-match (zero-or-more whitespace)) nonl (minimal-match (zero-or-more whitespace)) "1080"))))
:remove 'unread)) :remove 'unread))
;;; Mark any post from Planet Emacslife read if I also follow the originating
;;; blog. This way I won't have so many duplicates.
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger :feed-url (rx "planet.emacslife.com")
:entry-title `(not ,(rx bos (or "Irreal"
"Sacha Chua"
"Andrea")
":"))))
(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)