sqrtminusone/elfeed-sync
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/elfeed-sync.git synced 2025-12-10 20:13:02 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: ttrss-missing-ids

Browse source
This commit is contained in:
Pavel Korytov 2022-05-29 13:05:06 +03:00
parent 8db44efab9
commit 32e0bbfaf5
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
elfeed-sync.el
View file

@ -431,23 +431,24 @@ It has to be put to the `:ids-missing-tt-rss' value in the
Look at `elfeed-sync--do-sync' for the details." Look at `elfeed-sync--do-sync' for the details."
(let (all-missing) (let (all-missing)
(maphash (lambda (ttrss-id ttrss-entry) (maphash (lambda (_key ttrss-entry)
(unless (gethash ttrss-id ttrss-entries-processed) (let ((ttrss-id (alist-get 'id ttrss-entry)))
(push ttrss-entry all-missing) (unless (gethash ttrss-id ttrss-entries-processed)
(when-let ((ttrss-time (elfeed-sync--ttrss-get-updated-time (push ttrss-entry all-missing)
ttrss-entry))) (when-let ((ttrss-time (elfeed-sync--ttrss-get-updated-time
(if-let ((old-val (gethash ttrss-id ttrss-entry)))
(alist-get :ids-missing-tt-rss (if-let ((old-val (gethash ttrss-id
elfeed-sync--state))) (alist-get :ids-missing-tt-rss
(is-equal (= (car old-val) ttrss-time))) elfeed-sync--state)))
t ;; do nothing (is-equal (= (car old-val) ttrss-time)))
(puthash ttrss-id (cons ttrss-time t ;; do nothing
(or (puthash ttrss-id (cons ttrss-time
(alist-get :last-sync-time (or
elfeed-sync--state) (alist-get :last-sync-time
elfeed-sync--start-time)) elfeed-sync--state)
(alist-get :ids-missing-tt-rss elfeed-sync--start-time))
elfeed-sync--state)))))) (alist-get :ids-missing-tt-rss
elfeed-sync--state)))))))
ttrss-entries) ttrss-entries)
all-missing)) all-missing))
@ -754,7 +755,7 @@ FUN and ARGS are passed to `apply'."
(let ((header (apply fun args)) (let ((header (apply fun args))
(last-sync-time (alist-get :last-sync-time elfeed-sync--state))) (last-sync-time (alist-get :last-sync-time elfeed-sync--state)))
(if last-sync-time (if last-sync-time
(format "%s %s, Synced at" (format "%s, Synced at %s"
header header
(format-time-string (format-time-string
"%Y-%m-%d %H:%M:%S" "%Y-%m-%d %H:%M:%S"