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))))
(defgroup elfeed-summary ()
"Feed summary inteface for elfeed."
"Feed summary interface for elfeed."
:group 'elfeed)
(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))))
(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)
(when (and (not elfeed-feeds)
(fboundp #'rmh-elfeed-org-process)
@ -760,21 +760,20 @@ SECTION is an instance of `elfeed-summary-group-section'."
(cond
(elfeed-summary--search-mark-read
(elfeed-summary--mark-read feeds))
(t (progn
(elfeed)
(elfeed-search-set-filter
(concat
elfeed-summary-default-filter
(unless elfeed-summary--search-show-read
(format "+%s " elfeed-summary-unread-tag))
(mapconcat
(lambda (feed)
(format "=%s" (replace-regexp-in-string
(rx "?" (* not-newline) eos)
""
(elfeed-feed-url feed))))
feeds
" "))))))))
(t (elfeed)
(elfeed-search-set-filter
(concat
elfeed-summary-default-filter
(unless elfeed-summary--search-show-read
(format "+%s " elfeed-summary-unread-tag))
(mapconcat
(lambda (feed)
(format "=%s" (replace-regexp-in-string
(rx "?" (* not-newline) eos)
""
(elfeed-feed-url feed))))
feeds
" ")))))))
(defun elfeed-summary--render-feed (data _level)
"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'.
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
(setq max-unread 0
max-total 0))