;;; setup-elfeed.el -*- lexical-binding: t; -*-


(map! ;; "C-x C-l e" to launch is defined in =config.el=
 :map elfeed-search-mode-map
 "a" #'(lambda () (interactive) (elfeed-search-set-filter ""))
 "e" #'(lambda () (interactive) (elfeed-search-set-filter "+emacs"))
 "x" #'(lambda () (interactive) (elfeed-search-set-filter "xkcd"))
 "v" #'(lambda () (interactive) (elfeed-search-set-filter "+youtube"))
 "=" #'elfeed-search-set-filter)

(use-package! elfeed
  :init
  (setq elfeed-feeds
        '(
          ("https://insideevs.com/rss/make/tesla/" news tesla ev)
          ("https://insideevs.com/rss/make/rivian/" news rivian ev)
          ("https://insideevs.com/rss/category/battery-tech/" news battery ev)
          ("https://www.google.com/alerts/feeds/13353713273807811484/17577790586956417498" news google cybertruck tesla ev)
          ("https://www.google.com/alerts/feeds/13353713273807811484/2710948715805064535" news google tesla ev)
          ("https://www.google.com/alerts/feeds/13353713273807811484/17638090915837343269" news google pixel4)

          ("https://teslapodcast.libsyn.com/rss" podcast tesla ev)
          ("http://feeds.twit.tv/sn.xml" podcast security twit)
          ("https://feeds.fireside.fm/linuxunplugged/rss" podcast linux)
          ("https://latenightlinux.com/feed/all" podcast linux)

          ("https://feeds.fireside.fm/linuxunplugged/rss" podcast linux jb) ;; Linux Unplugged
          ("https://feeds.fireside.fm/office/rss" podcast linux jb) ;; Office Hours
          ("https://feeds.fireside.fm/linuxactionnews/rss" podcast linux jb) ;; Linux Action News
          ("https://feeds.fireside.fm/selfhosted/rss" podcast linux jb) ;; Self Hosted
          ("https://feeds.fireside.fm/coder/rss" podcast linux jb) ;; Coder Radio
          ("https://feeds.fireside.fm/extras/rss" podcast linux jb) ;; Extras

          ("https://www.youtube.com/feeds/videos.xml?channel_id=UCbgBDBrwsikmtoLqtpc59Bw" youtube tech) ;; teaching tech
          ("https://www.youtube.com/feeds/videos.xml?channel_id=UCBJycsmduvYEL83R_U4JriQ" youtube tech) ;; mkbhd
          ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUHW94eEFW7hkUMVaZz4eDg" youtube science) ;; minute physics
          ("https://www.youtube.com/feeds/videos.xml?channel_id=UC2eYFnH61tmytImy1mTYvhA" youtube commentary) ;; luke smith
          ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUQo7nzH1sXVpzL92VesANw" youtube diy) ;; DIY perks
          ("https://www.youtube.com/feeds/videos.xml?channel_id=UCzgkOWKcwy0uhYilE6bd1Lg" youtube emacs) ;; Zaiste Programming
          ("https://www.youtube.com/feeds/videos.xml?channel_id=UCtI0Hodo5o5dUb67FeUjDeA" youtube science tech) ;; SpaceX

          ("http://www.reddit.com/r/emacs/.rss" emacs)

          ("http://telescoper.wordpress.com/feed/" daily)
          ("http://xkcd.com/rss.xml" daily)
          ("http://pragmaticemacs.com/feed/" emacs)
          ("http://endlessparentheses.com/atom.xml" emacs)
          ("http://feeds.feedburner.com/XahsEmacsBlog" emacs)
          ("http://emacs.stackexchange.com/feeds" emacs)
          ))
  :config
  (defun yt-dl-it (url)
    "Downloads the URL in an async shell"
    (let ((default-directory "/Users/Levi_Olson/Videos"))
      (async-shell-command (format "youtube-dl %s" url))))

  (defun elfeed-youtube-dl (&optional use-generic-p)
    "Youtube-DL link"
    (interactive "P")
    (let ((entries (elfeed-search-selected)))
      (cl-loop for entry in entries
               do (elfeed-untag entry 'unread)
               when (elfeed-entry-link entry)
               do (yt-dl-it it))
      (mapc #'elfeed-search-update-entry entries)
      (unless (use-region-p) (forward-line))))

  (define-key elfeed-search-mode-map (kbd "d") 'elfeed-youtube-dl)
  (elfeed-update))



(use-package! elfeed-goodies
  :ensure t
  :config
  (elfeed-goodies/setup))

(provide 'setup-elfeed)