Better-configure elfeed

1 files changed, 19 insertions, 6 deletions

@@ -826,19 +826,32 @@ See also `crux-reopen-as-root-mode'."
 
 (setup (:straight elfeed)
   (:also-load +elfeed)
-  (:option elfeed-use-curl t
-           elfeed-curl-extra-arguments '("--insecure")
-           elfeed-show-unique-buffers t
-           elfeed-db-directory (sync/ "elfeed/db/" t))
+  (+define-dir elfeed/ (sync/ "emacs/elfeed/" t))
+  (:option
+   elfeed-curl-program-name (executable-find "curl")
+   elfeed-use-curl elfeed-curl-program-name
+   elfeed-curl-extra-arguments '("--insecure")
+   elfeed-enclosure-default-dir (cl-loop for dir in '("~/var/download/"
+                                                      "~/Downloads/")
+                                         if (file-exists-p dir)
+                                         return dir)
+   elfeed-search-filter "@1-month-ago +unread"
+   elfeed-search-trailing-width 24
+   elfeed-search-title-min-width 24
+   elfeed-search-title-max-width 78
+   elfeed-show-unique-buffers t
+   elfeed-db-directory (elfeed/ "db/" t))
   ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/
   (advice-add #'elfeed-search-update--force :after #'elfeed-db-save)
   (:with-mode elfeed-show-mode
     (:bind "SPC" #'+elfeed-scroll-up-command
            "S-SPC" #'+elfeed-scroll-down-command)
-    (:hook #'reading-mode)))
+    (:hook #'reading-mode)
+    (define-advice elfeed-show-entry (:after (&rest _))
+      (run-at-time 0 nil #'elfeed-show-refresh))))
 
 (setup (:straight elfeed-org)
-  (:option rmh-elfeed-org-files (list (sync/ "elfeed/elfeed.org" t)))
+  (:option rmh-elfeed-org-files (list (elfeed/ "/elfeed.org" t)))
   (elfeed-org))
 
 (setup (:straight embark)