ryuslash/emacs-config
1
0
Fork 0
Code Activity

Compare commits

base: ryuslash:62ec19f8ddc1f19cfcc6399879783d788263f7c2
Branches Tags
ryuslash:master
...
compare: ryuslash:881650a96bc2db415b0f962a4918c7150e93b283
Branches Tags
ryuslash:master

2 commits
62ec19f8dd ... 881650a96b

Author SHA1 Message Date
Tom Willemse
881650a96b [oni-elfeed] Fix whitespace 2023-11-06 14:54:25 -08:00
Tom Willemse
3366ad7179 [oni-elfeed] Add Blabbermouth feed with some tags and faces 2023-11-06 14:54:14 -08:00
1 changed files with 25 additions and 5 deletions
Show stats Expand all files Collapse all files

30
oni-elfeed.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2023.0727.160959 ;; Version: 2023.1106.145401
;; 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
@ -30,6 +30,7 @@
;;; Code: ;;; Code:
(require 'elfeed) (require 'elfeed)
(require 'elfeed-search)
(require 'shr) (require 'shr)
(defun oni-elfeed-enable-olivetti-mode () (defun oni-elfeed-enable-olivetti-mode ()
@ -84,7 +85,8 @@
"https://hackaday.com/tag/cyberdeck/feed/" "https://hackaday.com/tag/cyberdeck/feed/"
"https://bm.babab.nl/feed/atom" "https://bm.babab.nl/feed/atom"
"https://finalspaceends.com/blogs/news.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 (add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger :before "2 weeks ago" (elfeed-make-tagger :before "2 weeks ago"
@ -113,15 +115,33 @@
(defvar oni-elfeed-duplicate-tagger (defvar oni-elfeed-duplicate-tagger
(elfeed-make-tagger :feed-url (rx "planet.emacslife.com") (elfeed-make-tagger :feed-url (rx "planet.emacslife.com")
:entry-title (rx bos (or "Irreal" :entry-title (rx bos (or "Irreal"
(seq "Sacha" whitespace "Chua") (seq "Sacha" whitespace "Chua")
"Andrea" "Andrea"
(seq "Mickey" whitespace "Petersen")) (seq "Mickey" whitespace "Petersen"))
":") ":")
:remove 'unread) :remove 'unread)
"Tagger for elfeed that marks certain posts as read for Emacslife.") "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-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) (add-hook 'elfeed-show-mode-hook #'oni-elfeed-enable-olivetti-mode)
(provide 'oni-elfeed) (provide 'oni-elfeed)