refactor(sterni/emacs): read extra feeds from ~/.config/emacs-extra

This allows me to add stuff without doing a commit for every feed. I can
always import them in bunches if I want to later.

Change-Id: I080f40b3627940a1f68cf13598c102953f4994b1
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3505
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
This commit is contained in:
sterni 2021-09-09 14:49:46 +02:00
parent 3a8925239a
commit 5d5fb4e6a1

View file

@ -1,12 +1,9 @@
;;; elfeed subscriptions ;;; elfeed subscriptions
(setq elfeed-feeds (setq elfeed-feeds
`((,(with-temp-buffer (append
(insert-file-contents ;; immutable subscriptions tracked in git
(concat (getenv "HOME") '(("https://repology.org/maintainer/sternenseemann%40systemli.org/feed-for-repo/nix_unstable/atom" dashboard releases)
"/.config/secrets/github-private-atom"))
(buffer-string))
dashboard)
("https://repology.org/maintainer/sternenseemann%40systemli.org/feed-for-repo/nix_unstable/atom" dashboard releases)
("http://hundimbuero.blogspot.com/feeds/posts/default?alt=rss" blog cool-and-nice) ("http://hundimbuero.blogspot.com/feeds/posts/default?alt=rss" blog cool-and-nice)
("gopher://text.causal.agency/0feed.atom" blog) ("gopher://text.causal.agency/0feed.atom" blog)
("http://xsteadfastx.org/feed/" blog cool-and-nice) ("http://xsteadfastx.org/feed/" blog cool-and-nice)
@ -77,7 +74,15 @@
("https://mgsloan.com/feed.xml" blog) ("https://mgsloan.com/feed.xml" blog)
("https://notes.sterni.lv/atom.xml" me) ("https://notes.sterni.lv/atom.xml" me)
("http://arduina.net/feed/" defunct blog) ("http://arduina.net/feed/" defunct blog)
("https://anchor.fm/s/94bb000/podcast/rss" podcast))) ("https://anchor.fm/s/94bb000/podcast/rss" podcast))
;; http://www.wollenzin.de/feed/ ;_; ;; http://www.wollenzin.de/feed/ ;_;
;; add more feeds from an untracked file in $HOME
(let ((file (concat (getenv "HOME")
"/.config/emacs-custom/mutable-subscriptions.el")))
(when (file-exists-p file)
(read (with-temp-buffer
(insert-file-contents file)
(buffer-string)))))))
(provide 'subscriptions) (provide 'subscriptions)