about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-01-28 12:45:14 -0600
committerCase Duckworth2021-01-28 12:45:14 -0600
commit99819c1bb11b12450a0dd27ddeeaaad983d14c49 (patch)
tree606513586d67036e0b9788a405aa5244eb20a64c
parentAdd :package: tag and edit headline (diff)
downloademacs-99819c1bb11b12450a0dd27ddeeaaad983d14c49.tar.gz
emacs-99819c1bb11b12450a0dd27ddeeaaad983d14c49.zip
Wrap acdw-elfeed-protocol-ttrss... in with-eval-after-load
-rw-r--r--config.org33
1 files changed, 17 insertions, 16 deletions
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=
1852options). 1852options).
1853 1853
1854#+begin_src emacs-lisp :noweb-ref bindings 1854#+begin_src emacs-lisp :noweb-ref bindings
1855 (defun acdw-elfeed-protocol-ttrss-update-then-reinit () 1855 (with-eval-after-load 'elfeed-protocol
1856 "Update, then reinit, the first entry in `elfeed-feeds'." 1856 (defun acdw-elfeed-protocol-ttrss-update-then-reinit ()
1857 (interactive) 1857 "Update, then reinit, the first entry in `elfeed-feeds'."
1858 (let ((url (caar elfeed-feeds)) 1858 (interactive)
1859 (msg-update "Elfeed Protocol: Updating...") 1859 (let ((url (caar elfeed-feeds))
1860 (msg-reinit "Elfeed Protocol: Re-initializing...")) 1860 (msg-update "Elfeed Protocol: Updating...")
1861 (message "%s" msg-update) 1861 (msg-reinit "Elfeed Protocol: Re-initializing..."))
1862 (elfeed-protocol-ttrss-update url) 1862 (message "%s" msg-update)
1863 (message "%s Done." msg-update) 1863 (elfeed-protocol-ttrss-update url)
1864 1864 (message "%s Done." msg-update)
1865 (message "%s" msg-reinit) 1865
1866 (elfeed-protocol-ttrss-reinit url) 1866 (message "%s" msg-reinit)
1867 (message "%s Done." msg-reinit))) 1867 (elfeed-protocol-ttrss-reinit url)
1868 1868 (message "%s Done." msg-reinit)))
1869 (define-key elfeed-search-mode-map "G" 1869
1870 #'acdw-elfeed-protocol-ttrss-update-then-reinit) 1870 (define-key elfeed-search-mode-map "G"
1871 #'acdw-elfeed-protocol-ttrss-update-then-reinit))
1871#+end_src 1872#+end_src
1872 1873
1873* Org mode :package: 1874* Org mode :package: