summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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: