summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-03 22:37:34 -0600
committerCase Duckworth2022-01-03 22:37:34 -0600
commite0318de85888e316d723da8e7baf642c7961caa2 (patch)
treec812fd3d041a4c9dfad2046bbf343fecd2beb490
parentBreak out forge config into its own thing (diff)
downloademacs-e0318de85888e316d723da8e7baf642c7961caa2.tar.gz
emacs-e0318de85888e316d723da8e7baf642c7961caa2.zip
Better-configure elfeed
-rw-r--r--init.el25
1 files changed, 19 insertions, 6 deletions
diff --git a/init.el b/init.el index 36bfff0..d2997fb 100644 --- a/init.el +++ b/init.el
@@ -826,19 +826,32 @@ See also `crux-reopen-as-root-mode'."
826 826
827(setup (:straight elfeed) 827(setup (:straight elfeed)
828 (:also-load +elfeed) 828 (:also-load +elfeed)
829 (:option elfeed-use-curl t 829 (+define-dir elfeed/ (sync/ "emacs/elfeed/" t))
830 elfeed-curl-extra-arguments '("--insecure") 830 (:option
831 elfeed-show-unique-buffers t 831 elfeed-curl-program-name (executable-find "curl")
832 elfeed-db-directory (sync/ "elfeed/db/" t)) 832 elfeed-use-curl elfeed-curl-program-name
833 elfeed-curl-extra-arguments '("--insecure")
834 elfeed-enclosure-default-dir (cl-loop for dir in '("~/var/download/"
835 "~/Downloads/")
836 if (file-exists-p dir)
837 return dir)
838 elfeed-search-filter "@1-month-ago +unread"
839 elfeed-search-trailing-width 24
840 elfeed-search-title-min-width 24
841 elfeed-search-title-max-width 78
842 elfeed-show-unique-buffers t
843 elfeed-db-directory (elfeed/ "db/" t))
833 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/ 844 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/
834 (advice-add #'elfeed-search-update--force :after #'elfeed-db-save) 845 (advice-add #'elfeed-search-update--force :after #'elfeed-db-save)
835 (:with-mode elfeed-show-mode 846 (:with-mode elfeed-show-mode
836 (:bind "SPC" #'+elfeed-scroll-up-command 847 (:bind "SPC" #'+elfeed-scroll-up-command
837 "S-SPC" #'+elfeed-scroll-down-command) 848 "S-SPC" #'+elfeed-scroll-down-command)
838 (:hook #'reading-mode))) 849 (:hook #'reading-mode)
850 (define-advice elfeed-show-entry (:after (&rest _))
851 (run-at-time 0 nil #'elfeed-show-refresh))))
839 852
840(setup (:straight elfeed-org) 853(setup (:straight elfeed-org)
841 (:option rmh-elfeed-org-files (list (sync/ "elfeed/elfeed.org" t))) 854 (:option rmh-elfeed-org-files (list (elfeed/ "/elfeed.org" t)))
842 (elfeed-org)) 855 (elfeed-org))
843 856
844(setup (:straight embark) 857(setup (:straight embark)