From 7e308adaa351f8c7f6ba839cbcfd4e3cd145401c Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Sun, 31 Dec 2023 17:56:58 +0300 Subject: [PATCH] elfeed-summary: respect skip-sync-tag in sync at point --- elfeed-summary.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/elfeed-summary.el b/elfeed-summary.el index ff57729..cc09753 100644 --- a/elfeed-summary.el +++ b/elfeed-summary.el @@ -1568,10 +1568,19 @@ of string." (list (elfeed-feed-url feed))) (when-let (section (magit-current-section)) (when (slot-boundp section 'group) - (elfeed-summary--group-extract-feeds - (oref section group))))))) + (mapcar #'elfeed-feed-url + (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 (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))) (defvar elfeed-summary--setup nil