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