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: melpa/melpa#7972

Browse source
This commit is contained in:
Pavel Korytov 2022-03-28 12:07:21 +03:00
parent 759ec89969
commit 7b58bb1beb
1 changed files with 17 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
elfeed-summary.el
View file

@ -126,7 +126,7 @@
(const :tag "Misc feeds" :misc)))) (const :tag "Misc feeds" :misc))))
(defgroup elfeed-summary () (defgroup elfeed-summary ()
"Feed summary inteface for elfeed." "Feed summary interface for elfeed."
:group 'elfeed) :group 'elfeed)
(defcustom elfeed-summary-settings (defcustom elfeed-summary-settings
@ -540,7 +540,7 @@ PARAMS is a form as described in `elfeed-summary-settings'."
append (elfeed-summary--get-feeds (cdr param)))) append (elfeed-summary--get-feeds (cdr param))))
(defun elfeed-summary--ensure () (defun elfeed-summary--ensure ()
"Ensure that eleed database is loaded and feeds are set up." "Ensure that elfeed database is loaded and feeds are set up."
(elfeed-db-ensure) (elfeed-db-ensure)
(when (and (not elfeed-feeds) (when (and (not elfeed-feeds)
(fboundp #'rmh-elfeed-org-process) (fboundp #'rmh-elfeed-org-process)
@ -760,21 +760,20 @@ SECTION is an instance of `elfeed-summary-group-section'."
(cond (cond
(elfeed-summary--search-mark-read (elfeed-summary--search-mark-read
(elfeed-summary--mark-read feeds)) (elfeed-summary--mark-read feeds))
(t (progn (t (elfeed)
(elfeed) (elfeed-search-set-filter
(elfeed-search-set-filter (concat
(concat elfeed-summary-default-filter
elfeed-summary-default-filter (unless elfeed-summary--search-show-read
(unless elfeed-summary--search-show-read (format "+%s " elfeed-summary-unread-tag))
(format "+%s " elfeed-summary-unread-tag)) (mapconcat
(mapconcat (lambda (feed)
(lambda (feed) (format "=%s" (replace-regexp-in-string
(format "=%s" (replace-regexp-in-string (rx "?" (* not-newline) eos)
(rx "?" (* not-newline) eos) ""
"" (elfeed-feed-url feed))))
(elfeed-feed-url feed)))) feeds
feeds " ")))))))
" "))))))))
(defun elfeed-summary--render-feed (data _level) (defun elfeed-summary--render-feed (data _level)
"Render a feed item for the elfeed summary buffer. "Render a feed item for the elfeed summary buffer.
@ -880,7 +879,7 @@ the level of the recursive descent."
TREE is a form such as returned by `elfeed-summary--get-data'. TREE is a form such as returned by `elfeed-summary--get-data'.
MAX-UNREAD and MAX-TOTAL are paramenters for the recursive descent." MAX-UNREAD and MAX-TOTAL are parameters for the recursive descent."
(unless max-unread (unless max-unread
(setq max-unread 0 (setq max-unread 0
max-total 0)) max-total 0))