about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-07 00:05:45 -0600
committerCase Duckworth2022-01-07 00:05:45 -0600
commit1eb9b6cb392f73279e0880b7e957a63fb48d0815 (patch)
treeb9f10f138a6f64b31b9d8717f30b9b6cfa4b5962
parentBegin customizing embark (diff)
downloademacs-1eb9b6cb392f73279e0880b7e957a63fb48d0815.tar.gz
emacs-1eb9b6cb392f73279e0880b7e957a63fb48d0815.zip
Make elfeed load the database before opening
-rw-r--r--init.el2
-rw-r--r--lisp/+elfeed.el8
2 files changed, 10 insertions, 0 deletions
diff --git a/init.el b/init.el index bac9a54..b046ffa 100644 --- a/init.el +++ b/init.el
@@ -229,6 +229,7 @@
229 copy move hardlink symlink 229 copy move hardlink symlink
230 shell touch) 230 shell touch)
231 dired-dwim-target t) 231 dired-dwim-target t)
232 (:local-set truncate-lines nil)
232 (:bind "<backspace>" #'dired-up-directory 233 (:bind "<backspace>" #'dired-up-directory
233 "TAB" #'dired-subtree-cycle 234 "TAB" #'dired-subtree-cycle
234 "i" #'dired-subtree-toggle 235 "i" #'dired-subtree-toggle
@@ -894,6 +895,7 @@ See also `crux-reopen-as-root-mode'."
894 elfeed-search-title-max-width 78 895 elfeed-search-title-max-width 78
895 elfeed-show-unique-buffers t 896 elfeed-show-unique-buffers t
896 elfeed-db-directory (elfeed/ "db/" t)) 897 elfeed-db-directory (elfeed/ "db/" t))
898 (:+key "C-x w" #'+elfeed)
897 (:with-mode elfeed-search-mode 899 (:with-mode elfeed-search-mode
898 (:hook #'hl-line-mode) 900 (:hook #'hl-line-mode)
899 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/ 901 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/
diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el index 823902b..c26bfab 100644 --- a/lisp/+elfeed.el +++ b/lisp/+elfeed.el
@@ -4,6 +4,7 @@
4 4
5(require 'elfeed) 5(require 'elfeed)
6 6
7;; https://karthinks.com/software/lazy-elfeed/
7(defun +elfeed-scroll-up-command (&optional arg) 8(defun +elfeed-scroll-up-command (&optional arg)
8 "Scroll up or go to next feed item in Elfeed" 9 "Scroll up or go to next feed item in Elfeed"
9 (interactive "^P") 10 (interactive "^P")
@@ -20,5 +21,12 @@
20 (scroll-down-command arg) 21 (scroll-down-command arg)
21 (error (elfeed-show-prev))))) 22 (error (elfeed-show-prev)))))
22 23
24;; https://babbagefiles.blogspot.com/2017/03/take-elfeed-everywhere-mobile-rss.html
25(defun +elfeed ()
26 "Wrapper to load the elfeed db from disk before opening."
27 (interactive)
28 (elfeed-db-load)
29 (elfeed))
30
23(provide '+elfeed) 31(provide '+elfeed)
24;;; +elfeed.el ends here 32;;; +elfeed.el ends here