From e761e1eb6f163bfc9a04b8552b3eba8ab18a11a2 Mon Sep 17 00:00:00 2001 From: Bram Schoenmakers Date: Thu, 1 Aug 2024 22:32:25 +0200 Subject: [PATCH] Factor out entry gathering --- elfeed-export.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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")