emacs.d/bundle/bundle--news.el

(use-package eww
  :defer t
  :init
  (add-hook 'eww-after-render-hook #'shrface-mode)
  :config
  (require 'shrface)
  (setq shr-use-colors nil
        shr-use-fonts nil
        shr-cookie-policy nil
        browse-url-browser-function (quote eww-browse-url)))

(use-package elfeed
  :bind ("C-x w" . elfeed)
  :init
  (setq elfeed-feeds
        '(("https://netzpolitik.org/feed/" netz politik news)
          ("https://www.guyrutenberg.com/feed/" linux blog)
          ("https://blog.mozilla.org/en/feed/" browser web)
          ("https://blog.chromium.org/feeds/posts/default" browser web)
          ("https://hacks.mozilla.org/feed/" browser web)
          ("https://www.interaction-design.org/rss/site_news.xml" ux design)
          ("https://mailbox.org/share/feed-de-mailbox.xml" email mailbox web)
          ("https://feeds.feedburner.com/GoogleWebFonts" fonts blog google)
          ("https://nostarch.com/feeds/newbooks.xml" books)
          ("https://www.strategyzer.com/blog/rss.xml" business blog strategyzer)
          ("https://www.neondystopia.com/feed/" cyberpunk blog)
          ("https://www.raspberrypi.org/blog/feed/" raspberry blog)
          ("https://www.blog.berrybase.de/feed/" raspberry blog)
          ("https://krebsonsecurity.com/feed/" security blog)
          ("https://www.schneier.com/feed/atom/" security blog)
          ("https://twobithistory.org/feed.xml" history blog coding)
          ("https://gwern.substack.com/feed" blog technology personal)
          ("https://rework.withgoogle.com/blog/feed" teams work blog)))
  (setq elfeed-search-filter "@4-day-ago +unread")
  :config
  (mapcar
   #'(lambda (feed) (add-to-list 'elfeed-feeds feed))
   ;; lisp / clojure / emacs feeds
   '(;("http://planet.sbcl.org/rss20.xml" sbcl lisp)
     ("https://xenodium.com/rss.xml" emacs blog)
     ("http://atomized.org/rss.xml" lisp emacs blog)
     ("https://stevelosh.com/rss.xml" lisp blog personal)
     ("https://planet.lisp.org/rss20.xml" lisp blogs)
     ("https://m-x-erlangen.gitlab.io/atom.xml" lisp meetup)
     ("https://takeonrules.com/index.atom" lisp emacs blog)
     ("https://taonaw.com/index.xml" emacs blog)
     ("https://emacsredux.com/atom.xml" emacs blog)
     ("https://planet.emacslife.com/atom.xml" emacs)
     ("https://yiming.dev/rss.xml" coding emacs lisp blog)
     ("https://endlessparentheses.com/atom.xml" emacs elisp blog)
     ("https://www.philnewton.net/blog/feed/" emacs blog)
     ("https://emacsredux.com/atom.xml" emacs blog)
     ("https://marcus3santos.github.io/index.xml" emacs blog)
     ("https://olddeuteronomy.github.io/index.xml" emacs blog)
     ("https://www.colinmclear.net/posts/index.xml" research emacs blog)
     ("http://nullprogram.com/feed/" lisp blog)
     ;("http://planet.clojure.in/atom.xml" clojure news hacking jvm java)
     ("https://lisp-journey.gitlab.io/index.xml" lisp blog)))
  (mapcar
   #'(lambda (feed) (add-to-list 'elfeed-feeds feed))
   ;; ux feeds
   '(("https://www.audiotranskription.de/feed/" ux blog qda)
     ("https://uxcontent.com/feed/" ux writing blog)
     ("https://userlutions.com/feed/" ux usability blog)
     ("https://www.nngroup.com/feed/rss/" ux design)
     ("https://uxpamagazine.org/?feed=full" ux design)
     ("https://feedpress.me/UXmatters" ux design)
     ("https://uxmovement.com/feed" ux design)
     ("https://www.uxbeginner.com/feed/" ux design)
     ("https://jeffgothelf.com/feed/" lean ux design blog)
     ("https://uxwritinghub.com/feed/" ux writing blog)))
  (mapcar
   #'(lambda (feed) (add-to-list 'elfeed-feeds feed))
   ;; podcasts
   '(("https://logbuch-netzpolitik.de/feed/m4a" netzpolitik podcast)
     ("https://changelog.com/podcast/feed" software-development open-source podcast)
     ("https://www.ndr.de/nachrichten/info/podcast4696.xml" podcast klima)
     ("https://feeds.soundcloud.com/users/soundcloud:users:261098918/sounds.rss" podcast osint))))

(use-package gnus
  :ensure nil
  :hook (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
  :custom
  (user-full-name "Marcus Kammer")
  (gnus-inhibit-startup-message t)
  (gnus-check-new-newsgroups nil)
  (gnus-select-method '(nntp "news.individual.de"
                             (nntp-open-connection-function nntp-open-ssl-stream)
                             (nntp-port-number 563)))
  :config
  (add-to-list 'gnus-secondary-select-methods
               '(nnimap "mailbox"
                        (nnimap-address "imap.mailbox.org")
                        (nnimap-server-port 143)
                        (nnimap-stream starttls))))