bram/elfeed-export
1
0
Fork 0
Code Activity

Factor out entry gathering

Browse source
This commit is contained in:
Bram Schoenmakers 2024-08-01 22:32:25 +02:00
parent 7697ec34b6
commit e761e1eb6f
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
elfeed-export.el
View file

@ -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))))
entries))
(defun elfeed-export-to-json ()
(json-encode (json-encode
(mapcar #'elfeed-export--entry-to-alist entries)))) (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")