gs-elfeed.el

;;; -*- lexical-binding: t -*-

(use-package elfeed
  :bind
  (
   :map elfeed-search-mode-map
   ("R" . kaushal-modi/elfeed-search-mark-all-as-read)
   :map elfeed-show-mode-map
   ("C-c C-o" . shr-browse-url)
   )
  :config
  ;; https://emacs.stackexchange.com/a/2441
  (defun kaushal-modi/elfeed-search-mark-all-as-read ()
    "Call `mark-whole-buffer' and `elfeed-search-untag-all-undead' in unison,
marking all current messages as read."
    (interactive)
    (mark-whole-buffer)
    (elfeed-search-untag-all-unread))
  :defer t
  :ensure t
  )

(use-package elfeed-org
  :after elfeed org
  :config
  (elfeed-org)
  :custom
  (rmh-elfeed-org-files (list (expand-file-name "elfeed.org" org-directory)))
  :ensure t
  )

(use-package elfeed
  :bind
  (
   :map elfeed-show-mode-map
   ("B" . karthinks/elfeed-show-eww-open)
   :map elfeed-search-mode-map
   ("B" . karthinks/elfeed-search-eww-open)
   )
  :config
  (defun karthinks/elfeed-show-eww-open (&optional use-generic-p)
    "Open elfeed show entry with \\[eww]."
    (interactive "P")
    (let ((browse-url-browser-function #'eww-browse-url))
      (elfeed-show-visit use-generic-p)))
  (defun karthinks/elfeed-search-eww-open (&optional use-generic-p)
    "Open elfeed search entry with \\[eww]."
    (interactive "P")
    (let ((browse-url-browser-function #'eww-browse-url))
      (elfeed-search-browse-url use-generic-p)))
  )

(provide 'gs-elfeed)