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...)
This commit is contained in:
Evie Litherland-Smith 2024-02-19 18:43:56 +00:00
parent e9624864b2
commit e5450165c0
3 changed files with 83 additions and 56 deletions

1
.gitignore vendored
View file

@ -16,3 +16,4 @@
/tramp
/transient/
/url/
/newsticker/

View file

@ -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

81
config/newsticker.org Normal file
View file

@ -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