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 ;; 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)