85 lines
3.2 KiB
EmacsLisp
85 lines
3.2 KiB
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
||
|
|
||
|
(use-package elfeed
|
||
|
:commands elfeed
|
||
|
:config
|
||
|
(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)
|