From e21ce8f98660f14273c5ec8ab7d66782eb425702 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 28 Jan 2021 08:12:36 -0600
Subject: Add a function to better sync with TTRSS

---
 config.org | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'config.org')

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.
     (elfeed-protocol-enable))
 #+end_src
 
+For whatever reason, =G= (=elfeed-search-fetch=) doesn't fetch anything
+new from TTRSS.  So I rebind it to ... =elfeed-protocol-ttrss-reinit=
+(=elfeed-protocol-ttrss-update= doesn't pull everything for some reason
+... this kind of thing is why I'm looking at other elfeed-sync
+options).
+
+#+begin_src emacs-lisp :noweb-ref bindings
+  (defun acdw-elfeed-protocol-ttrss-update-then-reinit ()
+    "Update, then reinit, the first entry in `elfeed-feeds'."
+    (interactive)
+    (let ((url (caar elfeed-feeds))
+          (msg-update "Elfeed Protocol: Updating...")
+          (msg-reinit "Elfeed Protocol: Re-initializing..."))
+      (message "%s" msg-update)
+      (elfeed-protocol-ttrss-update url)
+      (message "%s Done." msg-update)
+
+      (message "%s" msg-reinit)
+      (elfeed-protocol-ttrss-reinit url)
+      (message "%s Done." msg-reinit)))
+
+  (define-key elfeed-search-mode-map "G"
+    #'acdw-elfeed-protocol-ttrss-update-then-reinit)
+#+end_src
+
 * Org mode                                                          :package:
 
 ** Install it with =straight.el=
-- 
cgit 1.4.1-21-gabe81