;;; elfeedConfig.el -*- lexical-binding: t; -*-

(require 'elfeed)
(map! :leader
      (:prefix-map ("e" . "Elfeed")
        :desc "Open elfeed" "o" #'elfeed
        :desc "Update feed" "u" #'elfeed-update-feed
        :desc "Update all"  "a" #'elfeed-update))
(use-package elfeed
  :config
  (setq elfeed-search-feed-face ":foreground #fff :weight bold"
        elfeed-feeds (quote
                       (
                        ("https://hackaday.com/blog/feed/" hackaday linux)
                        ("https://opensource.com/feed" opensource linux)
                        ("https://linux.softpedia.com/backend.xml" softpedia linux)
                        ("https://www.thelancet.com/rssfeed/ebiom_current.xml" Lancet ebiom)
                        ("https://www.thelancet.com/rssfeed/lancet_current.xml" Lancet lancet)
                        ("https://www.thelancet.com/rssfeed/ebiom_online.xml" LancetOnline ebiom)
                        ("https://www.thelancet.com/rssfeed/lancet_online.xml" LancetOnline lancet)
                        ("https://www.thelancet.com/rssfeed/lanmic_online.xml" LancetOnline Microbiology)
                        ("https://www.techrepublic.com/rssfeeds/topic/open-source/" techrepublic linu)
                        )))

  )

(use-package elfeed-goodies
  :init
  (elfeed-goodies/setup)
  :config
  (setq elfeed-goodies/entry-pane-size 0.5))

(defun elfeed-search-format-date (date)
  (format-time-string "%Y-%m-%d %H:%M" (seconds-to-time date)))
(add-hook 'elfeed-show-mode-hook 'visual-line-mode)
(evil-define-key 'normal elfeed-show-mode-map
  (kbd "J") 'elfeed-goodies/split-show-next
  (kbd "K") 'elfeed-goodies/split-show-prev)
(evil-define-key 'normal elfeed-search-mode-map
  (kbd "J") 'elfeed-goodies/split-show-next
  (kbd "K") 'elfeed-goodies/split-show-prev)