From e5450165c0b598ea7d93b82a0e839cee24b311b9 Mon Sep 17 00:00:00 2001
From: Evie Litherland-Smith <evie@xenia.me.uk>
Date: Mon, 19 Feb 2024 18:43:56 +0000
Subject: [PATCH] Split internet config into email and newsticker

Copy elfeed config to newsticker for now but start configuring emacs
built-in newsticker to test as replacement (since elfeed looks like it
might be abandonware now...)
---
 .gitignore                         |  1 +
 config/{internet.org => email.org} | 57 +--------------------
 config/newsticker.org              | 81 ++++++++++++++++++++++++++++++
 3 files changed, 83 insertions(+), 56 deletions(-)
 rename config/{internet.org => email.org} (89%)
 create mode 100644 config/newsticker.org

diff --git a/.gitignore b/.gitignore
index 8594f46..7779ab9 100644
--- a/.gitignore
+++ b/.gitignore
@@ -16,3 +16,4 @@
 /tramp
 /transient/
 /url/
+/newsticker/
diff --git a/config/internet.org b/config/email.org
similarity index 89%
rename from config/internet.org
rename to config/email.org
index 3ad486f..a89b94b 100644
--- a/config/internet.org
+++ b/config/email.org
@@ -1,4 +1,4 @@
-#+title: Internet Config
+#+title: Email Config
 #+author: Evie Litherland-Smith
 #+email: evie@xenia.me.uk
 #+filetags: :emacs:config:org:
@@ -289,58 +289,3 @@
     (setq gnus-icalendar-org-capture-headline '("Inbox"))
     (gnus-icalendar-org-setup))
 #+end_src
-
-* Feeds
-#+begin_src emacs-lisp
-  (use-package elfeed
-    :bind (("C-c f f" . elfeed)
-           ("C-c f u" . elfeed-update))
-    :hook (elfeed-search-mode . elfeed-update)
-    :custom
-    (elfeed-search-filter "@2-weeks-ago +unread")
-    :config
-    (require 'elfeed-org)
-    (require 'elfeed-tube)
-    (require 'elfeed-tube-mpv))
-#+end_src
-
-** elfeed-org
-
-Manage elfeed subscriptions in an org-mode file instead of elisp.
-
-#+begin_src emacs-lisp
-  (use-package elfeed-org
-    :ensure t
-    :after (elfeed org)
-    :custom
-    (rmh-elfeed-org-files (list (expand-file-name "feeds.org" org-directory)))
-    :config
-    (elfeed-org))
-#+end_src
-
-** elfeed-tube
-
-Use elfeed for YouTube subscriptions, including getting video transcripts.
-
-#+begin_src emacs-lisp
-  (use-package elfeed-tube
-    :ensure t
-    :after elfeed
-    :config
-    (setq elfeed-tube-auto-save-p nil)
-    (setq elfeed-tube-auto-fetch-p t)
-    (elfeed-tube-setup)
-    :bind ( :map elfeed-show-mode-map
-            ("F" . elfeed-tube-fetch)
-            ([remap save-buffer] . elfeed-tube-save)
-            :map elfeed-search-mode-map
-            ("F" . elfeed-tube-fetch)
-            ([remap save-buffer] . elfeed-tube-save)))
-  (use-package elfeed-tube-mpv
-    :ensure t
-    :after elfeed-tube
-    :init (require 'mpv)
-    :bind ( :map elfeed-show-mode-map
-            ("C-c C-f" . elfeed-tube-mpv-follow-mode)
-            ("C-c C-w" . elfeed-tube-mpv-where)))
-#+end_src
diff --git a/config/newsticker.org b/config/newsticker.org
new file mode 100644
index 0000000..8d17749
--- /dev/null
+++ b/config/newsticker.org
@@ -0,0 +1,81 @@
+#+title: Newsticker Config
+#+author: Evie Litherland-Smith
+#+email: evie@xenia.me.uk
+#+filetags: :emacs:config:org:
+#+property: header-args:emacs-lisp :tangle yes :mkdirp yes :results output silent
+
+#+begin_src emacs-lisp
+  (use-package newsticker
+    :ensure t
+    :custom
+    (newsticker-url-list-defaults '(("Emacs Wiki" "https://www.emacswiki.org/emacs?action=rss" nil 3600)
+                                    ("LWN (Linux Weekly News)" "https://lwn.net/headlines/rss")
+                                    ("Quote of the day" "https://feeds.feedburner.com/quotationspage/qotd" "07:00" 86400)
+                                    ("The Register" "https://www.theregister.co.uk/headlines.rss")
+                                    ("slashdot" "http://rss.slashdot.org/Slashdot/slashdot" nil 3600)
+                                    ("Wired News" "https://www.wired.com/feed/rss")))
+    (newsticker-url-list '(("Proton Blog" "https://proton.me/blog/feed" nil nil nil)
+                           ("The Friday Chillout" "https://podcasts.watchnebula.com/chilloutpod" nil nil nil)
+                           ("SystemCrafters News" "https://systemcrafters.net/rss/news.xml" nil nil nil)
+                           ("Atlas NYXT News" "https://nyxt.atlas.engineer/feed" nil nil nil)
+                           ("LiberaChat" "https://libera.chat/atom.xml" nil nil nil)
+                           ("This week in Rust" "https://this-week-in-rust.org/rss.xml" nil nil nil)
+                           ("Forgejo Feed" "https://forgejo.org/rss.xml" nil nil nil))))
+#+end_src
+
+#+RESULTS:
+
+* Elfeed
+#+begin_src emacs-lisp
+  (use-package elfeed
+    :bind (("C-c f f" . elfeed)
+           ("C-c f u" . elfeed-update))
+    :hook (elfeed-search-mode . elfeed-update)
+    :custom
+    (elfeed-search-filter "@2-weeks-ago +unread")
+    :config
+    (require 'elfeed-org)
+    (require 'elfeed-tube)
+    (require 'elfeed-tube-mpv))
+#+end_src
+
+** elfeed-org
+
+Manage elfeed subscriptions in an org-mode file instead of elisp.
+
+#+begin_src emacs-lisp
+  (use-package elfeed-org
+    :ensure t
+    :after (elfeed org)
+    :custom
+    (rmh-elfeed-org-files (list (expand-file-name "feeds.org" org-directory)))
+    :config
+    (elfeed-org))
+#+end_src
+
+** elfeed-tube
+
+Use elfeed for YouTube subscriptions, including getting video transcripts.
+
+#+begin_src emacs-lisp
+  (use-package elfeed-tube
+    :ensure t
+    :after elfeed
+    :config
+    (setq elfeed-tube-auto-save-p nil)
+    (setq elfeed-tube-auto-fetch-p t)
+    (elfeed-tube-setup)
+    :bind ( :map elfeed-show-mode-map
+            ("F" . elfeed-tube-fetch)
+            ([remap save-buffer] . elfeed-tube-save)
+            :map elfeed-search-mode-map
+            ("F" . elfeed-tube-fetch)
+            ([remap save-buffer] . elfeed-tube-save)))
+  (use-package elfeed-tube-mpv
+    :ensure t
+    :after elfeed-tube
+    :init (require 'mpv)
+    :bind ( :map elfeed-show-mode-map
+            ("C-c C-f" . elfeed-tube-mpv-follow-mode)
+            ("C-c C-w" . elfeed-tube-mpv-where)))
+#+end_src