;;; 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-default elfeed-search-filter "@2-week-ago ")
  (setq 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))