diff options
| author |  Tom Willemse | 2023-11-06 14:53:20 -0800 |
|---|---|---|
| committer | Tom Willemse | 2023-11-06 14:54:14 -0800 |
| commit | 3366ad7179682bdf83680f74b19d14ee3ec95ac2 (patch) | |
| tree | 9d07a32de2b0b5a3386eb8094422e682c1b29cd0 | |
| parent | 62ec19f8ddc1f19cfcc6399879783d788263f7c2 (diff) | |
| download | emacs-config-3366ad7179682bdf83680f74b19d14ee3ec95ac2.tar.gz emacs-config-3366ad7179682bdf83680f74b19d14ee3ec95ac2.zip | |
[oni-elfeed] Add Blabbermouth feed with some tags and faces
| -rw-r--r-- | oni-elfeed.el | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/oni-elfeed.el b/oni-elfeed.el index c29a971..9d1df55 100644 --- a/oni-elfeed.el +++ b/oni-elfeed.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2023.0727.160959 +;; Version: 2023.1106.145304 ;; Package-Requires: (elfeed olivetti) ;; This program is free software; you can redistribute it and/or modify @@ -30,6 +30,7 @@ ;;; Code: (require 'elfeed) +(require 'elfeed-search) (require 'shr) (defun oni-elfeed-enable-olivetti-mode () @@ -84,7 +85,8 @@ "https://hackaday.com/tag/cyberdeck/feed/" "https://bm.babab.nl/feed/atom" "https://finalspaceends.com/blogs/news.atom" - "https://www.geepawhill.org/weekly/rss")) + "https://www.geepawhill.org/weekly/rss" + ("https://blabbermouth.net/feed" music))) (add-hook 'elfeed-new-entry-hook (elfeed-make-tagger :before "2 weeks ago" @@ -120,8 +122,26 @@ :remove 'unread) "Tagger for elfeed that marks certain posts as read for Emacslife.") +(defvar oni-elfeed-blabbermouth-review-tagger + (elfeed-make-tagger :feed-url (rx "blabbermouth.net") + :entry-link (rx "/reviews/") + :add 'review) + "Tagger that marks any reviews from Blabbermouth.") + +(defvar oni-elfeed-blabbermouth-favourite-tagger + (elfeed-make-tagger :feed-url (rx "blabbermouth.net") + :entry-title (rx (or "SLIPKNOT" + (seq "DREAM" whitespace "THEATER"))) + :add 'favourite) + "Tagger that highlights specific bands from Blabbermouth.") + +(add-hook 'elfeed-new-entry-hook oni-elfeed-blabbermouth-favourite-tagger) +(add-hook 'elfeed-new-entry-hook oni-elfeed-blabbermouth-review-tagger) (add-hook 'elfeed-new-entry-hook oni-elfeed-duplicate-tagger) +(add-to-list 'elfeed-search-face-alist '(review :slant italic) t) +(add-to-list 'elfeed-search-face-alist '(favourite :foreground "#f17272") t) + (add-hook 'elfeed-show-mode-hook #'oni-elfeed-enable-olivetti-mode) (provide 'oni-elfeed) |