diff options
| author |  Tom Willemse | 2023-04-11 20:09:32 -0700 |
|---|---|---|
| committer | Tom Willemse | 2023-04-11 20:09:32 -0700 |
| commit | f460c3a19fb9477d63c5f7bbda90c7c7c283dcca (patch) | |
| tree | f5a501b56a52c502f540c004fb6345beb6079a9e /oni-elfeed.el | |
| parent | 9c1ef54e74308eca1049b4f99b37fe03c542eb0d (diff) | |
| download | emacs-config-f460c3a19fb9477d63c5f7bbda90c7c7c283dcca.tar.gz emacs-config-f460c3a19fb9477d63c5f7bbda90c7c7c283dcca.zip | |
[oni-elfeed] Fix tagger that removes duplicates of Planet Emacslife
First: the match needs to be any entry that does match the names of the people
whos blogs I already follow.
Second: The search regular expression can't contain spaces. It seems to be the
same as any search query. So when a regular expression contains a space it's
considered two different search terms. This doesn't work when we're searching
for one option with a space in it (“Irreal” or “Sacha Chua” or “Andrea”) since
the syntax for the regular expression gets all messed up. Quickest workaround is
to match any whitespace instead.
Diffstat (limited to 'oni-elfeed.el')
| -rw-r--r-- | oni-elfeed.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/oni-elfeed.el b/oni-elfeed.el index a5ba02d..8f85fb2 100644 --- a/oni-elfeed.el +++ b/oni-elfeed.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2023.0401.234314 +;; Version: 2023.0411.200412 ;; Package-Requires: (elfeed olivetti) ;; This program is free software; you can redistribute it and/or modify @@ -106,13 +106,16 @@ ;;; 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") - ":")) - :remove 'unread)) +(defvar oni-elfeed-duplicate-tagger + (elfeed-make-tagger :feed-url (rx "planet.emacslife.com") + :entry-title (rx bos (or "Irreal" + (seq "Sacha" whitespace "Chua") + "Andrea") + ":") + :remove 'unread) + "Tagger for elfeed that marks certain posts as read for Emacslife.") + +(add-hook 'elfeed-new-entry-hook oni-elfeed-duplicate-tagger) (add-hook 'elfeed-show-mode-hook #'oni-elfeed-enable-olivetti-mode) |