Adjust type op custom variables with predicates

This commit is contained in:
Bram Schoenmakers 2024-07-02 06:12:21 +02:00
parent ad68b76076
commit 287a6a102a
Signed by: bram
GPG key ID: 0CCD19DFDC63258F

View file

@ -73,7 +73,7 @@ Each predicate accepts an entry and a feed object and should
return t when the entry should be pruned, unless any of the
predicates in `elfeed-prune-keep-predicates' returns t."
:group 'elfeed-prune
:type 'list)
:type '(repeat function))
(defcustom elfeed-prune-keep-predicates nil
"Always keep entries that match one of these predicates.
@ -81,7 +81,7 @@ predicates in `elfeed-prune-keep-predicates' returns t."
Each predicate accepts an entry and a feed object and should
return t when the entry should be kept."
:group 'elfeed-prune
:type 'list)
:type '(repeat function))
(defun elfeed-prune--feed-unlisted-p (entry feed)
(not (seq-contains-p (mapcar #'car elfeed-feeds)