dotfiles/emacs/.emacs.d/config/init-elfeed.el

86 lines
3.2 KiB
EmacsLisp
Raw Normal View History

2021-03-09 14:24:18 +00:00
;; -*- lexical-binding: t; -*-
(use-package elfeed
:commands elfeed
:config
(evil-collection-elfeed-setup)
(setq elfeed-search-filter "@6-months-ago +unread -hacker-news")
(setq elfeed-feeds
(list (list (password-store-get "freshrss-blog-feed-url") 'blog)
(list (password-store-get "freshrss-lisp-feed-url") 'lisp)
(list (password-store-get "freshrss-computing-feed-url") 'computing)
(list (password-store-get "freshrss-emacs-feed-url") 'emacs)
(list (password-store-get "freshrss-misc-feed-url") 'misc)
(list (password-store-get "freshrss-news-feed-url") 'news)
(list (password-store-get "freshrss-web-feed-url") 'web)
(list (password-store-get "freshrss-creative-coding-feed-url")
'creative-coding 'computing)
(list (password-store-get "freshrss-hacker-news-feed-url") 'hacker-news))
shr-use-colors nil)
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "metaredux.com")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "lambdaisland.com")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "emacsredux.com")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "sachachua.com")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "mxb.dev")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "joy.recurse.com")
:add 'joy-of-computing))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
;; Changelog Weekly
:entry-link (rx "kill-the-newsletter.com/alternate/cfiasax3ct12r7b9svjq")
:add 'open-source))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "jeremydormitzer.com")
:add 'my-website))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "fossegr.im")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "joshwcomeau.com")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "murilopereira.com")
:add 'blog))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "tedium.co")
:add 'tedium))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-link (rx "reddit.com")
:add 'reddit))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-title (rx (or "Emacs" "emacs"))
:add 'emacs))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger
:entry-title (rx (or "Clojure"
"Scheme"
"Lisp"
"Racket"))
:add 'lisp)))
(provide 'init-elfeed)