Factor out entry gathering
This commit is contained in:
parent
7697ec34b6
commit
e761e1eb6f
1 changed files with 7 additions and 4 deletions
|
@ -62,15 +62,18 @@
|
||||||
(when (memq 'content elfeed-export-fields)
|
(when (memq 'content elfeed-export-fields)
|
||||||
(cons "content" (elfeed-deref (elfeed-entry-content entry))))))))
|
(cons "content" (elfeed-deref (elfeed-entry-content entry))))))))
|
||||||
|
|
||||||
(defun elfeed-export-to-json ()
|
(defun elfeed-export--entries ()
|
||||||
(let ((entries)
|
(let ((entries)
|
||||||
(feeds (elfeed-feed-list)))
|
(feeds (elfeed-feed-list)))
|
||||||
(dolist (feed (seq-take feeds 1))
|
(dolist (feed feeds)
|
||||||
(setq entries
|
(setq entries
|
||||||
(append entries
|
(append entries
|
||||||
(elfeed-feed-entries feed))))
|
(elfeed-feed-entries feed))))
|
||||||
(json-encode
|
entries))
|
||||||
(mapcar #'elfeed-export--entry-to-alist entries))))
|
|
||||||
|
(defun elfeed-export-to-json ()
|
||||||
|
(json-encode
|
||||||
|
(mapcar #'elfeed-export--entry-to-alist (elfeed-export--entries))))
|
||||||
|
|
||||||
(defun elfeed-export-to-file (path)
|
(defun elfeed-export-to-file (path)
|
||||||
(interactive "F")
|
(interactive "F")
|
||||||
|
|
Loading…
Reference in a new issue