From 3366ad7179682bdf83680f74b19d14ee3ec95ac2 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Mon, 6 Nov 2023 14:53:20 -0800
Subject: [PATCH] [oni-elfeed] Add Blabbermouth feed with some tags and faces

---
 oni-elfeed.el | 24 ++++++++++++++++++++++--
 1 file 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)