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

fix: byte-compile

Browse source
This commit is contained in:
Pavel Korytov 2022-12-10 12:40:03 +03:00
parent 7193b2f269
commit d51ca5be1d
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
elfeed-summary.el
View file

@ -307,7 +307,9 @@ Accepts the only parameter, which is a tree node created by
`elfeed-summary--arrange-sequences-in-tree'. `elfeed-summary--arrange-sequences-in-tree'.
See `elfeed-summary--auto-tags-group-title' for the default See `elfeed-summary--auto-tags-group-title' for the default
implementation.") implementation."
:group 'elfeed-summary
:type 'function)
(defcustom elfeed-summary-refresh-on-each-update nil (defcustom elfeed-summary-refresh-on-each-update nil
"Whether to refresh the elfeed summary buffer after each update. "Whether to refresh the elfeed summary buffer after each update.
@ -703,7 +705,8 @@ LEVEL is the current level of recursion, which is 0 by default."
;; Go deeper if we can ;; Go deeper if we can
(when (< level max-level) (when (< level max-level)
(cl-loop (cl-loop
for (value . child-tree) in (alist-get 'children tree) collect for datum in (alist-get 'children tree)
for child-tree = (cdr datum) collect
`(group . ((params . ((:title `(group . ((params . ((:title
. ,(funcall elfeed-summary-auto-tags-group-title-fn . ,(funcall elfeed-summary-auto-tags-group-title-fn
child-tree)))) child-tree))))
@ -1082,12 +1085,14 @@ descent."
(dolist (id ids) (dolist (id ids)
(puthash id t ids-hash)) (puthash id t ids-hash))
(with-elfeed-db-visit (entry feed) (with-elfeed-db-visit (entry feed)
;; XXX to shut up the byte compiler
(ignore feed)
(when (and (when (and
(gethash (elfeed-entry-id entry) ids-hash nil) (gethash (elfeed-entry-id entry) ids-hash nil)
(member elfeed-summary-unread-tag (elfeed-entry-tags entry))) (member elfeed-summary-unread-tag (elfeed-entry-tags entry)))
(setf (elfeed-entry-tags entry) (setf (elfeed-entry-tags entry)
(seq-filter (lambda (tag) (not (eq elfeed-summary-unread-tag tag))) (seq-filter (lambda (tag) (not (eq elfeed-summary-unread-tag tag)))
(elfeed-entry-tags entry))))) ) (elfeed-entry-tags entry))))))
(elfeed-summary--refresh))) (elfeed-summary--refresh)))
(defun elfeed-summary--search-notify (widget &rest _) (defun elfeed-summary--search-notify (widget &rest _)
@ -1341,7 +1346,7 @@ summary buffer."
"Update all the feeds in `elfeed-feeds' and the summary buffer." "Update all the feeds in `elfeed-feeds' and the summary buffer."
(interactive) (interactive)
(elfeed-log 'info "Elfeed update: %s" (elfeed-log 'info "Elfeed update: %s"
(format-time-string "%B %e %Y %H:%M:%S %Z")) (format-time-string "%B %e %Y %T %Z"))
;; XXX Here's a remarkably dirty solution. This command is meant to ;; XXX Here's a remarkably dirty solution. This command is meant to
;; refresh the elfeed-summary buffer after all the feeds have been ;; refresh the elfeed-summary buffer after all the feeds have been
;; updated. But elfeed doesn't seem to provide anything to hook ;; updated. But elfeed doesn't seem to provide anything to hook