diff --git a/elfeed-export.el b/elfeed-export.el index 1c9d665..d748ddf 100644 --- a/elfeed-export.el +++ b/elfeed-export.el @@ -62,15 +62,18 @@ (when (memq 'content elfeed-export-fields) (cons "content" (elfeed-deref (elfeed-entry-content entry)))))))) -(defun elfeed-export-to-json () +(defun elfeed-export--entries () (let ((entries) (feeds (elfeed-feed-list))) - (dolist (feed (seq-take feeds 1)) + (dolist (feed feeds) (setq entries (append entries (elfeed-feed-entries feed)))) - (json-encode - (mapcar #'elfeed-export--entry-to-alist entries)))) + entries)) + +(defun elfeed-export-to-json () + (json-encode + (mapcar #'elfeed-export--entry-to-alist (elfeed-export--entries)))) (defun elfeed-export-to-file (path) (interactive "F")