diff options
Diffstat (limited to 'config.org')
-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: |