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

elfeed-summary: respect skip-sync-tag in sync at point

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

13
elfeed-summary.el
View file

@ -1568,10 +1568,19 @@ of string."
(list (elfeed-feed-url feed))) (list (elfeed-feed-url feed)))
(when-let (section (magit-current-section)) (when-let (section (magit-current-section))
(when (slot-boundp section 'group) (when (slot-boundp section 'group)
(elfeed-summary--group-extract-feeds (mapcar #'elfeed-feed-url
(oref section group))))))) (elfeed-summary--group-extract-feeds
(oref section group)))))))
(ignore-feeds
(cl-loop for feed in elfeed-feeds
when (and (listp feed) (memq elfeed-summary-skip-sync-tag
(cdr feed)))
collect (car feed))))
(unless feeds (unless feeds
(user-error "No feeds at point")) (user-error "No feeds at point"))
(setq feeds (seq-difference feeds ignore-feeds))
(unless feeds
(user-error "All feeds at point are ignored"))
(elfeed-summary--update feeds))) (elfeed-summary--update feeds)))
(defvar elfeed-summary--setup nil (defvar elfeed-summary--setup nil