Extract Elfeed feeds list from init.el to a dedicated file

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4e3ee05246ea6e78b518c470d8f046df6d608c1c..43cb558a8690698ff28cbd6f58cbe5eea4d7a3b8 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -372,108 +372,12 @@
    rcirc-log-flag t
    ;; use my custom project-prompting function
    project-prompter #'esy/read-project-by-name
-   ;; don't use bold face for unread Elfeed entries
-   elfeed-search-face-alist '((unread (default)))
-   ;; set up some feeds for Elfeed
-   elfeed-feeds '(
-                  ("http://node2.feed43.com/7487052648530856.xml" comics scifi)
-                  ("http://regex.info/blog/feed" tech blog japan)
-                  ("http://sawv.org/rss.xml" tech blog)
-                  ("http://www.aaronsw.com/weblog/index.xml" blog tech)
-                  ("https://ajroach42.com/feed.xml")
-                  ("https://alexschroeder.ch/wiki/feed/full/" tech)
-                  ("https://amodernist.com/all.atom" emacs)
-                  ("https://archive.casouri.cc/note/atom.xml")
-                  ("https://arcology.garden/updates.xml")
-                  ("https://atthis.link/rss.xml" tech)
-                  ("https://avdi.codes/feed/" blog tech)
-                  ("https://baty.net/feed" tech)
-                  ("https://betterappsec.com/feed")
-                  ("https://bitspook.in/blog/feed.xml")
-                  ("https://blog.acthompson.net/feeds/posts/default")
-                  ("https://blog.gregbrockman.com/feed" tech ai)
-                  ("https://bruda.ca/feed.php")
-                  ("https://catgirl.ai/log/atom.xml" emacs blog)
-                  ("https://cce.whatthefuck.computer/updates.xml")
-                  ("https://cdn.jwz.org/blog/feed/" tech)
-                  ("https://cestlaz.github.io/rss.xml" tech)
-                  ("https://changelog.complete.org/feed")
-                  ("https://daily.baty.net/feed/feed.xml" blog tech)
-                  ("https://daniel.haxx.se/blog/feed/" tech)
-                  ("https://drewdevault.com/blog/index.xml")
-                  ("https://dri.es/rss.xml" indieweb)
-                  ("https://emacs.cafe/feed.xml" emacs)
-                  ("https://emacs.dyerdwelling.family/index.xml")
-                  ("https://emacsninja.com/feed.atom" emacs)
-                  ("https://erikmcclure.com/blog/index.xml")
-                  ("https://eshelyaron.com/rss.xml" me)
-                  ("https://evanhahn.com/blog/index.xml")
-                  ("https://fasterthanli.me/index.xml")
-                  ("https://feeds.buzzsprout.com/2134279.rss")
-                  ("https://flower.codes/feed.xml")
-                  ("https://garymarcus.substack.com/feed")
-                  ("https://gwern.substack.com/feed" tech blog)
-                  ("https://herman.bearblog.dev/feed/")
-                  ("https://impaktor.gitlab.io/index.xml" emacs)
-                  ("https://irreal.org/blog/?feed=rss2" emacs)
-                  ("https://jcm.libsyn.com/rss/")
-                  ("https://jnd.org/feed" tech philosophy)
-                  ("https://kelar.org/~bandali/atom.xml" tech blog)
-                  ("https://kitchen-sink.kwakk.info/feed" comics)
-                  ("https://lars.ingebrigtsen.no/feed" emacs)
-                  ("https://lwn.net/headlines/rss" linux)
-                  ("https://maggieappleton.com/rss.xml" design)
-                  ("https://matklad.github.io/feed.xml")
-                  ("https://matt-rickard.com/rss" tech)
-                  ("https://mbork.pl?action=rss" emacs blog)
-                  ("https://njoseph.me/shaarli/feed/atom?")
-                  ("https://nullprogram.com/feed/" tech)
-                  ("https://olddeuteronomy.github.io/index.xml")
-                  ("https://parasurv.neocities.org/rss.xml" tech blog)
-                  ("https://phaazon.net/blog/feed")
-                  ("https://planet.emacslife.com/atom.xml" emacs)
-                  ("https://ploum.net/atom_en.xml")
-                  ("https://pod.fossified.com/podcast.rss" tech podcast)
-                  ("https://pouria.dev/rss.xml")
-                  ("https://project-mage.org/rss.xml")
-                  ("https://protesilaos.com/master.xml" emacs philosophy)
-                  ("https://reddit.com/r/prolog/.rss" prolog)
-                  ("https://risky.biz/rss.xml" tech)
-                  ("https://sachachua.com/blog/feed/" emacs)
-                  ("https://shivjm.blog/feed.xml" emacs blog)
-                  ("https://snarfed.org/feed" tech)
-                  ("https://stephanango.com/feed.xml")
-                  ("https://stppodcast.libsyn.com/rss")
-                  ("https://takeonrules.com/index.atom")
-                  ("https://thejollyteapot.com/feed.rss" tech blog)
-                  ("https://two-wrongs.com/feed")
-                  ("https://typeclasses.substack.com/feed")
-                  ("https://unixsheikh.com/feed.rss" linux)
-                  ("https://usesthis.com/feed.atom")
-                  ("https://world.hey.com/dhh/feed.atom" tech blog)
-                  ("https://writepermission.com/rss.xml" tech blog)
-                  ("https://writer13.neocities.org/rss.xml")
-                  ("https://www.brautaset.org/feed.xml" blog tech)
-                  ("https://www.cs.uni.edu/~wallingf/blog/atom.xml")
-                  ("https://www.devever.net/~hl/index.feed" tech)
-                  ("https://www.draketo.de/rss-feed.xml")
-                  ("https://www.evalapply.org/index.xml" emacs)
-                  ("https://www.fsf.org/static/fsforg/rss/news.xml" tech)
-                  ("https://www.haskellforall.com/feeds/posts/default" tech)
-                  ("https://www.joelotter.com/posts/index.xml" indieweb)
-                  ("https://www.logicmatters.net/feed/" logic blog)
-                  ("https://www.murilopereira.com/index.xml")
-                  ("https://www.n16f.net/blog/index.xml" emacs blog)
-                  ("https://www.nirandfar.com/rss" tech blog)
-                  ("https://www.stilldrinking.org/rss/feed.xml")
-                  ("https://www.theregister.com/headlines.atom" tech)
-                  ("https://www.thisdaysportion.com/feed/index.xml" indieweb)
-                  ("https://www.typetheoryforall.com/episodes.mp3.rss" podcast)
-                  ("https://www.unwoundstack.com/rss.xml" emacs blog)
-                  ("https://xeiaso.net/blog.rss" tech)
-                  ("https://xenodium.com/rss.xml" emacs)
-                  ("https://xkcd.com/rss.xml" comics tech)
-                  ))
+   ;; use dict.org dictionary server
+   dictionary-server "dict.org"
+   ;; search dictionaries until one yields a match
+   dictionary-default-dictionary "!"
+   ;; reuse the dictionary buffer
+   dictionary-use-single-buffer t)
   (setq-default indent-tabs-mode nil))
 
 (esy/init-step theme
@@ -1045,6 +949,20 @@ as the initial input for completion, and return that directory."
 
   (add-hook 'kill-emacs-hook #'esy/compile-config 10))
 
+(esy/init-step elfeed
+  "Configure news feeds."
+  (with-eval-after-load 'elfeed
+    (setq
+     ;; don't use bold face for unread Elfeed entries
+     elfeed-search-face-alist '((unread (default)))
+     ;; read feeds list from a separate file
+     elfeed-feeds
+     (with-temp-buffer
+       (insert-file-contents-literally
+        (locate-user-emacs-file "feeds.eld"))
+       (goto-char (point-min))
+       (read (current-buffer))))))
+
 (dolist (step (sort esy/init-step-times (lambda (l r) (time-less-p (cdr r) (cdr l)))))
   (message "%f %s"
            (float-time (cdr step))