doomemacs/modules/app/rss/config.el
2017-04-17 02:20:07 -04:00

65 lines
1.9 KiB
EmacsLisp

;;; app/rss/config.el
;; This is an opinionated workflow that turns Emacs into an RSS reader, inspired
;; by apps Reeder and Readkit. It can be invoked via `=rss'. Otherwise, if you
;; don't care for the UI you can invoke elfeed directly with `elfeed'.
(defvar +rss-org-dir (concat +org-dir "/rss/")
"Where RSS org files are located.")
(defvar +rss-elfeed-files (list "elfeed.org")
"The files that configure `elfeed's rss feeds.")
(defvar +rss-split-direction 'below
"What direction to pop up the entry buffer in elfeed.")
;;
;; Packages
;;
(def-package! elfeed
:commands elfeed
:config
(setq elfeed-search-filter "@2-week-ago "
elfeed-db-directory (concat doom-local-dir "elfeed/db/")
elfeed-enclosure-default-dir (concat doom-local-dir "elfeed/enclosures/")
elfeed-show-entry-switch #'+rss-popup-pane
elfeed-show-entry-delete #'+rss/delete-pane
shr-max-image-proportion 0.6)
(make-directory elfeed-db-directory t)
;; Ensure elfeed buffers are treated as real
(push (lambda (buf) (string-match-p "^\\*elfeed" (buffer-name buf)))
doom-real-buffer-functions)
(add-hook! 'elfeed-show-mode-hook
#'(doom-hide-modeline-mode +rss|elfeed-wrap))
(after! doom-themes
(add-hook 'elfeed-show-mode-hook #'doom-buffer-mode))
(map! :map elfeed-search-mode-map
:n "r" #'elfeed-update
:n "s" #'elfeed-search-live-filter
:n "RET" #'elfeed-search-show-entry
:n "q" #'+rss/quit
:map elfeed-show-mode-map
[remap doom/kill-this-buffer] #'elfeed-kill-buffer
:n "q" #'elfeed-kill-buffer
:m "j" #'evil-next-visual-line
:m "k" #'evil-previous-visual-line
:n "]b" #'+rss/next
:n "[b" #'+rss/previous))
(def-package! elfeed-org
:after elfeed
:config
(setq rmh-elfeed-org-files
(let ((default-directory +rss-org-dir))
(mapcar #'expand-file-name +rss-elfeed-files)))
(elfeed-org))