Update news

bundle/bundle--news.el

@@ -13,17 +13,8 @@
   :bind ("C-x w" . elfeed)
   :init
   (setq elfeed-feeds
-        '(("http://nullprogram.com/feed/" lisp blog)
+        '(
-          ("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://planet.lisp.org/rss20.xml" lisp blogs)
           ("https://netzpolitik.org/feed/" netz politik news)
-          ("https://lisp-journey.gitlab.io/index.xml" lisp blog)
           ("https://www.guyrutenberg.com/feed/" linux blog)
           ("https://www.raspberrypi.com/news/feed/" blog pi os)
           ("https://blog.mozilla.org/en/feed/" browser web)
@@ -36,11 +27,7 @@
           ("https://uxmovement.com/feed" ux design)
           ("https://www.uxbeginner.com/feed/" ux design)
           ("https://jeffgothelf.com/feed/" lean ux design blog)
-          ("https://www.colinmclear.net/posts/index.xml" research emacs blog)
           ("https://uxwritinghub.com/feed/" ux writing 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://pragdave.me/feed.xml" coding blog)
           ("https://mailbox.org/share/feed-de-mailbox.xml" email mailbox web)
           ("https://feeds.feedburner.com/GoogleWebFonts" fonts blog google)
@@ -65,13 +52,32 @@
           ("https://www.heise.de/thema/Linux-und-Open-Source?view=atom" linux news)
           ("https://www.linux-magazin.de/feed/" linux news)
           ("https://rockylinux.org/rss.xml" linux admin news)
-          ("https://stevelosh.com/rss.xml" lisp blog personal)
           ("https://rework.withgoogle.com/blog/feed" teams work blog)
-          ("http://atomized.org/rss.xml" lisp emacs blog)
-          ("https://olddeuteronomy.github.io/index.xml" emacs blog)
-          ("http://planet.sbcl.org/rss20.xml" sbcl lisp)
           )
-        elfeed-search-filter "@4-day-ago +unread"))
+        elfeed-search-filter "@4-day-ago +unread")
+  :config
+  (mapcar
+   #'(lambda (feed)
+       (add-to-list 'elfeed-feeds feed))
+   '(("http://planet.sbcl.org/rss20.xml" sbcl lisp)
+     ("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)
+     ("https://lisp-journey.gitlab.io/index.xml" lisp blog)
+)))
 
 (use-package gnus
   :ensure nil