#+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