diff options
| author | Case Duckworth | 2021-01-28 12:45:14 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-01-28 12:45:14 -0600 |
| commit | 99819c1bb11b12450a0dd27ddeeaaad983d14c49 (patch) | |
| tree | 606513586d67036e0b9788a405aa5244eb20a64c | |
| parent | Add :package: tag and edit headline (diff) | |
| download | emacs-99819c1bb11b12450a0dd27ddeeaaad983d14c49.tar.gz emacs-99819c1bb11b12450a0dd27ddeeaaad983d14c49.zip | |
Wrap acdw-elfeed-protocol-ttrss... in with-eval-after-load
| -rw-r--r-- | config.org | 33 |
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= | |||
| 1852 | options). | 1852 | options). |
| 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: |