diff options
-rw-r--r-- | config.org | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/config.org b/config.org index 9048d6b..906eaad 100644 --- a/config.org +++ b/config.org | |||
@@ -1845,6 +1845,31 @@ much -- but until I figure out a proper syncing solution, it'll do. | |||
1845 | (elfeed-protocol-enable)) | 1845 | (elfeed-protocol-enable)) |
1846 | #+end_src | 1846 | #+end_src |
1847 | 1847 | ||
1848 | For whatever reason, =G= (=elfeed-search-fetch=) doesn't fetch anything | ||
1849 | new from TTRSS. So I rebind it to ... =elfeed-protocol-ttrss-reinit= | ||
1850 | (=elfeed-protocol-ttrss-update= doesn't pull everything for some reason | ||
1851 | ... this kind of thing is why I'm looking at other elfeed-sync | ||
1852 | options). | ||
1853 | |||
1854 | #+begin_src emacs-lisp :noweb-ref bindings | ||
1855 | (defun acdw-elfeed-protocol-ttrss-update-then-reinit () | ||
1856 | "Update, then reinit, the first entry in `elfeed-feeds'." | ||
1857 | (interactive) | ||
1858 | (let ((url (caar elfeed-feeds)) | ||
1859 | (msg-update "Elfeed Protocol: Updating...") | ||
1860 | (msg-reinit "Elfeed Protocol: Re-initializing...")) | ||
1861 | (message "%s" msg-update) | ||
1862 | (elfeed-protocol-ttrss-update url) | ||
1863 | (message "%s Done." msg-update) | ||
1864 | |||
1865 | (message "%s" msg-reinit) | ||
1866 | (elfeed-protocol-ttrss-reinit url) | ||
1867 | (message "%s Done." msg-reinit))) | ||
1868 | |||
1869 | (define-key elfeed-search-mode-map "G" | ||
1870 | #'acdw-elfeed-protocol-ttrss-update-then-reinit) | ||
1871 | #+end_src | ||
1872 | |||
1848 | * Org mode :package: | 1873 | * Org mode :package: |
1849 | 1874 | ||
1850 | ** Install it with =straight.el= | 1875 | ** Install it with =straight.el= |