From 99819c1bb11b12450a0dd27ddeeaaad983d14c49 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 28 Jan 2021 12:45:14 -0600 Subject: Wrap acdw-elfeed-protocol-ttrss... in with-eval-after-load --- config.org | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) (limited to 'config.org') diff --git a/config.org b/config.org index de6e7a7..03b927f 100644 --- a/config.org +++ b/config.org @@ -1852,22 +1852,23 @@ new from TTRSS. So I rebind it to ... =elfeed-protocol-ttrss-reinit= options). #+begin_src emacs-lisp :noweb-ref bindings - (defun acdw-elfeed-protocol-ttrss-update-then-reinit () - "Update, then reinit, the first entry in `elfeed-feeds'." - (interactive) - (let ((url (caar elfeed-feeds)) - (msg-update "Elfeed Protocol: Updating...") - (msg-reinit "Elfeed Protocol: Re-initializing...")) - (message "%s" msg-update) - (elfeed-protocol-ttrss-update url) - (message "%s Done." msg-update) - - (message "%s" msg-reinit) - (elfeed-protocol-ttrss-reinit url) - (message "%s Done." msg-reinit))) - - (define-key elfeed-search-mode-map "G" - #'acdw-elfeed-protocol-ttrss-update-then-reinit) + (with-eval-after-load 'elfeed-protocol + (defun acdw-elfeed-protocol-ttrss-update-then-reinit () + "Update, then reinit, the first entry in `elfeed-feeds'." + (interactive) + (let ((url (caar elfeed-feeds)) + (msg-update "Elfeed Protocol: Updating...") + (msg-reinit "Elfeed Protocol: Re-initializing...")) + (message "%s" msg-update) + (elfeed-protocol-ttrss-update url) + (message "%s Done." msg-update) + + (message "%s" msg-reinit) + (elfeed-protocol-ttrss-reinit url) + (message "%s Done." msg-reinit))) + + (define-key elfeed-search-mode-map "G" + #'acdw-elfeed-protocol-ttrss-update-then-reinit)) #+end_src * Org mode :package: -- cgit 1.4.1-21-gabe81