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

elfeed-summary: log update time

Browse source
This commit is contained in:
Pavel Korytov 2023-12-31 17:56:47 +03:00
parent 92b5d026e0
commit 5ca7a36eca
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
elfeed-summary.el
View file

@ -1496,6 +1496,9 @@ of string."
collect (car feed)
else if (not (listp feed)) collect feed))
(defvar elfeed-summary--update-start-time nil
"Time when the current elfeed update started.")
(defun elfeed-summary--update (feeds)
"Update elfeed FEEDS."
;; XXX Here's a remarkably dirty solution. This command is meant to
@ -1514,8 +1517,10 @@ of string."
(not (or (and (listp hook) (eq (car hook) 'closure))
(byte-code-function-p hook))))
elfeed-update-hooks))
(setq elfeed-summary--update-start-time (time-convert nil 'integer))
(let* ((elfeed--inhibit-update-init-hooks t)
(remaining-feeds (seq-copy feeds))
(feed-count (length remaining-feeds))
(elfeed-update-closure
(lambda (url)
(message (if (> (elfeed-queue-count-total) 0)
@ -1523,7 +1528,12 @@ of string."
(in-process (elfeed-queue-count-active)))
(format "%d jobs pending, %d active..."
(- total in-process) in-process))
"Elfeed update completed"))
(format "Elfeed update completed: %s feeds in %s"
feed-count
(format-seconds
"%M, %S" (time-subtract
(time-convert nil 'integer)
elfeed-summary--update-start-time)))))
(setq remaining-feeds
(seq-remove
(lambda (url-1)